rpmbuild --define "_sourcedir /home/dwmw2/working/extras/sbcl/devel" --define "_builddir /home/dwmw2/working/extras/sbcl/devel" --define "_srcrpmdir /home/dwmw2/working/extras/sbcl/devel" --define "_rpmdir /home/dwmw2/working/extras/sbcl/devel" --define "dist .fc7" --define "fedora 7" --target ppc -ba sbcl.spec Building target platforms: ppc Building for target ppc Executing(%prep): /bin/sh -e /var/tmp/rpm-tmp.20186 + umask 022 + cd /home/dwmw2/working/extras/sbcl/devel + LANG=C + export LANG + unset DISPLAY + cd /home/dwmw2/working/extras/sbcl/devel + rm -rf sbcl-1.0.1 + /usr/bin/bzip2 -dc /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1-source.tar.bz2 + tar -xf - + STATUS=0 + '[' 0 -ne 0 ']' + cd sbcl-1.0.1 ++ /usr/bin/id -u + '[' 500 = 0 ']' ++ /usr/bin/id -u + '[' 500 = 0 ']' + /bin/chmod -Rf a+rX,u+w,g-w,o-w . + '[' -d sbcl-1.0.1/doc/manual ']' + echo 'Patch #1 (sbcl-0.8.18-default-sbcl-home.patch):' Patch #1 (sbcl-0.8.18-default-sbcl-home.patch): + patch -p0 -b --suffix .default-sbcl-home -s + echo 'Patch #2 (sbcl-0.9.5-personality.patch):' Patch #2 (sbcl-0.9.5-personality.patch): + patch -p1 -b --suffix .personality -s + echo 'Patch #3 (sbcl-1.0-optflags.patch):' Patch #3 (sbcl-1.0-optflags.patch): + patch -p1 -b --suffix .optflags -s + echo 'Patch #4 (sbcl-0.9.17-LIB_DIR.patch):' Patch #4 (sbcl-0.9.17-LIB_DIR.patch): + patch -p1 -b --suffix .LIB_DIR -s + echo 'Patch #7 (sbcl-0.9.9-permissive.patch):' Patch #7 (sbcl-0.9.9-permissive.patch): + patch -p1 -b --suffix .permissive -s + echo 'Patch #8 (sbcl-1.0-gcc4_sparc.patch):' Patch #8 (sbcl-1.0-gcc4_sparc.patch): + patch -p1 -b --suffix .gcc4_sparc -s + echo 'Patch #9 (sbcl-1.0.1-ppc-64KiB-page.patch):' Patch #9 (sbcl-1.0.1-ppc-64KiB-page.patch): + patch -p1 -b --suffix .ppc -s + find . -name '*.c' + xargs chmod 644 + exit 0 Executing(%build): /bin/sh -e /var/tmp/rpm-tmp.96292 + umask 022 + cd /home/dwmw2/working/extras/sbcl/devel + cd sbcl-1.0.1 + LANG=C + export LANG + unset DISPLAY + export 'CFLAGS=-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32' + CFLAGS='-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32' + touch contrib/sb-posix/test-passed + touch contrib/sb-bsd-sockets/test-passed + export 'EXTRA_CFLAGS=-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32' + EXTRA_CFLAGS='-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32' + export DEFAULT_SBCL_HOME=/usr/lib/sbcl + DEFAULT_SBCL_HOME=/usr/lib/sbcl + export SBCL_ARCH=ppc + SBCL_ARCH=ppc + /bin/bash ./make.sh //starting build: Fri Dec 29 22:09:41 GMT 2006 //SBCL_XC_HOST="sbcl --disable-debugger --userinit /dev/null --sysinit /dev/null" //entering make-config.sh //ensuring the existence of output/ directory //initializing /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/local-target-features.lisp-expr //guessing default target CPU architecture from host architecture //setting up CPU-architecture-dependent information sbcl_arch="ppc" //setting up symlink src/compiler/target //setting up symlink src/assembly/target //setting up symlink src/compiler/assembly //setting up OS-dependent information make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tools-for-build' cc -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I../src/runtime -ldl where-is-mcontext.c -o where-is-mcontext make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tools-for-build' //finishing /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/local-target-features.lisp-expr /in canonicalize-whitespace-1 /$*=./doc/manual/create-contrib-doc-list.lisp ./doc/manual/docstrings.lisp ./tests/pure.lisp ./tests/setf.impure.lisp ./tests/external-format.impure.lisp ./tests/list.pure.lisp ./tests/clos.impure.lisp ./tests/float.pure.lisp ./tests/mop-22.impure-cload.lisp ./tests/undefined-classoid-bug-1.lisp ./tests/gray-streams.impure.lisp ./tests/mop-18.impure-cload.lisp ./tests/mop-1.impure-cload.lisp ./tests/compiler.pure.lisp ./tests/dump.impure-cload.lisp ./tests/mop-6.impure-cload.lisp ./tests/mop-25.impure.lisp ./tests/print.impure.lisp ./tests/bug204-test.lisp ./tests/mop-17.impure-cload.lisp ./tests/seq.impure.lisp ./tests/mop-24.impure.lisp ./tests/type.before-xc.lisp ./tests/callback.impure.lisp ./tests/mop-23.impure.lisp ./tests/eval.impure.lisp ./tests/compiler.pure-cload.lisp ./tests/hash.pure.lisp ./tests/stream.impure.lisp ./tests/dynamic-extent.impure.lisp ./tests/exhaust.impure.lisp ./tests/vector.impure.lisp ./tests/full-eval.impure.lisp ./tests/macroexpand.impure.lisp ./tests/arith.pure.lisp ./tests/lambda-list.pure.lisp ./tests/compiler.impure.lisp ./tests/mop-14.impure-cload.lisp ./tests/static-alloc.impure.lisp ./tests/mop-8.impure-cload.lisp ./tests/stress-gc.lisp ./tests/alien.impure.lisp ./tests/loop.impure.lisp ./tests/mop-9.impure-cload.lisp ./tests/mop-12.impure-cload.lisp ./tests/packages.impure.lisp ./tests/mop-7.impure-cload.lisp ./tests/run-program.impure.lisp ./tests/symbol.pure.lisp ./tests/pathnames.impure.lisp ./tests/info.impure.lisp ./tests/type.impure.lisp ./tests/mop-4.impure-cload.lisp ./tests/mop-15.impure-cload.lisp ./tests/timer.impure.lisp ./tests/deftype.impure.lisp ./tests/mop-11.impure-cload.lisp ./tests/bivalent-stream.impure.lisp ./tests/load.pure.lisp ./tests/octets.pure.lisp ./tests/clos-typechecking.impure.lisp ./tests/mop-16.impure-cload.lisp ./tests/map-tests.impure.lisp ./tests/clos-1.impure.lisp ./tests/custom-userinit.lisp ./tests/loop.pure.lisp ./tests/mop-10.impure-cload.lisp ./tests/condition-wait-sigcont.lisp ./tests/debug.impure.lisp ./tests/define-compiler-macro.impure.lisp ./tests/foreign-stack-alignment.impure.lisp ./tests/backq.impure.lisp ./tests/symbol-macrolet-test.lisp ./tests/undefined-classoid-bug-2.lisp ./tests/mop-2.impure-cload.lisp ./tests/filesys.pure.lisp ./tests/walk.impure.lisp ./tests/mop-13.impure-cload.lisp ./tests/clocc-ansi-test-known-bugs.lisp ./tests/reader.impure.lisp ./tests/character.pure.lisp ./tests/clos.impure-cload.lisp ./tests/pprint.impure.lisp ./tests/package-ctor-bug.lisp ./tests/hash.impure.lisp ./tests/defmacro-test.lisp ./tests/stream.pure.lisp ./tests/circ-tree-test.lisp ./tests/string.pure.lisp ./tests/signals.impure.lisp ./tests/interface.pure.lisp ./tests/type.after-xc.lisp ./tests/vm.before-xc.lisp ./tests/array.pure.lisp ./tests/condition.impure.lisp ./tests/bit-vector.impure-cload.lisp ./tests/interface.impure.lisp ./tests/compiler.impure-cload.lisp ./tests/assertoid.lisp ./tests/arith.impure.lisp ./tests/mop.impure-cload.lisp ./tests/vector.pure.lisp ./tests/float.impure.lisp ./tests/properties.impure.lisp ./tests/mop.pure.lisp ./tests/compound-cons.impure.lisp ./tests/compiler-1.impure-cload.lisp ./tests/mop.impure.lisp ./tests/package-locks.impure.lisp ./tests/gc.impure.lisp ./tests/step.impure.lisp ./tests/time.pure.lisp ./tests/mop-19.impure-cload.lisp ./tests/bug-doug-mcnaught-20030914.lisp ./tests/run-tests.lisp ./tests/custom-sysinit.lisp ./tests/load.impure.lisp ./tests/compiler-2.impure-cload.lisp ./tests/reader.pure.lisp ./tests/clos-ignore.interactive.lisp ./tests/compiler-output-test.lisp ./tests/test-util.lisp ./tests/type.pure.lisp ./tests/enc-jpn.impure.lisp ./tests/defstruct.impure.lisp ./tests/threads.impure.lisp ./tests/stream.impure-cload.lisp ./tests/seq.pure.lisp ./tests/condition.pure.lisp ./tests/mop-21.impure-cload.lisp ./tests/info.before-xc.lisp ./tests/smoke.impure.lisp ./tests/mop-20.impure-cload.lisp ./tests/clos.pure.lisp ./tests/mop-3.impure-cload.lisp ./tests/mop-5.impure-cload.lisp ./tests/gcd.pure.lisp ./make-host-1.lisp ./src/compiler/assem.lisp ./src/compiler/late-vmdef.lisp ./src/compiler/pseudo-vops.lisp ./src/compiler/represent.lisp ./src/compiler/lexenv.lisp ./src/compiler/parse-lambda-list.lisp ./src/compiler/stack.lisp ./src/compiler/float-tran.lisp ./src/compiler/ir1opt.lisp ./src/compiler/hppa/move.lisp ./src/compiler/hppa/system.lisp ./src/compiler/hppa/memory.lisp ./src/compiler/hppa/insts.lisp ./src/compiler/hppa/sanctify.lisp ./src/compiler/hppa/type-vops.lisp ./src/compiler/hppa/parms.lisp ./src/compiler/hppa/cell.lisp ./src/compiler/hppa/values.lisp ./src/compiler/hppa/macros.lisp ./src/compiler/hppa/show.lisp ./src/compiler/hppa/nlx.lisp ./src/compiler/hppa/vm.lisp ./src/compiler/hppa/sap.lisp ./src/compiler/hppa/alloc.lisp ./src/compiler/hppa/pred.lisp ./src/compiler/hppa/subprim.lisp ./src/compiler/hppa/array.lisp ./src/compiler/hppa/target-insts.lisp ./src/compiler/hppa/c-call.lisp ./src/compiler/hppa/float.lisp ./src/compiler/hppa/char.lisp ./src/compiler/hppa/arith.lisp ./src/compiler/hppa/debug.lisp ./src/compiler/hppa/static-fn.lisp ./src/compiler/hppa/call.lisp ./src/compiler/hppa/backend-parms.lisp ./src/compiler/seqtran.lisp ./src/compiler/late-proclaim.lisp ./src/compiler/control.lisp ./src/compiler/info-functions.lisp ./src/compiler/target-dump.lisp ./src/compiler/target-main.lisp ./src/compiler/checkgen.lisp ./src/compiler/target-disassem.lisp ./src/compiler/ir1report.lisp ./src/compiler/array-tran.lisp ./src/compiler/ir1-translators.lisp ./src/compiler/saptran.lisp ./src/compiler/fun-info-funs.lisp ./src/compiler/defconstant.lisp ./src/compiler/late-macros.lisp ./src/compiler/compiler-error.lisp ./src/compiler/ir1tran.lisp ./src/compiler/ir1tran-lambda.lisp ./src/compiler/vop.lisp ./src/compiler/x86/move.lisp ./src/compiler/x86/system.lisp ./src/compiler/x86/memory.lisp ./src/compiler/x86/insts.lisp ./src/compiler/x86/sanctify.lisp ./src/compiler/x86/type-vops.lisp ./src/compiler/x86/parms.lisp ./src/compiler/x86/cell.lisp ./src/compiler/x86/values.lisp ./src/compiler/x86/macros.lisp ./src/compiler/x86/show.lisp ./src/compiler/x86/nlx.lisp ./src/compiler/x86/vm.lisp ./src/compiler/x86/sap.lisp ./src/compiler/x86/alloc.lisp ./src/compiler/x86/pred.lisp ./src/compiler/x86/subprim.lisp ./src/compiler/x86/array.lisp ./src/compiler/x86/target-insts.lisp ./src/compiler/x86/c-call.lisp ./src/compiler/x86/float.lisp ./src/compiler/x86/char.lisp ./src/compiler/x86/arith.lisp ./src/compiler/x86/debug.lisp ./src/compiler/x86/static-fn.lisp ./src/compiler/x86/call.lisp ./src/compiler/x86/backend-parms.lisp ./src/compiler/vmdef.lisp ./src/compiler/ir1util.lisp ./src/compiler/compiler-deftype.lisp ./src/compiler/dyncount.lisp ./src/compiler/backend.lisp ./src/compiler/macros.lisp ./src/compiler/sparc/move.lisp ./src/compiler/sparc/system.lisp ./src/compiler/sparc/memory.lisp ./src/compiler/sparc/insts.lisp ./src/compiler/sparc/sanctify.lisp ./src/compiler/sparc/type-vops.lisp ./src/compiler/sparc/parms.lisp ./src/compiler/sparc/cell.lisp ./src/compiler/sparc/values.lisp ./src/compiler/sparc/macros.lisp ./src/compiler/sparc/show.lisp ./src/compiler/sparc/nlx.lisp ./src/compiler/sparc/vm.lisp ./src/compiler/sparc/sap.lisp ./src/compiler/sparc/alloc.lisp ./src/compiler/sparc/pred.lisp ./src/compiler/sparc/subprim.lisp ./src/compiler/sparc/array.lisp ./src/compiler/sparc/target-insts.lisp ./src/compiler/sparc/c-call.lisp ./src/compiler/sparc/float.lisp ./src/compiler/sparc/char.lisp ./src/compiler/sparc/arith.lisp ./src/compiler/sparc/debug.lisp ./src/compiler/sparc/static-fn.lisp ./src/compiler/sparc/call.lisp ./src/compiler/sparc/backend-parms.lisp ./src/compiler/copyprop.lisp ./src/compiler/xref.lisp ./src/compiler/trace-table.lisp ./src/compiler/constantp.lisp ./src/compiler/node.lisp ./src/compiler/dump.lisp ./src/compiler/x86-64/move.lisp ./src/compiler/x86-64/system.lisp ./src/compiler/x86-64/memory.lisp ./src/compiler/x86-64/insts.lisp ./src/compiler/x86-64/sanctify.lisp ./src/compiler/x86-64/type-vops.lisp ./src/compiler/x86-64/parms.lisp ./src/compiler/x86-64/cell.lisp ./src/compiler/x86-64/values.lisp ./src/compiler/x86-64/macros.lisp ./src/compiler/x86-64/show.lisp ./src/compiler/x86-64/nlx.lisp ./src/compiler/x86-64/vm.lisp ./src/compiler/x86-64/sap.lisp ./src/compiler/x86-64/alloc.lisp ./src/compiler/x86-64/pred.lisp ./src/compiler/x86-64/subprim.lisp ./src/compiler/x86-64/array.lisp ./src/compiler/x86-64/target-insts.lisp ./src/compiler/x86-64/c-call.lisp ./src/compiler/x86-64/float.lisp ./src/compiler/x86-64/char.lisp ./src/compiler/x86-64/arith.lisp ./src/compiler/x86-64/debug.lisp ./src/compiler/x86-64/static-fn.lisp ./src/compiler/x86-64/call.lisp ./src/compiler/x86-64/backend-parms.lisp ./src/compiler/fixup-type.lisp ./src/compiler/life.lisp ./src/compiler/policy.lisp ./src/compiler/ltv.lisp ./src/compiler/knownfun.lisp ./src/compiler/policies.lisp ./src/compiler/fixup.lisp ./src/compiler/ir1final.lisp ./src/compiler/bit-util.lisp ./src/compiler/tn.lisp ./src/compiler/loop.lisp ./src/compiler/early-c.lisp ./src/compiler/srctran.lisp ./src/compiler/gtn.lisp ./src/compiler/fopcompile.lisp ./src/compiler/disassem.lisp ./src/compiler/main.lisp ./src/compiler/globaldb.lisp ./src/compiler/pack.lisp ./src/compiler/mips/move.lisp ./src/compiler/mips/system.lisp ./src/compiler/mips/memory.lisp ./src/compiler/mips/insts.lisp ./src/compiler/mips/sanctify.lisp ./src/compiler/mips/type-vops.lisp ./src/compiler/mips/parms.lisp ./src/compiler/mips/cell.lisp ./src/compiler/mips/values.lisp ./src/compiler/mips/macros.lisp ./src/compiler/mips/show.lisp ./src/compiler/mips/nlx.lisp ./src/compiler/mips/vm.lisp ./src/compiler/mips/sap.lisp ./src/compiler/mips/alloc.lisp ./src/compiler/mips/pred.lisp ./src/compiler/mips/subprim.lisp ./src/compiler/mips/array.lisp ./src/compiler/mips/target-insts.lisp ./src/compiler/mips/c-call.lisp ./src/compiler/mips/float.lisp ./src/compiler/mips/char.lisp ./src/compiler/mips/arith.lisp ./src/compiler/mips/debug.lisp ./src/compiler/mips/static-fn.lisp ./src/compiler/mips/call.lisp ./src/compiler/mips/backend-parms.lisp ./src/compiler/typetran.lisp ./src/compiler/proclaim.lisp ./src/compiler/ir2tran.lisp ./src/compiler/fndb.lisp ./src/compiler/debug.lisp ./src/compiler/early-aliencomp.lisp ./src/compiler/codegen.lisp ./src/compiler/early-assem.lisp ./src/compiler/deftype.lisp ./src/compiler/locall.lisp ./src/compiler/physenvanal.lisp ./src/compiler/sset.lisp ./src/compiler/debug-dump.lisp ./src/compiler/ctype.lisp ./src/compiler/early-backend.lisp ./src/compiler/alpha/move.lisp ./src/compiler/alpha/system.lisp ./src/compiler/alpha/memory.lisp ./src/compiler/alpha/insts.lisp ./src/compiler/alpha/sanctify.lisp ./src/compiler/alpha/type-vops.lisp ./src/compiler/alpha/parms.lisp ./src/compiler/alpha/cell.lisp ./src/compiler/alpha/values.lisp ./src/compiler/alpha/macros.lisp ./src/compiler/alpha/show.lisp ./src/compiler/alpha/nlx.lisp ./src/compiler/alpha/vm.lisp ./src/compiler/alpha/sap.lisp ./src/compiler/alpha/alloc.lisp ./src/compiler/alpha/pred.lisp ./src/compiler/alpha/subprim.lisp ./src/compiler/alpha/array.lisp ./src/compiler/alpha/target-insts.lisp ./src/compiler/alpha/c-call.lisp ./src/compiler/alpha/float.lisp ./src/compiler/alpha/char.lisp ./src/compiler/alpha/arith.lisp ./src/compiler/alpha/debug.lisp ./src/compiler/alpha/static-fn.lisp ./src/compiler/alpha/call.lisp ./src/compiler/alpha/backend-parms.lisp ./src/compiler/aliencomp.lisp ./src/compiler/dfo.lisp ./src/compiler/constraint.lisp ./src/compiler/ppc/move.lisp ./src/compiler/ppc/system.lisp ./src/compiler/ppc/memory.lisp ./src/compiler/ppc/insts.lisp ./src/compiler/ppc/sanctify.lisp ./src/compiler/ppc/type-vops.lisp ./src/compiler/ppc/parms.lisp ./src/compiler/ppc/cell.lisp ./src/compiler/ppc/values.lisp ./src/compiler/ppc/macros.lisp ./src/compiler/ppc/show.lisp ./src/compiler/ppc/nlx.lisp ./src/compiler/ppc/vm.lisp ./src/compiler/ppc/sap.lisp ./src/compiler/ppc/alloc.lisp ./src/compiler/ppc/pred.lisp ./src/compiler/ppc/subprim.lisp ./src/compiler/ppc/array.lisp ./src/compiler/ppc/target-insts.lisp ./src/compiler/ppc/c-call.lisp ./src/compiler/ppc/float.lisp ./src/compiler/ppc/char.lisp ./src/compiler/ppc/arith.lisp ./src/compiler/ppc/debug.lisp ./src/compiler/ppc/static-fn.lisp ./src/compiler/ppc/call.lisp ./src/compiler/ppc/backend-parms.lisp ./src/compiler/meta-vmdef.lisp ./src/compiler/entry.lisp ./src/compiler/generic/vm-tran.lisp ./src/compiler/generic/early-vm.lisp ./src/compiler/generic/early-objdef.lisp ./src/compiler/generic/interr.lisp ./src/compiler/generic/parms.lisp ./src/compiler/generic/utils.lisp ./src/compiler/generic/vm-array.lisp ./src/compiler/generic/early-type-vops.lisp ./src/compiler/generic/array.lisp ./src/compiler/generic/vm-type.lisp ./src/compiler/generic/vm-typetran.lisp ./src/compiler/generic/core.lisp ./src/compiler/generic/target-core.lisp ./src/compiler/generic/objdef.lisp ./src/compiler/generic/late-type-vops.lisp ./src/compiler/generic/vm-ir2tran.lisp ./src/compiler/generic/vm-macs.lisp ./src/compiler/generic/vm-fndb.lisp ./src/compiler/generic/genesis.lisp ./src/compiler/generic/late-nlx.lisp ./src/compiler/generic/primtype.lisp ./src/compiler/ltn.lisp ./src/code/host-c-call.lisp ./src/code/target-error.lisp ./src/code/osf1-os.lisp ./src/code/cross-boole.lisp ./src/code/globals.lisp ./src/code/defpackage.lisp ./src/code/defstruct.lisp ./src/code/class.lisp ./src/code/float-trap.lisp ./src/code/cross-sap.lisp ./src/code/serve-event.lisp ./src/code/x86-64-vm.lisp ./src/code/debug-info.lisp ./src/code/unix-pathname.lisp ./src/code/room.lisp ./src/code/target-defbangmethod.lisp ./src/code/pprint.lisp ./src/code/sparc-vm.lisp ./src/code/target-extensions.lisp ./src/code/fd-stream.lisp ./src/code/force-delayed-defbangstructs.lisp ./src/code/specializable-array.lisp ./src/code/condition.lisp ./src/code/octets.lisp ./src/code/misc-aliens.lisp ./src/code/foreign-load.lisp ./src/code/early-cl.lisp ./src/code/early-package.lisp ./src/code/toplevel.lisp ./src/code/cross-thread.lisp ./src/code/defsetfs.lisp ./src/code/force-delayed-defbangconstants.lisp ./src/code/mips-vm.lisp ./src/code/interr.lisp ./src/code/filesys.lisp ./src/code/unportable-float.lisp ./src/code/target-signal.lisp ./src/code/irrat.lisp ./src/code/stream.lisp ./src/code/string.lisp ./src/code/funutils.lisp ./src/code/target-thread.lisp ./src/code/macroexpand.lisp ./src/code/early-extensions.lisp ./src/code/purify.lisp ./src/code/target-exception.lisp ./src/code/bsd-os.lisp ./src/code/reader.lisp ./src/code/save.lisp ./src/code/foreign.lisp ./src/code/sysmacs.lisp ./src/code/bignum.lisp ./src/code/parse-defmacro.lisp ./src/code/early-defstructs.lisp ./src/code/eval.lisp ./src/code/readtable.lisp ./src/code/ppc-vm.lisp ./src/code/target-stream.lisp ./src/code/external-formats/enc-jpn-tbl.lisp ./src/code/external-formats/enc-cyr.lisp ./src/code/external-formats/ucs-2.lisp ./src/code/external-formats/mb-util.lisp ./src/code/external-formats/enc-dos.lisp ./src/code/external-formats/enc-jpn.lisp ./src/code/external-formats/enc-win.lisp ./src/code/external-formats/enc-iso.lisp ./src/code/linkage-table.lisp ./src/code/thread.lisp ./src/code/host-pprint.lisp ./src/code/early-pcounter.lisp ./src/code/win32.lisp ./src/code/debug-int.lisp ./src/code/target-misc.lisp ./src/code/sort.lisp ./src/code/step.lisp ./src/code/typedefs.lisp ./src/code/error.lisp ./src/code/hppa-vm.lisp ./src/code/parse-defmacro-errors.lisp ./src/code/parse-body.lisp ./src/code/profile.lisp ./src/code/x86-vm.lisp ./src/code/run-program.lisp ./src/code/early-type.lisp ./src/code/target-format.lisp ./src/code/dyncount.lisp ./src/code/seq.lisp ./src/code/misc.lisp ./src/code/macros.lisp ./src/code/mipsstrops.lisp ./src/code/defmacro.lisp ./src/code/cross-char.lisp ./src/code/early-array.lisp ./src/code/show.lisp ./src/code/late-extensions.lisp ./src/code/target-allocate.lisp ./src/code/early-alieneval.lisp ./src/code/cross-condition.lisp ./src/code/alien-type.lisp ./src/code/defboot.lisp ./src/code/weak.lisp ./src/code/alpha-vm.lisp ./src/code/module.lisp ./src/code/target-hash-table.lisp ./src/code/target-alieneval.lisp ./src/code/package.lisp ./src/code/query.lisp ./src/code/signal.lisp ./src/code/late-type.lisp ./src/code/sunos-os.lisp ./src/code/huffman.lisp ./src/code/ansi-stream.lisp ./src/code/defbangmacro.lisp ./src/code/early-time.lisp ./src/code/random.lisp ./src/code/coerce.lisp ./src/code/function-names.lisp ./src/code/target-type.lisp ./src/code/late-defbangmethod.lisp ./src/code/format-time.lisp ./src/code/numbers.lisp ./src/code/early-print.lisp ./src/code/sc-offset.lisp ./src/code/sxhash.lisp ./src/code/early-setf.lisp ./src/code/common-os.lisp ./src/code/class-init.lisp ./src/code/error-error.lisp ./src/code/linux-os.lisp ./src/code/late-format.lisp ./src/code/early-step.lisp ./src/code/host-alieneval.lisp ./src/code/cross-misc.lisp ./src/code/gc.lisp ./src/code/force-delayed-defbangmethods.lisp ./src/code/type-class.lisp ./src/code/uncross.lisp ./src/code/alloc.lisp ./src/code/pred.lisp ./src/code/deftypes-for-target.lisp ./src/code/loop.lisp ./src/code/array.lisp ./src/code/early-full-eval.lisp ./src/code/target-c-call.lisp ./src/code/target-pathname.lisp ./src/code/target-defstruct.lisp ./src/code/unix.lisp ./src/code/setf-funs.lisp ./src/code/time.lisp ./src/code/win32-pathname.lisp ./src/code/win32-foreign-load.lisp ./src/code/target-char.lisp ./src/code/inspect.lisp ./src/code/bit-bash.lisp ./src/code/target-load.lisp ./src/code/early-source-location.lisp ./src/code/typep.lisp ./src/code/list.lisp ./src/code/cross-type.lisp ./src/code/fop.lisp ./src/code/defbangstruct.lisp ./src/code/cold-error.lisp ./src/code/destructuring-bind.lisp ./src/code/target-random.lisp ./src/code/symbol.lisp ./src/code/final.lisp ./src/code/pp-backq.lisp ./src/code/debug-var-io.lisp ./src/code/float.lisp ./src/code/late-deftypes-for-target.lisp ./src/code/cross-float.lisp ./src/code/source-location.lisp ./src/code/late-setf.lisp ./src/code/pathname.lisp ./src/code/pcounter.lisp ./src/code/timer.lisp ./src/code/fdefinition.lisp ./src/code/cross-make-load-form.lisp ./src/code/char.lisp ./src/code/cl-specials.lisp ./src/code/debug.lisp ./src/code/cross-modular.lisp ./src/code/primordial-type.lisp ./src/code/target-sap.lisp ./src/code/describe.lisp ./src/code/early-fasl.lisp ./src/code/print.lisp ./src/code/early-pprint.lisp ./src/code/early-thread.lisp ./src/code/hash-table.lisp ./src/code/exhaust.lisp ./src/code/backq.lisp ./src/code/early-format.lisp ./src/code/ntrace.lisp ./src/code/target-sxhash.lisp ./src/code/late-condition.lisp ./src/code/cross-byte.lisp ./src/code/sharpm.lisp ./src/code/early-defbangmethod.lisp ./src/code/early-float.lisp ./src/code/describe-policy.lisp ./src/code/cold-init-helper-macros.lisp ./src/code/load.lisp ./src/code/primordial-extensions.lisp ./src/code/kernel.lisp ./src/code/target-package.lisp ./src/code/win32-os.lisp ./src/code/full-eval.lisp ./src/code/defbangconstant.lisp ./src/code/type-init.lisp ./src/code/force-delayed-defbangmacros.lisp ./src/code/stubs.lisp ./src/code/typecheckfuns.lisp ./src/code/cold-init.lisp ./src/code/defbangtype.lisp ./src/code/cross-io.lisp ./src/code/early-impl.lisp ./src/pcl/walk.lisp ./src/pcl/dlisp2.lisp ./src/pcl/fngen.lisp ./src/pcl/slots-boot.lisp ./src/pcl/defclass.lisp ./src/pcl/combin.lisp ./src/pcl/vector.lisp ./src/pcl/braid.lisp ./src/pcl/slots.lisp ./src/pcl/env.lisp ./src/pcl/boot.lisp ./src/pcl/ctypes.lisp ./src/pcl/low.lisp ./src/pcl/generic-functions.lisp ./src/pcl/macros.lisp ./src/pcl/sequence.lisp ./src/pcl/std-class.lisp ./src/pcl/dlisp3.lisp ./src/pcl/methods.lisp ./src/pcl/cpl.lisp ./src/pcl/slot-name.lisp ./src/pcl/documentation.lisp ./src/pcl/compiler-support.lisp ./src/pcl/init.lisp ./src/pcl/dlisp.lisp ./src/pcl/ctor.lisp ./src/pcl/precom1.lisp ./src/pcl/fsc.lisp ./src/pcl/cache.lisp ./src/pcl/fixup.lisp ./src/pcl/dfun.lisp ./src/pcl/gray-streams-class.lisp ./src/pcl/time.lisp ./src/pcl/defs.lisp ./src/pcl/print-object.lisp ./src/pcl/precom2.lisp ./src/pcl/describe.lisp ./src/pcl/defcombin.lisp ./src/pcl/gray-streams.lisp ./src/pcl/early-low.lisp ./src/cold/chill.lisp ./src/cold/compile-cold-sbcl.lisp ./src/cold/with-stuff.lisp ./src/cold/snapshot.lisp ./src/cold/rename-package-carefully.lisp ./src/cold/defun-load-or-cload-xcompiler.lisp ./src/cold/warm.lisp ./src/cold/read-from-file.lisp ./src/cold/shebang.lisp ./src/cold/slam.lisp ./src/cold/ansify.lisp ./src/cold/set-up-cold-packages.lisp ./src/cold/shared.lisp ./src/assembly/assemfile.lisp ./src/assembly/hppa/alloc.lisp ./src/assembly/hppa/array.lisp ./src/assembly/hppa/assem-rtns.lisp ./src/assembly/hppa/arith.lisp ./src/assembly/hppa/support.lisp ./src/assembly/x86/alloc.lisp ./src/assembly/x86/array.lisp ./src/assembly/x86/bit-bash.lisp ./src/assembly/x86/assem-rtns.lisp ./src/assembly/x86/arith.lisp ./src/assembly/x86/support.lisp ./src/assembly/sparc/alloc.lisp ./src/assembly/sparc/array.lisp ./src/assembly/sparc/assem-rtns.lisp ./src/assembly/sparc/arith.lisp ./src/assembly/sparc/support.lisp ./src/assembly/x86-64/alloc.lisp ./src/assembly/x86-64/array.lisp ./src/assembly/x86-64/bit-bash.lisp ./src/assembly/x86-64/assem-rtns.lisp ./src/assembly/x86-64/arith.lisp ./src/assembly/x86-64/support.lisp ./src/assembly/mips/alloc.lisp ./src/assembly/mips/array.lisp ./src/assembly/mips/assem-rtns.lisp ./src/assembly/mips/arith.lisp ./src/assembly/mips/support.lisp ./src/assembly/alpha/alloc.lisp ./src/assembly/alpha/array.lisp ./src/assembly/alpha/assem-rtns.lisp ./src/assembly/alpha/arith.lisp ./src/assembly/alpha/support.lisp ./src/assembly/ppc/alloc.lisp ./src/assembly/ppc/array.lisp ./src/assembly/ppc/assem-rtns.lisp ./src/assembly/ppc/arith.lisp ./src/assembly/ppc/support.lisp ./make-host-2.lisp ./tools-for-build/wxs.lisp ./tools-for-build/rtf.lisp ./tools-for-build/ldso-stubs.lisp ./tools-for-build/ucd.lisp ./make-target-2.lisp ./contrib/compiler-extras.lisp ./contrib/sb-sprof/sb-sprof.lisp ./contrib/stale-symbols.lisp ./contrib/sb-rotate-byte/rotate-byte-tests.lisp ./contrib/sb-rotate-byte/ppc-vm.lisp ./contrib/sb-rotate-byte/rotate-byte.lisp ./contrib/sb-rotate-byte/x86-vm.lisp ./contrib/sb-rotate-byte/compiler.lisp ./contrib/sb-rotate-byte/package.lisp ./contrib/sb-bsd-sockets/split.lisp ./contrib/sb-bsd-sockets/defpackage.lisp ./contrib/sb-bsd-sockets/constants.lisp ./contrib/sb-bsd-sockets/local.lisp ./contrib/sb-bsd-sockets/sockets.lisp ./contrib/sb-bsd-sockets/misc.lisp ./contrib/sb-bsd-sockets/tests.lisp ./contrib/sb-bsd-sockets/win32-lib.lisp ./contrib/sb-bsd-sockets/inet.lisp ./contrib/sb-bsd-sockets/name-service.lisp ./contrib/sb-bsd-sockets/win32-constants.lisp ./contrib/sb-bsd-sockets/doc.lisp ./contrib/sb-bsd-sockets/win32-sockets.lisp ./contrib/sb-bsd-sockets/sockopt.lisp ./contrib/asdf-install/defpackage.lisp ./contrib/asdf-install/installer.lisp ./contrib/sb-md5/md5.lisp ./contrib/sb-md5/md5-tests.lisp ./contrib/sb-simple-streams/iodefs.lisp ./contrib/sb-simple-streams/simple-stream-tests.lisp ./contrib/sb-simple-streams/string.lisp ./contrib/sb-simple-streams/null.lisp ./contrib/sb-simple-streams/terminal.lisp ./contrib/sb-simple-streams/package.lisp ./contrib/sb-simple-streams/direct.lisp ./contrib/sb-simple-streams/classes.lisp ./contrib/sb-simple-streams/fndb.lisp ./contrib/sb-simple-streams/internal.lisp ./contrib/sb-simple-streams/impl.lisp ./contrib/sb-simple-streams/socket.lisp ./contrib/sb-simple-streams/strategy.lisp ./contrib/sb-simple-streams/file.lisp ./contrib/code-extras.lisp ./contrib/asdf-stub.lisp ./contrib/sb-posix/defpackage.lisp ./contrib/sb-posix/constants.lisp ./contrib/sb-posix/posix-tests.lisp ./contrib/sb-posix/macros.lisp ./contrib/sb-posix/interface.lisp ./contrib/sb-posix/designator.lisp ./contrib/sb-grovel/def-to-lisp.lisp ./contrib/sb-grovel/defpackage.lisp ./contrib/sb-grovel/foreign-glue.lisp ./contrib/sb-grovel/example-constants.lisp ./contrib/sb-rt/rt.lisp ./contrib/sb-executable/sb-executable.lisp ./contrib/sb-introspect/sb-introspect.lisp ./contrib/sb-introspect/test-driver.lisp ./contrib/sb-introspect/xref-test.lisp ./contrib/sb-introspect/test.lisp ./contrib/sb-introspect/xref-test-data.lisp ./contrib/sb-aclrepl/toplevel.lisp ./contrib/sb-aclrepl/repl.lisp ./contrib/sb-aclrepl/tests.lisp ./contrib/sb-aclrepl/inspect.lisp ./contrib/sb-aclrepl/debug.lisp ./contrib/asdf/asdf.lisp ./contrib/sb-cltl2/defpackage.lisp ./contrib/sb-cltl2/macroexpand.lisp ./contrib/sb-cltl2/compiler-let.lisp ./contrib/sb-cltl2/env.lisp ./contrib/sb-cltl2/tests.lisp ./make-genesis-2.lisp ./version.lisp-expr ./package-data-list.lisp-expr ./tests/test-status.lisp-expr ./src/code/early-defstruct-args.lisp-expr ./base-target-features.lisp-expr ./build-order.lisp-expr ./common-lisp-exports.lisp-expr ./local-target-features.lisp-expr ./tests/stack-alignment-offset.c ./src/runtime/alpha-osf1-os.c ./src/runtime/search.c ./src/runtime/cheneygc.c ./src/runtime/sparc-arch.c ./src/runtime/backtrace.c ./src/runtime/x86-bsd-os.c ./src/runtime/vars.c ./src/runtime/mips-arch.c ./src/runtime/interrupt.c ./src/runtime/x86-64-linux-os.c ./src/runtime/gc-common.c ./src/runtime/run-program.c ./src/runtime/bsd-os.c ./src/runtime/x86-darwin-os.c ./src/runtime/print.c ./src/runtime/runtime.c ./src/runtime/x86-arch.c ./src/runtime/coreparse.c ./src/runtime/x86-64-bsd-os.c ./src/runtime/wrap.c ./src/runtime/alpha-arch.c ./src/runtime/interr.c ./src/runtime/thread.c ./src/runtime/largefile.c ./src/runtime/trymap.c ./src/runtime/win32-os.c ./src/runtime/save.c ./src/runtime/x86-linux-os.c ./src/runtime/mips-linux-os.c ./src/runtime/alpha-linux-os.c ./src/runtime/hppa-linux-os.c ./src/runtime/hppa-arch.c ./src/runtime/sparc-linux-os.c ./src/runtime/osf1-os.c ./src/runtime/regnames.c ./src/runtime/time.c ./src/runtime/monitor.c ./src/runtime/os-common.c ./src/runtime/undefineds.c ./src/runtime/alloc.c ./src/runtime/sunos-os.c ./src/runtime/pthread-lutex.c ./src/runtime/linux-os.c ./src/runtime/pthread-futex.c ./src/runtime/gencgc.c ./src/runtime/dynbind.c ./src/runtime/breakpoint.c ./src/runtime/validate.c ./src/runtime/x86-sunos-os.c ./src/runtime/purify.c ./src/runtime/globals.c ./src/runtime/x86-win32-os.c ./src/runtime/darwin-langinfo.c ./src/runtime/parse.c ./src/runtime/ppc-darwin-os.c ./src/runtime/util.c ./src/runtime/ppc-arch.c ./src/runtime/darwin-os.c ./src/runtime/sparc-sunos-os.c ./src/runtime/darwin-dlshim.c ./src/runtime/x86-64-arch.c ./src/runtime/ppc-linux-os.c ./tools-for-build/where-is-mcontext.c ./tools-for-build/os-provides-putwc-test.c ./tools-for-build/os-provides-dlopen-test.c ./tools-for-build/determine-endianness.c ./tools-for-build/grovel-headers.c ./tools-for-build/os-provides-dladdr-test.c ./contrib/sb-bsd-sockets/foo.c ./contrib/sb-posix/foo.c ./src/runtime/validate.h ./src/runtime/bsd-os.h ./src/runtime/print.h ./src/runtime/x86-64-lispregs.h ./src/runtime/ppc-lispregs.h ./src/runtime/sparc-linux-os.h ./src/runtime/alpha-linux-os.h ./src/runtime/mips-arch.h ./src/runtime/x86-lispregs.h ./src/runtime/core.h ./src/runtime/x86-sunos-os.h ./src/runtime/gencgc-alloc-region.h ./src/runtime/alpha-arch.h ./src/runtime/darwin-os.h ./src/runtime/alpha-osf1-os.h ./src/runtime/hppa-arch.h ./src/runtime/arch.h ./src/runtime/interr.h ./src/runtime/ppc-linux-os.h ./src/runtime/lispregs.h ./src/runtime/osf1-os.h ./src/runtime/ppc-arch.h ./src/runtime/x86-arch.h ./src/runtime/sparc-arch.h ./src/runtime/purify.h ./src/runtime/os.h ./src/runtime/gc.h ./src/runtime/parse.h ./src/runtime/x86-linux-os.h ./src/runtime/dynbind.h ./src/runtime/alloc.h ./src/runtime/interrupt.h ./src/runtime/gc-internal.h ./src/runtime/gencgc-internal.h ./src/runtime/search.h ./src/runtime/target-arch.h ./src/runtime/runtime.h ./src/runtime/target-os.h ./src/runtime/hppa-linux-os.h ./src/runtime/pseudo-atomic.h ./src/runtime/x86-bsd-os.h ./src/runtime/ppc-linux-mcontext.h ./src/runtime/fixnump.h ./src/runtime/x86-darwin-os.h ./src/runtime/x86-64-linux-os.h ./src/runtime/breakpoint.h ./src/runtime/save.h ./src/runtime/darwin-dlshim.h ./src/runtime/mips-lispregs.h ./src/runtime/vars.h ./src/runtime/hppa-lispregs.h ./src/runtime/alpha-lispregs.h ./src/runtime/mips-linux-os.h ./src/runtime/cheneygc-internal.h ./src/runtime/linux-os.h ./src/runtime/undefineds.h ./src/runtime/target-lispregs.h ./src/runtime/globals.h ./src/runtime/x86-64-arch.h ./src/runtime/ppc-darwin-os.h ./src/runtime/thread.h ./src/runtime/target-arch-os.h ./src/runtime/x86-64-bsd-os.h ./src/runtime/sparc-lispregs.h ./src/runtime/monitor.h ./src/runtime/sunos-os.h ./src/runtime/util.h ./src/runtime/win32-os.h ./src/runtime/darwin-langinfo.h ./src/runtime/x86-win32-os.h ./src/runtime/sparc-sunos-os.h /$scratchfilename=/tmp/canonicalize-whitespace-1.1548.tmp /$f=./src/runtime/linux-os.c //entering make-host-1.sh //building cross-compiler, and doing first genesis This is SBCL 1.0.1, 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*=(:ANSI-CL :COMMON-LISP :SBCL :UNIX :SB-DOC :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS :IEEE-FLOATING-POINT :PPC :ELF :LINUX :GENCGC :STACK-ALLOCATABLE-CLOSURES :LINKAGE-TABLE :OS-PROVIDES-DLOPEN :OS-PROVIDES-PUTWC) target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL T * T * # * "obj/from-host/" * T * T * creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/ creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/ creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/show.lisp" (written 14 JUL 2005 05:30:38 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFUN CANNOT-/SHOW ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/show.lisp ; in: DEFUN CANNOT-/SHOW ; (VALUES) ; ; note: deleting unreachable code ; 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"); ; compilation unit finished ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/show.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-source-location.lisp" (written 06 NOV 2005 08:40:31 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *SOURCE-LOCATION-THUNKS* ...) ; compiling (DEFUN SOURCE-LOCATION ...) ; compiling (DEFMACRO WITH-SOURCE-LOCATION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-source-location.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/backq.lisp" (written 18 SEP 2005 08:13:37 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (/SHOW0 "entering backq.lisp") ; compiling (DEFVAR *BACKQUOTE-COUNT* ...) ; compiling (DEFVAR *BQ-COMMA-FLAG* ...) ; compiling (DEFVAR *BQ-AT-FLAG* ...) ; compiling (DEFVAR *BQ-DOT-FLAG* ...) ; compiling (DEFVAR *BQ-VECTOR-FLAG* ...) ; compiling (/SHOW0 "backq.lisp 50") ; compiling (DEFUN BACKQUOTE-MACRO ...) ; compiling (/SHOW0 "backq.lisp 64") ; compiling (DEFUN COMMA-MACRO ...) ; compiling (/SHOW0 "backq.lisp 83") ; compiling (DEFUN EXPANDABLE-BACKQ-EXPRESSION-P ...) ; compiling (DEFUN BACKQUOTIFY ...) ; compiling (/SHOW0 "backq.lisp 139") ; compiling (DEFUN COMMA ...) ; compiling (/SHOW0 "backq.lisp 157") ; compiling (DEFUN BACKQUOTIFY-1 ...) ; compiling (/SHOW0 "backq.lisp 184") ; compiling (DEF BACKQ-LIST ...) ; compiling (DEF BACKQ-LIST* ...) ; compiling (DEF BACKQ-APPEND ...) ; compiling (DEF BACKQ-NCONC ...) ; compiling (DEF BACKQ-CONS ...) ; compiling (/SHOW0 "backq.lisp 204") ; compiling (DEFUN BACKQ-VECTOR ...) ; compiling (/SHOW0 "backq.lisp 212") ; compiling (DEFUN !BACKQ-COLD-INIT ...) ; compiling (!BACKQ-COLD-INIT) ; compiling (DEFVAR *BACKQ-TOKENS* ...) ; compiling (DEFUN %READER-ERROR ...) ; compiling (/SHOW0 "done with backq.lisp") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/backq.lisp ; in: DEFUN %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 ; ; caught STYLE-WARNING: ; This function is undefined: ; BUG ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/backq.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defsetfs.lisp" (written 04 JUN 2006 03:25:06 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 %RAW-BITS ...) ; 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-SINGLE ...) ; compiling (DEFSETF SAP-REF-DOUBLE ...) ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFSETF CODE-HEADER-REF ...) ; compiling (DEFSETF %RAW-BITS ...) ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFSETF OBJECT-SET-OPERATION ...) ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFSETF CONTEXT-REGISTER ...) ; compiling (DEFSETF CONTEXT-FLOAT-REGISTER ...) ; compiling (/SHOW0 "leaving defsetfs.lisp") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/defsetfs.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cold-init-helper-macros.lisp" (written 04 JUL 2003 06:18:25 AM): ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cold-init-helper-macros.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-misc.lisp" (written 14 APR 2006 09:18:20 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO TRULY-THE ...) ; compiling (DECLAIM (DECLARATION FREEZE-TYPE ...)) ; compiling (DECLAIM (DECLARATION INHIBIT-WARNINGS)) ; compiling (DEFMACRO WITHOUT-INTERRUPTS ...) ; 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 (DEFUN PACKAGE-INTERNAL-SYMBOL-COUNT ...) ; compiling (DEFUN PACKAGE-EXTERNAL-SYMBOL-COUNT ...) ; compiling (DEFUN INTERN* ...) ; compiling (DEFUN SYMBOL-HASH ...) ; 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 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 ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; BYTE DPB LDB ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-misc.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-char.lisp" (written 14 JUL 2005 05:30:14 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-char.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-byte.lisp" (written 14 JUL 2005 05:30:14 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 (DEFUN SB!C::MASK-SIGNED-FIELD ...) ; compiling (DEFINE-SETF-EXPANDER LDB ...) ; compiling (DEFINE-SETF-EXPANDER MASK-FIELD ...); in: LAMBDA NIL ; (SB!INT:BUG "SETF SB!XC:MASK-FIELD too hairy!") ; ; caught STYLE-WARNING: ; undefined function: BUG ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-byte.lisp ; in: DEFINE-SETF-EXPANDER LDB ; (SB!INT:BUG "SETF SB!XC:LDB too hairy!") ; ; caught STYLE-WARNING: ; undefined function: BUG ; in: LAMBDA NIL ; (SB!INT:BUG "SETF SB!XC:LDB too hairy!") ; ; caught STYLE-WARNING: ; undefined function: BUG ; ; caught STYLE-WARNING: ; 1 more use of undefined function BUG ; ; caught STYLE-WARNING: ; This function is undefined: ; BUG ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-byte.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-boole.lisp" (written 25 OCT 2003 10:40:48 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-boole.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-float.lisp" (written 14 JUL 2005 05:30:14 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-float.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-io.lisp" (written 06 JUN 2001 10:43:50 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFMACRO PREPARE-FOR-FAST-READ-BYTE ...) ; compiling (DEFMACRO FAST-READ-BYTE ...) ; compiling (DEFMACRO DONE-WITH-FAST-READ-BYTE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-io.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-sap.lisp" (written 14 JUL 2005 05:30:14 PM): ; compiling (IN-PACKAGE "SB!SYS") ; compiling (DEFSTRUCT (SYSTEM-AREA-POINTER # ...) ...) ; compiling (DEFUN INT-SAP ...) ; 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-164 ...) ; compiling (DEFSETF SAP-REF-8 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-16 ...) ; compiling (DEFUN #:SETTER-STUB-165 ...) ; compiling (DEFSETF SAP-REF-16 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-32 ...) ; compiling (DEFUN #:SETTER-STUB-166 ...) ; compiling (DEFSETF SAP-REF-32 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-64 ...) ; compiling (DEFUN #:SETTER-STUB-167 ...) ; compiling (DEFSETF SAP-REF-64 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-SAP ...) ; compiling (DEFUN #:SETTER-STUB-168 ...) ; compiling (DEFSETF SAP-REF-SAP ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-WORD ...) ; compiling (DEFUN #:SETTER-STUB-169 ...) ; compiling (DEFSETF SAP-REF-WORD ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-SINGLE ...) ; compiling (DEFUN #:SETTER-STUB-170 ...) ; compiling (DEFSETF SAP-REF-SINGLE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-DOUBLE ...) ; compiling (DEFUN #:SETTER-STUB-171 ...) ; compiling (DEFSETF SAP-REF-DOUBLE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-8 ...) ; compiling (DEFUN #:SETTER-STUB-172 ...) ; compiling (DEFSETF SIGNED-SAP-REF-8 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-16 ...) ; compiling (DEFUN #:SETTER-STUB-173 ...) ; compiling (DEFSETF SIGNED-SAP-REF-16 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-32 ...) ; compiling (DEFUN #:SETTER-STUB-174 ...) ; compiling (DEFSETF SIGNED-SAP-REF-32 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-64 ...) ; compiling (DEFUN #:SETTER-STUB-175 ...) ; compiling (DEFSETF SIGNED-SAP-REF-64 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-WORD ...) ; compiling (DEFUN #:SETTER-STUB-176 ...) ; compiling (DEFSETF SIGNED-SAP-REF-WORD ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-sap.lisp ; in: DEFSTRUCT SYSTEM-AREA-POINTER ; (DEFSTRUCT ; (SB!SYS:SYSTEM-AREA-POINTER (:CONSTRUCTOR SB!SYS::MAKE-SAP) ; (:CONC-NAME "SAP-")) ; (SB!SYS::INT (ERROR "missing SAP-INT argument") :TYPE SB!SYS:SAP-INT ; :READ-ONLY T)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!SYS::MAKE-SAP ; (&KEY ; ((:INT #:G0) (ERROR "missing SAP-INT argument"))) ; (DECLARE (TYPE SB!SYS:SAP-INT #:G0)) ; (BLOCK SB!SYS::MAKE-SAP ; (LET ((#:INSTANCE1 #)) ; ((LAMBDA # #) #:G0 #:INSTANCE1) ; #:INSTANCE1))) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-sap.lisp ; in: DEFSTRUCT SYSTEM-AREA-POINTER ; (DEFSTRUCT ; (SB!SYS:SYSTEM-AREA-POINTER (:CONSTRUCTOR SB!SYS::MAKE-SAP) ; (:CONC-NAME "SAP-")) ; (SB!SYS::INT (ERROR "missing SAP-INT argument") :TYPE SB!SYS:SAP-INT ; :READ-ONLY T)) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; 23 more uses of undefined type SAP-INT ; ; caught STYLE-WARNING: ; This type is undefined: ; SAP-INT ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-sap.lisp-obj-tmp written ; compilation finished in 0:00:01 ; in: LAMBDA NIL ; (THE SB!SYS:SAP-INT #:ONCE-ONLY-1484) ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G4 'SB!SYS:SAP-INT) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G4 'SB!SYS:SAP-INT) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; 3 more uses of undefined type SAP-INT ; ; caught STYLE-WARNING: ; This type is undefined: ; SAP-INT ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-thread.lisp" (written 18 NOV 2005 12:28:40 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEFUN MAKE-MUTEX ...) ; compiling (DEFMACRO WITH-MUTEX ...) ; compiling (DEFMACRO WITH-RECURSIVE-LOCK ...) ; compiling (DEFUN MAKE-SPINLOCK ...) ; compiling (DEFUN GET-SPINLOCK ...) ; compiling (DEFUN RELEASE-SPINLOCK ...) ; compiling (DEFMACRO WITH-SPINLOCK ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-thread.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-make-load-form.lisp" (written 14 JUL 2005 05:30:14 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; BUG ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-make-load-form.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-condition.lisp" (written 14 JUL 2005 05:30:14 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 BUG ...) ; compiling (DEFTYPE PACKAGE-LOCK-VIOLATION ...) ; compiling (DEFTYPE PACKAGE-LOCKED-ERROR ...) ; compiling (DEFTYPE SYMBOL-PACKAGE-LOCKED-ERROR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-condition.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/uncross.lisp" (written 14 JUL 2005 05:30:40 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/uncross.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/primordial-type.lisp" (written 16 JUL 2006 07:48:19 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFVAR *TYPE-SYSTEM-INITIALIZED* ...) ; compiling (DEFVAR *WILD-TYPE*) ; compiling (DEFVAR *EMPTY-TYPE*) ; compiling (DEFVAR *UNIVERSAL-TYPE*) ; compiling (DEFVAR *UNIVERSAL-FUN-TYPE*) ; compiling (DEFVAR *INSTANCE-TYPE*) ; compiling (DEFVAR *FUNCALLABLE-INSTANCE-TYPE*) ; compiling (DEFVAR *BUILT-IN-CLASS-CODES*) ; compiling (DEFVAR *NULL-CLASSOID-LAYOUT*) ; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/primordial-type.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-defbangmethod.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO DEF!METHOD ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangtype.lisp" (written 14 JUL 2005 05:30:32 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/defbangtype.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangmacro.lisp" (written 14 JUL 2005 05:30:32 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; MISSING-ARG SANE-PACKAGE ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/defbangmacro.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangconstant.lisp" (written 14 JUL 2005 05:30:32 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/defbangconstant.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/primordial-extensions.lisp" (written 14 JUL 2005 05:30:37 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...) ; compiling (DEFUN FROB-DO-BODY ...) ; compiling (DEFMACRO DO-ANONYMOUS ...) ; compiling (DEFMACRO WITH-UNIQUE-NAMES ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-GENSYM-LIST ...) ; compiling (DECLAIM (TYPE PACKAGE ...)) ; compiling (DEFVAR *CL-PACKAGE* ...) ; compiling (DEFVAR *KEYWORD-PACKAGE* ...) ; compiling (DEFUN SYMBOLICATE ...) ; compiling (DEFUN KEYWORDICATE ...) ; compiling (DEFUN SANE-PACKAGE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/primordial-extensions.lisp ; in: DEFUN SANE-PACKAGE ; (TYPE-OF SB!IMPL::MAYBE-PACKAGE) ; ==> ; SB!IMPL::MAYBE-PACKAGE ; ; note: deleting unreachable code ; compiling (DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS ...) ; compiling (DEFMACRO DEFENUM ...) ; compiling (DEFMACRO DEFCONSTANT-EQX ...) ; compiling (DEFUN %DEFCONSTANT-EQX-VALUE ...) ; compiling (DEFUN PROPER-LIST-OF-LENGTH-P ...) ; compiling (DEFMACRO DEFINE-UNSUPPORTED-FUN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/primordial-extensions.lisp ; in: DEFUN MAKE-GENSYM-LIST ; (DEFUN SB!INT:MAKE-GENSYM-LIST (SB!IMPL::N) ; (LOOP SB!IMPL::REPEAT SB!IMPL::N SB!INT:COLLECT (GENSYM))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G74 'SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined type: INDEX ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G74 'SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined type: INDEX ; ; caught STYLE-WARNING: ; undefined type: INDEX ; ; caught STYLE-WARNING: ; 2 more uses of undefined type INDEX ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/primordial-extensions.lisp ; 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: LAMBDA NIL ; (SB!INT:PARSE-BODY SB!IMPL::DECLS-AND-CODE :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; ; caught STYLE-WARNING: ; This function is undefined: ; PARSE-BODY ; ; caught STYLE-WARNING: ; This type is undefined: ; INDEX ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/primordial-extensions.lisp-obj-tmp written ; compilation finished in 0:00:01 STYLE-WARNING: redefining FROB-DO-BODY in DEFUN STYLE-WARNING: redefining SYMBOLICATE in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/function-names.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 (DEFUN MACRO-FUNCTION-NAME ...) ; compiling (DEFINE-FUNCTION-NAME-SYNTAX DEFMACRO ...) ; compiling (DEFINE-FUNCTION-NAME-SYNTAX MACROLET ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/function-names.lisp-obj-tmp written ; compilation finished in 0:00:00 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/parms.lisp" (written 19 NOV 2006 04:38:44 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...) ; compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/parms.lisp-obj-tmp written ; compilation finished in 0:00:00 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/parms.lisp" (written 29 DEC 2006 10:09:41 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 GENCGC-PAGE-SIZE ...) ; compiling (DEF!CONSTANT PSEUDO-ATOMIC-INTERRUPTED-FLAG ...) ; compiling (DEF!CONSTANT PSEUDO-ATOMIC-FLAG ...) ; 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 SINGLE-FLOAT-DIGITS ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...) ; compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...) ; 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 (DEF!CONSTANT FLOAT-FAST-BIT ...) ; compiling (DEF!CONSTANT READ-ONLY-SPACE-START ...) ; compiling (DEF!CONSTANT READ-ONLY-SPACE-END ...) ; compiling (DEF!CONSTANT STATIC-SPACE-START ...) ; compiling (DEF!CONSTANT STATIC-SPACE-END ...) ; compiling (DEF!CONSTANT DYNAMIC-SPACE-START ...) ; compiling (DEF!CONSTANT DYNAMIC-SPACE-END ...) ; compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-START ...) ; compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-END ...) ; compiling (DEF!CONSTANT LINKAGE-TABLE-ENTRY-SIZE ...) ; compiling (DEFENUM (:SUFFIX -TRAP ...) ...) ; compiling (DEFENUM (:PREFIX OBJECT-NOT- ...) ...) ; compiling (DEFENUM (:PREFIX TRACE-TABLE-) ...) ; compiling (DEFPARAMETER *STATIC-SYMBOLS* ...) ; compiling (DEFPARAMETER *STATIC-FUNS* ...) ; compiling (DEFPARAMETER *ASSEMBLY-UNIT-LENGTH* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/parms.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/early-vm.lisp" (written 14 JUL 2005 07:35:35 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-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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/early-vm.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/early-objdef.lisp" (written 10 JUN 2006 06:07:24 AM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFENUM (:SUFFIX -LOWTAG) ...) ; compiling (DEF!CONSTANT NIL-VALUE ...) ; compiling (DEFENUM (:SUFFIX -WIDETAG ...) ...) ; compiling (DEFENUM (:PREFIX VECTOR- ...) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/early-objdef.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-array.lisp" (written 19 MAY 2002 02:55:31 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-array.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-extensions.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFPARAMETER *EOF-OBJECT* ...) ; compiling (DEF!TYPE INDEX ...) ; 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 (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 (DECLAIM (INLINE SINGLETON-P)) ; compiling (DEFUN SINGLETON-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 (DEFVAR *PROFILE-HASH-CACHE* ...) ; compiling (DEFMACRO DEFINE-HASH-CACHE ...) ; compiling (DEFMACRO DEFUN-CACHED ...) ; compiling (DEFMACRO DEFINE-CACHED-SYNONYM ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-extensions.lisp ; in: DEFUN FUN-NAME-BLOCK-NAME ; (ERROR "not legal as a function name: ~S" SB!IMPL::FUN-NAME) ; ==> ; "not legal as a function name: ~S" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P ...) ; compiling (DEFUN SYMBOL-SELF-EVALUATING-P ...) ; compiling (DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ...) ; compiling (DEFMACRO COLD-FSET ...) ; 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 (DEFUN RENAME-KEY-ARGS ...) ; compiling (DEFUN READ-SEQUENCE-OR-DIE ...) ; 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 DEPRECATION-WARNING ...) ; compiling (DEFMACRO AWHEN ...) ; compiling (DEFMACRO ACOND ...) ; 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 (DECLAIM (TYPE # ...)) ; compiling (DEFPARAMETER *EVALUATOR-MODE* ...); in: LAMBDA NIL ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-extensions.lisp ; in: DEFMACRO DOVECTOR ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: LAMBDA NIL ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; ; caught STYLE-WARNING: ; 3 more uses of undefined function PARSE-BODY ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-extensions.lisp ; in: DEFMACRO COLD-FSET ; (SB!INT:STYLE-WARN ; "~@" ; SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: LAMBDA NIL ; (SB!INT:STYLE-WARN ; "~@" ; SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; caught STYLE-WARNING: ; These functions are undefined: ; PARSE-BODY STYLE-WARN ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-extensions.lisp-obj-tmp written ; compilation finished in 0:00:01 STYLE-WARNING: redefining COLLECT-NORMAL-EXPANDER in DEFUN STYLE-WARNING: redefining COLLECT-LIST-EXPANDER in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/parse-body.lisp" (written 14 JUL 2005 05:30:37 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (/SHOW0 "entering parse-body.lisp") ; compiling (DEFUN PARSE-BODY ...) ; compiling (/SHOW0 "leaving parse-body.lisp") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; STYLE-WARN ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/parse-body.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/parse-defmacro.lisp" (written 11 AUG 2006 09:08:39 AM): ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/parse-defmacro.lisp ; in: DEFUN PARSE-DEFMACRO-LAMBDA-LIST ; 'CAR ; ; note: deleting unreachable code ; 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 ...); ; compilation unit finished ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/parse-defmacro.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/deftype.lisp" (written 14 JUL 2005 07:52:38 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!MACRO SB-XC:DEFTYPE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/deftype.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/defconstant.lisp" (written 06 NOV 2005 08:40:31 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!MACRO SB-XC:DEFCONSTANT ...) ; compiling (DEFUN SB!C::%DEFCONSTANT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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) #:G31 #:G33 #:G32) ; ; 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) #:G12 #:G15 #:G14 #:G13) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; (SB!INT:INFO :VARIABLE :CONSTANT-VALUE SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; (SB!C:WITH-SOURCE-LOCATION (SB!IMPL::SOURCE-LOCATION) ; (SETF (SB!INT:INFO :SOURCE-LOCATION :CONSTANT ; SB!IMPL::NAME) ; SB!IMPL::SOURCE-LOCATION)) ; --> WHEN COND IF PROGN IF PUSH LET* LAMBDA FUNCTION LET ; ==> ; (SB!C::MAKE-DEFINITION-SOURCE-LOCATION :NAMESTRING ; (CAR SB!IMPL::SOURCE-LOCATION) :TOPLEVEL-FORM-NUMBER ; (CDR SB!IMPL::SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!C::MAKE-DEFINITION-SOURCE-LOCATION ; (SB!INT:STYLE-WARN "defining ~S as a constant, even though the name follows~@ ; the usual naming convention (names like *FOO*) for special variables" ; SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; caught STYLE-WARNING: ; These functions are undefined: ; (SETF FDOCUMENTATION) (SETF INFO) INFO SB!C::MAKE-DEFINITION-SOURCE-LOCATION STYLE-WARN ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/defconstant.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-alieneval.lisp" (written 06 SEP 2006 09:27:10 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* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/specializable-array.lisp" (written 14 JUL 2005 05:30:38 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFTYPE SPECIALIZABLE ...) ; compiling (DEFTYPE SPECIALIZABLE-VECTOR ...) ; compiling (DEFUN MAKE-SPECIALIZABLE-ARRAY ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/specializable-array.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-cl.lisp" (written 14 JUL 2005 05:30:32 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (PROCLAIM (QUOTE #)) ; compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-cl.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-fasl.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 (DEFVAR *LOAD-DEPTH* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *FASL-INPUT-STREAM*) ; compiling (DECLAIM (TYPE ANSI-STREAM ...)) ; compiling (DEFVAR *LOAD-CODE-VERBOSE* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-fasl.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/debug-var-io.lisp" (written 28 NOV 2006 01:57:45 PM): ; compiling (IN-PACKAGE "SB!C") ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/debug-var-io.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-thread.lisp" (written 01 JUL 2005 09:48:33 AM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEFVAR *CURRENT-THREAD*) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-thread.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangstruct.lisp" (written 14 JUL 2005 05:30:32 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 %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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangstruct.lisp ; in: DEFUN %INSTANCE-SET ; (SB!KERNEL:CLASSOID-LAYOUT CLASS) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFUN %INSTANCE-REF ; (SB!KERNEL:CLASSOID-LAYOUT CLASS) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFUN %INSTANCE-LENGTH ; (SB!KERNEL:CLASSOID-LAYOUT ; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE))) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; 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 ; in: DEFUN %INSTANCE-SET ; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE)) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID ; in: DEFUN %INSTANCE-REF ; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE)) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID ; in: DEFUN %INSTANCE-LENGTH ; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE)) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID ; 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:CLASSOID-LAYOUT ; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE)))) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-LENGTH ; ; caught STYLE-WARNING: ; These functions are undefined: ; CLASSOID-LAYOUT DD-SLOTS DSD-ACCESSOR-NAME FIND-CLASSOID LAYOUT-INFO LAYOUT-LENGTH ; ; compilation unit finished ; caught 14 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/defbangstruct.lisp-obj-tmp written ; compilation finished in 0:00:01 STYLE-WARNING: redefining DEF!STRUCT-SUPERTYPE in DEFUN STYLE-WARNING: redefining (SETF DEF!STRUCT-SUPERTYPE) in DEFUN STYLE-WARNING: redefining DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN in DEFUN STYLE-WARNING: redefining (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN) in DEFUN STYLE-WARNING: redefining MAKE-DELAYED-DEF!STRUCT in DEFUN STYLE-WARNING: redefining PARSE-DEF!STRUCT-ARGS in DEFUN STYLE-WARNING: redefining UNCROSS-DEFSTRUCT-ARGS in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/unportable-float.lisp" (written 14 JUL 2005 05:30:41 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/unportable-float.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/type-class.lisp" (written 03 AUG 2005 03:32:06 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFVAR *TYPE-CLASSES*) ; compiling (!COLD-INIT-FORMS (UNLESS # ...)) ; compiling (DEFUN TYPE-CLASS-OR-LOSE ...) ; compiling (DEFUN MUST-SUPPLY-THIS ...) ; compiling (DEF!STRUCT (TYPE-CLASS #) ...) ; compiling (DEFPARAMETER *TYPE-CLASS-FUN-SLOTS* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN COPY-TYPE-CLASS-COLDLY ...) ; compiling (DEFUN CLASS-FUN-SLOT-OR-LOSE ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; HIERARCHICAL-INTERSECTION2 HIERARCHICAL-UNION2 TYPE-CLASS-INFO ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/type-class.lisp-obj-tmp written ; compilation finished in 0:00:00 STYLE-WARNING: redefining COPY-TYPE-CLASS-COLDLY in DEFUN STYLE-WARNING: redefining CLASS-FUN-SLOT-OR-LOSE in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-pcounter.lisp" (written 14 JUL 2005 05:30:32 PM): ; compiling (IN-PACKAGE "SB!PROFILE") ; compiling (DEF!STRUCT (PCOUNTER #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-pcounter.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/early-backend.lisp" (written 09 MAR 2004 12:08:40 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *BACKEND-PAGE-SIZE* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/early-backend.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sc-offset.lisp" (written 14 JUL 2005 05:30:38 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/sc-offset.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/char.lisp" (written 02 NOV 2004 08:37:51 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...) ; compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/char.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/huffman.lisp" (written 27 FEB 2006 05:13:29 AM): ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/huffman.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/misc.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...) ; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/misc.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-format.lisp" (written 14 JUL 2005 05:30:32 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*) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-format.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/early-c.lisp" (written 13 MAY 2006 07:33:40 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 (DEFCONSTANT-EQX SB-XC:LAMBDA-LIST-KEYWORDS ...) ; 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-NUMBER*) ; compiling (DEFVAR *COUNT-VOP-USAGES*) ; compiling (DEFVAR *CURRENT-PATH*) ; compiling (DEFVAR *CURRENT-COMPONENT*) ; compiling (DEFVAR *DELAYED-IR1-TRANSFORMS*) ; compiling (DEFVAR *HANDLED-CONDITIONS*) ; compiling (DEFVAR *DISABLED-PACKAGE-LOCKS*) ; compiling (DEFVAR *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 *IN-PACK*) ; compiling (DEFVAR *INFO-ENVIRONMENT*) ; compiling (DEFVAR *LEXENV*) ; compiling (DEFVAR *SOURCE-INFO*) ; compiling (DEFVAR *TRACE-TABLE*) ; compiling (DEFVAR *UNDEFINED-WARNINGS*) ; compiling (DEFVAR *WARNINGS-P*) ; compiling (DEFVAR *BIG-COMPILER-LOCK* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-NAME-DEFINED ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-LEXICAL-BINDING ...) ; compiling (DEFVAR *DEBUG-NAME-LEVEL* ...) ; compiling (DEFUN DEBUG-NAME ...); ; caught STYLE-WARNING: ; undefined type: LEXENV ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/early-c.lisp ; in: DEFUN NOTE-LEXICAL-BINDING ; (SB!INT:STYLE-WARN "using the lexical binding of the symbol ~S, not the~@ ; dynamic binding, even though the symbol name follows the usual naming~@ ; convention (names like *FOO*) for special variables" ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; STYLE-WARN UNDEFINED-WARNING-KIND UNDEFINED-WARNING-NAME ; ; caught STYLE-WARNING: ; This type is undefined: ; LEXENV ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/early-c.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/policy.lisp" (written 13 MAY 2006 07:33:40 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!TYPE POLICY-QUALITY ...) ; 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 (DECLAIM (TYPE POLICY ...)) ; compiling (DEFVAR *POLICY*) ; compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...) ; compiling (!POLICY-COLD-INIT-OR-RESANIFY) ; compiling (DEFUN POLICY-QUALITY ...) ; compiling (DEFMACRO POLICY ...) ; compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/policy.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/policies.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY MERGE-TAIL-CALLS ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY STACK-ALLOCATE-DYNAMIC-EXTENT ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY STACK-ALLOCATE-VECTOR ...) ; 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 ...); in: LAMBDA NIL ; (SB!C:POLICY SB!C:POLICY (COND ((= SAFETY 0) 0) (T 3))) ; --> LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/policies.lisp ; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK ; (COND ((= SAFETY 0) 0) ; ((AND (<= SPEED SAFETY) ; (<= SPACE SAFETY) ; (<= COMPILATION-SPEED SAFETY)) ; 3) ; (T 2)) ; ("no" "maybe" "fast" "full")) ; --> 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: LAMBDA NIL ; (SB!C:POLICY SB!C:POLICY ; (COND ((= SAFETY 0) 0) ; ((AND (<= SPEED SAFETY) (<= SPACE SAFETY) ; (<= COMPILATION-SPEED SAFETY)) ; 3) ; (T 2))) ; --> LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; ; caught STYLE-WARNING: ; 27 more uses of undefined function %COERCE-TO-POLICY ; ; caught STYLE-WARNING: ; This function is undefined: ; %COERCE-TO-POLICY ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/policies.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/typedefs.lisp" (written 27 APR 2006 04:56:50 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFMACRO !DEF-TYPE-TRANSLATOR ...) ; compiling (DECLAIM (SPECIAL *WILD-TYPE* ...)) ; compiling (DEFVAR *TYPE-RANDOM-STATE*) ; compiling (DEF!STRUCT (CTYPE # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; CSUBTYPEP TYPE-SPECIFIER ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/typedefs.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/macros.lisp" (written 11 AUG 2006 09:08:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *WILD-TYPE* ...)) ; compiling (DEFTYPE INLINEP ...) ; compiling (DEFMACRO DEF-IR1-TRANSLATOR ...) ; compiling (DEFMACRO SOURCE-TRANSFORM-LAMBDA ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/macros.lisp ; in: DEFUN GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER ; (DEFUN SB!C::GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER ; (SB!C::TEST-NAME SB!C::TRANSLATIONS-NAME SB!C::ATTRIBUTE-NAMES ; SB!C::GET-SETF-EXPANSION-FUN-NAME) ; (SB!IMPL::BACKQ-LIST 'DEFINE-SETF-EXPANDER SB!C::TEST-NAME ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; "Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE." ; (SB!IMPL::BACKQ-LIST 'MULTIPLE-VALUE-BIND ; '(SB!C::TEMPS VALUES SB!C::STORES ; SET GET) ; (SB!IMPL::BACKQ-CONS ; SB!C::GET-SETF-EXPANSION-FUN-NAME ; '(SB!C::PLACE SB!C::ENV)) ; '(WHEN (CDR SB!C::STORES) ; (ERROR ; "multiple store variables for ~S" ; SB!C::PLACE)) ; (SB!IMPL::BACKQ-LIST 'LET ; (SB!IMPL::BACKQ-LIST ; '# '# #) ; (SB!IMPL::BACKQ-LIST ; 'VALUES '# ; '# '# '# ; #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!C::GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER ; (SB!C::TEST-NAME SB!C::TRANSLATIONS-NAME ; SB!C::ATTRIBUTE-NAMES ; SB!C::GET-SETF-EXPANSION-FUN-NAME) ; (BLOCK SB!C::GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER ; (SB!IMPL::BACKQ-LIST 'DEFINE-SETF-EXPANDER ; SB!C::TEST-NAME ; '(SB!C::PLACE &REST ; SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; "Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE." ; (SB!IMPL::BACKQ-LIST ; 'MULTIPLE-VALUE-BIND ; '(SB!C::TEMPS VALUES ; SB!C::STORES SET GET) ; (SB!IMPL::BACKQ-CONS ; SB!C::GET-SETF-EXPANSION-FUN-NAME ; '#) ; '(WHEN # #) ; (SB!IMPL::BACKQ-LIST 'LET # ; #))))) ; ; caught STYLE-WARNING: ; The variable ATTRIBUTE-NAMES is defined but never used. ; 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 WITH-IR1-ENVIRONMENT-FROM-NODE ...) ; compiling (DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 COND IF NOT IF TYPEP LET OR LET TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:ONCE-ONLY-518 'SB!KERNEL:LEXENV) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR LET ; ==> ; (TYPEP #:ONCE-ONLY-518 'SB!KERNEL:LEXENV) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G517 '(OR SB!KERNEL:LEXENV NULL)) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; ; caught STYLE-WARNING: ; 1 more use of undefined type LEXENV ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/macros.lisp ; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ; (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 EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G515 'SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined type: NODE ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G515 'SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined type: NODE ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA 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)) ; (BLOCK SB!C::%WITH-IR1-ENVIRONMENT-FROM-NODE ; (LET ((SB!C::*CURRENT-COMPONENT* #) ; (SB!C:*LEXENV* #) ; (SB!C::*CURRENT-PATH* #)) ; (SB!C::AVER-LIVE-COMPONENT ; SB!C::*CURRENT-COMPONENT*) ; (FUNCALL SB!C::FUN)))) ; ; caught STYLE-WARNING: ; undefined type: NODE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type NODE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/macros.lisp ; 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 ; in: LAMBDA NIL ; (SB!INT:PARSE-LAMBDA-LIST SB!C::LAMBDA-LIST) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST ; ; caught STYLE-WARNING: ; These functions are undefined: ; AVER-LIVE-COMPONENT NODE-COMPONENT NODE-LEXENV NODE-SOURCE-PATH PARSE-LAMBDA-LIST ; ; caught STYLE-WARNING: ; These types are undefined: ; LEXENV NODE ; ; compilation unit finished ; caught 17 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/macros.lisp-obj-tmp written ; compilation finished in 0:00:01 STYLE-WARNING: redefining COMPUTE-ATTRIBUTE-MASK in DEFUN STYLE-WARNING: redefining PARSE-DEFTRANSFORM in DEFUN STYLE-WARNING: redefining MAKE-EVENT-INFO in DEFUN STYLE-WARNING: redefining EVENT-INFO-OR-LOSE in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-macs.lisp" (written 14 JUL 2005 07:35:36 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 (DEFMACRO DEFINE-PRIMITIVE-OBJECT ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFMACRO DEF-REFFER ...) ; compiling (DEFMACRO DEF-SETTER ...) ; compiling (DEFMACRO DEF-ALLOC ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...) ; compiling (DEFSTRUCT MODULAR-CLASS ...) ; compiling (DEFVAR *UNSIGNED-MODULAR-CLASS* ...) ; compiling (DEFVAR *SIGNED-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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-macs.lisp ; in: DEFUN %DEFINE-MODULAR-FUN ; (SB!INT:STYLE-WARN "Redefining modular version ~S of ~S for width ~S." ; SB!C::NAME SB!C::PROTOTYPE SB!C::WIDTH) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; caught STYLE-WARNING: ; This function is undefined: ; STYLE-WARN ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/vm-macs.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/sset.lisp" (written 14 JUL 2005 07:57:02 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...) ; compiling (DEFSTRUCT (SSET #) ...) ; compiling (DEFPRINTER (SSET) ...) ; compiling (DEFMACRO DO-SSET-ELEMENTS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SSET-ADJOIN ...) ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/sset.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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 (FROB REOPTIMIZE) ; compiling (FROB FLUSH-P) ; compiling (FROB TYPE-CHECK) ; compiling (FROB DELETE-P) ; compiling (FROB TYPE-ASSERTED) ; compiling (FROB 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 (DEFMACRO CLEANUP-NLX-INFO ...) ; 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-HAS-SOURCE-NAME-P ...) ; compiling (DEFUN LEAF-SOURCE-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 (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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; 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 PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT ; --> IF TYPEP LET OR LET IF OR ; ==> ; (TYPEP #:ONCE-ONLY-471 'SB!C::CLOOP) ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; 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 ; ; caught STYLE-WARNING: ; 17 more uses of undefined type CLOOP ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; 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 ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; 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!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!INT:INFO NIL) ; (SB!C::STEP-INFO)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ; caught STYLE-WARNING: ; 1 more use of undefined type FUN-INFO ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; 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) 10)) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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::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) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; --> 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::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) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; in: DEF!STRUCT (NODE (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT (SB!C::NODE (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (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 (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (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: ; 125 more uses of undefined type LEXENV ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 &AUX (LEAF-TYPE #) (DERIVED-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!C::EXIT) ; ; caught STYLE-WARNING: ; undefined function: NODE-BLOCK ; ; caught STYLE-WARNING: ; undefined type: SOURCE-INFO ; ; caught STYLE-WARNING: ; undefined type: SOURCE-INFO ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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::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) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; --> 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::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) ; (SB!INT:INFO :NO-IR2-YET :TYPE ; (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD))) ; ...) ; ; caught STYLE-WARNING: ; undefined type: SOURCE-INFO ; ; caught STYLE-WARNING: ; 6 more uses of undefined type SOURCE-INFO ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; 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 ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; These functions are undefined: ; CONT-NUM LEXENV-POLICY MAKE-LOOP MAKE-SINGLE-VALUE-TYPE NODE-BLOCK SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; These types are undefined: ; CLOOP FUN-INFO IR2-COMPONENT LEXENV SOURCE-INFO ; ; compilation unit finished ; caught 32 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/node.lisp-obj-tmp written ; compilation finished in 0:00:06 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/vop.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/vop.lisp ; in: DEFSTRUCT IR2-NLX-INFO ; (SB!ASSEM:GEN-LABEL) ; ; caught STYLE-WARNING: ; undefined function: GEN-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!C::XREF NIL :TYPE (OR NULL SIMPLE-VECTOR))) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR LET ; ==> ; (TYPEP #:ONCE-ONLY-721 'SB!ASSEM:LABEL) ; ; caught STYLE-WARNING: ; undefined type: LABEL ; ; caught STYLE-WARNING: ; undefined type: LABEL ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/vop.lisp ; 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!C::XREF NIL :TYPE (OR NULL SIMPLE-VECTOR))) ; ; caught STYLE-WARNING: ; undefined type: LABEL ; ; caught STYLE-WARNING: ; 21 more uses of undefined type LABEL ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/vop.lisp ; 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 ; in: DEFSTRUCT CLOOP ; (SB!C::REQUIRED-ARGUMENT) ; ; caught STYLE-WARNING: ; undefined function: REQUIRED-ARGUMENT ; ; caught STYLE-WARNING: ; These functions are undefined: ; GEN-LABEL MAKE-DYNAMIC-STATE-TNS MAKE-STACK-POINTER-TN PRINT-TN-GUTS REQUIRED-ARGUMENT ; ; caught STYLE-WARNING: ; This type is undefined: ; LABEL ; ; compilation unit finished ; caught 11 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/vop.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/backend.lisp" (written 07 FEB 2006 03:32:02 AM): ; 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 (DEFVAR *BACKEND-SB-NAMES* ...) ; compiling (DEFVAR *BACKEND-META-SC-NAMES* ...) ; compiling (DEFVAR *BACKEND-META-SB-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-META-SC-NUMBERS* ...) ; compiling (DECLAIM (TYPE SC-VECTOR ...)) ; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-ALIASES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-META-PRIMITIVE-TYPE-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-T-PRIMITIVE-TYPE*) ; compiling (DECLAIM (TYPE PRIMITIVE-TYPE ...)) ; compiling (DEFVAR *BACKEND-PARSED-VOPS* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-INSTRUCTION-FORMATS* ...) ; compiling (DEFVAR *BACKEND-INSTRUCTION-FLAVORS* ...) ; compiling (DEFVAR *BACKEND-SPECIAL-ARG-TYPES* ...) ; 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 # ...)) ; compiling (DEFVAR *BACKEND-SUPPORT-ROUTINES*) ; compiling (DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC ...) ; compiling (DEFPRINTER (VM-SUPPORT-ROUTINES)) ; compiling (DEFMACRO !DEF-VM-SUPPORT-ROUTINE ...) ; compiling (DEFVAR *BACKEND-SUPPORT-ROUTINES* ...) ; compiling (DECLAIM (TYPE VM-SUPPORT-ROUTINES ...)) ; compiling (DEFVAR *BACKEND-SUBFEATURES* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/backend.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/vmdef.lisp" (written 14 JUL 2005 07:57:02 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 (DEFUN META-SC-OR-LOSE ...) ; compiling (DEFUN META-SB-OR-LOSE ...) ; compiling (DEFUN META-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-GENERIC-VOP ...) ; compiling (DEFUN %EMIT-GENERIC-VOP ...) ; compiling (DEFUN ADJOIN-TEMPLATE ...) ; compiling (DEFUN TEMPLATE-TYPE-SPECIFIER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/vmdef.lisp ; in: DEFUN %EMIT-GENERIC-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!C::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: TARGET-IF-DESIRABLE ; ; caught STYLE-WARNING: ; These functions are undefined: ; MAKE-RESTRICTED-TN MAKE-WIRED-TN REFERENCE-TN TARGET-IF-DESIRABLE ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/vmdef.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/backend-parms.lisp" (written 29 DEC 2006 10:09:41 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-SIZE* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/backend-parms.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/globaldb.lisp" (written 06 OCT 2006 11:54:13 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DECLAIM (SPECIAL *UNIVERSAL-TYPE*)) ; compiling (DECLAIM (INLINE GLOBALDB-SXHASHOID)) ; compiling (DEFUN GLOBALDB-SXHASHOID ...) ; compiling (DEFUN PRIMIFY ...) ; compiling (DEF!CONSTANT TYPE-NUMBER-BITS ...) ; compiling (DEFTYPE TYPE-NUMBER ...) ; compiling (DEFSTRUCT (CLASS-INFO # ...) ...) ; compiling (DEFVAR *INFO-TYPES*) ; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; compiling (DEFSTRUCT (TYPE-INFO # ...) ...) ; compiling (DEFVAR *INFO-CLASSES*) ; compiling (DECLAIM (HASH-TABLE *INFO-CLASSES*)) ; compiling (DEFUN FIND-TYPE-INFO ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CLASS-INFO-OR-LOSE ...); in: LAMBDA NIL ; (SB!C::LOOKUP CLASS) ; ==> ; CLASS ; ; note: deleting unreachable code ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/globaldb.lisp ; in: DEFUN CLASS-INFO-OR-LOSE ; (SB!C::LOOKUP CLASS) ; ==> ; CLASS ; ; note: deleting unreachable code ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN TYPE-INFO-OR-LOSE ...) ; compiling (DEFSTRUCT (INFO-ENV # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFMACRO DO-INFO ...) ; compiling (DEFUN DO-COMPACT-INFO ...) ; compiling (DEFUN DO-VOLATILE-INFO ...) ; compiling (DEF!CONSTANT COMPACT-INFO-ENV-ENTRIES-BITS ...) ; compiling (DEFTYPE COMPACT-INFO-ENTRIES-INDEX ...) ; compiling (DEFTYPE COMPACT-INFO-ENTRY ...) ; compiling (DEFSTRUCT (COMPACT-INFO-ENV # ...) ...) ; compiling (DEF!CONSTANT COMPACT-INFO-ENTRY-TYPE-MASK ...) ; compiling (DEF!CONSTANT COMPACT-INFO-ENTRY-LAST ...) ; compiling (DECLAIM (INLINE COMPACT-INFO-LOOKUP-INDEX)) ; compiling (DEFUN COMPACT-INFO-LOOKUP-INDEX ...) ; compiling (DEFUN COMPACT-INFO-LOOKUP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/globaldb.lisp ; in: DEFUN COMPACT-INFO-LOOKUP-INDEX ; (VALUES NIL NIL) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEF!CONSTANT COMPACT-INFO-ENVIRONMENT-DENSITY ...) ; compiling (DEFUN COMPACT-INFO-ENVIRONMENT ...) ; compiling (DEFSTRUCT (VOLATILE-INFO-ENV # ...) ...) ; compiling (DEFUN VOLATILE-INFO-LOOKUP ...) ; compiling (DECLAIM (INLINE GET-WRITE-INFO-ENV)) ; compiling (DEFUN GET-WRITE-INFO-ENV ...) ; compiling (DEFUN SET-INFO-VALUE ...) ; compiling (DEFUN INFO ...) ; compiling (DEFINE-COMPILER-MACRO INFO ...) ; compiling (DEFUN (SETF INFO) ...) ; compiling (DEF!CONSTANT VOLATILE-INFO-ENVIRONMENT-DENSITY ...) ; compiling (DEFUN MAKE-INFO-ENVIRONMENT ...) ; compiling (DEFUN CLEAR-INFO ...) ; compiling (DEFINE-COMPILER-MACRO CLEAR-INFO ...) ; compiling (DEFUN CLEAR-INFO-VALUE ...) ; compiling (DEFVAR *INFO-ENVIRONMENT*) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (!COLD-INIT-FORMS (SETQ *INFO-ENVIRONMENT* ...) ...) ; compiling (DEFUN GET-INFO-VALUE ...) ; compiling (DEFINE-INFO-CLASS :FUNCTION) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :VARIABLE) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :TYPE) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :TYPED-STRUCTURE) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :DECLARATION) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :ALIEN-TYPE) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :SETF) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :RANDOM-DOCUMENTATION) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :SOURCE-LOCATION) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DECLAIM (FREEZE-TYPE INFO-ENV)) ; compiling (!COLD-INIT-FORMS (/SHOW0 "beginning *INFO-CLASSES* init, calling MAKE-HASH-TABLE") ...) ; compiling (FROB) ; compiling (DEFVAR *SETF-ASSUMED-FBOUNDP*) ; compiling (!COLD-INIT-FORMS (SETF *SETF-ASSUMED-FBOUNDP* ...)) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/globaldb.lisp ; in: DEFINE-INFO-TYPE :CLASS ; (SB!KERNEL:CLASSOID-LAYOUT CLASS) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; (SB!KERNEL:FIND-CLASSOID SB!C::NAME NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; These functions are undefined: ; CLASSOID-LAYOUT FIND-CLASSOID SPECIFIER-TYPE ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 4 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/globaldb.lisp-obj-tmp written ; compilation finished in 0:00:04 STYLE-WARNING: redefining MAKE-CLASS-INFO in DEFUN STYLE-WARNING: redefining PRINT-OBJECT (CLASS-INFO T) in DEFMETHOD STYLE-WARNING: redefining MAKE-TYPE-INFO in DEFUN STYLE-WARNING: redefining PRINT-OBJECT (TYPE-INFO T) in DEFMETHOD STYLE-WARNING: redefining FIND-TYPE-INFO in DEFUN STYLE-WARNING: redefining CLASS-INFO-OR-LOSE in DEFUN STYLE-WARNING: redefining TYPE-INFO-OR-LOSE in DEFUN STYLE-WARNING: redefining DO-COMPACT-INFO in DEFUN STYLE-WARNING: redefining DO-VOLATILE-INFO in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/info-functions.lisp" (written 11 AUG 2006 02:37:19 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 EVAL-WHEN 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). ; 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/info-functions.lisp ; in: DEFUN FDOCUMENTATION ; (SB!KERNEL:%FUN-DOC SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: %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 as a SETF function a name that already has a SETF macro:~ ; ~% ~S" ; SB!C::NAME) ; ; 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 UNDEFINE-FUN-NAME ; (SB!C::FROB :INFO) ; --> UNLESS COND IF NOT IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> UNLESS COND IF NOT IF TYPEP LET OR LET TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:ONCE-ONLY-198 'SB!C::FUN-INFO) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; --> UNLESS COND IF NOT IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> UNLESS COND IF NOT IF TYPEP LET OR LET ; ==> ; (TYPEP #:ONCE-ONLY-198 'SB!C::FUN-INFO) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; --> UNLESS COND IF NOT IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (#:VALUE112) (#:FOUNDP113) &REST #:G114) ; (DECLARE (IGNORE #:G114)) ; (DECLARE (TYPE (OR SB!C::FUN-INFO NULL) #:VALUE112)) ; (VALUES #:VALUE112 #:FOUNDP113)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ; caught STYLE-WARNING: ; 3 more uses of undefined type FUN-INFO ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; in: DEFUN UNDEFINE-FUN-NAME ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; These functions are undefined: ; %FUN-DOC COMPILER-ERROR COMPILER-STYLE-WARN LEXENV-FUNS PACKAGE-DOC-STRING SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; This type is undefined: ; FUN-INFO ; ; compilation unit finished ; caught 14 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/info-functions.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/force-delayed-defbangconstants.lisp" (written 19 MAY 2002 02:55:31 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (FORCE-DELAYED-DEF!CONSTANTS) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/force-delayed-defbangconstants.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defmacro.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 ...); in: LAMBDA NIL ; (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 ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defmacro.lisp ; in: DEF (TIMES SET-P) ; (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 ; ; caught STYLE-WARNING: ; This function is undefined: ; STYLE-WARN ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/defmacro.lisp-obj-tmp written ; compilation finished in 0:00:01 STYLE-WARNING: redefining %EXPANDER-FOR-DEFMACRO in DEFUN STYLE-WARNING: redefining SB!C::%DEFMACRO in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/force-delayed-defbangmacros.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (FORCE-DELAYED-DEF!MACROS) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/force-delayed-defbangmacros.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/late-macros.lisp" (written 14 JUL 2005 07:57:00 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 ...); in: LAMBDA NIL ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/late-macros.lisp ; 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 ; in: LAMBDA NIL ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB-XC:GET-SETF-EXPANSION ; ; caught STYLE-WARNING: ; This function is undefined: ; SB-XC:GET-SETF-EXPANSION ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/late-macros.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/meta-vmdef.lisp" (written 01 DEC 2005 04:16:01 AM): ; 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 (DEFUN META-PRIMITIVE-TYPE-OR-LOSE ...) ; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE ...) ; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS ...) ; compiling (DEFPARAMETER *PRIMITIVE-TYPE-SLOT-ALIST* ...) ; compiling (DEFMACRO PRIMITIVE-TYPE-VOP ...) ; compiling (DEFUN META-SC-ALLOWED-BY-PRIMITIVE-TYPE ...) ; 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 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/meta-vmdef.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/vm.lisp" (written 07 FEB 2006 02:35:25 AM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!CONSTANT NUMBER-STACK-DISPLACEMENT ...) ; compiling (DEFVAR *REGISTER-NAMES* ...) ; compiling (DEFREG ZERO ...) ; compiling (DEFREG NSP ...) ; compiling (DEFREG RTOC ...) ; compiling (DEFREG NL0 ...) ; compiling (DEFREG NL1 ...) ; compiling (DEFREG NL2 ...) ; compiling (DEFREG NL3 ...) ; compiling (DEFREG NL4 ...) ; compiling (DEFREG NL5 ...) ; compiling (DEFREG NL6 ...) ; compiling (DEFREG FDEFN ...) ; compiling (DEFREG NARGS ...) ; compiling (DEFREG NFP ...) ; compiling (DEFREG CFUNC ...) ; compiling (DEFREG BSP ...) ; compiling (DEFREG CFP ...) ; compiling (DEFREG CSP ...) ; compiling (DEFREG ALLOC ...) ; compiling (DEFREG NULL ...) ; compiling (DEFREG CODE ...) ; compiling (DEFREG CNAME ...) ; compiling (DEFREG LEXENV ...) ; compiling (DEFREG OCFP ...) ; compiling (DEFREG LRA ...) ; compiling (DEFREG A0 ...) ; compiling (DEFREG A1 ...) ; compiling (DEFREG A2 ...) ; compiling (DEFREG A3 ...) ; compiling (DEFREG L0 ...) ; compiling (DEFREG L1 ...) ; compiling (DEFREG L2 ...) ; compiling (DEFREG LIP ...) ; compiling (DEFREGSET NON-DESCRIPTOR-REGS ...) ; compiling (DEFREGSET DESCRIPTOR-REGS ...) ; compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...) ; compiling (DEFPARAMETER REGISTER-ARG-NAMES ...) ; compiling (DEFINE-STORAGE-BASE REGISTERS ...) ; compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...) ; compiling (DEFINE-STORAGE-BASE CONTROL-STACK ...) ; compiling (DEFINE-STORAGE-BASE NON-DESCRIPTOR-STACK ...) ; compiling (DEFINE-STORAGE-BASE CONSTANT ...) ; compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...) ; compiling (DEFMACRO DEFINE-STORAGE-CLASSES ...) ; compiling (DEF!CONSTANT KLUDGE-NONDETERMINISTIC-CATCH-BLOCK-SIZE ...) ; compiling (DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...) ; compiling (DEFREGTN ZERO ...) ; compiling (DEFREGTN LIP ...) ; compiling (DEFREGTN NULL ...) ; compiling (DEFREGTN CODE ...) ; compiling (DEFREGTN ALLOC ...) ; compiling (DEFREGTN NARGS ...) ; compiling (DEFREGTN BSP ...) ; compiling (DEFREGTN CSP ...) ; compiling (DEFREGTN CFP ...) ; compiling (DEFREGTN OCFP ...) ; compiling (DEFREGTN NSP ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC ...) ; compiling (DEF!CONSTANT REGISTER-ARG-SCN ...) ; compiling (DEF!CONSTANT IMMEDIATE-ARG-SCN ...) ; compiling (DEF!CONSTANT CONTROL-STACK-ARG-SCN ...) ; compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT NFP-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...) ; compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...) ; compiling (EXPORT (QUOTE SINGLE-VALUE-RETURN-BYTE-OFFSET)) ; compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE LOCATION-PRINT-NAME ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE COMBINATION-IMPLEMENTATION-STYLE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/vm.lisp ; in: !DEF-VM-SUPPORT-ROUTINE COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::COMBINATION-FUN-SOURCE-NAME SB!VM::NODE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::COMBINATION-FUN-SOURCE-NAME ; (SB!KERNEL:SPECIFIER-TYPE ; (SB!IMPL::BACKQ-LIST 'FUNCTION SB!VM::ARGS SB!VM::RESULT)) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: !DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC ; (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: STATIC-SYMBOL-P ; in: !DEF-VM-SUPPORT-ROUTINE COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::VALID-FUN-USE SB!VM::NODE ; (SB!KERNEL:SPECIFIER-TYPE ; (SB!IMPL::BACKQ-LIST 'FUNCTION SB!VM::ARGS SB!VM::RESULT))) ; ; caught STYLE-WARNING: ; undefined function: SB!C::VALID-FUN-USE ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!C::COMBINATION-FUN-SOURCE-NAME SPECIFIER-TYPE STATIC-SYMBOL-P SB!C::VALID-FUN-USE ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/vm.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-type.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 (DEFSTRUCT (NEGATION-TYPE # ...) ...) ; compiling (!DEFINE-TYPE-CLASS NEGATION) ; compiling (DEFSTRUCT (ARGS-TYPE # ...) ...) ; compiling (DEFUN CANONICALIZE-ARGS-TYPE-ARGS ...) ; compiling (DEFUN ARGS-TYPES ...) ; compiling (DEFSTRUCT (VALUES-TYPE # ...)) ; compiling (DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS ...) ...) ; compiling (DEFUN MAKE-VALUES-TYPE ...) ; compiling (!DEFINE-TYPE-CLASS VALUES) ; compiling (DEFSTRUCT (FUN-TYPE # ...) ...) ; 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 (DEFUN MAKE-NUMERIC-TYPE ...) ; compiling (DEFUN MODIFIED-NUMERIC-TYPE ...) ; compiling (DEFSTRUCT (CHARACTER-SET-TYPE # ...) ...) ; compiling (DEFUN MAKE-CHARACTER-SET-TYPE ...) ; compiling (DEFSTRUCT (ARRAY-TYPE # ...) ...) ; compiling (DEFINE-CACHED-SYNONYM MAKE-ARRAY-TYPE) ; compiling (DEFSTRUCT (MEMBER-TYPE # ...) ...) ; compiling (DEFUN MAKE-MEMBER-TYPE ...) ; compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...) ; compiling (DEFSTRUCT (UNION-TYPE # ...)) ; compiling (DEFINE-CACHED-SYNONYM MAKE-UNION-TYPE) ; compiling (DEFSTRUCT (INTERSECTION-TYPE # ...)) ; compiling (DEFUN TYPE-*-TO-T ...) ; compiling (DEFSTRUCT (CONS-TYPE # ...) ...) ; compiling (DEFUN MAKE-CONS-TYPE ...) ; compiling (DEFUN CONS-TYPE-LENGTH-INFO ...) ; compiling (DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ...) ...) ; compiling (DEFUN SPECIFIER-TYPE ...) ; compiling (DEFUN SINGLE-VALUE-SPECIFIER-TYPE ...) ; compiling (DEFUN TYPE-EXPAND ...) ; compiling (DEFUN %NOTE-TYPE-DEFINED ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-TYPE-COLD-INIT); ; caught STYLE-WARNING: ; undefined type: BUILT-IN-CLASSOID ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-type.lisp ; in: ; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ; (LAMBDA (X) (LOGAND (SXHASH X) 1023)) :HASH-BITS 10 ...) ; (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:BUILT-IN-CLASSOID) ; ==> ; (SB-KERNEL:%TYPEP SB!KERNEL::SPEC 'SB!KERNEL:BUILT-IN-CLASSOID) ; ; caught STYLE-WARNING: ; undefined type: BUILT-IN-CLASSOID ; ; caught STYLE-WARNING: ; undefined type: BUILT-IN-CLASSOID ; ; caught STYLE-WARNING: ; 4 more uses of undefined type BUILT-IN-CLASSOID ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-type.lisp ; in: ; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ; (LAMBDA (X) (LOGAND (SXHASH X) 1023)) :HASH-BITS 10 ...) ; (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC) ; ; caught STYLE-WARNING: ; undefined function: BUILT-IN-CLASSOID-TRANSLATION ; ; caught STYLE-WARNING: ; undefined type: CLASSOID ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-type.lisp ; in: ; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ; (LAMBDA (X) (LOGAND (SXHASH X) 1023)) :HASH-BITS 10 ...) ; (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:CLASSOID) ; ==> ; (SB-KERNEL:%TYPEP SB!KERNEL::SPEC 'SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined type: CLASSOID ; ; caught STYLE-WARNING: ; undefined type: CLASSOID ; ; caught STYLE-WARNING: ; 4 more uses of undefined type CLASSOID ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-type.lisp ; 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 0.0) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: ; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ; (LAMBDA (X) (LOGAND (SXHASH X) 1023)) :HASH-BITS 10 ...) ; (SB!KERNEL:FIND-CLASSOID SB!KERNEL::SPEC) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID ; in: DEFUN 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 ; in: DEFUN MAKE-VALUES-TYPE ; (SB!KERNEL:MAKE-SHORT-VALUES-TYPE SB!KERNEL::REQUIRED) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SHORT-VALUES-TYPE ; in: DEFUN ARGS-TYPES ; (SB!INT:PARSE-LAMBDA-LIST-LIKE-THING SB!KERNEL::LAMBDA-LIST-LIKE-THING) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST-LIKE-THING ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR) ; ; caught STYLE-WARNING: ; undefined function: TYPE-INTERSECTION ; (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 TYPE-*-TO-T ; (SB!KERNEL:TYPE= TYPE SB!KERNEL:*WILD-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; caught STYLE-WARNING: ; These functions are undefined: ; BUILT-IN-CLASSOID-TRANSLATION CSUBTYPEP CTYPE-OF FIND-CLASSOID KEY-INFO-NAME MAKE-KEY-INFO MAKE-SHORT-VALUES-TYPE PARSE-LAMBDA-LIST-LIKE-THING TYPE-INTERSECTION TYPE/= TYPE= ; ; caught STYLE-WARNING: ; These types are undefined: ; BUILT-IN-CLASSOID CLASSOID ; ; compilation unit finished ; caught 21 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-type.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/class.lisp" (written 21 DEC 2006 03:17:23 AM): ; 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-MAX ...) ; compiling (DEFVAR *!INITIAL-LAYOUTS*) ; compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*) ; compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...)) ; compiling (DEF!STRUCT (LAYOUT #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN LAYOUT-PROPER-NAME ...) ; compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LENGTH ...) ; compiling (DECLAIM (INLINE LAYOUT-CLOS-HASH)) ; compiling (DEFUN LAYOUT-CLOS-HASH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/class.lisp ; in: DEFUN LAYOUT-CLOS-HASH ; (SB!EXT:TRULY-THE SB!INT:INDEX ; (SB!KERNEL:%INSTANCE-REF SB!KERNEL:LAYOUT ; (1+ SB!KERNEL::I))) ; ==> ; (THE SB!INT:INDEX ; (SB!KERNEL:%INSTANCE-REF SB!KERNEL:LAYOUT (1+ SB!KERNEL::I))) ; ; note: type assertion too complex to check: ; (VALUES (MOD 536870911) &REST T). ; compiling (DECLAIM (INLINE #)) ; compiling (DEFUN (SETF LAYOUT-CLOS-HASH) ...) ; 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 (DEF!STRUCT (CLASSOID-CELL # ...) ...) ; compiling (DEFUN FIND-CLASSOID-CELL ...) ; compiling (DEFUN FIND-CLASSOID ...) ; compiling (DEFUN (SETF FIND-CLASSOID) ...) ; compiling (DEFUN INSURED-FIND-CLASSOID ...) ; compiling (DEFUN CLASSOID-PROPER-NAME ...) ; 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 (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-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 (/SHOW0 "setting *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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/class.lisp ; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ; (SB!KERNEL::%LAYOUT-INVALID-ERROR SB!KERNEL::OBJECT SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: %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 ; (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 UPDATE-OBJECT-LAYOUT-OR-INVALID ; (SB!KERNEL:CLASSOID-OF SB!KERNEL::OBJECT) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-OF ; 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: !DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-INTERSECTION2) ; #'SB!KERNEL::DELEGATE-COMPLEX-INTERSECTION2 ; ; caught STYLE-WARNING: ; undefined function: DELEGATE-COMPLEX-INTERSECTION2 ; in: DEFUN ENSURE-CLASSOID-VALID ; (SB!MOP:FINALIZE-INHERITANCE CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:FINALIZE-INHERITANCE ; (SB!PCL::FORCE-CACHE-FLUSHES CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::FORCE-CACHE-FLUSHES ; in: !DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-INTERSECTION2) ; (SB!KERNEL:TYPE-INTERSECTION2 (SB!KERNEL:SPECIFIER-TYPE 'VECTOR) ; SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: TYPE-INTERSECTION2 ; 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-1743) ; ; caught STYLE-WARNING: ; undefined function: TYPE-UNION ; ; caught STYLE-WARNING: ; These functions are undefined: ; %LAYOUT-INVALID-ERROR SB!PCL::CHECK-WRAPPER-VALIDITY SB!MOP:CLASS-FINALIZED-P SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASSOID-OF CLEAR-TYPE-CACHES COMPILER-ERROR DELEGATE-COMPLEX-INTERSECTION2 SB!MOP:FINALIZE-INHERITANCE SB!PCL::FORCE-CACHE-FLUSHES TYPE-INTERSECTION2 TYPE-UNION ; ; compilation unit finished ; caught 13 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/class.lisp-obj-tmp written ; compilation finished in 0:00:03 STYLE-WARNING: redefining LAYOUT-PROPER-NAME in DEFUN STYLE-WARNING: redefining REGISTER-LAYOUT in DEFUN STYLE-WARNING: redefining FIND-CLASSOID in DEFUN STYLE-WARNING: redefining (SETF FIND-CLASSOID) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-array.lisp" (written 14 JUL 2005 07:35:36 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFSTRUCT (SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES # ...) ...) ; compiling (DEFPARAMETER *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...) ; compiling (DEFVAR SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ...) ; compiling (DEFVAR *SIMPLE-ARRAY-PRIMITIVE-TYPES* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/vm-array.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/primtype.lisp" (written 14 SEP 2006 10:10:44 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 ...) (UNSIGNED-BYTE-32 SIGNED-BYTE-32 FIXNUM UNSIGNED-BYTE-31 POSITIVE-FIXNUM) ; compiling (!DEF-PRIMITIVE-TYPE-ALIAS UNSIGNED-NUM ...) ; compiling (!DEF-PRIMITIVE-TYPE-ALIAS SIGNED-NUM ...) ; compiling (!DEF-PRIMITIVE-TYPE-ALIAS UNTAGGED-NUM ...) ; 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 (!DEF-VM-SUPPORT-ROUTINE PRIMITIVE-TYPE-OF ...) ; compiling (/SHOW0 "primtype.lisp 188") ; compiling (!DEF-VM-SUPPORT-ROUTINE PRIMITIVE-TYPE ...) ; compiling (/SHOW0 "primtype.lisp 191"); in: LAMBDA NIL ; '64 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-64 ; ; note: deleting unreachable code ; 'SB-KERNEL:CASE-FAILURE ; ; note: deleting unreachable code ; in: LAMBDA NIL ; '64 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-63 ; ; note: deleting unreachable code ; 'SB-KERNEL:CASE-FAILURE ; ; note: deleting unreachable code ; in: LAMBDA NIL ; '64 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-64 ; ; note: deleting unreachable code ; 'SB-KERNEL:CASE-FAILURE ; ; note: deleting unreachable code ; in: LAMBDA NIL ; '64 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-63 ; ; note: deleting unreachable code ; 'SB-KERNEL:CASE-FAILURE ; ; note: deleting unreachable code ; compiling (DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ; (LAMBDA (X) (LOGAND (TYPE-HASH-VALUE X) 511)) :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 ; 'SB!VM::UNSIGNED-BYTE-63 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-64 ; ; note: deleting unreachable code ; compiling (/SHOW0 "primtype.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ; (LAMBDA (X) (LOGAND (TYPE-HASH-VALUE X) 511)) :HASH-BITS 9 ...) ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: !DEF-VM-SUPPORT-ROUTINE 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 ; (LAMBDA (X) (LOGAND (TYPE-HASH-VALUE X) 511)) :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= ; ; caught STYLE-WARNING: ; These functions are undefined: ; CSUBTYPEP CTYPE-OF TYPE-SPECIFIER TYPE= ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; printed 20 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/primtype.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/parse-lambda-list.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; COMPILER-ERROR STYLE-WARN ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/parse-lambda-list.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-alieneval.lisp" (written 18 JAN 2006 11:28:28 AM): ; 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 (DEF!MACRO DEF-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 ALIEN-TYPE-= ...) ; compiling (DEFUN ALIEN-SUBTYPE-P ...) ; compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...) ; compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...) ; compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...) ; 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 :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 :NATURALIZE-GEN) ...) ; 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN) ; (ERROR "can't deposit aliens of type ~S (unknown size)" TYPE) ; ==> ; "can't deposit aliens of type ~S (unknown size)" ; ; note: deleting unreachable code ; 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ; 'SB!ALIEN::??? ; ; note: deleting unreachable code ; compiling (DEFUN RECORD-FIELDS-MATCH-P ...) ; compiling (DEFVAR *ALIEN-TYPE-MATCHES* ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=) ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-alieneval.lisp ; 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 EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR ; --> LET TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:ONCE-ONLY-381 'SB!KERNEL:LEXENV) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR ; --> LET ; ==> ; (TYPEP #:ONCE-ONLY-381 'SB!KERNEL:LEXENV) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; (TYPE SB!ALIEN::ENV) ; (DECLARE ; (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV)) ; (BLOCK SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; (IF (CONSP TYPE) ; (LET (#) ; (UNLESS SB!ALIEN::TRANSLATOR #) ; (FUNCALL SB!ALIEN::TRANSLATOR TYPE ; SB!ALIEN::ENV)) ; (ECASE (SB!INT:INFO :ALIEN-TYPE :KIND TYPE) ; (:PRIMITIVE #) ; (:DEFINED #) ; (:UNKNOWN #))))) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; ; caught STYLE-WARNING: ; 12 more uses of undefined type SB!KERNEL:LEXENV ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-alieneval.lisp ; in: DEFMACRO-MUNDANELY ADDR ; (SB-XC:MACROEXPAND SB!ALIEN::EXPR SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MACROEXPAND ; in: DEFUN AUXILIARY-TYPE-DEFINITIONS ; (SB-XC:MACROEXPAND 'SB!ALIEN::&AUXILIARY-TYPE-DEFINITIONS& SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MACROEXPAND ; in: LAMBDA NIL ; (SB-XC:MACROEXPAND 'SB!ALIEN::&AUXILIARY-TYPE-DEFINITIONS& SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MACROEXPAND ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB-XC:MACROEXPAND STYLE-WARN ; ; caught STYLE-WARNING: ; This type is undefined: ; SB!KERNEL:LEXENV ; ; compilation unit finished ; caught 10 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/host-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:04 STYLE-WARNING: redefining MAKE-ALIEN-TYPE-CLASS in DEFUN STYLE-WARNING: redefining PRINT-OBJECT (ALIEN-TYPE-CLASS T) in DEFMETHOD STYLE-WARNING: redefining ALIEN-TYPE-CLASS-OR-LOSE in DEFUN STYLE-WARNING: redefining CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY in DEFUN STYLE-WARNING: redefining METHOD-SLOT in DEFUN STYLE-WARNING: redefining AUXILIARY-TYPE-DEFINITIONS in DEFUN STYLE-WARNING: redefining %DEFINE-ALIEN-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining %DEF-AUXILIARY-ALIEN-TYPES in DEFUN STYLE-WARNING: redefining %DEFINE-ALIEN-TYPE in DEFUN STYLE-WARNING: redefining ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-SIGNED-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-INTEGER-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-UNSIGNED-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-BOOLEAN-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-ENUM-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-*-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-ARRAY-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-STRUCT-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-UNION-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-FUNCTION-TYPE-TRANSLATOR in DEFUN STYLE-WARNING: redefining ALIEN-VALUES-TYPE-TRANSLATOR in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-c-call.lisp" (written 06 SEP 2006 09:27:10 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 (DEFUN C-STRING-NEEDS-CONVERSION-P ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-c-call.lisp ; in: DEFUN C-STRING-NEEDS-CONVERSION-P ; (DEFUN SB!ALIEN::C-STRING-NEEDS-CONVERSION-P (TYPE) T) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!ALIEN::C-STRING-NEEDS-CONVERSION-P (TYPE) ; (BLOCK SB!ALIEN::C-STRING-NEEDS-CONVERSION-P T)) ; ; caught STYLE-WARNING: ; The variable TYPE is defined but never used. ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-c-call.lisp ; in: DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ; 'SB!ALIEN::%NATURALIZE-C-STRING ; ; note: deleting unreachable code ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-c-call.lisp ; in: DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ; 'SB!SYS:VECTOR-SAP ; ; note: deleting unreachable code ; compiling (/SHOW0 "host-c-call.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-NULL-LEXENV ; in: LAMBDA NIL ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-NULL-LEXENV ; ; caught STYLE-WARNING: ; These functions are undefined: ; DEFAULT-C-STRING-EXTERNAL-FORMAT SB!KERNEL:MAKE-NULL-LEXENV ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/host-c-call.lisp-obj-tmp written ; compilation finished in 0:00:00 STYLE-WARNING: redefining ALIEN-C-STRING-TYPE-TRANSLATOR in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/compiler-deftype.lisp" (written 29 JUN 2004 09:51:00 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (/SHOW0 "compiler-deftype.lisp 14") ; compiling (DEFUN %COMPILER-DEFTYPE ...) ; compiling (/SHOW0 "compiler-deftype.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/compiler-deftype.lisp ; in: DEFUN %COMPILER-DEFTYPE ; (SB!KERNEL:UNDEFINE-STRUCTURE ; (SB!KERNEL:LAYOUT-INFO ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME)))) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINE-STRUCTURE ; ; caught STYLE-WARNING: ; This function is undefined: ; UNDEFINE-STRUCTURE ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/compiler-deftype.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-type.lisp" (written 21 DEC 2006 03:17:31 AM): ; 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 !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 (!COLD-INIT-FORMS (SETQ *UNPARSE-FUN-TYPE-SIMPLIFY* ...)) ; 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 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 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 (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 (!COLD-INIT-FORMS (MACROLET # ...) ...) ; 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 (!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 (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 (!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 (!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 :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 :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 (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT) ; compiling (/SHOW0 "late-type.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-type.lisp ; 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::X) ; ; 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 SB!KERNEL::MEM 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 ; ; 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 SIMPLE-ARRAY ; (SB!KERNEL::SPECIALIZE-ARRAY-TYPE ; (SB!KERNEL:MAKE-ARRAY-TYPE :DIMENSIONS ; (SB!KERNEL::CANONICAL-ARRAY-DIMENSIONS ; SB!KERNEL::DIMENSIONS) ; :COMPLEXP NIL :ELEMENT-TYPE ; (IF (EQ SB!KERNEL::ELEMENT-TYPE '*) ; SB!KERNEL:*WILD-TYPE* ; (SB!KERNEL:SPECIFIER-TYPE ; SB!KERNEL::ELEMENT-TYPE)))) ; ; caught STYLE-WARNING: ; undefined function: SPECIALIZE-ARRAY-TYPE ; in: !DEF-TYPE-TRANSLATOR ARRAY ; (SB!KERNEL::SPECIALIZE-ARRAY-TYPE ; (SB!KERNEL:MAKE-ARRAY-TYPE :DIMENSIONS ; (SB!KERNEL::CANONICAL-ARRAY-DIMENSIONS ; SB!KERNEL::DIMENSIONS) ; :COMPLEXP :MAYBE :ELEMENT-TYPE ; (IF (EQ SB!KERNEL::ELEMENT-TYPE '*) ; SB!KERNEL:*WILD-TYPE* ; (SB!KERNEL:SPECIFIER-TYPE ; SB!KERNEL::ELEMENT-TYPE)))) ; ; caught STYLE-WARNING: ; undefined function: SPECIALIZE-ARRAY-TYPE ; in: !DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2) ; (SB!KERNEL::SPECIALIZE-ARRAY-TYPE (SB!KERNEL::INTERSECT)) ; ; caught STYLE-WARNING: ; undefined function: SPECIALIZE-ARRAY-TYPE ; in: DEFUN CANONICALIZED-BOUND ; (SB-XC:TYPEP (CAR SB!KERNEL::BOUND) TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:TYPEP ; ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; CTYPE-OF CTYPEP FLOAT-FORMAT-NAME SPECIALIZE-ARRAY-TYPE SB-XC:TYPEP ; ; compilation unit finished ; caught 15 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/late-type.lisp-obj-tmp written ; compilation finished in 0:00:07 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/deftypes-for-target.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 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") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/deftypes-for-target.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/knownfun.lisp" (written 06 JUN 2006 03:42:51 AM): ; 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 (/SHOW0 "knownfun.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/knownfun.lisp ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CAREFUL-SPECIFIER-TYPE ; (SB!IMPL::BACKQ-LIST* 'VECTOR 'CHARACTER (WHEN SB!C::SIZE SB!C::SIZE))) ; ; 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: ; 2 more uses of undefined function CONSTANT-LVAR-P ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: ; 1 more use of undefined function LVAR-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: ; 1 more use of undefined function LVAR-VALUE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/knownfun.lisp ; in: DEFUN %DEFTRANSFORM ; (SB!INT:STYLE-WARN "Overwriting ~S" SB!C::OLD) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; caught STYLE-WARNING: ; These functions are undefined: ; CAREFUL-SPECIFIER-TYPE CONSTANT-LVAR-P LVAR-TYPE LVAR-VALUE STYLE-WARN ; ; compilation unit finished ; caught 16 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/knownfun.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/constantp.lisp" (written 06 MAR 2006 05:48:11 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFVAR *SPECIAL-FORM-CONSTANTP-FUNS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (!COLD-INIT-FORMS (SETF *SPECIAL-FORM-CONSTANTP-FUNS* ...)) ; compiling (DEFVAR *SPECIAL-FORM-CONSTANT-FORM-VALUE-FUNS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (!COLD-INIT-FORMS (SETF *SPECIAL-FORM-CONSTANT-FORM-VALUE-FUNS* ...)) ; compiling (DEFVAR *SPECIAL-CONSTANT-VARIABLES*) ; compiling (!COLD-INIT-FORMS (SETF *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 (!COLD-INIT-FORMS (DEFCONSTANTP QUOTE ...) ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CONSTANTP-COLD-INIT) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/constantp.lisp ; in: DEFUN %CONSTANT-FORM-VALUE ; (SB-XC:MACROEXPAND SB!KERNEL:FORM SB!C::ENVIRONMENT) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MACROEXPAND ; in: DEFUN %CONSTANTP ; (SB-XC:MACROEXPAND SB!KERNEL:FORM SB!C::ENVIRONMENT) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MACROEXPAND ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB-XC:MACROEXPAND SB-XC:TYPEP ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/constantp.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fun-info-funs.lisp" (written 14 JUL 2005 07:52:38 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN %DEF-REFFER ...) ; compiling (DEFUN %DEF-SETTER ...) ; compiling (DEFUN %DEF-ALLOC ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fun-info-funs.lisp ; 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-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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-VARIABLE-ALLOCATION ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/fun-info-funs.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-type.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 CROSS-TYPEP ...) ; compiling (DEFUN SB-XC:TYPEP ...) ; compiling (DEFUN CTYPEP ...) ; compiling (DEFUN CTYPE-OF ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-type.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-type.lisp" (written 09 JAN 2006 10:46:14 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEF!TYPE SB!VM:WORD ...) ; compiling (SETF (INFO :TYPE ...) ...) ; compiling (SB-XC:DEFTYPE LONG-FLOAT ...) ; compiling (SETF (INFO :TYPE ...) ...) ; compiling (SB-XC:DEFTYPE SHORT-FLOAT ...) ; compiling (SB-XC:DEFTYPE BIT-INDEX ...) ; 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 UNBOXED-ARRAY ...) ; compiling (SB-XC:DEFTYPE SIMPLE-UNBOXED-ARRAY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FLOAT-FORMAT-NAME ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SPECIALIZE-ARRAY-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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/vm-type.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/proclaim.lisp" (written 14 APR 2006 06:57:57 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 (DEFUN CANONIZED-DECL-SPEC ...) ; compiling (DEFVAR *QUEUED-PROCLAIMS*) ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (!COLD-INIT-FORMS (SETF *QUEUED-PROCLAIMS* ...)) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-PROCLAIM-COLD-INIT) ; compiling (DEFUN SB-XC:PROCLAIM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 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 "ignoring unknown optimization quality ~ ; ~S in ~S" ; SB!C::QUALITY SB!C::SPEC) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARN ; in: DEFUN SB-XC:PROCLAIM ; (SB!INT:STYLE-WARN "The new TYPE proclamation~% ~S~@ ; for ~S does not match the old TYPE~@ ; proclamation ~S" ; TYPE SB!C::NAME SB!C::OLD-TYPE) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; caught STYLE-WARNING: ; These functions are undefined: ; COMPILER-ERROR COMPILER-WARN STYLE-WARN ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/proclaim.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/class-init.lisp" (written 14 JUL 2005 05:30:13 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") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/class-init.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/typecheckfuns.lisp" (written 09 JAN 2006 10:46:14 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; compiling (DEFVAR *COMMON-TYPESPECS*) ; compiling (SETF *COMMON-TYPESPECS* ...) ; compiling (DEFUN CTYPE-IS-COMMON-TYPECHECKFUN-TYPE-P ...) ; compiling (DEFUN TYPECHECK-FAILURE ...) ; compiling (DEFVAR *TYPECHECKFUNS* ...) ; compiling (DEFMACRO MEMOIZED-TYPECHECKFUN-FORM ...) ; compiling (DEFUN INTERPRETED-TYPECHECKFUN ...) ; compiling (DEFUN %STRUCTURE-OBJECT-TYPECHECKFUN ...) ; compiling (DEFUN STRUCTURE-OBJECT-TYPECHECKFUN ...) ; compiling (DEFUN GENERAL-TYPECHECKFUN ...) ; compiling (DEFUN CTYPE-NEEDS-TO-BE-INTERPRETED-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN TYPESPEC-TYPECHECKFUN ...) ; compiling (DEFINE-COMPILER-MACRO TYPESPEC-TYPECHECKFUN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/typecheckfuns.lisp ; in: DEFUN %STRUCTURE-OBJECT-TYPECHECKFUN ; (SB!KERNEL::COMPILER-LAYOUT-OR-LOSE SB!KERNEL::TYPESPEC) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-LAYOUT-OR-LOSE ; (SB!KERNEL::TYPEP-TO-LAYOUT SB!KERNEL::ARG SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: TYPEP-TO-LAYOUT ; ; caught STYLE-WARNING: ; These functions are undefined: ; COMPILER-LAYOUT-OR-LOSE TYPEP-TO-LAYOUT ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/typecheckfuns.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defstruct.lisp" (written 20 SEP 2006 07:18:19 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "code/defstruct.lisp 15") ; compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...) ; compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ...) ; compiling (SB-XC:DEFMACRO COMPILE-TIME-FIND-LAYOUT ...) ; compiling (DEF!STRUCT (DEFSTRUCT-DESCRIPTION # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN DD-CLASS-P ...) ; compiling (DEFUN DD-DECLARABLE-TYPE ...) ; compiling (DEFUN DD-LAYOUT-OR-LOSE ...) ; compiling (DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN DD-LISP-TYPE ...) ; compiling (DEFSTRUCT RAW-SLOT-DATA ...) ; compiling (DEFVAR *RAW-SLOT-DATA-LIST* ...) ; compiling (DEFUN CLASS-METHOD-DEFINITIONS ...) ; compiling (DEFMACRO !EXPANDER-FOR-DEFSTRUCT ...) ; compiling (SB-XC:DEFMACRO DEFSTRUCT ...) ; compiling (DEFMACRO SB-XC:DEFSTRUCT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defstruct.lisp ; in: DEFMACRO !EXPANDER-FOR-DEFSTRUCT ; (SB!KERNEL::CONSTRUCTOR-DEFINITIONS SB!KERNEL::DD) ; ==> ; SB!KERNEL::DD ; ; note: deleting unreachable code ; (SB!KERNEL::TYPED-ACCESSOR-DEFINITIONS SB!KERNEL::DD) ; ==> ; SB!KERNEL::DD ; ; note: deleting unreachable code ; 'SETF ; ; note: deleting unreachable code ; (APPEND (SB!KERNEL::TYPED-ACCESSOR-DEFINITIONS SB!KERNEL::DD) ; (SB!KERNEL::TYPED-PREDICATE-DEFINITIONS SB!KERNEL::DD) ; (SB!KERNEL::TYPED-COPIER-DEFINITIONS SB!KERNEL::DD) ; (SB!KERNEL::CONSTRUCTOR-DEFINITIONS SB!KERNEL::DD) ; (WHEN (SB!KERNEL::DD-DOC SB!KERNEL::DD) ; (SB!IMPL::BACKQ-LIST ; (SB!IMPL::BACKQ-LIST 'SETF ; (SB!IMPL::BACKQ-LIST* ; 'SB!KERNEL:FDOCUMENTATION # '#) ; (SB!IMPL::BACKQ-LIST 'QUOTE #))))) ; ; note: deleting unreachable code ; compiling (DEFUN ACCESSOR-INHERITED-DATA ...) ; compiling (DEFUN TYPED-PREDICATE-DEFINITIONS ...) ; compiling (DEFUN TYPED-COPIER-DEFINITIONS ...) ; compiling (DEFUN TYPED-ACCESSOR-DEFINITIONS ...) ; compiling (DEFUN REQUIRE-NO-PRINT-OPTIONS-SO-FAR ...) ; compiling (DEFUN PARSE-1-DD-OPTION ...) ; compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ...) ; 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-ACCESSOR-TRANSFORMS ...) ; compiling (DEFUN SLOT-SETTER-LAMBDA-FORM ...) ; compiling (DEFUN %COMPILER-SET-UP-LAYOUT ...) ; compiling (DEFUN %COMPILER-DEFSTRUCT ...) ; compiling (DEFUN COMPARE-SLOTS ...) ; compiling (DEFUN REDEFINE-STRUCTURE-WARNING ...) ; compiling (DEFUN %REDEFINE-DEFSTRUCT ...) ; compiling (DEFUN ENSURE-STRUCTURE-CLASS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 UNDEFINE-STRUCTURE ...) ; 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 MAKE-DD-WITH-ALTERNATE-METACLASS ...) ; compiling (DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...) ; 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 (/SHOW0 "code/defstruct.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: LAMBDA NIL ; (SB!C:COMPILER-NOTIFY "implementation limitation: ~ ; Non-toplevel DEFSTRUCT constructors are slow.") ; ; caught STYLE-WARNING: ; undefined function: SB!C:COMPILER-NOTIFY ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defstruct.lisp ; in: DEFUN %DEFSTRUCT ; (SB!C:WITH-SOURCE-LOCATION (SB!KERNEL::SOURCE-LOCATION) ; (SETF (SB!KERNEL::LAYOUT-SOURCE-LOCATION ; SB!KERNEL:LAYOUT) ; SB!KERNEL::SOURCE-LOCATION)) ; --> WHEN COND IF PROGN IF PUSH LET* LAMBDA FUNCTION LET ; ==> ; (SB!C::MAKE-DEFINITION-SOURCE-LOCATION :NAMESTRING ; (CAR SB!KERNEL::SOURCE-LOCATION) :TOPLEVEL-FORM-NUMBER ; (CDR SB!KERNEL::SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!C::MAKE-DEFINITION-SOURCE-LOCATION ; in: DEFUN %COMPILER-DEFSTRUCT ; (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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!C:COMPILER-NOTIFY SB!C::MAKE-DEFINITION-SOURCE-LOCATION STYLE-WARN ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; printed 5 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/defstruct.lisp-obj-tmp written ; compilation finished in 0:00:03 STYLE-WARNING: redefining MAKE-RAW-SLOT-DATA in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/alien-type.lisp" (written 14 JUL 2005 05:30:12 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/alien-type.lisp ; in: !DEF-TYPE-TRANSLATOR ALIEN ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: MAKE-NULL-LEXENV ; ; caught STYLE-WARNING: ; This function is undefined: ; MAKE-NULL-LEXENV ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/alien-type.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/force-delayed-defbangstructs.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (FORCE-DELAYED-DEF!STRUCTS) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/force-delayed-defbangstructs.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-full-eval.lisp" (written 14 SEP 2006 10:10:44 PM): ; compiling (IN-PACKAGE "SB!EVAL") ; compiling (DEFPARAMETER *EVAL-LEVEL* ...) ; compiling (DEFPARAMETER *EVAL-CALLS* ...) ; compiling (DEFPARAMETER *EVAL-VERBOSE* ...) ; compiling (DEFUN !FULL-EVAL-COLD-INIT ...) ; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-full-eval.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/compiler-error.lisp" (written 14 JUL 2005 07:52:37 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (DECLAIM (FTYPE # ...)) ; compiling (DEFUN COMPILER-WARN ...) ; compiling (DEFUN COMPILER-STYLE-WARN ...) ; compiling (DEFUN MAKE-COMPILER-ERROR-FORM ...) ; compiling (DEFINE-CONDITION FATAL-COMPILER-ERROR ...) ; compiling (DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; COERCE-TO-CONDITION STYLE-WARN ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/compiler-error.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-deftypes-for-target.lisp" (written 14 SEP 2006 10:10:44 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/late-deftypes-for-target.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/type-init.lisp" (written 14 JUL 2005 05:30:40 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") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/type-init.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fixup-type.lisp" (written 14 JUL 2005 07:52:38 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) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/fixup-type.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/package.lisp" (written 28 JUL 2006 02:26:23 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!TYPE HASH-VECTOR ...) ; compiling (DEF!STRUCT (PACKAGE-HASHTABLE # ...) ...) ; compiling (DEF!STRUCT (SB-XC:PACKAGE # ...) ...) ; compiling (DEFMACRO-MUNDANELY DO-SYMBOLS ...) ; compiling (DEFMACRO-MUNDANELY DO-EXTERNAL-SYMBOLS ...) ; compiling (DEFMACRO-MUNDANELY DO-ALL-SYMBOLS ...) ; compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-ITERATOR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/package.lisp ; in: ; DEF!STRUCT (SB-XC:PACKAGE (:CONSTRUCTOR INTERNAL-MAKE-PACKAGE) ; (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL))) ; (:PREDICATE SB-XC:PACKAGEP)) ; (SB!INT:DEF!STRUCT ; (SB-XC:PACKAGE (:CONSTRUCTOR SB!IMPL::INTERNAL-MAKE-PACKAGE) ; (: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 (LIST NIL) :TYPE LIST) ; (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST) ; (SB!IMPL::INTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::EXTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ; (SB!IMPL::DOC-STRING NIL :TYPE (OR SIMPLE-STRING NULL)) ...) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT ; --> IF TYPEP LET OR LET IF OR ; ==> ; (TYPEP #:ONCE-ONLY-348 'SB!C:DEFINITION-SOURCE-LOCATION) ; ; caught STYLE-WARNING: ; undefined type: SB!C:DEFINITION-SOURCE-LOCATION ; ; caught STYLE-WARNING: ; undefined type: SB!C:DEFINITION-SOURCE-LOCATION ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/package.lisp ; in: ; DEF!STRUCT (SB-XC:PACKAGE (:CONSTRUCTOR INTERNAL-MAKE-PACKAGE) ; (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL))) ; (:PREDICATE SB-XC:PACKAGEP)) ; (SB!INT:DEF!STRUCT ; (SB-XC:PACKAGE (:CONSTRUCTOR SB!IMPL::INTERNAL-MAKE-PACKAGE) ; (: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 (LIST NIL) :TYPE LIST) ; (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST) ; (SB!IMPL::INTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::EXTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ; (SB!IMPL::DOC-STRING NIL :TYPE (OR SIMPLE-STRING NULL)) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB-XC:PACKAGE (:INCLUDE SB!SYS:STRUCTURE!OBJECT) ; (:CONSTRUCTOR SB!IMPL::INTERNAL-MAKE-PACKAGE) ; (: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 (LIST NIL) :TYPE LIST) ; (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST) ; (SB!IMPL::INTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::EXTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ; (SB!IMPL::DOC-STRING NIL :TYPE (OR SIMPLE-STRING NULL)) ; ...) ; ; caught STYLE-WARNING: ; undefined type: SB!C:DEFINITION-SOURCE-LOCATION ; ; caught STYLE-WARNING: ; 4 more uses of undefined type SB!C:DEFINITION-SOURCE-LOCATION ; ; caught STYLE-WARNING: ; This type is undefined: ; SB!C:DEFINITION-SOURCE-LOCATION ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/package.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/random.lisp" (written 14 JUL 2005 05:30:38 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEF!CONSTANT RANDOM-CHUNK-LENGTH ...) ; compiling (DEF!CONSTANT RANDOM-INTEGER-OVERLAP ...) ; compiling (DEF!CONSTANT RANDOM-INTEGER-EXTRA-BITS ...) ; compiling (DEF!CONSTANT RANDOM-FIXNUM-MAX ...) ; compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/random.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/hash-table.lisp" (written 15 SEP 2006 03:39:45 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...) ; compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...) ; compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/hash-table.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/readtable.lisp" (written 14 JUL 2005 05:30:38 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 # ...) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/readtable.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pathname.lisp" (written 26 OCT 2006 05:07:54 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!STRUCT (HOST #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!STRUCT (LOGICAL-HOST # ...) ...) ; 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 # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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::%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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; %PATHNAME-HOST PARSE-LOGICAL-NAMESTRING UNPARSE-ENOUGH-NAMESTRING UNPARSE-LOGICAL-DIRECTORY UNPARSE-LOGICAL-FILE UNPARSE-LOGICAL-NAMESTRING ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/pathname.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-pprint.lisp" (written 04 FEB 2004 09:16:24 PM): ; compiling (IN-PACKAGE "SB!PRETTY") ; compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/host-pprint.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/lexenv.lisp" (written 09 JUN 2006 09:59:44 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (INLINE INTERNAL-MAKE-LEXENV)) ; compiling (DEF!STRUCT (LEXENV # ...) ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!IMPL::BACKQ-LIST* 'SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL ; (CDR LAMBDA))) ; ((DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) NIL) ; ((DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T)) NIL) ; (T ; (SB!IMPL::BACKQ-LIST* 'SB!C:LAMBDA-WITH-LEXENV ; (SB!C::DECLS) (SB!C::MACROS) ; (SB!C::SYMBOL-MACROS) (CDR LAMBDA))))) ; --> MACROLET ; ==> ; (LET* ((#:DECLS-N-VALUE-407 NIL) ; #:DECLS-N-TAIL-408 ; (#:MACROS-N-VALUE-409 NIL) ; #:MACROS-N-TAIL-410 ; (#:SYMBOL-MACROS-N-VALUE-411 NIL) ; #:SYMBOL-MACROS-N-TAIL-412) ; (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!IMPL::BACKQ-LIST* 'SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL (CDR LAMBDA))) ; ((DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) NIL) ; ((DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T)) NIL) ; (T ; (SB!IMPL::BACKQ-LIST* 'SB!C:LAMBDA-WITH-LEXENV (SB!C::DECLS) ; (SB!C::MACROS) (SB!C::SYMBOL-MACROS) ; (CDR LAMBDA))))) ; ; caught STYLE-WARNING: ; The variable #:DECLS-N-TAIL-408 is defined but never used. ; ; caught STYLE-WARNING: ; The variable #:MACROS-N-TAIL-410 is defined but never used. ; ; caught STYLE-WARNING: ; The variable #:SYMBOL-MACROS-N-TAIL-412 is defined but never used. ; (DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((SB!C::X (CAR #:N-LIST423))) ; (SETQ #:N-LIST423 (CDR #:N-LIST423)) ; (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 COND IF PROGN ; ==> ; (LET ((SB!C::X (CAR #:N-LIST425))) ; (SETQ #:N-LIST425 (CDR #:N-LIST425)) ; (TAGBODY (RETURN T))) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; in: DEFUN PRINT-LEXENV => DEFAULT-STRUCTURE-PRINT LEXENV ; (SB!KERNEL:DEFAULT-STRUCTURE-PRINT SB!KERNEL:LEXENV STREAM SB!C::LEVEL) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-STRUCTURE-PRINT ; ; caught STYLE-WARNING: ; This function is undefined: ; DEFAULT-STRUCTURE-PRINT ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/lexenv.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fndb.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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 (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 (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 (GET-SETF-METHOD GET-SETF-METHOD-MULTIPLE-VALUE) ...) ; 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::GET2 ...) ; 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 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 ZEROP ...) ; compiling (DEFKNOWN (PLUSP MINUSP) ...) ; compiling (DEFKNOWN (ODDP EVENP) ...) ; compiling (DEFKNOWN (= /=) ...) ; compiling (DEFKNOWN (< > ...) ...) ; compiling (DEFKNOWN (MAX MIN) ...) ; compiling (DEFKNOWN + ...) ; 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 (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 (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 RANDOM-STATE-P ...) ; compiling (DEFKNOWN (STANDARD-CHAR-P GRAPHIC-CHAR-P ...) ...) ; compiling (DEFKNOWN DIGIT-CHAR-P ...) ; compiling (DEFKNOWN (CHAR= CHAR/= ...) ...) ; 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 (MAP %MAP) ...) ; compiling (DEFKNOWN %MAP-TO-LIST-ARITY-1 ...) ; compiling (DEFKNOWN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...) ; compiling (DEFKNOWN %MAP-TO-NIL-ON-SIMPLE-VECTOR ...) ; compiling (DEFKNOWN %MAP-TO-NIL-ON-VECTOR ...) ; compiling (DEFKNOWN %MAP-TO-NIL-ON-SEQUENCE ...) ; 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 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 ...) ; compiling (DEFKNOWN NTHCDR ...) ; compiling (DEFKNOWN LAST ...) ; compiling (DEFKNOWN SB!IMPL::LAST1 ...) ; compiling (DEFKNOWN LIST ...) ; compiling (DEFKNOWN LIST* ...) ; compiling (DEFKNOWN MAKE-LIST ...) ; compiling (DEFKNOWN APPEND ...) ; compiling (DEFKNOWN COPY-LIST ...) ; compiling (DEFKNOWN COPY-ALIST ...) ; compiling (DEFKNOWN COPY-TREE ...) ; compiling (DEFKNOWN REVAPPEND ...) ; compiling (DEFKNOWN NCONC ...) ; compiling (DEFKNOWN SB!IMPL::NCONC2 ...) ; 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::GETHASH2 ...) ; 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 MAKE-ARRAY ...) ; 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 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 (OUTPUT-STREAM-P INPUT-STREAM-P) ...) ; compiling (DEFKNOWN CLOSE ...) ; 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-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 WRITE ...) ; compiling (DEFKNOWN (PRIN1 PRINT ...) ...) ; compiling (DEFKNOWN WRITE-TO-STRING ...) ; compiling (DEFKNOWN (PRIN1-TO-STRING PRINC-TO-STRING) ...) ; 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 (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 (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 CELL-ERROR-NAME ...) ; compiling (DEFKNOWN ERROR ...) ; compiling (DEFKNOWN CERROR ...) ; compiling (DEFKNOWN INVALID-METHOD-ERROR ...) ; compiling (DEFKNOWN METHOD-COMBINATION-ERROR ...) ; compiling (DEFKNOWN SIGNAL ...) ; compiling (DEFKNOWN SIMPLE-CONDITION-FORMAT-CONTROL ...) ; compiling (DEFKNOWN SIMPLE-CONDITION-FORMAT-ARGUMENTS ...) ; 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 BUG ...) ; compiling (DEFKNOWN COMPILE ...) ; compiling (DEFKNOWN COMPILE-FILE ...) ; compiling (DEFKNOWN DISASSEMBLE ...) ; compiling (DEFKNOWN FDOCUMENTATION ...) ; compiling (DEFKNOWN DESCRIBE ...) ; 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 (LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION) ...) ; compiling (DEFKNOWN (MACHINE-TYPE MACHINE-VERSION ...) ...) ; compiling (DEFKNOWN IDENTITY ...) ; compiling (DEFKNOWN CONSTANTLY ...) ; compiling (DEFKNOWN COMPLEMENT ...) ; compiling (DEFKNOWN GET-BYTES-CONSED ...) ; compiling (DEFKNOWN MASK-SIGNED-FIELD ...) ; compiling (DEFKNOWN INCF-PCOUNTER ...) ; compiling (DEFKNOWN PCOUNTER->INTEGER ...) ; compiling (DEFKNOWN %INCF-PCOUNTER-OR-FIXNUM ...) ; compiling (DEFKNOWN PCOUNTER-OR-FIXNUM->INTEGER ...) ; compiling (DEFKNOWN %TYPEP ...) ; compiling (DEFKNOWN %INSTANCE-TYPEP ...) ; 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-ARG-VALUES ...) ; compiling (DEFKNOWN %VERIFY-ARG-COUNT ...) ; 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 %ALLOCATE-CLOSURES ...) ; compiling (DEFKNOWN %TYPE-CHECK-ERROR ...) ; compiling (DEFKNOWN %COMPILE-TIME-TYPE-ERROR ...) ; 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-SET ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFKNOWN %CALLER-FRAME-AND-PC ...) ; compiling (DEFKNOWN %WITH-ARRAY-DATA ...) ; compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...) ; compiling (DEFKNOWN %COERCE-NAME-TO-FUN ...) ; compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...) ; compiling (DEFKNOWN FAILED-%WITH-ARRAY-DATA ...) ; 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 %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; compiling (DEFKNOWN SB!IMPL::SIGNAL-BOUNDING-INDICES-BAD-ERROR ...) ; compiling (DEFKNOWN ARG-COUNT-ERROR ...) ; compiling (DEFKNOWN %ASET ...) ; compiling (DEFKNOWN %SET-ROW-MAJOR-AREF ...) ; compiling (DEFKNOWN (%RPLACA %RPLACD) ...) ; compiling (DEFKNOWN %PUT ...) ; compiling (DEFKNOWN %SETELT ...) ; compiling (DEFKNOWN %SVSET ...) ; compiling (DEFKNOWN %BITSET ...) ; compiling (DEFKNOWN %SBITSET ...) ; compiling (DEFKNOWN %CHARSET ...) ; compiling (DEFKNOWN %SCHARSET ...) ; compiling (DEFKNOWN %SET-SYMBOL-VALUE ...) ; compiling (DEFKNOWN (SETF SYMBOL-FUNCTION) ...) ; compiling (DEFKNOWN %SET-SYMBOL-PLIST ...) ; compiling (DEFKNOWN (SETF FDOCUMENTATION) ...) ; compiling (DEFKNOWN %SETNTH ...) ; compiling (DEFKNOWN %SET-FILL-POINTER ...) ; compiling (DEFKNOWN SB!VM::PUSH-WORD-ON-C-STACK ...) ; compiling (DEFKNOWN SB!VM::POP-WORDS-FROM-C-STACK ...) ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/fndb.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-fndb.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...) ; compiling (DEFKNOWN %SP-STRING-COMPARE ...) ; compiling (DEFKNOWN %SXHASH-SIMPLE-STRING ...) ; compiling (DEFKNOWN %SXHASH-SIMPLE-SUBSTRING ...) ; compiling (DEFKNOWN SYMBOL-HASH ...) ; compiling (DEFKNOWN %SET-SYMBOL-HASH ...) ; 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 %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-BITS ...) ; compiling (DEFKNOWN (%SET-RAW-BITS) ...) ; 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 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 MERGE-BITS ...) ; 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-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 %FLOOR ...) ; 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 MUTATOR-SELF ...) ; compiling (DEFKNOWN %DATA-VECTOR-AND-INDEX ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/vm-fndb.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/objdef.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-PRIMITIVE-OBJECT (CONS :LOWTAG ...) ...) ; 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 (AVER (= KLUDGE-NONDETERMINISTIC-CATCH-BLOCK-SIZE ...)) ; 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 :LOWTAG ...) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/objdef.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/interr.lisp" (written 14 JUL 2005 07:35:35 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN ERROR-NUMBER-OR-LOSE ...) ; compiling (DEFINE-INTERNAL-ERRORS (UNKNOWN "unknown system lossage") ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/interr.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/bit-util.lisp" (written 14 JUL 2005 07:52:37 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/bit-util.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/early-assem.lisp" (written 14 JUL 2004 09:29:51 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/early-assem.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/core.lisp" (written 14 JUL 2005 07:35:35 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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) #:G118 #:G119) ; ; caught STYLE-WARNING: ; undefined function: (SETF DEBUG-INFO-SOURCE) ; (SETF (SB!C::DEBUG-SOURCE-FUNCTION SB!C::SOURCE) FUNCTION) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-FUNCTION) #:G114 #:G115) ; ; caught STYLE-WARNING: ; undefined function: (SETF DEBUG-SOURCE-FUNCTION) ; 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) ; ; caught STYLE-WARNING: ; undefined function: DEBUG-SOURCE-FOR-INFO ; in: DEFUN DO-CORE-FIXUPS ; (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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; (SETF DEBUG-INFO-SOURCE) (SETF DEBUG-SOURCE-FUNCTION) CODE-HEADER-SET DEBUG-SOURCE-FOR-INFO SB!VM:FIXUP-CODE-OBJECT FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION FOREIGN-SYMBOL-ADDRESS ; ; compilation unit finished ; caught 13 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/core.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/thread.lisp" (written 03 JUN 2006 09:26:52 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEF!STRUCT MUTEX ...) ; compiling (DEF!STRUCT SPINLOCK ...) ; compiling (SB-XC:DEFMACRO WITH-MUTEX ...) ; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/thread.lisp-obj-tmp written ; compilation finished in 0:00:00 STYLE-WARNING: redefining MAKE-MUTEX in DEFUN STYLE-WARNING: redefining MAKE-SPINLOCK in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/load.lisp" (written 13 MAY 2006 06:20:03 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFUN LOAD-FRESH-LINE ...) ; compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 *FREE-FOP-TABLES* ...) ; compiling (DEFVAR *CURRENT-FOP-TABLE*) ; compiling (DECLAIM (SIMPLE-VECTOR *CURRENT-FOP-TABLE*)) ; compiling (DEFVAR *CURRENT-FOP-TABLE-SIZE*) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *CURRENT-FOP-TABLE-INDEX*) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFUN GROW-FOP-TABLE ...) ; compiling (DEFMACRO PUSH-FOP-TABLE ...) ; compiling (DEFVAR *FOP-STACK*) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFMACRO WITH-FOP-STACK ...) ; compiling (DEFMACRO %CALL-WITH-POPPED-ARGS ...) ; 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 CHECK-FASL-HEADER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 *FASL-SYMBOL-BUFFER*) ; compiling (DECLAIM (SIMPLE-STRING *FASL-SYMBOL-BUFFER*)) ; compiling (DEFUN LOAD-FASL-GROUP ...) ; compiling (DEFUN LOAD-AS-FASL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; READ-STRING-AS-BYTES ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/load.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/foreign.lisp" (written 28 NOV 2006 01:34:05 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: deleting unreachable code ; (AND SB!IMPL::SHAREDP SB!IMPL::DATAP) ; --> IF AND ; ==> ; SB!IMPL::DATAP ; ; note: deleting unreachable code ; (SB!SYS:INT-SAP SB!ALIEN:ADDR) ; ==> ; SB!ALIEN:ADDR ; ; note: deleting unreachable code ; compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL)) ; compiling (DEFUN SAP-FOREIGN-SYMBOL ...) ; compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 3 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/foreign.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFVAR *SKIP-UNTIL* ...) ; compiling (DEFMACRO DEFINE-FOP ...) ; compiling (DEFUN %DEFINE-FOP ...) ; compiling (DEFMACRO DEFINE-CLONED-FOPS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN READ-STRING-AS-BYTES ...) ; compiling (DEFUN READ-STRING-AS-WORDS ...) ; compiling (DEFINE-FOP (FOP-NOP4 137 ...) ...) ; compiling (DEFINE-FOP (FOP-NOP 0 ...)) ; compiling (DEFINE-FOP (FOP-POP 1 ...) ...) ; compiling (DEFINE-FOP (FOP-PUSH 2) ...) ; compiling (DEFINE-FOP (FOP-BYTE-PUSH 3) ...) ; compiling (DEFINE-FOP (FOP-EMPTY-LIST 4) ...) ; compiling (DEFINE-FOP (FOP-TRUTH 5) ...) ; compiling (DEFINE-FOP (FOP-MISC-TRAP 66) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-MISC-TRAP 66) ; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-MISC-TRAP 66) ; (ERROR ; "FOP-MISC-TRAP can't be defined without %PRIMITIVE.")) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN (ERROR "FOP-MISC-TRAP can't be defined without %PRIMITIVE.")) ; #:FOP-STACK-531) ; ; note: The first argument never returns a value. ; compiling (DEFINE-CLONED-FOPS (FOP-CHARACTER 68) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-STRUCT 48) ...) ; compiling (DEFINE-FOP (FOP-LAYOUT 45) ...) ; compiling (DEFINE-FOP (FOP-END-GROUP 64 ...) ...) ; compiling (DEFINE-FOP (FOP-NORMAL-LOAD 81 ...)) ; compiling (DEFINE-FOP (FOP-MAYBE-COLD-LOAD 82 ...)) ; compiling (DEFINE-FOP (FOP-VERIFY-TABLE-SIZE 62 ...) ...) ; compiling (DEFINE-FOP (FOP-VERIFY-EMPTY-STACK 63 ...) ...) ; compiling (FROB FOP-LISP-SYMBOL-SAVE ...) ; compiling (FROB FOP-LISP-SMALL-SYMBOL-SAVE ...) ; compiling (FROB FOP-KEYWORD-SYMBOL-SAVE ...) ; compiling (FROB FOP-KEYWORD-SMALL-SYMBOL-SAVE ...) ; compiling (FROB FOP-SYMBOL-IN-PACKAGE-SAVE ...) ; compiling (FROB FOP-SMALL-SYMBOL-IN-PACKAGE-SAVE ...) ; compiling (FROB FOP-SYMBOL-IN-BYTE-PACKAGE-SAVE ...) ; compiling (FROB FOP-SMALL-SYMBOL-IN-BYTE-PACKAGE-SAVE ...) ; compiling (DEFINE-CLONED-FOPS (FOP-UNINTERNED-SYMBOL-SAVE 12) ...) ; compiling (DEFINE-FOP (FOP-PACKAGE 14) ...) ; compiling (DEFUN LOAD-S-INTEGER ...) ; compiling (DEFINE-CLONED-FOPS (FOP-INTEGER 33) ...) ; compiling (DEFINE-FOP (FOP-WORD-INTEGER 35) ...) ; compiling (DEFINE-FOP (FOP-BYTE-INTEGER 36) ...) ; compiling (DEFINE-FOP (FOP-RATIO 70) ...) ; compiling (DEFINE-FOP (FOP-COMPLEX 71) ...) ; compiling (DEFINE-COMPLEX-FOP FOP-COMPLEX-SINGLE-FLOAT ...) ; compiling (DEFINE-COMPLEX-FOP FOP-COMPLEX-DOUBLE-FLOAT ...) ; compiling (DEFINE-FLOAT-FOP FOP-SINGLE-FLOAT ...) ; compiling (DEFINE-FLOAT-FOP FOP-DOUBLE-FLOAT ...) ; compiling (DEFINE-FOP (FOP-LIST 15) ...) ; compiling (DEFINE-FOP (FOP-LIST* 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-CLONED-FOPS (FOP-BASE-STRING 37) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-CHARACTER-STRING 161) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-VECTOR 39) ...) ; compiling (DEFINE-FOP (FOP-ARRAY 83) ...) ; compiling (DEFINE-FOP (FOP-SINGLE-FLOAT-VECTOR 84) ...) ; compiling (DEFINE-FOP (FOP-DOUBLE-FLOAT-VECTOR 85) ...) ; compiling (DEFINE-FOP (FOP-COMPLEX-SINGLE-FLOAT-VECTOR 86) ...) ; compiling (DEFINE-FOP (FOP-COMPLEX-DOUBLE-FLOAT-VECTOR 87) ...) ; compiling (DEFINE-FOP (FOP-INT-VECTOR 43) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-INT-VECTOR 43) ; (MAKE-ARRAY SB!FASL::LEN :ELEMENT-TYPE 'NIL) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; compiling (DEFINE-FOP (FOP-SIGNED-INT-VECTOR 50) ...) ; compiling (DEFINE-FOP (FOP-EVAL 53) ...) ; compiling (DEFINE-FOP (FOP-EVAL-FOR-EFFECT 54 ...) ...) ; compiling (DEFINE-FOP (FOP-FUNCALL 55) ...) ; compiling (DEFINE-FOP (FOP-FUNCALL-FOR-EFFECT 56 ...) ...) ; compiling (DEFINE-FOP (FOP-RPLACA 200 ...) ...) ; compiling (DEFINE-FOP (FOP-RPLACD 201 ...) ...) ; compiling (DEFINE-FOP (FOP-SVSET 202 ...) ...) ; compiling (DEFINE-FOP (FOP-STRUCTSET 204 ...) ...) ; compiling (DEFINE-FOP (FOP-NTHCDR 203) ...) ; compiling (DEFINE-FOP (FOP-CODE 58 ...) ...) ; compiling (DEFINE-FOP (FOP-SMALL-CODE 59 ...) ...) ; compiling (DEFINE-FOP (FOP-FDEFINITION 60) ...) ; compiling (DEFINE-FOP (FOP-SANCTIFY-FOR-EXECUTION 61) ...) ; compiling (DEFINE-FOP (FOP-FSET 74 ...) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-ALTER-CODE 140 ...) ...) ; compiling (DEFINE-FOP (FOP-FUN-ENTRY 142) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-FUN-ENTRY 142) ; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-FUN-ENTRY 142) ; (ERROR ; "FOP-FUN-ENTRY can't be defined without %PRIMITIVE.")) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN (ERROR "FOP-FUN-ENTRY can't be defined without %PRIMITIVE.")) ; #:FOP-STACK-6197) ; ; note: The first argument never returns a value. ; compiling (DEFINE-FOP (FOP-ASSEMBLER-CODE 144) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-ASSEMBLER-CODE 144) ; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-ASSEMBLER-CODE 144) ; (ERROR "cannot load assembler code except at cold load")) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN (ERROR "cannot load assembler code except at cold load")) ; #:FOP-STACK-6212) ; ; note: The first argument never returns a value. ; compiling (DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145) ; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-ASSEMBLER-ROUTINE 145) ; (ERROR "cannot load assembler code except at cold load")) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN (ERROR "cannot load assembler code except at cold load")) ; #:FOP-STACK-6227) ; ; note: The first argument never returns a value. ; compiling (DEFINE-FOP (FOP-FOREIGN-FIXUP 147) ...) ; compiling (DEFINE-FOP (FOP-ASSEMBLER-FIXUP 148) ...) ; compiling (DEFINE-FOP (FOP-CODE-OBJECT-FIXUP 149) ...) ; compiling (DEFINE-FOP (FOP-FOREIGN-DATAREF-FIXUP 150) ...) ; compiling (DEFINE-FOP (FOP-SKIP 151 ...) ...) ; compiling (DEFINE-FOP (FOP-SKIP-IF-FALSE 152 ...) ...) ; compiling (DEFINE-FOP (FOP-DROP-IF-SKIPPING 153 ...) ...) ; compiling (DEFINE-FOP (FOP-PUSH-NIL-IF-SKIPPING 154 ...) ...) ; compiling (DEFINE-FOP (FOP-MAYBE-STOP-SKIPPING 155 ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-COMPLEX 71) ; (SB!KERNEL:%MAKE-COMPLEX (SB!FASL::POP-STACK) SB!FASL::IM) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-COMPLEX ; in: DEFINE-CLONED-FOPS (FOP-STRUCT 48) ; (SB!KERNEL:%MAKE-INSTANCE SB!FASL::SIZE) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE ; in: DEFINE-FOP (FOP-RATIO 70) ; (SB!KERNEL:%MAKE-RATIO (SB!FASL::POP-STACK) SB!FASL::DEN) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-RATIO ; in: DEFINE-CLONED-FOPS (FOP-STRUCT 48) ; (SETF (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!FASL::RES ; (- SB!FASL::NUNTAGGED SB!FASL::N 1)) ; (SB!FASL::POP-STACK)) ; ==> ; (SB!KERNEL:%RAW-INSTANCE-SET/WORD SB!FASL::RES ; (- SB!FASL::NUNTAGGED SB!FASL::N 1) (SB!FASL::POP-STACK)) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-SET/WORD ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-SET/WORD ; in: DEFINE-CLONED-FOPS (FOP-ALTER-CODE 140 :PUSHP NIL) ; (SETF (SB!KERNEL:CODE-HEADER-REF SB!FASL::CODE (SB!FASL::CLONE-ARG)) ; SB!FASL::VALUE) ; ==> ; (SB!KERNEL:CODE-HEADER-SET SB!FASL::CODE (SB!FASL::CLONE-ARG) SB!FASL::VALUE) ; ; caught STYLE-WARNING: ; undefined function: CODE-HEADER-SET ; ; caught STYLE-WARNING: ; undefined function: CODE-HEADER-SET ; in: DEFINE-FOP (FOP-FDEFINITION 60) ; (SB!KERNEL:FDEFINITION-OBJECT (SB!FASL::POP-STACK) T) ; ; caught STYLE-WARNING: ; undefined function: FDEFINITION-OBJECT ; in: DEFINE-FOP (FOP-CODE-OBJECT-FIXUP 149) ; (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT (SB!FASL::READ-WORD-ARG) ; (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!FASL::CODE-OBJECT) SB!FASL::KIND) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:FIXUP-CODE-OBJECT ; in: DEFINE-FOP (FOP-ASSEMBLER-FIXUP 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 (FOP-FOREIGN-FIXUP 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 ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!VM:FIXUP-CODE-OBJECT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-CODE-OBJECT-FIXUP 149) ; (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!FASL::CODE-OBJECT) ; ; caught STYLE-WARNING: ; undefined function: GET-LISP-OBJ-ADDRESS ; in: DEFINE-FOP (FOP-SMALL-CODE 59 :STACKP NIL) ; (SB!FASL::LOAD-CODE (SB!FASL::READ-BYTE-ARG) (SB!FASL::READ-HALFWORD-ARG)) ; ; caught STYLE-WARNING: ; undefined function: LOAD-CODE ; in: DEFINE-FOP (FOP-CODE 58 :STACKP NIL) ; (SB!FASL::LOAD-CODE (SB!FASL::READ-WORD-ARG) (SB!FASL::READ-WORD-ARG)) ; ; caught STYLE-WARNING: ; undefined function: LOAD-CODE ; in: DEFINE-FOP (FOP-ARRAY 83) ; (SB!KERNEL:MAKE-ARRAY-HEADER SB!VM:SIMPLE-ARRAY-WIDETAG SB!FASL::RANK) ; ; caught STYLE-WARNING: ; undefined function: MAKE-ARRAY-HEADER ; in: DEFINE-FOP (FOP-COMPLEX-SINGLE-FLOAT-VECTOR 86) ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::RESULT 0 ; (* LENGTH 8)) ; ; caught STYLE-WARNING: ; undefined function: READ-N-BYTES ; in: DEFINE-FOP (FOP-DOUBLE-FLOAT-VECTOR 85) ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::RESULT 0 ; (* LENGTH 8)) ; ; caught STYLE-WARNING: ; undefined function: READ-N-BYTES ; in: DEFINE-FOP (FOP-SINGLE-FLOAT-VECTOR 84) ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::RESULT 0 ; (* LENGTH 4)) ; ; caught STYLE-WARNING: ; undefined function: READ-N-BYTES ; ; caught STYLE-WARNING: ; 5 more uses of undefined function READ-N-BYTES ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-SANCTIFY-FOR-EXECUTION 61) ; (SB!VM:SANCTIFY-FOR-EXECUTION SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:SANCTIFY-FOR-EXECUTION ; in: DEFINE-FOP (FOP-ARRAY 83) ; (SB!KERNEL:SET-ARRAY-HEADER SB!FASL::RES SB!FASL::VEC LENGTH NIL 0 ; (DO ((SB!FASL::I SB!FASL::RANK (1- SB!FASL::I)) ; (SB!FASL::DIMENSIONS NIL (CONS # SB!FASL::DIMENSIONS))) ; ((ZEROP SB!FASL::I) SB!FASL::DIMENSIONS) ; (DECLARE (TYPE SB!INT:INDEX SB!FASL::I))) ; NIL) ; ; caught STYLE-WARNING: ; undefined function: SET-ARRAY-HEADER ; ; caught STYLE-WARNING: ; These functions are undefined: ; %MAKE-COMPLEX %MAKE-INSTANCE %MAKE-RATIO %RAW-INSTANCE-SET/WORD CODE-HEADER-SET FDEFINITION-OBJECT SB!VM:FIXUP-CODE-OBJECT GET-LISP-OBJ-ADDRESS LOAD-CODE MAKE-ARRAY-HEADER READ-N-BYTES SB!VM:SANCTIFY-FOR-EXECUTION SET-ARRAY-HEADER ; ; compilation unit finished ; caught 25 STYLE-WARNING conditions ; printed 4 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/fop.lisp-obj-tmp written ; compilation finished in 0:00:06 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ctype.lisp" (written 14 APR 2006 06:57:57 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 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ctype.lisp ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::ASSERT-LVAR-TYPE SB!C::ARG TYPE 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 ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C:CALL (SB!KERNEL:FUN-TYPE-RETURNS TYPE)) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C::REF (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE 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 ASSERT-DEFINITION-TYPE ; (SB!C::LVAR-DERIVED-TYPE (SB!C::RETURN-RESULT RETURN)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-DERIVED-TYPE ; in: DEFUN CHECK-CATCH-TAG-TYPE ; (SB!C::LVAR-SOURCE SB!C::TAG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-SOURCE ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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::K) ; ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ctype.lisp ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::MAIN-ENTRY SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: MAIN-ENTRY ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-LVAR-TYPE COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE IMMEDIATELY-USED-P IR2-CONVERT-FULL-CALL LVAR-DERIVED-TYPE LVAR-SOURCE LVAR-TYPE LVAR-VALUE MAIN-ENTRY ; ; compilation unit finished ; caught 23 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ctype.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/disassem.lisp" (written 04 NOV 2005 12:18:10 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 TEXT-WIDTH ...)) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; (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 ; (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 ; 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 GEN-FORMAT-DEF-FORM ...) ; compiling (DEFUN MODIFY-OR-ADD-ARG ...) ; compiling (DEFUN GEN-ARG-ACCESS-MACRO-DEF-FORM ...) ; 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 (DEFUN GEN-ARG-TYPE-DEF-FORM ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (SB!INT:MISSING-ARG) :TYPE ; 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))) ; ...) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR LET IF OR ; ==> ; (TYPEP #:ONCE-ONLY-2493 'SB!DISASSEM:SEGMENT) ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/disassem.lisp ; 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 (SB!INT:MISSING-ARG) :TYPE ; 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 ; ; caught STYLE-WARNING: ; 5 more uses of undefined type SEGMENT ; ; caught STYLE-WARNING: ; These functions are undefined: ; READ-SUFFIX SEG-VIRTUAL-LOCATION ; ; caught STYLE-WARNING: ; This type is undefined: ; SEGMENT ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; printed 53 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/disassem.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assem.lisp" (written 11 AUG 2006 09:08:39 AM): ; 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 # ...) ...) ; 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 # ...)) ; 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 (DEFMACRO %%CURRENT-SEGMENT%% ...) ; compiling (DEFVAR **CURRENT-SEGMENT**) ; compiling (DEFMACRO %%CURRENT-VOP%% ...) ; compiling (DEFVAR **CURRENT-VOP** ...) ; compiling (DEF!MACRO ASSEMBLE ...) ; compiling (SB-XC:DEFMACRO ASSEMBLE ...) ; compiling (DEFMACRO INST ...) ; compiling (DEFMACRO EMIT-LABEL ...) ; compiling (DEFMACRO EMIT-POSTIT ...) ; compiling (DEFMACRO ALIGN ...) ; compiling (DEFUN LABEL-POSITION ...) ; compiling (DEFUN APPEND-SEGMENT ...) ; compiling (DEFUN FINALIZE-SEGMENT ...) ; compiling (DEFUN ON-SEGMENT-CONTENTS-VECTORLY ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assem.lisp ; in: DEF!METHOD PRINT-OBJECT ; (SB!C:LABEL-ID SB!ASSEM:LABEL) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LABEL-ID ; in: SB-XC:DEFMACRO ASSEMBLE ; (SB-XC:MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MACROEXPAND ; in: LAMBDA NIL ; (SB-XC:MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MACROEXPAND ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!C:LABEL-ID SB-XC:MACROEXPAND ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/assem.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/trace-table.lisp" (written 19 MAY 2002 02:55:32 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN TRACE-TABLE-ENTRY ...) ; compiling (DEF!CONSTANT TT-BITS-PER-STATE ...) ; compiling (DEF!CONSTANT TT-BYTES-PER-ENTRY ...) ; compiling (DEF!CONSTANT TT-BITS-PER-ENTRY ...) ; compiling (DEF!CONSTANT TT-BITS-PER-OFFSET ...) ; compiling (DEF!CONSTANT TT-MAX-OFFSET ...) ; compiling (DEFTYPE TT-STATE ...) ; compiling (DEFTYPE TT-ENTRY ...) ; compiling (DEFTYPE TT-OFFSET ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PACK-TRACE-TABLE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/trace-table.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/dump.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFSTRUCT (FASL-OUTPUT # ...) ...) ; compiling (DEFSTRUCT (CIRCULARITY #) ...) ; compiling (DEFVAR *CIRCULARITIES-DETECTED*) ; compiling (DEFVAR *COLD-LOAD-DUMP* ...) ; 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 (DEFMACRO DUMP-FOP ...) ; 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 FASL-DUMP-COLD-LOAD-FORM ...) ; compiling (DEFUN FASL-WRITE-STRING ...) ; 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 ...) ; 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 OCTET-SWAP ...) ; compiling (DEFUN DUMP-I-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-COLD-FSET ...) ; compiling (DEFUN FASL-DUMP-SOURCE-INFO ...) ; compiling (DEFUN DUMP-STRUCTURE ...) ; compiling (DEFUN DUMP-LAYOUT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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-VECTOR ; (SB!FASL::DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION ; SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR ; (SB!FASL::DUMP-COMPLEX-SINGLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION ; SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-COMPLEX-SINGLE-FLOAT-VECTOR ; (SB!FASL::DUMP-DOUBLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-DOUBLE-FLOAT-VECTOR ; 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-I-VECTOR ; (SB!FASL::DUMP-RAW-BYTES SB!FASL::VEC SB!SYS:BYTES SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-RAW-BYTES ; in: DEFUN DUMP-VECTOR ; (SB!FASL::DUMP-SINGLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-SINGLE-FLOAT-VECTOR ; 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!INT:FORMAT-UNIVERSAL-TIME NIL (GET-UNIVERSAL-TIME)) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-UNIVERSAL-TIME ; 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)) ; (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 2 SB!FASL:FASL-OUTPUT)))) ; (SETF (SB!FASL::FASL-OUTPUT-DEBUG-INFO SB!FASL:FASL-OUTPUT) NIL) ; (VALUES)) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G1264 'SB!C::SOURCE-INFO) ; ; caught STYLE-WARNING: ; undefined type: SB!C::SOURCE-INFO ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G1264 'SB!C::SOURCE-INFO) ; ; caught STYLE-WARNING: ; undefined type: SB!C::SOURCE-INFO ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!FASL:FASL-DUMP-SOURCE-INFO ; (SB!INT:INFO SB!FASL:FASL-OUTPUT) ; (DECLARE (TYPE SB!C::SOURCE-INFO SB!INT:INFO)) ; (BLOCK SB!FASL:FASL-DUMP-SOURCE-INFO ; (LET ((SB!FASL::RES #) ; (SB!FASL::*DUMP-ONLY-VALID-STRUCTURES* NIL)) ; (SB!FASL:DUMP-OBJECT SB!FASL::RES ; SB!FASL:FASL-OUTPUT) ; (LET (#) ; (DOLIST # # # # #))) ; (SETF (SB!FASL::FASL-OUTPUT-DEBUG-INFO ; SB!FASL:FASL-OUTPUT) ; NIL) ; (VALUES))) ; ; caught STYLE-WARNING: ; undefined type: SB!C::SOURCE-INFO ; ; caught STYLE-WARNING: ; 3 more uses of undefined type SB!C::SOURCE-INFO ; ; caught STYLE-WARNING: ; These functions are undefined: ; %RAW-INSTANCE-REF/WORD SB!C::DEBUG-INFO-FOR-COMPONENT SB!C::DEBUG-SOURCE-FOR-INFO DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR DUMP-COMPLEX-SINGLE-FLOAT-VECTOR DUMP-DOUBLE-FLOAT-VECTOR DUMP-MULTI-DIM-ARRAY DUMP-RAW-BYTES DUMP-SINGLE-FLOAT-VECTOR FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION FORMAT-UNIVERSAL-TIME ; ; caught STYLE-WARNING: ; This type is undefined: ; SB!C::SOURCE-INFO ; ; compilation unit finished ; caught 21 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/dump.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/main.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *CONSTANTS* ...)) ; compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-FUNCTION* ...) ; compiling (DEFVAR *CHECK-CONSISTENCY* ...) ; compiling (DEFVAR *ALL-COMPONENTS*) ; 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 *FOPCOMPILE-LABEL-COUNTER*) ; compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...) ; compiling (DEFVAR *SOURCE-PLIST* ...) ; compiling (DEFUN %WITH-COMPILATION-UNIT ...) ; compiling (DEFUN FUN-NAME-RESERVED-BY-ANSI-P ...) ; compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/main.lisp ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; (CASE SB!C::NAME ; ((DECLARE) ; (SB!C:COMPILER-WARN ; "~@" ; SB!C::NAME SB!C::NAME)) ; (T ; (SB!C:COMPILER-WARN "~@" ; SB!C::KIND SB!C::NAME))) ; --> LET ; ==> ; SB!C::NAME ; ; note: deleting unreachable code ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME SB!C::NAME) ; ==> ; "~@" ; ; note: deleting unreachable code ; (SB!C:COMPILER-WARN "~@" ; SB!C::KIND 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 CLEAR-STUFF ...) ; compiling (DEFUN DESCRIBE-COMPONENT ...) ; compiling (DEFUN DESCRIBE-IR2-COMPONENT ...) ; compiling (DEF!STRUCT (FILE-INFO #) ...) ; compiling (DEF!STRUCT (SOURCE-INFO # ...) ...) ; compiling (DEFUN MAKE-FILE-SOURCE-INFO ...) ; compiling (DEFUN MAKE-LISP-SOURCE-INFO ...) ; compiling (DEFUN MAKE-STREAM-SOURCE-INFO ...) ; compiling (DEFUN READ-FOR-COMPILE-FILE ...) ; compiling (DEFUN GET-SOURCE-STREAM ...) ; compiling (DEFUN CLOSE-SOURCE-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 PROCESS-TOPLEVEL-COLD-FSET ...) ; compiling (DEFUN NOTE-TOP-LEVEL-FORM ...) ; 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-IN-LEXENV ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/main.lisp ; 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 ; ==> ; (SB-KERNEL:%TYPEP #:G1929 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G1929 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; ; caught STYLE-WARNING: ; 13 more uses of undefined type COMPILER-ERROR-CONTEXT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!C::CLEAR-STUFF) ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET ((SB!C::OBJECT SB!C::*COMPILE-OBJECT*)) ; (ETYPECASE SB!C::OBJECT ; (SB!FASL:FASL-OUTPUT #) ; (SB!C::CORE-OBJECT #) ; (NULL))) ; NIL)) ; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS ; ==> ; #'SB!C::COMPILER-ERROR-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-HANDLER ; in: DEFUN COMPILE-LOAD-TIME-STUFF ; (SB!C::WITH-IR1-NAMESPACE ; (LET* ((SB!C:*LEXENV* (SB!KERNEL:MAKE-NULL-LEXENV)) ; (LAMBDA ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* ; SB!C::FOR-VALUE))) ; (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T) ; LAMBDA)) ; --> LET HANDLER-BIND LET 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: ; 5 more uses of undefined function COMPILER-MUMBLE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/main.lisp ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL (SB!C::CLEAR-STUFF) ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET ((SB!C::OBJECT SB!C::*COMPILE-OBJECT*)) ; (ETYPECASE SB!C::OBJECT ; (SB!FASL:FASL-OUTPUT #) ; (SB!C::CORE-OBJECT #) ; (NULL))) ; NIL)) ; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS ; ==> ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; in: DEFUN COMPILE-LOAD-TIME-STUFF ; (SB!C::WITH-IR1-NAMESPACE ; (LET* ((SB!C:*LEXENV* (SB!KERNEL:MAKE-NULL-LEXENV)) ; (LAMBDA ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* ; SB!C::FOR-VALUE))) ; (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T) ; LAMBDA)) ; --> LET HANDLER-BIND LET 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!C::CLEAR-STUFF) ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET ((SB!C::OBJECT SB!C::*COMPILE-OBJECT*)) ; (ETYPECASE SB!C::OBJECT ; (SB!FASL:FASL-OUTPUT #) ; (SB!C::CORE-OBJECT #) ; (NULL))) ; NIL)) ; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS ; ==> ; #'SB!C::COMPILER-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARNING-HANDLER ; in: DEFUN COMPILE-LOAD-TIME-STUFF ; (SB!C::WITH-IR1-NAMESPACE ; (LET* ((SB!C:*LEXENV* (SB!KERNEL:MAKE-NULL-LEXENV)) ; (LAMBDA ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* ; SB!C::FOR-VALUE))) ; (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T) ; LAMBDA)) ; --> LET HANDLER-BIND LET 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 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-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-IDX) ; ; caught STYLE-WARNING: ; undefined function: FIND-SOURCE-PATHS ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::FOPCOMPILABLE-P SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILABLE-P ; (SB!C::FOPCOMPILE SB!KERNEL:FORM SB!C::PATH NIL) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILE ; 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 %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::LOCALL-FUN) ; :SOURCE-NAME (OR SB!C::NAME 'SB!C::.ANONYMOUS.) :DEBUG-NAME SB!C::DEBUG-NAME) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA ; #'SB!C::IR1-CONVERT-LAMBDALIKE ; ; 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) ; ; 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 ; 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 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 ; in: DEFUN PREPROCESSOR-MACROEXPAND-1 ; (SB-XC:MACROEXPAND-1 SB!KERNEL:FORM SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MACROEXPAND-1 ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::MAKE-CORE-COMPONENT SB!C:COMPONENT SB!C:*CODE-SEGMENT* ; SB!C::CODE-LENGTH SB!C::TRACE-TABLE 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 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 ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::LOCALL-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 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!C::PACK SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: 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 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 ; (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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; %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 ENTRY-ANALYZE FIND-DFO FIND-DOMINATORS FIND-INITIAL-DFO FIND-SOURCE-PATHS FOPCOMPILABLE-P FOPCOMPILE FORMAT-UNIVERSAL-TIME FUNCALL-IN-MACROLET-LEXENV FUNCALL-IN-SYMBOL-MACROLET-LEXENV GENERATE-CODE GENERATE-TYPE-CHECKS GTN-ANALYZE INIT-ASSEMBLER IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDALIKE IR1-FINALIZE IR1-OPTIMIZE IR1-TOPLEVEL IR2-CONVERT LABEL-ID LAMBDA-COMPONENT LIFETIME-ANALYZE LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE LOCALL-ANALYZE-COMPONENT LOOP-ANALYZE LTN-ANALYZE SB-XC:MACROEXPAND-1 MAKE-CORE-COMPONENT MAKE-EMPTY-COMPONENT MAKE-LEXENV MAKE-XEP-LAMBDA-EXPRESSION MERGE-TOPLEVEL-LAMBDAS NODE-COMPONENT NOTE-UNDEFINED-REFERENCE PACK PHYSENV-ANALYZE PRE-PACK-TN-STATS PRE-PHYSENV-ANALYZE-TOPLEVEL PRINT-ALL-BLOCKS PRINT-IR2-BLOCKS PROCESS-DECLS RECORD-COMPONENT-XREFS REPLACE-TOPLEVEL-XEPS RETRY-DELAYED-IR1-TRANSFORMS SELECT-REPRESENTATIONS STACK-ANALYZE STYLE-WARN ; ; caught STYLE-WARNING: ; This type is undefined: ; COMPILER-ERROR-CONTEXT ; ; compilation unit finished ; caught 91 STYLE-WARNING conditions ; printed 3 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/main.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/xref.lisp" (written 05 DEC 2006 04:35:57 AM): ; 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 PACK-XREF-DATA ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; (SB!C::NODE-HOME-LAMBDA SB!C::REF) ; ; caught STYLE-WARNING: ; undefined function: NODE-HOME-LAMBDA ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; BLOCK-HOME-LAMBDA NODE-HOME-LAMBDA SOURCE-PATH-ORIGINAL-SOURCE ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/xref.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/source-location.lisp" (written 06 NOV 2005 08:40:31 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION #) ...) ; compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/source-location.lisp ; in: DEFUN MAKE-FILE-INFO-NAMESTRING ; (DEFUN SB!C::MAKE-FILE-INFO-NAMESTRING (SB!C::NAME SB!C::FILE-INFO) ; (LET* ((SB!C::UNTRUENAME (SB!C::FILE-INFO-UNTRUENAME SB!C::FILE-INFO)) ; (SB!C::DIR (AND SB!C::UNTRUENAME #))) ; (LET ((SB!C::SRC #)) ; (IF SB!C::SRC (FORMAT NIL "SYS:~{~:@(~A~);~}~:@(~A~).LISP" # #) ; (NAMESTRING SB!C::UNTRUENAME))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!C::MAKE-FILE-INFO-NAMESTRING ; (SB!C::NAME SB!C::FILE-INFO) ; (BLOCK SB!C::MAKE-FILE-INFO-NAMESTRING ; (LET* ((SB!C::UNTRUENAME #) (SB!C::DIR #)) ; (LET (#) ; (IF SB!C::SRC # #))))) ; ; caught STYLE-WARNING: ; The variable NAME is defined but never used. ; compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...); in: LAMBDA NIL ; (LET* ((SB!C::ENV #:ENVIRONMENT295) ; (#:CMACRO-&WHOLE296 #:WHOLE294) ; (#:WHOLE294 (IF (NOT #) #:WHOLE294 (SETF #:WHOLE294 #)))) ; (DECLARE (IGNORABLE #:CMACRO-&WHOLE296)) ; (LET ((#:ARGS297 (IF # # #))) ; (UNLESS (SB-INT:PROPER-LIST-OF-LENGTH-P #:ARGS297 0 0) ; (SB-KERNEL::ARG-COUNT-ERROR 'DEFINE-COMPILER-MACRO ; 'SB!C:SOURCE-LOCATION #:ARGS297 ; '(&ENVIRONMENT SB!C::ENV) 0 0))) ; (LET* () ; (BLOCK SB!C:SOURCE-LOCATION))) ; ; caught STYLE-WARNING: ; The variable ENV is defined but never used. ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/source-location.lisp ; in: DEFINE-COMPILER-MACRO SOURCE-LOCATION ; (DEFINE-COMPILER-MACRO SB!C:SOURCE-LOCATION (&ENVIRONMENT SB!C::ENV)) ; --> EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO LAMBDA FUNCTION ; ==> ; (LET* ((SB!C::ENV #:ENVIRONMENT295) ; (#:CMACRO-&WHOLE296 #:WHOLE294) ; (#:WHOLE294 (IF (NOT #) #:WHOLE294 (SETF #:WHOLE294 #)))) ; (DECLARE (IGNORABLE #:CMACRO-&WHOLE296)) ; (LET ((#:ARGS297 (IF # # #))) ; (UNLESS (SB-INT:PROPER-LIST-OF-LENGTH-P #:ARGS297 0 0) ; (SB-KERNEL::ARG-COUNT-ERROR 'DEFINE-COMPILER-MACRO ; 'SB!C:SOURCE-LOCATION #:ARGS297 ; '(&ENVIRONMENT SB!C::ENV) 0 0))) ; (LET* () ; (BLOCK SB!C:SOURCE-LOCATION))) ; ; caught STYLE-WARNING: ; The variable ENV is defined but never used. ; compiling (/SHOW0 "/Processing source location thunks") ; compiling (DOLIST (FUN *SOURCE-LOCATION-THUNKS*) ...) ; compiling (MAKUNBOUND (QUOTE *SOURCE-LOCATION-THUNKS*)) ; compiling (/SHOW0 "/Done with source location thunks") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/source-location.lisp ; in: ; DEF!STRUCT (DEFINITION-SOURCE-LOCATION ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; ; caught STYLE-WARNING: ; This function is undefined: ; SOURCE-PATH-TLF-NUMBER ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/source-location.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1tran.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*)) ; compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*)) ; compiling (DEFVAR *SOURCE-PATHS*) ; 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 (DEFUN FIND-GLOBAL-FUN ...) ; compiling (DEFUN INVALID-FREE-FUN-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-FREE-FUN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-LEXICALLY-APPARENT-FUN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-FREE-VAR ...) ; compiling (DEF!CONSTANT LIST-TO-HASH-TABLE-THRESHOLD ...) ; 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 USE-LVAR ...) ; compiling (DECLAIM (INLINE USE-CONTINUATION)) ; compiling (DEFUN USE-CONTINUATION ...) ; compiling (DEFUN IR1-TOPLEVEL ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *CURRENT-FORM-NUMBER*) ; 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 IR1-CONVERT-VAR ...) ; compiling (DEFUN FIND-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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 STEP-FORM-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-CONVERT-COMBINATION ...) ; compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...) ; compiling (DEFUN IR1-CONVERT-SRCTRAN ...) ; 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-DX-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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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-FUNCTIONAL-LIVE-P SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: ASSURE-FUNCTIONAL-LIVE-P ; in: DEFUN PROCESS-DX-DECL ; #'SB!C:COMPILER-NOTIFY ; ; 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!IMPL::BACKQ-CONS 'VALUES SB!C::TYPES))) ; ; 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-CONSTANT ; (DEFUN SB!C::REFERENCE-CONSTANT ; (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE) ; (DECLARE (TYPE SB!C::CTRAN SB!C::START SB!C::NEXT) ; (TYPE (OR SB!C::LVAR NULL) SB!C::RESULT) (INLINE SB!C::FIND-CONSTANT)) ; (SB!C::IR1-ERROR-BAILOUT (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE) ; (WHEN (SB!C::PRODUCING-FASL-FILE) ; (SB!C::MAYBE-EMIT-MAKE-LOAD-FORMS SB!C::VALUE)) ; (LET* ((SB!C::LEAF #) (SB!C::RES #)) ; (PUSH SB!C::RES (SB!C::LEAF-REFS SB!C::LEAF)) ; (SB!C::LINK-NODE-TO-PREVIOUS-CTRAN SB!C::RES SB!C::START) ; (SB!C::USE-CONTINUATION SB!C::RES SB!C::NEXT SB!C::RESULT))) ; (VALUES)) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!C::REFERENCE-CONSTANT ; (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE) ; (DECLARE (TYPE SB!C::CTRAN SB!C::START SB!C::NEXT) ; (TYPE (OR SB!C::LVAR NULL) SB!C::RESULT) ; (INLINE SB!C::FIND-CONSTANT)) ; (BLOCK SB!C::REFERENCE-CONSTANT ; (SB!C::IR1-ERROR-BAILOUT ; (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE) ; (WHEN (SB!C::PRODUCING-FASL-FILE) ; (SB!C::MAYBE-EMIT-MAKE-LOAD-FORMS SB!C::VALUE)) ; (LET* (# #) ; (PUSH SB!C::RES #) ; (SB!C::LINK-NODE-TO-PREVIOUS-CTRAN SB!C::RES ; SB!C::START) ; (SB!C::USE-CONTINUATION SB!C::RES SB!C::NEXT ; SB!C::RESULT))) ; (VALUES))) ; ; caught STYLE-WARNING: ; undefined function: FIND-CONSTANT ; in: DEFUN IR1-CONVERT-COMMON-FUNCTOID ; (SB!C::IR1-CONVERT-LAMBDA SB!C::OP :DEBUG-NAME ; (SB!C::DEBUG-NAME 'SB!C::INLINE-LAMBDA SB!C::OP)) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA ; 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 REFERENCE-LEAF ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN MAYBE-REANALYZE-FUNCTIONAL ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN INVALID-FREE-FUN-P ; (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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 USE-LVAR ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ; (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE T) ; ; caught STYLE-WARNING: ; undefined function: VALIDATE-CALL-TYPE ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSURE-FUNCTIONAL-LIVE-P COMPILER-NOTIFY COMPILER-SPECIFIER-TYPE COMPILER-VALUES-SPECIFIER-TYPE CTRAN-HOME-LAMBDA-OR-NULL FIND-CONSTANT IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDA-BODY LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE REOPTIMIZE-LVAR VALIDATE-CALL-TYPE ; ; compilation unit finished ; caught 27 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ir1tran.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1tran-lambda.lisp" (written 17 SEP 2006 03:26:42 AM): ; 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 IR1-CONVERT-LAMBDALIKE ...) ; compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...) ; compiling (DEFUN GET-DEFINED-FUN ...) ; compiling (DEFUN ASSERT-NEW-DEFINITION ...) ; compiling (DEFUN IR1-CONVERT-INLINE-EXPANSION ...) ; compiling (DEFUN %COMPILER-DEFUN ...) ; compiling (DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1tran-lambda.lisp ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; COMPILER-NOTIFY CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF ; ; compilation unit finished ; caught 13 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ir1tran-lambda.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1-translators.lisp" (written 26 OCT 2006 12:37:57 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF-IR1-TRANSLATOR PROGN ...) ; compiling (DEF-IR1-TRANSLATOR IF ...) ; compiling (DEF-IR1-TRANSLATOR BLOCK ...) ; compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR RETURN-FROM ; (SB!C:DEF-IR1-TRANSLATOR RETURN-FROM ; ((SB!C::NAME &OPTIONAL SB!C::VALUE) SB!C::START ; SB!C::NEXT SB!C::RESULT) ; "RETURN-FROM block-name value-form ; ; Evaluate the VALUE-FORM, returning its values from the lexically enclosing ; block BLOCK-NAME. This is constrained to be used only within the dynamic ; extent of the block." ; (DECLARE (IGNORE SB!C::RESULT)) ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; (LET* ((SB!C::FOUND (OR # #)) ; (SB!C::EXIT-CTRAN (SECOND SB!C::FOUND)) ; (SB!C::VALUE-CTRAN (SB!C::MAKE-CTRAN)) ; (SB!C::VALUE-LVAR (SB!C::MAKE-LVAR)) ; (SB!C::ENTRY (FIRST SB!C::FOUND)) ; (SB!C::EXIT ; (SB!C::MAKE-EXIT :ENTRY SB!C::ENTRY :VALUE ; SB!C::VALUE-LVAR))) ; (WHEN (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN) ; (THROW 'SB!C::LOCALL-ALREADY-LET-CONVERTED ; SB!C::EXIT-CTRAN)) ; (PUSH SB!C::EXIT (SB!C::ENTRY-EXITS SB!C::ENTRY)) ; (SETF (SB!C::LVAR-DEST SB!C::VALUE-LVAR) ; SB!C::EXIT) ; (SB!C::IR1-CONVERT SB!C::START SB!C::VALUE-CTRAN ; SB!C::VALUE-LVAR SB!C::VALUE) ; (SB!C::LINK-NODE-TO-PREVIOUS-CTRAN SB!C::EXIT ; SB!C::VALUE-CTRAN) ; (LET ((SB!C::HOME-LAMBDA #)) ; (WHEN SB!C::HOME-LAMBDA (PUSH SB!C::ENTRY #))) ; (SB!C::USE-CONTINUATION SB!C::EXIT ; SB!C::EXIT-CTRAN ; (THIRD SB!C::FOUND)))) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET* ; ==> ; (LET* ((SB!C::NAME (CAR (CDR #:WHOLE-VAR-179))) ; (SB!C::VALUE (IF (NOT #) (CAR #) NIL))) ; (DECLARE (IGNORE SB!C::RESULT)) ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; (LET* ((SB!C::FOUND (OR # #)) ; (SB!C::EXIT-CTRAN (SECOND SB!C::FOUND)) ; (SB!C::VALUE-CTRAN (SB!C::MAKE-CTRAN)) ; (SB!C::VALUE-LVAR (SB!C::MAKE-LVAR)) ; (SB!C::ENTRY (FIRST SB!C::FOUND)) ; (SB!C::EXIT ; (SB!C::MAKE-EXIT :ENTRY SB!C::ENTRY :VALUE SB!C::VALUE-LVAR))) ; (WHEN (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN) ; (THROW 'SB!C::LOCALL-ALREADY-LET-CONVERTED SB!C::EXIT-CTRAN)) ; (PUSH SB!C::EXIT (SB!C::ENTRY-EXITS SB!C::ENTRY)) ; (SETF (SB!C::LVAR-DEST SB!C::VALUE-LVAR) SB!C::EXIT) ; (SB!C::IR1-CONVERT SB!C::START SB!C::VALUE-CTRAN SB!C::VALUE-LVAR ; SB!C::VALUE) ; (SB!C::LINK-NODE-TO-PREVIOUS-CTRAN SB!C::EXIT SB!C::VALUE-CTRAN) ; (LET ((SB!C::HOME-LAMBDA #)) ; (WHEN SB!C::HOME-LAMBDA (PUSH SB!C::ENTRY #))) ; (SB!C::USE-CONTINUATION SB!C::EXIT SB!C::EXIT-CTRAN (THIRD SB!C::FOUND)))) ; ; caught STYLE-WARNING: ; declaring unknown variable RESULT to be ignored ; 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-LAMBDALIKE ...) ; compiling (DEFUN FUN-NAME-LEAF ...) ; compiling (DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ...) ; compiling (DEFMACRO WITH-FUN-NAME-LEAF ...) ; compiling (DEF-IR1-TRANSLATOR FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 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 (DEFTRANSFORM FUNCALL ...) ; compiling (DEF-IR1-TRANSLATOR %FUNCALL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR %FUNCALL ; (SECOND FUNCTION) ; --> CADR CAR CDR ; ==> ; FUNCTION ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...) ; compiling (DEFTRANSFORM %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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR TRULY-THE ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; in: DEFUN THE-IN-POLICY ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR TRULY-THE ; (SB!C::DERIVE-NODE-TYPE SB!C::USE TYPE) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; (SB!C::FIND-USES SB!C::RESULT) ; ; caught STYLE-WARNING: ; undefined function: FIND-USES ; in: DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ; (SB!C:DEFTRANSFORM SB!KERNEL:%COERCE-CALLABLE-TO-FUN ; ((SB!C::THING) (FUNCTION) *) ; "optimize away possible call to FDEFINITION at runtime" ; 'SB!C::THING) ; --> SB!C::%DEFTRANSFORM LAMBDA FUNCTION LET* MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL LET UNLESS COND 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!IMPL::BACKQ-LIST 'LAMBDA ; (SB!IMPL::BACKQ-CONS 'FUNCTION ; SB!C::ARG-NAMES) ; (SB!IMPL::BACKQ-LIST* ; 'SB!C::%FUNCALL ; (IF # 'FUNCTION '#) ; SB!C::ARG-NAMES)))) ; --> SB!C::%DEFTRANSFORM LAMBDA FUNCTION LET* MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL LET UNLESS COND IF PROGN ; ==> ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; 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: DEFTRANSFORM FUNCALL ; (SB!C::LVAR-TYPE FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; COMPILER-VALUES-SPECIFIER-TYPE CTRAN-DELETED-P CTRAN-HOME-LAMBDA-OR-NULL CTRAN-STARTS-BLOCK DERIVE-NODE-TYPE FIND-USES GIVE-UP-IR1-TRANSFORM LINK-BLOCKS LVAR-TYPE MAKE-CAST MAKE-LEXENV MAKE-RESTRICTED-LEXENV NODE-DEST START-BLOCK SUBSTITUTE-LEAF ; ; compilation unit finished ; caught 29 STYLE-WARNING conditions ; printed 4 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ir1-translators.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1util.lisp" (written 13 SEP 2006 04:59:33 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NODE-ENCLOSING-CLEANUP ...) ; compiling (DEFUN INSERT-CLEANUP-CODE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-USES ...) ; compiling (DEFUN PRINCIPAL-LVAR-USE ...) ; 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 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)) ; compiling (DEFUN NODE-BLOCK ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NODE-COMPONENT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NODE-PHYSENV ...) ; compiling (DECLAIM (INLINE NODE-DEST)) ; compiling (DEFUN NODE-DEST ...) ; compiling (DECLAIM (INLINE NODE-STACK-ALLOCATE-P)) ; compiling (DEFUN NODE-STACK-ALLOCATE-P ...) ; 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 NODE-SOURCE-FORM ...) ; compiling (DEFUN LVAR-SOURCE ...) ; compiling (DECLAIM (INLINE LVAR-USE)) ; compiling (DEFUN LVAR-USE ...) ; compiling (DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P)) ; 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 DELETE-REF ...) ; 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 (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 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 COMBINATION-FUN-SOURCE-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 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1util.lisp ; in: DEFUN INLINE-EXPANSION-OK ; (SB!C:COMPILER-NOTIFY "*INLINE-EXPANSION-LIMIT* (~W) was exceeded, ~ ; probably trying to~% ~ ; inline a recursive function." ; SB!EXT:*INLINE-EXPANSION-LIMIT*) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; 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 ; ; caught STYLE-WARNING: ; 1 more use of undefined function COMPILER-NOTIFY ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 CHANGE-REF-LEAF ; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::VLTYPE) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN NOTE-BLOCK-DELETION ; (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 EXTRACT-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: DEFFROB (BASIC CAREFUL COMPILER TRANSFORM) ; #'SB!C::GIVE-UP-IR1-TRANSFORM ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN EXTRACT-FUN-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; 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 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-DEST ; (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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; 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 ; ; compilation unit finished ; caught 32 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ir1util.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1report.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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 (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 (DEFMACRO 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1report.lisp ; in: DEFUN MAYBE-COMPILER-NOTIFY ; (SB!C::WITH-CONDITION (CONDITION (CAR REST) (CDR REST)) ; (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 (CAR REST) (CDR REST) ; '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 ; ; caught STYLE-WARNING: ; This function is undefined: ; COERCE-TO-CONDITION ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ir1report.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1opt.lisp" (written 02 OCT 2006 12:34:30 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN CONSTANT-LVAR-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LVAR-VALUE ...) ; compiling (DECLAIM (INLINE LVAR-DERIVED-TYPE)) ; compiling (DEFUN LVAR-DERIVED-TYPE ...) ; compiling (DEFUN %LVAR-DERIVED-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LVAR-TYPE ...) ; 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)) ; compiling (DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ...) ; compiling (DECLAIM (INLINE REOPTIMIZE-COMPONENT)) ; 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 IR1-OPTIMIZE-IF ...) ; compiling (DEFUN CONVERT-IF-IF ...) ; compiling (DEFUN MAYBE-DELETE-EXIT ...) ; compiling (DEFUN CHECK-IMPORTANT-RESULT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-OPTIMIZE-COMBINATION ...) ; 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 IR1-OPTIMIZE-CAST ...) ; compiling (DEFTRANSFORM MAKE-SYMBOL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; CONVERT-CALL-IF-POSSIBLE LOCALL-ANALYZE-COMPONENT MAYBE-CONVERT-TAIL-LOCAL-CALL MAYBE-LET-CONVERT MERGE-TAIL-SETS PROPAGATE-TO-ARGS REOPTIMIZE-CALL ; ; compilation unit finished ; caught 12 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ir1opt.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/loop.lisp" (written 14 JUL 2005 07:57:00 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/loop.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1final.lisp" (written 14 JUL 2005 07:56:59 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ir1final.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/array-tran.lisp" (written 19 NOV 2006 04:38:44 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP ...) ; compiling (DEFUN EXTRACT-UPGRADED-ELEMENT-TYPE ...) ; compiling (DEFUN EXTRACT-DECLARED-ELEMENT-TYPE ...) ; compiling (DEFUN ASSERT-NEW-VALUE-TYPE ...) ; compiling (DEFUN ASSERT-ARRAY-COMPLEX ...) ; compiling (DEFUN UNSUPPLIED-OR-NIL ...) ; compiling (DEFUN ASSERT-ARRAY-RANK ...) ; compiling (DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (AREF DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%ASET DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (HAIRY-DATA-VECTOR-REF DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (DATA-VECTOR-REF DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (DATA-VECTOR-SET DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (HAIRY-DATA-VECTOR-SET DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA 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 (DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (FILL-POINTER DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%SET-FILL-POINTER DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (VECTOR-PUSH DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (VECTOR-PUSH-EXTEND DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (VECTOR-POP DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM VECTOR ...) ; compiling (DEFTRANSFORM MAKE-STRING ...) ; compiling (DEFTRANSFORM MAKE-ARRAY ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/array-tran.lisp ; in: DEFTRANSFORM MAKE-ARRAY ; (SB!C::GIVE-UP-IR1-TRANSFORM "ELEMENT-TYPE not found in *SAETP*: ~S" ; SB!C::ELTYPE) ; ==> ; "ELEMENT-TYPE not found in *SAETP*: ~S" ; ; note: deleting unreachable code ; 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 (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 (DEFTRANSFORM %WITH-ARRAY-DATA ...) ; compiling (DEFINE-BIT-FROB SBIT ...) ; compiling (DEFINE-BIT-FROB BIT ...) ; compiling (DEFINE-FROB SVREF ...) ; compiling (DEFINE-FROB SCHAR ...) ; compiling (DEFINE-FROB CHAR ...) ; compiling (DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX ...) ; compiling (DEFTRANSFORM AREF ...) ; compiling (DEFTRANSFORM %ASET ...) ; 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) ...); ; compilation unit finished ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/array-tran.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/seqtran.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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 MEMBER) ; compiling (DEF MEMQ) ; compiling (DEF DELETE ...) ; compiling (DEF ASSOC ...) ; compiling (DEF MEMBER ...) ; compiling (DEFTRANSFORM DELETE-IF ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEFUN LVAR-FUN-IS ...) ; compiling (DEFUN CONSTANT-VALUE-OR-LOSE ...) ; compiling (DEF STRING< ...) ; compiling (DEF STRING> ...) ; compiling (DEF STRING<= ...) ; compiling (DEF STRING>= ...) ; compiling (DEF STRING= ...) ; compiling (DEF STRING/= ...) ; compiling (DEF STRING<* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/seqtran.lisp ; in: DEF (NAME LESSP EQUALP) ; 'SB!INT:INDEX ; ; note: deleting unreachable code ; 'CHAR> ; ; note: deleting unreachable code ; 'SB!C::END1 ; ; note: deleting unreachable code ; compiling (DEF STRING<=* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/seqtran.lisp ; in: DEF (NAME LESSP EQUALP) ; 'SB!INT:INDEX ; ; note: deleting unreachable code ; 'CHAR> ; ; note: deleting unreachable code ; compiling (DEF STRING>* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/seqtran.lisp ; in: DEF (NAME LESSP EQUALP) ; 'SB!INT:INDEX ; ; note: deleting unreachable code ; 'CHAR< ; ; note: deleting unreachable code ; 'SB!C::END1 ; ; note: deleting unreachable code ; compiling (DEF STRING>=* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/seqtran.lisp ; in: DEF (NAME LESSP EQUALP) ; 'SB!INT:INDEX ; ; note: deleting unreachable code ; 'CHAR< ; ; note: deleting unreachable code ; compiling (DEF STRING=* ...) ; compiling (DEF STRING/=* ...) ; compiling (DEF!CONSTANT VECTOR-DATA-BIT-OFFSET ...) ; compiling (DEFINE-REPLACE-TRANSFORMS) ; compiling (DEFINE-SUBSEQ-TRANSFORMS) ; compiling (DEFINE-COPY-SEQ-TRANSFORMS) ; compiling (DEFTRANSFORM SEARCH ...) ; compiling (DEFOPTIMIZER (CAR DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (CDR DERIVE-TYPE) ...) ; compiling (DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF ...) ; 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 (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 ...); ; compilation unit finished ; printed 10 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/seqtran.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/typetran.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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 (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...) ; compiling (!DEFINE-STANDARD-TYPE-PREDICATES) ; compiling (DEFINE-SOURCE-TRANSFORM ATOM ...) ; compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...) ; 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 (DEFINE-SOURCE-TRANSFORM TYPEP ...) ; compiling (DEFTRANSFORM COERCE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/typetran.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-typetran.lisp" (written 09 JAN 2006 10:46:14 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-BYTE-29-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-SIGNED-BYTE-30-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-T-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 (DEFINE-TYPE-PREDICATE %STANDARD-CHAR-P ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/vm-typetran.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/float-tran.lisp" (written 07 APR 2006 05:20:57 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 (DEFTRANSFORM RANDOM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/float-tran.lisp ; in: DEFTRANSFORM RANDOM ; 'SB!KERNEL:BIG-RANDOM-CHUNK ; ; note: deleting unreachable code ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/float-tran.lisp ; in: DEFTRANSFORM SCALE-FLOAT ; (SB!C::LVAR-TYPE SB!C::EX) ; ; note: deleting unreachable code ; '(COERCE (SB!KERNEL:%SCALBN (COERCE SB!C::F 'DOUBLE-FLOAT) SB!C::EX) ; 'SINGLE-FLOAT) ; ; note: deleting unreachable code ; compiling (DEFTRANSFORM SCALE-FLOAT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/float-tran.lisp ; in: DEFTRANSFORM SCALE-FLOAT ; (SB!C::LVAR-TYPE SB!C::EX) ; ; note: deleting unreachable code ; '(SB!KERNEL:%SCALBN SB!C::F SB!C::EX) ; ; note: deleting unreachable code ; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...) ; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...) ; compiling (DOLIST (X #) ...) ; compiling (DOLIST (X #) ...) ; 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 (DEFUN IMAGPART-DERIVE-TYPE-AUX ...) ; 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 TRUNCATE ...) ; compiling (DEFTRANSFORM FLOOR ...) ; compiling (DEFTRANSFORM CEILING ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...) ; compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 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). ; (= 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. ; (<= SB!C::BIASED 0) ; --> IF ; ==> ; (> SB!C::BIASED 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; can't tell whether the first argument is a FLOAT ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> IF ; ==> ; (< SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; can't tell whether the first argument is a FLOAT ; (- (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 FLOAT ; ; 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) ; (- 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) ; --> IF ; ==> ; (> SB!C::BIASED 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; can't tell whether the first argument is a FIXNUM ; unable to do inline fixnum comparison (cost 4) because: ; can't tell whether the first argument is a FIXNUM ; etc. ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> IF ; ==> ; (< SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; can't tell whether the first argument is a FIXNUM ; unable to do inline fixnum comparison (cost 4) because: ; can't tell whether the first argument is 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 safe inline fixnum arithmetic (cost 4) because: ; can't tell whether the second argument is a FIXNUM ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (ASH 1 SB!C::FRAC-BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) 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 (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &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!SYS:BITS (- (ASH 1 SB!C::FRAC-BITS) 1)) ; ; note: forced to do full call ; 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 -1), not a FIXNUM. ; The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The second argument is a (INTEGER -1), not a (SIGNED-BYTE 32). ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 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). ; (= 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. ; (<= SB!C::BIASED 0) ; --> IF ; ==> ; (> SB!C::BIASED 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; can't tell whether the first argument is a FLOAT ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> IF ; ==> ; (< SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; can't tell whether the first argument is a FLOAT ; (- (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 FLOAT ; ; 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::FRAC-BITS 32) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- 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) ; --> IF ; ==> ; (> SB!C::BIASED 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; can't tell whether the first argument is a FIXNUM ; unable to do inline fixnum comparison (cost 4) because: ; can't tell whether the first argument is a FIXNUM ; etc. ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> IF ; ==> ; (< SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; can't tell whether the first argument is a FIXNUM ; unable to do inline fixnum comparison (cost 4) because: ; can't tell whether the first argument is 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 safe inline fixnum arithmetic (cost 4) because: ; can't tell whether the second argument is a FIXNUM ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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. ; (ASH 1 SB!C::FRAC-BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) 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 (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &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::LOW (- (ASH 1 SB!C::FRAC-BITS) 1)) ; ; note: forced to do full call ; 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 (INTEGER -1), 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 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The second argument is a (INTEGER -1), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 32) &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 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 2) 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 (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &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)) ; ; note: forced to do full call ; 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 -1), not a FIXNUM. ; The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The second argument is a (INTEGER -1), 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 ; compiling (DEF SINGLE-FLOAT ...) ; compiling (DEF DOUBLE-FLOAT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: DEFUN %UNARY-FTRUNCATE/SINGLE ; (THE SB!KERNEL:SINGLE-FLOAT-EXPONENT (- EXP SB!VM:SINGLE-FLOAT-BIAS)) ; ; caught STYLE-WARNING: ; undefined type: SINGLE-FLOAT-EXPONENT ; ; caught STYLE-WARNING: ; These types are undefined: ; DOUBLE-FLOAT-EXPONENT SINGLE-FLOAT-EXPONENT ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 52 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/float-tran.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/saptran.lisp" (written 28 MAY 2006 03:35:44 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; 'SB!SYS:FOREIGN-SYMBOL-DATAREF-SAP ; ; note: deleting unreachable code ; compiling (DEFKNOWN (SAP< SAP<= ...) ...) ; compiling (DEFKNOWN SAP+ ...) ; compiling (DEFKNOWN SAP- ...) ; compiling (DEFKNOWN SAP-INT ...) ; compiling (DEFKNOWN INT-SAP ...) ; compiling (DEFKNOWN SAP-REF-8 ...) ; compiling (DEFKNOWN %SET-SAP-REF-8 ...) ; compiling (DEFKNOWN SAP-REF-16 ...) ; compiling (DEFKNOWN %SET-SAP-REF-16 ...) ; compiling (DEFKNOWN SAP-REF-32 ...) ; compiling (DEFKNOWN %SET-SAP-REF-32 ...) ; compiling (DEFKNOWN SAP-REF-64 ...) ; compiling (DEFKNOWN %SET-SAP-REF-64 ...) ; compiling (DEFKNOWN SAP-REF-WORD ...) ; compiling (DEFKNOWN %SET-SAP-REF-WORD ...) ; compiling (DEFKNOWN SIGNED-SAP-REF-8 ...) ; compiling (DEFKNOWN %SET-SIGNED-SAP-REF-8 ...) ; compiling (DEFKNOWN SIGNED-SAP-REF-16 ...) ; compiling (DEFKNOWN %SET-SIGNED-SAP-REF-16 ...) ; compiling (DEFKNOWN SIGNED-SAP-REF-32 ...) ; compiling (DEFKNOWN %SET-SIGNED-SAP-REF-32 ...) ; compiling (DEFKNOWN SIGNED-SAP-REF-64 ...) ; compiling (DEFKNOWN %SET-SIGNED-SAP-REF-64 ...) ; compiling (DEFKNOWN SIGNED-SAP-REF-WORD ...) ; compiling (DEFKNOWN %SET-SIGNED-SAP-REF-WORD ...) ; compiling (DEFKNOWN SAP-REF-SAP ...) ; compiling (DEFKNOWN %SET-SAP-REF-SAP ...) ; compiling (DEFKNOWN SAP-REF-SINGLE ...) ; compiling (DEFKNOWN SAP-REF-DOUBLE ...) ; compiling (DEFKNOWN %SET-SAP-REF-SINGLE ...) ; compiling (DEFKNOWN %SET-SAP-REF-DOUBLE ...) ; 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-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 ...); ; compilation unit finished ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/saptran.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/srctran.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-SOURCE-TRANSFORM NOT ...) ; compiling (DEFINE-SOURCE-TRANSFORM NULL ...) ; compiling (DEFINE-SOURCE-TRANSFORM ENDP ...) ; compiling (DEFINE-SOURCE-TRANSFORM IDENTITY ...) ; compiling (DEFINE-SOURCE-TRANSFORM VALUES ...) ; compiling (DEFINE-SOURCE-TRANSFORM CONSTANTLY ...) ; compiling (DEFTRANSFORM COMPLEMENT ...) ; 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 FIRST ...) ; compiling (DEFINE-SOURCE-TRANSFORM REST ...) ; 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 (DEFINE-SOURCE-TRANSFORM LIST* ...) ; compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...) ; compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...) ; compiling (DEFINE-SOURCE-TRANSFORM NTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM 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 (DEFMACRO SAFELY-BINOP ...) ; compiling (DEFMACRO BOUND-BINOP ...) ; 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) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFUN INTERVAL-DIV ...)(can't portably mask float traps, proceeding anyway) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFUN INTERVAL-FUNC ...) ; 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 (DEFUN MAKE-CANONICAL-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 (DEFUN INTEGER-TYPE-LENGTH ...) ; compiling (DEFUN LOGAND-DERIVE-UNSIGNED-LOW-BOUND ...) ; compiling (DEFUN LOGAND-DERIVE-UNSIGNED-HIGH-BOUND ...) ; compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...) ; compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-LOW-BOUND ...) ; compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-HIGH-BOUND ...) ; compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...) ; compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-LOW-BOUND ...) ; compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-HIGH-BOUND ...) ; 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) ...) ; compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ISQRT 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 MAKE-MODULAR-FUN-TYPE-DERIVER ...) ; compiling (DEFUN CUT-TO-WIDTH ...) ; compiling (DEFOPTIMIZER (LOGAND OPTIMIZER) ...) ; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER) ...) ; compiling (DEFTRANSFORM COMMUTATIVE-ARG-SWAP ...) ; compiling (DOLIST (X #) ...) ; compiling (DEFTRANSFORM BOOLE ...) ; compiling (DEFTRANSFORM * ...) ; compiling (FLET (#) ...) ; compiling (DEFTRANSFORM MOD ...) ; compiling (DEFTRANSFORM TRUNCATE ...) ; compiling (DEFTRANSFORM REM ...) ; compiling (DEF ASH ...) ; compiling (DEF LOGAND ...) ; compiling (DEF LOGAND ...) ; compiling (DEF LOGIOR ...) ; compiling (DEF LOGIOR ...) ; compiling (DEF LOGXOR ...) ; compiling (DEF LOGXOR ...) ; compiling (DEFTRANSFORM LOGAND ...) ; compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...) ; compiling (DEFTRANSFORM - ...) ; compiling (DEFTRANSFORM * ...) ; compiling (DEFUN NOT-MORE-CONTAGIOUS ...) ; compiling (DEFTRANSFORM + ...) ; compiling (DEFTRANSFORM - ...) ; compiling (DEF * ...) ; compiling (DEF / ...) ; compiling (DEF EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEF ASH) ; compiling (DEF /) ; compiling (DEF TRUNCATE) ; compiling (DEF ROUND) ; compiling (DEF FLOOR) ; compiling (DEF CEILING) ; compiling (DEFTRANSFORM 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 (DEFTRANSFORM EQL ...) ; compiling (DEFTRANSFORM EQUAL ...) ; compiling (DEFTRANSFORM = ...) ; compiling (DEFUN NUMERIC-TYPE-OR-LOSE ...) ; compiling (DEF < ...) ; compiling (DEF > ...) ; compiling (DEF <= ...) ; compiling (DEF >= ...) ; compiling (DEFUN IR1-TRANSFORM-CHAR< ...) ; compiling (DEFTRANSFORM CHAR< ...) ; compiling (DEFTRANSFORM CHAR> ...) ; compiling (DECLAIM (FTYPE # ...)) ; 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 (DECLAIM (FTYPE # ...)) ; compiling (DEFUN ASSOCIATE-ARGS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/srctran.lisp ; in: DEFUN ASSOCIATE-ARGS ; (DEFUN SB!C::ASSOCIATE-ARGS (FUNCTION SB!C::FIRST-ARG SB!C::MORE-ARGS) ; (LET ((SB!C::NEXT (REST SB!C::MORE-ARGS)) ; (SB!C::ARG (FIRST SB!C::MORE-ARGS))) ; (IF (NULL SB!C::NEXT) ; (SB!IMPL::BACKQ-LIST FUNCTION SB!C::FIRST-ARG SB!C::ARG) ; (SB!C::ASSOCIATE-ARGS FUNCTION ; (SB!IMPL::BACKQ-LIST FUNCTION SB!C::FIRST-ARG SB!C::ARG) ; SB!C::NEXT)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!C::ASSOCIATE-ARGS ; (FUNCTION SB!C::FIRST-ARG SB!C::MORE-ARGS) ; (BLOCK SB!C::ASSOCIATE-ARGS ; (LET ((SB!C::NEXT #) (SB!C::ARG #)) ; (IF (NULL SB!C::NEXT) ; (SB!IMPL::BACKQ-LIST FUNCTION SB!C::FIRST-ARG ; SB!C::ARG) ; (SB!C::ASSOCIATE-ARGS FUNCTION # ; SB!C::NEXT))))) ; ; note: type assertion too complex to check: ; (VALUES &OPTIONAL LIST &REST T). ; compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/srctran.lisp ; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE ; (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (FUNCTION SB!C::ARGS SB!C::INVERSE) ; (CASE (LENGTH SB!C::ARGS) ; ((0 2) (VALUES NIL T)) ; (1 (SB!IMPL::BACKQ-APPEND SB!C::INVERSE (SB!IMPL::BACKQ-LIST #))) ; (T (SB!C::ASSOCIATE-ARGS FUNCTION (FIRST SB!C::ARGS) (REST SB!C::ARGS))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (FUNCTION SB!C::ARGS SB!C::INVERSE) ; (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (CASE (LENGTH SB!C::ARGS) ; ((0 2) (VALUES NIL T)) ; (1 (SB!IMPL::BACKQ-APPEND SB!C::INVERSE #)) ; (T (SB!C::ASSOCIATE-ARGS FUNCTION # #))))) ; ; note: type assertion too complex to check: ; (VALUES LIST &OPTIONAL (MEMBER T NIL)). ; compiling (DEFINE-SOURCE-TRANSFORM - ...) ; compiling (DEFINE-SOURCE-TRANSFORM / ...) ; compiling (DEFINE-SOURCE-TRANSFORM APPLY ...) ; compiling (DEFUN CHECK-FORMAT-ARGS ...) ; compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...) ; compiling (DEFTRANSFORM FORMAT ...) ; 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 POLICY-QUALITY ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!FORMAT:%COMPILER-WALK-FORMAT-STRING FLOAT-INFINITY-P FLOAT-NAN-P ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; printed 4 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/srctran.lisp-obj-tmp written ; compilation finished in 0:00:09 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-tran.lisp" (written 13 SEP 2006 04:59:33 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 %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 (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFTRANSFORM DATA-VECTOR-SET ...) ; 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 (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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/vm-tran.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/locall.lisp" (written 28 MAY 2006 05:16:09 AM): ; 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 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 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 MAYBE-LET-CONVERT ...) ; compiling (DEFUN ONLY-HARMLESS-CLEANUPS ...) ; compiling (DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL ...) ; compiling (DEFUN MAYBE-CONVERT-TO-ASSIGNMENT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/locall.lisp ; in: DEFUN INSERT-LET-BODY ; (SB!C::JOIN-COMPONENTS SB!C:COMPONENT SB!C::CLAMBDA-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: JOIN-COMPONENTS ; ; caught STYLE-WARNING: ; This function is undefined: ; JOIN-COMPONENTS ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/locall.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/dfo.lisp" (written 14 JUL 2005 07:52:38 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/dfo.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/checkgen.lisp" (written 14 JUL 2005 07:52:37 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FUN-GUESSED-COST ...) ; compiling (DEFUN TYPE-TEST-COST ...) ; 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 (DEFUN MAKE-TYPE-CHECK-FORM ...) ; compiling (DEFUN CONVERT-TYPE-CHECK ...) ; compiling (DEFUN CAST-CHECK-USES ...) ; compiling (DEFUN GENERATE-TYPE-CHECKS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/checkgen.lisp ; in: DEFUN MAYBE-NEGATE-CHECK ; #'SB!C::TYPE-CHECK-TEMPLATE ; ; 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 ; ; caught STYLE-WARNING: ; This function is undefined: ; TYPE-CHECK-TEMPLATE ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/checkgen.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/constraint.lisp" (written 28 MAR 2006 10:59:07 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFTYPE CONSTRAINT-Y ...) ; compiling (DEFSTRUCT (CONSTRAINT # ...) ...) ; compiling (DEFVAR *CONSTRAINT-NUMBER*) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFUN FIND-CONSTRAINT ...) ; compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...) ; compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR)) ; compiling (DEFUN OK-REF-LAMBDA-VAR ...) ; compiling (DEFUN OK-LVAR-LAMBDA-VAR ...) ; compiling (DEFMACRO DO-EQL-VARS ...) ; compiling (DEFUN ADD-TEST-CONSTRAINT ...) ; compiling (DEFUN ADD-COMPLEMENT-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 CONSTRAIN-REF-TYPE ...) ; compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...) ; compiling (DEFUN INHERIT-CONSTRAINTS ...) ; compiling (DEFUN ADD-EQL-VAR-VAR-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 CONSTRAIN-NODE ...) ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/constraint.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/physenvanal.lisp" (written 11 SEP 2005 08:27:43 AM): ; 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 (DECLAIM (INLINE SHOULD-EXIT-CHECK-TAG-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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/physenvanal.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/tn.lisp" (written 14 JUL 2005 07:57:02 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 DROP-THRU-P ...) ; compiling (DEFUN INSERT-VOP-SEQUENCE ...) ; compiling (DEFUN DELETE-VOP ...) ; compiling (DEFUN MAKE-N-TNS ...) ; compiling (DEFUN LOCATION= ...) ; compiling (DEFUN TN-VALUE ...) ; compiling (DEFUN FORCE-TN-TO-STACK ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/tn.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/life.lisp" (written 20 SEP 2006 03:50:40 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN ADD-GLOBAL-CONFLICT ...) ; compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...) ; compiling (DEFUN RESET-CURRENT-CONFLICT ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; note: deleting unreachable code ; compiling (DEFEVENT COALESCE-MORE-LTN-NUMBERS ...) ; compiling (DEFUN LIFETIME-PRE-PASS ...) ; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICT ...) ; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS ...) ; compiling (DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS ...) ; compiling (DEFUN CONVERT-TO-ENVIRONMENT-TN ...) ; compiling (DEFUN PROPAGATE-LIVE-TNS ...) ; 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 LIFETIME-ANALYZE ...) ; compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...) ; compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...) ; compiling (DEFUN TNS-CONFLICT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; ADD-TO-EMIT-ORDER ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/life.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/debug-info.lisp" (written 18 SEP 2006 09:09:13 PM): ; compiling (IN-PACKAGE "SB!C") ; 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 (DEFCONSTANT-EQX COMPILED-DEBUG-BLOCK-NSUCC-BYTE ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-BLOCK-ELSEWHERE-P ...) ; compiling (DEFCONSTANT-EQX COMPILED-CODE-LOCATION-KIND-BYTE ...) ; compiling (DEFPARAMETER *COMPILED-CODE-LOCATION-KINDS* ...) ; compiling (DEF!STRUCT (DEBUG-FUN #)) ; compiling (DEF!STRUCT (COMPILED-DEBUG-FUN #) ...) ; compiling (DEF!STRUCT (DEBUG-SOURCE) ...) ; compiling (DEF!STRUCT DEBUG-INFO ...) ; compiling (DEF!STRUCT (COMPILED-DEBUG-INFO #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/debug-info.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/debug-dump.lisp" (written 18 SEP 2006 09:09:13 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 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 DUMP-BLOCK-SUCCESSORS ...) ; compiling (DEFUN COMPUTE-DEBUG-BLOCKS ...) ; compiling (DEFUN DEBUG-SOURCE-FOR-INFO ...) ; compiling (DEFUN COERCE-TO-SMALLEST-ELTYPE ...) ; compiling (DEFUN TN-SC-OFFSET ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/debug-dump.lisp ; in: DEFUN COMPUTE-DEBUG-BLOCKS ; (SB!C::LABEL-ELSEWHERE-P (SB!C::LOCATION-INFO-LABEL SB!C::LOC)) ; ; caught STYLE-WARNING: ; undefined function: LABEL-ELSEWHERE-P ; ; caught STYLE-WARNING: ; This function is undefined: ; LABEL-ELSEWHERE-P ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/debug-dump.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/utils.lisp" (written 14 JUL 2005 07:35:36 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN FIXNUMIZE ...) ; compiling (DEFUN STATIC-SYMBOL-P ...) ; compiling (DEFUN STATIC-SYMBOL-OFFSET ...) ; compiling (DEFUN OFFSET-STATIC-SYMBOL ...) ; compiling (DEFUN STATIC-FUN-OFFSET ...) ; compiling (DEFVAR *ADJUSTABLE-VECTORS* ...) ; compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/utils.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fopcompile.lisp" (written 29 OCT 2006 07:44:45 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FOPCOMPILABLE-P ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fopcompile.lisp ; in: DEFUN FOPCOMPILABLE-P ; (DEFUN SB!C::FOPCOMPILABLE-P (SB!KERNEL:FORM) NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!C::FOPCOMPILABLE-P (SB!KERNEL:FORM) ; (BLOCK SB!C::FOPCOMPILABLE-P NIL)) ; ; caught STYLE-WARNING: ; The variable FORM is defined but never used. ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fopcompile.lisp ; in: DEFUN CONSTANT-FOPCOMPILABLE-P ; (TYPEP SB!C::VALUE ; '(OR SB!KERNEL:UNBOXED-ARRAY SYMBOL NUMBER CHARACTER STRING)) ; --> LET OR LET TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:ONCE-ONLY-29 'SB!KERNEL:UNBOXED-ARRAY) ; ; caught STYLE-WARNING: ; undefined type: UNBOXED-ARRAY ; --> LET OR LET ; ==> ; (TYPEP #:ONCE-ONLY-29 'SB!KERNEL:UNBOXED-ARRAY) ; ; caught STYLE-WARNING: ; undefined type: UNBOXED-ARRAY ; ; caught STYLE-WARNING: ; undefined type: UNBOXED-ARRAY ; ; caught STYLE-WARNING: ; 5 more uses of undefined type UNBOXED-ARRAY ; ; caught STYLE-WARNING: ; This type is undefined: ; UNBOXED-ARRAY ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/fopcompile.lisp-obj-tmp written ; compilation finished in 0:00:00 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/assembly/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/assembly/assemfile.lisp" (written 22 AUG 2006 04:48:56 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-VOP ...) ; compiling (DEF!MACRO DEFINE-ASSEMBLY-ROUTINE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/assembly/assemfile.lisp ; in: DEFUN ASSEMBLE-FILE ; (SB!C::INIT-ASSEMBLER) ; ; caught STYLE-WARNING: ; undefined function: INIT-ASSEMBLER ; ; caught STYLE-WARNING: ; This function is undefined: ; INIT-ASSEMBLER ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/assembly/assemfile.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/late-vmdef.lisp" (written 14 JUL 2005 07:57:00 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NOTE-THIS-LOCATION ...) ; compiling (DEFUN NOTE-NEXT-INSTRUCTION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/late-vmdef.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fixup.lisp" (written 14 JUL 2005 07:52:38 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFSTRUCT (FIXUP # ...) ...) ; compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...) ; compiling (DEFVAR *FIXUP-NOTES*) ; compiling (DEFUN NOTE-FIXUP ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/fixup.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp" (written 21 FEB 2006 10:59:32 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN REG-TN-ENCODING ...) ; compiling (DEFUN FP-REG-TN-ENCODING ...) ; compiling (DEFVAR *DISASSEM-USE-LISP-REG-NAMES* ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE LOCATION-NUMBER ...) ; compiling (DEFPARAMETER REG-SYMBOLS ...) ; compiling (DEFUN MAYBE-ADD-NOTES ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...) ; compiling (DEFPARAMETER FLOAT-REG-SYMBOLS ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE FP-REG ...) ; compiling (DEFPARAMETER BO-KIND-NAMES ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE BO-FIELD ...) ; compiling (DEFUN VALID-BO-ENCODING ...) ; compiling (DEFPARAMETER CR-BIT-NAMES ...) ; compiling (DEFPARAMETER CR-BIT-INVERSE-NAMES ...) ; compiling (DEFPARAMETER CR-FIELD-NAMES ...) ; compiling (DEFUN VALID-CR-BIT-ENCODING ...) ; compiling (DEFUN VALID-CR-FIELD-ENCODING ...) ; compiling (DEFUN VALID-BI-ENCODING ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE BI-FIELD ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE CRF ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE RELATIVE-LABEL ...) ; compiling (DEFPARAMETER TRAP-VALUES-ALIST ...) ; compiling (DEFUN VALID-TCOND-ENCODING ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE TO-FIELD ...) ; compiling (DEFUN SNARF-ERROR-JUNK ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/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 COND IF COND IF COND IF PROGN PROG1 LET INCF LET* + ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN PROG1 LET LOGIOR LOGIOR LOGIOR LOGIOR ; --> AREF ; ==> ; VECTOR ; ; note: deleting unreachable code ; --> LET COND IF COND IF PROGN PROG1 LET INCF LET* + ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; --> LET COND IF COND IF PROGN PROG1 LET LOGIOR AREF ; ==> ; VECTOR ; ; note: deleting unreachable code ; --> LET COND IF PROGN INCF LET* + ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN PROG1 LET INCF LET* + ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN PROG1 LET LOGIOR LOGIOR LOGIOR LOGIOR ; --> AREF ; ==> ; VECTOR ; ; note: deleting unreachable code ; --> LET COND IF COND IF PROGN PROG1 LET INCF LET* + ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; --> LET COND IF COND IF PROGN PROG1 LET LOGIOR AREF ; ==> ; VECTOR ; ; note: deleting unreachable code ; --> LET COND IF PROGN INCF LET* + ; ==> ; SB!INT:INDEX ; ; 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) ; --> IF < ; ==> ; 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 EMIT-CONDITIONAL-BRANCH ...) ; compiling (DEFUN EMIT-I-FORM-BRANCH ...) ; compiling (DEFPARAMETER *SPR-NUMBERS-ALIST* ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SPR ...) ; compiling (DEFPARAMETER JUMP-PRINTER ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-SHORT ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-I-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-B-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-SC-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-D-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-X-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-XFX-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-XFL-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-XO-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-A-FORM-INST ...) ; compiling (DEFUN UNIMP-CONTROL ...) ; compiling (DEFINE-INSTRUCTION UNIMP ...) ; compiling (DEFINE-INSTRUCTION TWI ...) ; compiling (DEFINE-D-SI-INSTRUCTION MULLI ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFINE-D-SI-INSTRUCTION (NAME OP &KEY (FIXUP NIL) (COST 1) ...) ; (SB!C:FIXUP-OFFSET SB!VM::SI) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE ; ==> ; SB!VM::SI ; ; note: deleting unreachable code ; (SETQ SB!VM::SI (OR (SB!C:FIXUP-OFFSET SB!VM::SI) 0)) ; ; note: deleting unreachable code ; compiling (DEFINE-D-SI-INSTRUCTION SUBFIC ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFINE-D-SI-INSTRUCTION (NAME OP &KEY (FIXUP NIL) (COST 1) ...) ; (SB!C:FIXUP-OFFSET SB!VM::SI) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE ; ==> ; SB!VM::SI ; ; note: deleting unreachable code ; (SETQ SB!VM::SI (OR (SB!C:FIXUP-OFFSET SB!VM::SI) 0)) ; ; note: deleting unreachable code ; compiling (DEFINE-INSTRUCTION CMPLWI ...) ; compiling (DEFINE-INSTRUCTION CMPWI ...) ; compiling (DEFINE-D-SI-INSTRUCTION ADDIC ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFINE-D-SI-INSTRUCTION (NAME OP &KEY (FIXUP NIL) (COST 1) ...) ; (SB!C:FIXUP-OFFSET SB!VM::SI) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE ; ==> ; SB!VM::SI ; ; note: deleting unreachable code ; (SETQ SB!VM::SI (OR (SB!C:FIXUP-OFFSET SB!VM::SI) 0)) ; ; note: deleting unreachable code ; compiling (DEFINE-D-SI-INSTRUCTION ADDIC. ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFINE-D-SI-INSTRUCTION (NAME OP &KEY (FIXUP NIL) (COST 1) ...) ; (SB!C:FIXUP-OFFSET SB!VM::SI) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE ; ==> ; SB!VM::SI ; ; note: deleting unreachable code ; (SETQ SB!VM::SI (OR (SB!C:FIXUP-OFFSET SB!VM::SI) 0)) ; ; note: deleting unreachable code ; compiling (DEFINE-D-SI-INSTRUCTION ADDI ...) ; compiling (DEFINE-D-SI-INSTRUCTION ADDIS ...) ; compiling (DEFINE-INSTRUCTION BC ...) ; compiling (DEFINE-INSTRUCTION BCL ...) ; compiling (DEFINE-INSTRUCTION BCA ...) ; compiling (DEFINE-INSTRUCTION BCLA ...) ; compiling (DEFINE-INSTRUCTION BU ...) ; compiling (DEFINE-INSTRUCTION BT ...) ; compiling (DEFINE-INSTRUCTION BF ...) ; compiling (DEFINE-INSTRUCTION B? ...) ; compiling (DEFINE-INSTRUCTION SC ...) ; compiling (DEFINE-INSTRUCTION B ...) ; compiling (DEFINE-INSTRUCTION BA ...) ; compiling (DEFINE-INSTRUCTION BL ...) ; compiling (DEFINE-INSTRUCTION BLA ...) ; compiling (DEFINE-INSTRUCTION BLR ...) ; compiling (DEFINE-INSTRUCTION BCLR ...) ; compiling (DEFINE-INSTRUCTION BCLRL ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRNOR ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRANDC ...) ; compiling (DEFINE-INSTRUCTION ISYNC ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRXOR ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRNAND ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRAND ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CREQV ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRORC ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CROR ...) ; compiling (DEFINE-INSTRUCTION BCCTR ...) ; compiling (DEFINE-INSTRUCTION BCCTRL ...) ; compiling (DEFINE-INSTRUCTION BCTR ...) ; compiling (DEFINE-INSTRUCTION BCTRL ...) ; compiling (DEFINE-INSTRUCTION RLWIMI ...) ; compiling (DEFINE-INSTRUCTION RLWIMI. ...) ; compiling (DEFINE-INSTRUCTION RLWINM ...) ; compiling (DEFINE-INSTRUCTION RLWINM. ...) ; compiling (DEFINE-INSTRUCTION RLWNM ...) ; compiling (DEFINE-INSTRUCTION RLWNM. ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION ORI ...) ; compiling (DEFINE-INSTRUCTION NOP ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION ORIS ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION XORI ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION XORIS ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION ANDI. ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION ANDIS. ...) ; compiling (DEFINE-INSTRUCTION CMPW ...) ; compiling (DEFINE-INSTRUCTION TW ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS SUBFC ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS ADDC ...) ; compiling (DEFINE-2-XO-OE-INSTRUCTIONS MULHWU ...) ; compiling (DEFINE-INSTRUCTION MFCR ...) ; compiling (DEFINE-X-INSTRUCTION LWARX ...) ; compiling (DEFINE-X-INSTRUCTION LWZX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS SLW ...) ; compiling (DEFINE-2-X-10-INSTRUCTIONS CNTLZW ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS AND ...) ; compiling (DEFINE-INSTRUCTION CMPLW ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS SUBF ...) ; compiling (DEFINE-X-INSTRUCTION LWZUX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS ANDC ...) ; compiling (DEFINE-2-XO-OE-INSTRUCTIONS MULHW ...) ; compiling (DEFINE-X-INSTRUCTION LBZX ...) ; compiling (DEFINE-4-XO-A-INSTRUCTIONS NEG ...) ; compiling (DEFINE-X-INSTRUCTION LBZUX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS NOR ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS SUBFE ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBE ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBE. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBEO ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBEO. ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS ADDE ...) ; compiling (DEFINE-INSTRUCTION MTCRF ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STWCX. ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STWX ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STWUX ...) ; compiling (DEFINE-4-XO-A-INSTRUCTIONS SUBFZE ...) ; compiling (DEFINE-4-XO-A-INSTRUCTIONS ADDZE ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STBX ...) ; compiling (DEFINE-4-XO-A-INSTRUCTIONS SUBFME ...) ; compiling (DEFINE-4-XO-A-INSTRUCTIONS ADDME ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS MULLW ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STBUX ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS ADD ...) ; compiling (DEFINE-X-INSTRUCTION LHZX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS EQV ...) ; compiling (DEFINE-X-INSTRUCTION LHZUX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS XOR ...) ; compiling (DEFINE-INSTRUCTION MFMQ ...) ; compiling (DEFINE-INSTRUCTION MFXER ...) ; compiling (DEFINE-INSTRUCTION MFLR ...) ; compiling (DEFINE-INSTRUCTION MFCTR ...) ; compiling (DEFINE-X-INSTRUCTION LHAX ...) ; compiling (DEFINE-X-INSTRUCTION LHAUX ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STHX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS ORC ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STHUX ...) ; compiling (DEFINE-INSTRUCTION OR ...) ; compiling (DEFINE-INSTRUCTION OR. ...) ; compiling (DEFINE-INSTRUCTION-MACRO MR ...) ; compiling (DEFINE-INSTRUCTION-MACRO MR. ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS DIVWU ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS DIV ...) ; compiling (DEFINE-INSTRUCTION MTMQ ...) ; compiling (DEFINE-INSTRUCTION MTXER ...) ; compiling (DEFINE-INSTRUCTION MTLR ...) ; compiling (DEFINE-INSTRUCTION MTCTR ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS NAND ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS DIVW ...) ; compiling (DEFINE-INSTRUCTION MCRXR ...) ; compiling (DEFINE-INSTRUCTION LSWX ...) ; compiling (DEFINE-X-INSTRUCTION LWBRX ...) ; compiling (DEFINE-X-20-INSTRUCTION LFSX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS SRW ...) ; compiling (DEFINE-X-20-INSTRUCTION LFSUX ...) ; compiling (DEFINE-INSTRUCTION LSWI ...) ; compiling (DEFINE-INSTRUCTION SYNC ...) ; compiling (DEFINE-X-20-INSTRUCTION LFDX ...) ; compiling (DEFINE-X-20-INSTRUCTION LFDUX ...) ; compiling (DEFINE-INSTRUCTION STSWX ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STWBRX ...) ; compiling (DEFINE-X-23-ST-INSTRUCTION STFSX ...) ; compiling (DEFINE-X-23-ST-INSTRUCTION STFSUX ...) ; compiling (DEFINE-INSTRUCTION STSWI ...) ; compiling (DEFINE-X-23-ST-INSTRUCTION STFDX ...) ; compiling (DEFINE-X-23-ST-INSTRUCTION STFDUX ...) ; compiling (DEFINE-X-INSTRUCTION LHBRX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS SRAW ...) ; compiling (DEFINE-INSTRUCTION SRAWI ...) ; compiling (DEFINE-INSTRUCTION SRAWI. ...) ; compiling (DEFINE-INSTRUCTION EIEIO ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STHBRX ...) ; compiling (DEFINE-2-X-10-INSTRUCTIONS EXTSB ...) ; compiling (DEFINE-2-X-10-INSTRUCTIONS EXTSH ...) ; compiling (DEFINE-INSTRUCTION LWZ ...) ; compiling (DEFINE-D-INSTRUCTION LWZU ...) ; compiling (DEFINE-D-INSTRUCTION LBZ ...) ; compiling (DEFINE-D-INSTRUCTION LBZU ...) ; compiling (DEFINE-D-RS-INSTRUCTION STW ...) ; compiling (DEFINE-D-RS-INSTRUCTION STWU ...) ; compiling (DEFINE-D-RS-INSTRUCTION STB ...) ; compiling (DEFINE-D-RS-INSTRUCTION STBU ...) ; compiling (DEFINE-D-INSTRUCTION LHZ ...) ; compiling (DEFINE-D-INSTRUCTION LHZU ...) ; compiling (DEFINE-D-INSTRUCTION LHA ...) ; compiling (DEFINE-D-INSTRUCTION LHAU ...) ; compiling (DEFINE-D-RS-INSTRUCTION STH ...) ; compiling (DEFINE-D-RS-INSTRUCTION STHU ...) ; compiling (DEFINE-D-INSTRUCTION LMW ...) ; compiling (DEFINE-D-RS-INSTRUCTION STMW ...) ; compiling (DEFINE-D-FRT-INSTRUCTION LFS ...) ; compiling (DEFINE-D-FRT-INSTRUCTION LFSU ...) ; compiling (DEFINE-D-FRT-INSTRUCTION LFD ...) ; compiling (DEFINE-D-FRT-INSTRUCTION LFDU ...) ; compiling (DEFINE-D-FRS-INSTRUCTION STFS ...) ; compiling (DEFINE-D-FRS-INSTRUCTION STFSU ...) ; compiling (DEFINE-D-FRS-INSTRUCTION STFD ...) ; compiling (DEFINE-D-FRS-INSTRUCTION STFDU ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FDIVS ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FSUBS ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FADDS ...) ; compiling (DEFINE-2-A-TAC-INSTRUCTIONS FMULS ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FMSUBS ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FMADDS ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FNMSUBS ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FNMADDS ...) ; compiling (DEFINE-INSTRUCTION FCMPU ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FRSP ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FCTIW ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FCTIWZ ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FDIV ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FSUB ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FADD ...) ; compiling (DEFINE-2-A-TAC-INSTRUCTIONS FMUL ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FMSUB ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FMADD ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FNMSUB ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FNMADD ...) ; compiling (DEFINE-INSTRUCTION FCMPO ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FNEG ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FMR ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FNABS ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FABS ...) ; compiling (DEFINE-INSTRUCTION MFFS ...) ; compiling (DEFINE-INSTRUCTION MFFS. ...) ; compiling (DEFINE-INSTRUCTION MTFSF ...) ; compiling (DEFINE-INSTRUCTION MTFSF. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBIS ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUB ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUB. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBO ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBO. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBIC ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBIC. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBC ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBC. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBCO ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBCO. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBI ...) ; compiling (DEFINE-INSTRUCTION-MACRO LI ...) ; compiling (DEFINE-INSTRUCTION-MACRO LIS ...) ; compiling (DEFINE-INSTRUCTION-MACRO NOT ...) ; compiling (DEFINE-INSTRUCTION-MACRO NOT. ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE EMIT-NOP ...) ; compiling (DEFINE-INSTRUCTION-MACRO EXTLWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO EXTLWI. ...) ; compiling (DEFINE-INSTRUCTION-MACRO EXTRWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO EXTRWI. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SRWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO SRWI. ...) ; compiling (DEFINE-INSTRUCTION-MACRO CLRLWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO CLRLWI. ...) ; compiling (DEFINE-INSTRUCTION-MACRO CLRRWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO CLRRWI. ...) ; compiling (DEFINE-INSTRUCTION-MACRO INSLW ...) ; compiling (DEFINE-INSTRUCTION-MACRO INSLW. ...) ; compiling (DEFINE-INSTRUCTION-MACRO ROTLW ...) ; compiling (DEFINE-INSTRUCTION-MACRO ROTLW. ...) ; compiling (DEFINE-INSTRUCTION-MACRO ROTLWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO ROTRWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO SLWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO SLWI. ...) ; compiling (DEFINE-POSITIVE-CONDITIONAL-BRANCHES BEQ ...) ; compiling (DEFINE-POSITIVE-CONDITIONAL-BRANCHES BLT ...) ; compiling (DEFINE-POSITIVE-CONDITIONAL-BRANCHES BGT ...) ; compiling (DEFINE-POSITIVE-CONDITIONAL-BRANCHES BSO ...) ; compiling (DEFINE-POSITIVE-CONDITIONAL-BRANCHES BUN ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BNE ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BNL ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BGE ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BNG ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BLE ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BNS ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BNU ...) ; compiling (DEFINE-INSTRUCTION-MACRO J ...) ; compiling (DEFINE-INSTRUCTION-MACRO BLRL ...) ; compiling (DEFUN %LR ...) ; compiling (DEFINE-INSTRUCTION-MACRO LR ...) ; compiling (DEFINE-INSTRUCTION WORD ...) ; compiling (DEFINE-INSTRUCTION SHORT ...) ; compiling (DEFINE-INSTRUCTION BYTE ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-HEADER-OBJECT ...) ; compiling (DEFUN EMIT-HEADER-DATA ...) ; compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...) ; compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...) ; compiling (DEFUN EMIT-COMPUTE-INST ...) ; compiling (DEFINE-INSTRUCTION COMPUTE-CODE-FROM-LIP ...) ; compiling (DEFINE-INSTRUCTION COMPUTE-CODE-FROM-LRA ...) ; compiling (DEFINE-INSTRUCTION COMPUTE-LRA-FROM-CODE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFINE-INSTRUCTION COMPUTE-CODE-FROM-LRA ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFINE-INSTRUCTION COMPUTE-CODE-FROM-LIP ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFUN EMIT-HEADER-DATA ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; ; caught STYLE-WARNING: ; 1 more use of undefined function COMPONENT-HEADER-LENGTH ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; 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 UNIMP-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: DEFPARAMETER JUMP-PRINTER ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!ALIEN:ADDR T SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; in: LAMBDA NIL ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!ALIEN:ADDR T SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE FP-REG ; (SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF SB!VM::VALUE ; 'SB!VM::FLOAT-REGISTERS SB!VM::REGNAME SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF ; in: LAMBDA NIL ; (SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF SB!VM::VALUE 'SB!VM::REGISTERS ; SB!VM::REGNAME SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE REG ; (SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF SB!VM::VALUE 'SB!VM::REGISTERS ; SB!VM::REGNAME SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFUN MAYBE-ADD-NOTES ; (SB!DISASSEM:MAYBE-NOTE-NIL-INDEXED-OBJECT ; (SB-XC:LDB (SB-XC:BYTE 16 0) SB!ASSEM:INST) SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-NIL-INDEXED-OBJECT ; in: DEFUN UNIMP-CONTROL ; (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:NOTE ; in: DEFUN MAYBE-ADD-NOTES ; (SB!DISASSEM:NOTE-CODE-CONSTANT (SB-XC:LDB (SB-XC:BYTE 16 0) SB!ASSEM:INST) ; SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:NOTE-CODE-CONSTANT ; (SB!DISASSEM::SAP-REF-INT (SB!DISASSEM:DSTATE-SEGMENT-SAP SB!VM::DSTATE) ; (SB!DISASSEM:DSTATE-CUR-OFFS SB!VM::DSTATE) SB!VM:N-WORD-BYTES ; (SB!DISASSEM::DSTATE-BYTE-ORDER SB!VM::DSTATE)) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM::SAP-REF-INT ; in: DEFUN UNIMP-CONTROL ; (SB!VM::XINSTR-DATA SB!VM::CHUNK SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: XINSTR-DATA ; ; caught STYLE-WARNING: ; These functions are undefined: ; COMPONENT-HEADER-LENGTH COPY-UB8-FROM-SYSTEM-AREA SB!DISASSEM:HANDLE-BREAK-ARGS SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF SB!DISASSEM:MAYBE-NOTE-NIL-INDEXED-OBJECT SB!DISASSEM:NOTE SB!DISASSEM:NOTE-CODE-CONSTANT SB!DISASSEM::SAP-REF-INT XINSTR-DATA ; ; compilation unit finished ; caught 18 STYLE-WARNING conditions ; printed 32 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/insts.lisp-obj-tmp written ; compilation finished in 0:00:16 STYLE-WARNING: redefining VALID-BO-ENCODING in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/macros.lisp" (written 02 NOV 2006 03:35:13 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFMACRO MOVE ...) ; compiling (DEF LOADW ...) ; compiling (DEF STOREW ...) ; compiling (DEFMACRO LOAD-SYMBOL ...) ; compiling (FROB VALUE) ; compiling (FROB FUNCTION) ; compiling (DEFMACRO LOAD-TYPE ...) ; compiling (DEFMACRO LISP-JUMP ...) ; compiling (DEFMACRO LISP-RETURN ...) ; compiling (DEFMACRO EMIT-RETURN-PC ...) ; compiling (DEFMACRO LOAD-STACK-TN ...) ; compiling (DEFMACRO STORE-STACK-TN ...) ; compiling (DEFMACRO MAYBE-LOAD-STACK-TN ...) ; compiling (DEFMACRO ALLOCATION ...) ; compiling (DEFMACRO WITH-FIXED-ALLOCATION ...) ; compiling (DEFUN ALIGN-CSP ...) ; compiling (DEFUN EMIT-ERROR-BREAK ...) ; compiling (DEFMACRO ERROR-CALL ...) ; compiling (DEFMACRO CERROR-CALL ...) ; compiling (DEFMACRO GENERATE-ERROR-CODE ...) ; compiling (DEFMACRO GENERATE-CERROR-CODE ...) ; compiling (DEFMACRO PSEUDO-ATOMIC ...) ; compiling (DEFMACRO WITH-PINNED-OBJECTS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/macros.lisp-obj-tmp written ; compilation finished in 0:00:00 STYLE-WARNING: redefining EMIT-ERROR-BREAK in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/early-type-vops.lisp" (written 14 JUL 2005 07:35:35 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...) ; compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...) ; compiling (DEFUN CANONICALIZE-HEADERS ...) ; compiling (DEFMACRO TEST-TYPE ...); in: LAMBDA NIL ; (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 ; ==> ; SB!VM::HEADERS ; ; note: deleting unreachable code ; 'SB!VM::%TEST-FIXNUM-IMMEDIATE-AND-HEADERS ; ; note: deleting unreachable code ; 'SB!VM::%TEST-FIXNUM-AND-IMMEDIATE ; ; note: deleting unreachable code ; 'SB!VM::%TEST-IMMEDIATE-AND-HEADERS ; ; note: deleting unreachable code ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/early-type-vops.lisp ; in: DEFMACRO TEST-TYPE ; (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 ; ==> ; SB!VM::HEADERS ; ; note: deleting unreachable code ; 'SB!VM::%TEST-FIXNUM-IMMEDIATE-AND-HEADERS ; ; note: deleting unreachable code ; 'SB!VM::%TEST-FIXNUM-AND-IMMEDIATE ; ; note: deleting unreachable code ; 'SB!VM::%TEST-IMMEDIATE-AND-HEADERS ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 10 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/early-type-vops.lisp-obj-tmp written ; compilation finished in 0:00:01 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/assembly/target/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/assembly/target/support.lisp" (written 02 NOV 2006 03:35:12 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEF-VM-SUPPORT-ROUTINE GENERATE-CALL-SEQUENCE ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE GENERATE-RETURN-SEQUENCE ...) ; compiling (DEFUN RETURN-MACHINE-ADDRESS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/assembly/target/support.lisp ; in: DEFUN RETURN-MACHINE-ADDRESS ; (SB!VM::CONTEXT-LR SB!VM::SCP) ; ; caught STYLE-WARNING: ; undefined function: CONTEXT-LR ; (SB!SYS:SAP-INT (SB!VM::CONTEXT-LR SB!VM::SCP)) ; ==> ; (TRULY-THE SB!SYS:SAP-INT ; (SB-KERNEL:%INSTANCE-REF ; (THE SB!SYS:SYSTEM-AREA-POINTER (SB!VM::CONTEXT-LR SB!VM::SCP)) ; 1)) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; This function is undefined: ; CONTEXT-LR ; ; caught STYLE-WARNING: ; This type is undefined: ; SAP-INT ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/assembly/target/support.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/move.lisp" (written 21 FEB 2006 10:59:32 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 (LOAD-NUMBER-STACK 5) ...) ; compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...) ; compiling (DEFINE-MOVE-FUN (STORE-NUMBER-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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/move.lisp ; in: DEFINE-MOVE-FUN (STORE-NUMBER-STACK 5) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-MOVE-FUN (LOAD-NUMBER-STACK 5) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1) ; (SB!SYS:SAP-INT (SB!C:TN-VALUE SB!VM::X)) ; ==> ; (TRULY-THE SB!SYS:SAP-INT ; (SB-KERNEL:%INSTANCE-REF ; (THE SB!SYS:SYSTEM-AREA-POINTER (SB!C:TN-VALUE SB!VM::X)) 1)) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This type is undefined: ; SAP-INT ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/move.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/float.lisp" (written 04 JAN 2006 02:52:29 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 1) ...) ; compiling (DEFINE-MOVE-FUN (STORE-SINGLE 1) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...) ; compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...) ; compiling (FROB SINGLE-MOVE ...) ; compiling (FROB DOUBLE-MOVE ...) ; compiling (DEFINE-VOP (MOVE-FROM-FLOAT) ...) ; compiling (FROB MOVE-FROM-SINGLE ...) ; compiling (FROB MOVE-FROM-DOUBLE ...) ; compiling (FROB MOVE-TO-SINGLE ...) ; compiling (FROB MOVE-TO-DOUBLE ...) ; compiling (FROB MOVE-SINGLE-FLOAT-ARG ...) ; compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...) ; 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 4) ...) ; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 4) ...) ; compiling (DEFINE-VOP (COMPLEX-SINGLE-MOVE) ...) ; compiling (DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE ...) ; compiling (DEFINE-VOP (COMPLEX-DOUBLE-MOVE) ...) ; compiling (DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE ...) ; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...) ; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...) ; compiling (DEFINE-VOP (MOVE-TO-COMPLEX-SINGLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-SINGLE ...) ; compiling (DEFINE-VOP (MOVE-TO-COMPLEX-DOUBLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-DOUBLE ...) ; compiling (DEFINE-VOP (MOVE-COMPLEX-SINGLE-FLOAT-ARG) ...) ; compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-SINGLE-FLOAT-ARG ...) ; compiling (DEFINE-VOP (MOVE-COMPLEX-DOUBLE-FLOAT-ARG) ...) ; compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...) ; compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; compiling (DEFINE-VOP (FLOAT-OP) ...) ; compiling (FROB SINGLE-FLOAT-OP ...) ; compiling (FROB DOUBLE-FLOAT-OP ...) ; 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-COMPARE) ...) ; compiling (FROB SINGLE-FLOAT-COMPARE ...) ; compiling (FROB DOUBLE-FLOAT-COMPARE ...) ; compiling (FROB < ...) ; compiling (FROB > ...) ; compiling (FROB = ...) ; 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 ...) ; compiling (FROB %UNARY-TRUNCATE ...) ; compiling (FROB %UNARY-ROUND ...) ; compiling (FROB %UNARY-ROUND ...) ; compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT) ...) ; 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 (DEFINE-VOP (FLOATING-POINT-MODES) ...) ; compiling (DEFINE-VOP (SET-FLOATING-POINT-MODES) ...) ; compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (COMPLEX-SINGLE-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (COMPLEX-DOUBLE-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/float.lisp ; in: DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-MOVE-FUN (STORE-SINGLE 1) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-MOVE-FUN (LOAD-SINGLE 1) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; 24 more uses of undefined function CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/float.lisp-obj-tmp written ; compilation finished in 0:00:07 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/sap.lisp" (written 14 JUL 2005 07:48:33 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) ...) ; 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+-C) ...) ; compiling (DEFINE-VOP (POINTER-) ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-8 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-16 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-32 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SAP ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SINGLE ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-DOUBLE ...) ; compiling (DEFINE-VOP (VECTOR-SAP) ...) ; compiling (DEFTRANSFORM SAP-REF-64 ...) ; compiling (DEFTRANSFORM SIGNED-SAP-REF-64 ...) ; compiling (DEFTRANSFORM %SET-SAP-REF-64 ...) ; compiling (DEFTRANSFORM %SET-SIGNED-SAP-REF-64 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/sap.lisp-obj-tmp written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/system.lisp" (written 26 JUL 2005 07:51:44 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 (MAKE-FIXNUM) ...) ; compiling (DEFINE-VOP (MAKE-OTHER-IMMEDIATE-TYPE) ...) ; compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...) ; compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...) ; compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...) ; compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...) ; compiling (DEFINE-VOP (COMPUTE-FUN) ...) ; compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...) ; compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...) ; compiling (DEFINE-VOP (HALT) ...) ; compiling (DEFINE-VOP (COUNT-ME) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/system.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/char.lisp" (written 14 JUL 2005 07:48:32 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) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/char.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/memory.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (CELL-REF) ...) ; compiling (DEFINE-VOP (CELL-SET) ...) ; compiling (DEFINE-VOP (SLOT-REF) ...) ; compiling (DEFINE-VOP (SLOT-SET) ...) ; compiling (DEFMACRO DEFINE-INDEXER ...) ; compiling (DEFINE-INDEXER WORD-INDEX-REF ...) ; compiling (DEFINE-INDEXER WORD-INDEX-SET ...) ; compiling (DEFINE-INDEXER HALFWORD-INDEX-REF ...) ; compiling (DEFINE-INDEXER SIGNED-HALFWORD-INDEX-REF ...) ; compiling (DEFINE-INDEXER HALFWORD-INDEX-SET ...) ; compiling (DEFINE-INDEXER BYTE-INDEX-REF ...) ; compiling (DEFINE-INDEXER SIGNED-BYTE-INDEX-REF ...) ; compiling (DEFINE-INDEXER BYTE-INDEX-SET ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/memory.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/static-fn.lisp" (written 14 JUL 2005 07:48:33 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 (FROB 4 ...) ; compiling (DEFMACRO DEFINE-STATIC-FUN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/static-fn.lisp ; in: DEFUN STATIC-FUN-TEMPLATE-VOP ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; 2 more uses of undefined function CURRENT-NFP-TN ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/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 LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 SB!VM::MOVE-TEMP ; SB!VM::TEMP SB!VM::LRA-LABEL) ; ; 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 LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 SB!VM::MOVE-TEMP ; SB!VM::TEMP SB!VM::LRA-LABEL) ; ; 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 LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 SB!VM::MOVE-TEMP ; SB!VM::TEMP SB!VM::LRA-LABEL) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-UNKNOWN-VALUES ; ; caught STYLE-WARNING: ; 2 more uses of undefined function DEFAULT-UNKNOWN-VALUES ; ; caught STYLE-WARNING: ; These functions are undefined: ; CURRENT-NFP-TN DEFAULT-UNKNOWN-VALUES ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/static-fn.lisp-obj-tmp written ; compilation finished in 0:00:02 STYLE-WARNING: redefining STATIC-FUN-TEMPLATE-NAME in DEFUN STYLE-WARNING: redefining MOVES in DEFUN STYLE-WARNING: redefining STATIC-FUN-TEMPLATE-VOP in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/arith.lisp" (written 06 JUN 2006 03:42:51 AM): ; 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-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-FIXNUM-BINOP30-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-FIXNUM-LOGOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-FIXNUM-LOGOP30-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP32-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-SIGNED-BINOP32-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-UNSIGNED-LOGOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-UNSIGNED-LOGOP32-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-SIGNED-LOGOP32-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-SIGNED-LOGOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFMACRO !DEFINE-VAR-BINOP ...) ; compiling (DEFMACRO !DEFINE-CONST-BINOP ...) ; compiling (DEFMACRO !DEFINE-CONST-LOGOP ...) ; compiling (!DEFINE-VAR-BINOP + ...) ; compiling (!DEFINE-VAR-BINOP - ...) ; compiling (!DEFINE-VAR-BINOP LOGAND ...) ; compiling (!DEFINE-VAR-BINOP LOGANDC1 ...) ; compiling (!DEFINE-VAR-BINOP LOGANDC2 ...) ; compiling (!DEFINE-VAR-BINOP LOGIOR ...) ; compiling (!DEFINE-VAR-BINOP LOGORC1 ...) ; compiling (!DEFINE-VAR-BINOP LOGORC2 ...) ; compiling (!DEFINE-VAR-BINOP LOGXOR ...) ; compiling (!DEFINE-VAR-BINOP LOGEQV ...) ; compiling (!DEFINE-VAR-BINOP LOGNAND ...) ; compiling (!DEFINE-VAR-BINOP LOGNOR ...) ; compiling (!DEFINE-CONST-BINOP + ...) ; compiling (!DEFINE-CONST-BINOP - ...) ; compiling (!DEFINE-CONST-LOGOP LOGAND ...) ; compiling (!DEFINE-CONST-LOGOP LOGIOR ...) ; compiling (!DEFINE-CONST-LOGOP LOGXOR ...) ; compiling (DEFINE-VOP (+/FIXNUM FAST-+/FIXNUM=>FIXNUM) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/arith.lisp ; in: DEFINE-VOP (+/FIXNUM FAST-+/FIXNUM=>FIXNUM) ; (SB!C:DEFINE-VOP (SB!VM::+/FIXNUM SB!VM::FAST-+/FIXNUM=>FIXNUM) ; (:POLICY :SAFE) ; (:RESULTS ; (SB!VM::R :SCS (SB!VM::ANY-REG SB!VM::DESCRIPTOR-REG))) ; (:RESULT-TYPES SB!VM::TAGGED-NUM) ; (:NOTE "safe inline fixnum arithmetic") ; (:GENERATOR 4 ; (LET* ((SB!VM::NO-OVERFLOW #)) ; (SB!ASSEM:INST SB!VM::MTXER SB!VM::ZERO-TN) ; (SB!ASSEM:INST SB!VM::ADDO. SB!VM::R SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::BNS SB!VM::NO-OVERFLOW) ; (SB!ASSEM:INST SB!VM::UNIMP ; (LOGIOR # ; SB!VM::FIXNUM-ADDITIVE-OVERFLOW-TRAP)) ; (SB!ASSEM:EMIT-LABEL SB!VM::NO-OVERFLOW)))) ; ; caught WARNING: ; Result R to VOP +/FIXNUM ; has SC restriction DESCRIPTOR-REG which is not allowed by the operand type: ; (:OR POSITIVE-FIXNUM FIXNUM) ; compiling (DEFINE-VOP (-/FIXNUM FAST--/FIXNUM=>FIXNUM) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/arith.lisp ; in: DEFINE-VOP (-/FIXNUM FAST--/FIXNUM=>FIXNUM) ; (SB!C:DEFINE-VOP (SB!VM::-/FIXNUM SB!VM::FAST--/FIXNUM=>FIXNUM) ; (:POLICY :SAFE) ; (:RESULTS ; (SB!VM::R :SCS (SB!VM::ANY-REG SB!VM::DESCRIPTOR-REG))) ; (:RESULT-TYPES SB!VM::TAGGED-NUM) ; (:NOTE "safe inline fixnum arithmetic") ; (:GENERATOR 4 ; (LET* ((SB!VM::NO-OVERFLOW #)) ; (SB!ASSEM:INST SB!VM::MTXER SB!VM::ZERO-TN) ; (SB!ASSEM:INST SB!VM::SUBO. SB!VM::R SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::BNS SB!VM::NO-OVERFLOW) ; (SB!ASSEM:INST SB!VM::UNIMP ; (LOGIOR # ; SB!VM::FIXNUM-ADDITIVE-OVERFLOW-TRAP)) ; (SB!ASSEM:EMIT-LABEL SB!VM::NO-OVERFLOW)))) ; ; caught WARNING: ; Result R to VOP -/FIXNUM ; has SC restriction DESCRIPTOR-REG which is not allowed by the operand type: ; (:OR POSITIVE-FIXNUM FIXNUM) ; compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP) ...) ; compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP-C) ...) ; compiling (DEFINE-VOP (FAST-*-BIGC/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP-C) ...) ; compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SIGNED-BINOP) ...) ; compiling (DEFINE-VOP (FAST-*-C/SIGNED=>SIGNED FAST-SIGNED-BINOP-C) ...) ; compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-UNSIGNED-BINOP) ...) ; compiling (DEFINE-VOP (FAST-*-C/UNSIGNED=>UNSIGNED FAST-UNSIGNED-BINOP-C) ...) ; compiling (DEF FAST-ASH-LEFT/FIXNUM=>FIXNUM ...) ; compiling (DEF FAST-ASH-LEFT/SIGNED=>SIGNED ...) ; compiling (DEF FAST-ASH-LEFT/UNSIGNED=>UNSIGNED ...) ; compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED) ...) ; compiling (DEFINE-VOP (SIGNED-BYTE-32-LEN) ...) ; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-LEN) ...) ; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-COUNT) ...) ; compiling (DEFKNOWN %%LDB ...) ; compiling (DEFUN %%LDB ...) ; compiling (DEFINE-VOP (LDB-C/FIXNUM) ...) ; compiling (DEFINE-VOP (LDB-C/SIGNED) ...) ; compiling (DEFINE-VOP (LDB-C/UNSIGNED) ...) ; compiling (DEFINE-MODULAR-FUN LOGNOT-MOD32 ...) ; compiling (DEFINE-VOP (LOGNOT-MOD32/UNSIGNED=>UNSIGNED) ...) ; 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-MODULAR-BACKEND + ...) ; compiling (DEFINE-MODULAR-BACKEND - ...) ; compiling (DEFINE-MODULAR-BACKEND * ...) ; compiling (DEFINE-MODULAR-BACKEND LOGXOR ...) ; compiling (DEFINE-MODULAR-BACKEND LOGEQV) ; compiling (DEFINE-MODULAR-BACKEND LOGNAND) ; compiling (DEFINE-MODULAR-BACKEND LOGNOR) ; compiling (DEFINE-MODULAR-BACKEND LOGANDC1) ; compiling (DEFINE-MODULAR-BACKEND LOGANDC2) ; compiling (DEFINE-MODULAR-BACKEND LOGORC1) ; compiling (DEFINE-MODULAR-BACKEND LOGORC2) ; 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-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF-/FIXNUM FAST-CONDITIONAL/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-IF->-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-IF->/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF->-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF->/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF->-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...) ; 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/arith.lisp ; in: DEFINE-VOP (FAST-EQL/FIXNUM FAST-CONDITIONAL) ; (SB!C:DEFINE-VOP (SB!VM::FAST-EQL/FIXNUM SB!VM::FAST-CONDITIONAL) ; (:ARGS ; (SB!VM::X :SCS ; (SB!VM::ANY-REG SB!VM::DESCRIPTOR-REG SB!VM::ZERO)) ; (SB!VM::Y :SCS (SB!VM::ANY-REG SB!VM::ZERO))) ; (:ARG-TYPES SB!VM::TAGGED-NUM SB!VM::TAGGED-NUM) ; (:NOTE "inline fixnum comparison") (:TRANSLATE EQL) ; (:GENERATOR 4 (SB!ASSEM:INST SB!VM::CMPW SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::B? (IF SB!VM::NOT-P :NE :EQ) ; SB!VM::TARGET))) ; ; caught WARNING: ; Argument X to VOP FAST-EQL/FIXNUM ; has SC restriction DESCRIPTOR-REG which is not allowed by the operand type: ; (:OR POSITIVE-FIXNUM FIXNUM) ; compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/arith.lisp ; in: DEFINE-VOP (FAST-EQL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ; (SB!C:DEFINE-VOP (SB!VM::FAST-EQL-C/FIXNUM SB!VM::FAST-CONDITIONAL/FIXNUM) ; (:ARGS ; (SB!VM::X :SCS ; (SB!VM::ANY-REG SB!VM::DESCRIPTOR-REG SB!VM::ZERO))) ; (:ARG-TYPES SB!VM::TAGGED-NUM (:CONSTANT (SIGNED-BYTE 14))) ; (:INFO SB!VM::TARGET SB!VM::NOT-P SB!VM::Y) (:TRANSLATE EQL) ; (:GENERATOR 2 ; (SB!ASSEM:INST SB!VM::CMPWI SB!VM::X ; (SB!VM:FIXNUMIZE SB!VM::Y)) ; (SB!ASSEM:INST SB!VM::B? (IF SB!VM::NOT-P :NE :EQ) ; SB!VM::TARGET))) ; ; caught WARNING: ; Argument X to VOP FAST-EQL-C/FIXNUM ; has SC restriction DESCRIPTOR-REG which is not allowed by the operand type: ; (:OR POSITIVE-FIXNUM FIXNUM) ; compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...) ; compiling (DEFINE-VOP (MERGE-BITS) ...) ; 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 (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...) ; compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...) ; compiling (DEFINE-VOP (BIGNUM-REF WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (BIGNUM-SET WORD-INDEX-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 (BIGNUM-LOGNOT LOGNOT-MOD32/UNSIGNED=>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-LSHR DIGIT-ASHR) ...) ; compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-+ ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-- ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-* ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-< ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-<= ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-> ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG->= ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-= ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-/= ...) ; compiling (DEFINE-STATIC-FUN %NEGATE ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-EQV ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFTRANSFORM * ...); ; compilation unit finished ; caught 4 WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/arith.lisp-obj-tmp written ; compilation finished in 0:00:12 WARNING: ignoring FAILURE-P return value from compilation of "src/compiler/target/arith.lisp" ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cross-modular.lisp" (written 09 APR 2005 07:37:04 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN MASK-SIGNED-FIELD ...) ; compiling (DEFUN SB!VM::LOGNOT-MOD32 ...) ; compiling (DEFUN SB!VM::+-MOD32 ...) ; compiling (DEFUN SB!VM::--MOD32 ...) ; compiling (DEFUN SB!VM::*-MOD32 ...) ; compiling (DEFUN SB!VM::LOGXOR-MOD32 ...) ; compiling (DEFUN SB!VM::LOGEQV-MOD32 ...) ; compiling (DEFUN SB!VM::LOGNAND-MOD32 ...) ; compiling (DEFUN SB!VM::LOGNOR-MOD32 ...) ; compiling (DEFUN SB!VM::LOGANDC1-MOD32 ...) ; compiling (DEFUN SB!VM::LOGANDC2-MOD32 ...) ; compiling (DEFUN SB!VM::LOGORC1-MOD32 ...) ; compiling (DEFUN SB!VM::LOGORC2-MOD32 ...) ; compiling (DEFUN SB!VM::ASH-LEFT-MOD32 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cross-modular.lisp-obj-tmp written ; compilation finished in 0:00:00 STYLE-WARNING: redefining MASK-SIGNED-FIELD in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/subprim.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (LENGTH/LIST) ...) ; compiling (DEFINE-STATIC-FUN LENGTH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/subprim.lisp ; in: DEFINE-VOP (LENGTH/LIST) ; (SB!VM::TEST-TYPE SB!VM::PTR SB!VM::NOT-LIST T (SB!VM:LIST-POINTER-LOWTAG) ; :TEMP SB!VM::TEMP) ; ==> ; (SB!VM::%TEST-LOWTAG SB!VM::PTR SB!VM::NOT-LIST T 3 :TEMP SB!VM::TEMP) ; ; caught STYLE-WARNING: ; undefined function: %TEST-LOWTAG ; ; caught STYLE-WARNING: ; This function is undefined: ; %TEST-LOWTAG ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/subprim.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/debug.lisp" (written 14 JUL 2005 07:48:33 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 (WRITE-CONTROL-STACK) ...) ; compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...) ; compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...) ; compiling (DEFINE-VOP (CODE-FROM-FUN CODE-FROM-MUMBLE) ...) ; compiling (DEFINE-VOP (MAKE-LISP-OBJ) ...) ; compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...) ; compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/debug.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/early-aliencomp.lisp" (written 16 JAN 2006 02:45:46 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %ALIEN-FUNCALL ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/early-aliencomp.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/c-call.lisp" (written 28 NOV 2006 01:34:16 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFCONSTANT +STACK-ALIGNMENT-BYTES+ ...) ; compiling (DEFUN MY-MAKE-WIRED-TN ...) ; compiling (DEFSTRUCT ARG-STATE ...) ; compiling (DEFUN INT-ARG ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...) ; compiling (DEFSTRUCT RESULT-STATE ...) ; compiling (DEFUN RESULT-REG-OFFSET ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-CALL-OUT-TNS ...) ; compiling (DEFTRANSFORM %ALIEN-FUNCALL ...) ; compiling (DEFINE-VOP (FOREIGN-SYMBOL-SAP) ...) ; compiling (DEFINE-VOP (FOREIGN-SYMBOL-DATAREF-SAP) ...) ; compiling (DEFINE-VOP (CALL-OUT) ...) ; compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...) ; compiling (DEFINE-VOP (DEALLOC-NUMBER-STACK-SPACE) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/c-call.lisp ; in: DEFINE-VOP (CALL-OUT) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/c-call.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/cell.lisp" (written 06 OCT 2006 12:44:20 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (SLOT) ...) ; compiling (DEFINE-VOP (SET-SLOT) ...) ; compiling (DEFINE-VOP (SET CELL-SET) ...) ; compiling (DEFINE-VOP (CHECKED-CELL-REF) ...) ; compiling (DEFINE-VOP (SYMBOL-VALUE CHECKED-CELL-REF) ...) ; compiling (DEFINE-VOP (BOUNDP-FROB) ...) ; compiling (DEFINE-VOP (BOUNDP BOUNDP-FROB) ...) ; compiling (DEFINE-VOP (FAST-SYMBOL-VALUE CELL-REF) ...) ; 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-VOP (CLOSURE-INDEX-REF WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (FUNCALLABLE-INSTANCE-INFO WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (SET-FUNCALLABLE-INSTANCE-INFO WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...) ; compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...) ; compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...) ; compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...) ; compiling (DEFINE-VOP (INSTANCE-LENGTH) ...) ; compiling (DEFINE-VOP (INSTANCE-INDEX-REF WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (INSTANCE-INDEX-SET WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (CODE-HEADER-REF WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (CODE-HEADER-SET WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-DOUBLE) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/cell.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/values.lisp" (written 14 JUL 2005 07:48:33 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/values.lisp ; in: DEFINE-VOP (VALUES-LIST) ; (SB!VM::TEST-TYPE LIST LOOP NIL (SB!VM:LIST-POINTER-LOWTAG) :TEMP ; SB!VM::NDESCR) ; ==> ; (SB!VM::%TEST-LOWTAG LIST LOOP NIL 3 :TEMP SB!VM::NDESCR) ; ; caught STYLE-WARNING: ; undefined function: %TEST-LOWTAG ; ; caught STYLE-WARNING: ; This function is undefined: ; %TEST-LOWTAG ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/values.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/alloc.lisp" (written 06 OCT 2006 11:54:15 AM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...) ; compiling (DEFINE-VOP (LIST-OR-LIST*) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/alloc.lisp ; in: DEFINE-VOP (LIST-OR-LIST*) ; (SB!VM::ALLOCATION SB!VM::RES SB!VM::ALLOC SB!VM:LIST-POINTER-LOWTAG :TEMP-TN ; SB!VM::ALLOC-TEMP :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF COND IF PROGN SB!C:MOVE LET ; ==> ; SB!VM::ALLOC-TEMP ; ; note: deleting unreachable code ; --> LET COND IF COND IF PROGN SB!C:MOVE LET LET ; ==> ; SB!VM::ALLOC ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...) ; compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...) ; compiling (DEFINE-VOP (ALLOCATE-CODE-OBJECT) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/alloc.lisp ; in: DEFINE-VOP (ALLOCATE-CODE-OBJECT) ; (SB!VM::ALLOCATION SB!VM::RESULT SB!VM::SIZE SB!VM:OTHER-POINTER-LOWTAG ; :TEMP-TN SB!VM::NDESCR :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::%LR ; ==> ; SB!VM::NDESCR ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (MAKE-FDEFN) ...) ; compiling (DEFINE-VOP (MAKE-CLOSURE) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/alloc.lisp ; in: DEFINE-VOP (MAKE-CLOSURE) ; (SB!VM::ALLOCATION SB!VM::RESULT (SB!VM:PAD-DATA-BLOCK SB!VM::SIZE) ; SB!VM:FUN-POINTER-LOWTAG :TEMP-TN SB!VM::TEMP :FLAG-TN ; SB!VM::PA-FLAG) ; --> LET COND IF COND IF PROGN SB!C:MOVE LET ; ==> ; SB!VM::TEMP ; ; note: deleting unreachable code ; (SB!VM:PAD-DATA-BLOCK SB!VM::SIZE) ; --> LOGANDC2 + ASH ; ==> ; SB!VM::SIZE ; ; note: deleting unreachable code ; 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/alloc.lisp ; in: DEFINE-VOP (VAR-ALLOC) ; (SB!VM::ALLOCATION SB!VM::RESULT SB!SYS:BYTES SB!VM::LOWTAG :TEMP-TN ; SB!VM::TEMP :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::%LR ; ==> ; SB!VM::TEMP ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 6 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/alloc.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/call.lisp" (written 02 NOV 2006 03:35:13 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEF-VM-SUPPORT-ROUTINE STANDARD-ARG-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-OLD-FP-PASSING-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-OLD-FP-SAVE-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-SAVE-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-ARG-COUNT-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-NFP-TN ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-STACK-POINTER-TN ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-NUMBER-STACK-POINTER-TN ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-UNKNOWN-VALUES-LOCATIONS ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE SELECT-COMPONENT-FORMAT ...) ; compiling (DEFUN BYTES-NEEDED-FOR-NON-DESCRIPTOR-STACK-FRAME ...) ; compiling (DEFINE-VOP (CURRENT-FP) ...) ; compiling (DEFINE-VOP (COMPUTE-OLD-NFP) ...) ; compiling (DEFINE-VOP (XEP-ALLOCATE-FRAME) ...) ; 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 (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 (DEFMACRO DEFINE-FULL-CALL ...) ; 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-ENVIRONMENT) ...) ; compiling (DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT) ...) ; compiling (DEFINE-VOP (COPY-MORE-ARG) ...) ; compiling (DEFINE-VOP (MORE-ARG WORD-INDEX-REF) ...) ; compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...) ; compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/call.lisp ; in: DEFINE-VOP (LISTIFY-REST-ARGS) ; (SB!VM::ALLOCATION SB!VM::RESULT SB!VM::TEMP SB!VM:LIST-POINTER-LOWTAG ; :TEMP-TN SB!VM::DST :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::%LR ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...) ; compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...) ; compiling (FROB ARG-COUNT-ERROR ...) ; compiling (FROB TYPE-CHECK-ERROR ...) ; compiling (FROB LAYOUT-INVALID-ERROR ...) ; compiling (FROB ODD-KEY-ARGS-ERROR ...) ; compiling (FROB UNKNOWN-KEY-ARG-ERROR ...) ; compiling (FROB NIL-FUN-RETURNED-ERROR ...) ; compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/call.lisp ; in: DEFINE-VOP (KNOWN-CALL-LOCAL) ; (SB!C:CALLEE-NFP-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-NFP-TN ; in: DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ; (SB!C:CALLEE-NFP-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-NFP-TN ; in: DEFINE-VOP (CALL-LOCAL) ; (SB!C:CALLEE-NFP-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-NFP-TN ; in: DEFINE-VOP (KNOWN-CALL-LOCAL) ; (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-RETURN-PC-TN ; in: DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ; (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-RETURN-PC-TN ; in: DEFINE-VOP (CALL-LOCAL) ; (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-RETURN-PC-TN ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-VOP (XEP-ALLOCATE-FRAME) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-VOP (COMPUTE-OLD-NFP) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; 15 more uses of undefined function CURRENT-NFP-TN ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/call.lisp ; in: DEFINE-VOP (ALLOCATE-FRAME) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::CONTROL-STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFINE-VOP (XEP-ALLOCATE-FRAME) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::CONTROL-STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFUN BYTES-NEEDED-FOR-NON-DESCRIPTOR-STACK-FRAME ; (SB!C:SB-ALLOCATED-SIZE 'SB!C:NON-DESCRIPTOR-STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; ; caught STYLE-WARNING: ; These functions are undefined: ; CALLEE-NFP-TN CALLEE-RETURN-PC-TN CURRENT-NFP-TN SB-ALLOCATED-SIZE ; ; compilation unit finished ; caught 14 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/call.lisp-obj-tmp written ; compilation finished in 0:00:06 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/nlx.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-NLX-SP-TN ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-NLX-ENTRY-ARG-START-LOCATION ...) ; 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/nlx.lisp ; in: DEFINE-VOP (RESTORE-DYNAMIC-STATE) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-VOP (SAVE-DYNAMIC-STATE) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/nlx.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/late-nlx.lisp" (written 14 JUL 2005 07:35:35 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-DYNAMIC-STATE-TNS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/late-nlx.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/show.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (PRINT) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/show.lisp ; in: DEFINE-VOP (PRINT) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/show.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/array.lisp" (written 04 JUN 2006 03:25:07 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/array.lisp ; in: DEFINE-VOP (MAKE-ARRAY-HEADER) ; (SB!VM::ALLOCATION SB!VM::HEADER SB!VM::NDESCR SB!VM:OTHER-POINTER-LOWTAG ; :TEMP-TN SB!VM::GC-TEMP :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::%LR ; ==> ; SB!VM::GC-TEMP ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (%ARRAY-DIMENSION WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (%SET-ARRAY-DIMENSION WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...) ; compiling (DEFINE-VOP (CHECK-BOUND) ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-VECTOR ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-29 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-30 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...) ; 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 (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (RAW-BITS WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (SET-RAW-BITS WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (VECTOR-RAW-BITS WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (SET-VECTOR-RAW-BITS WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (GET-VECTOR-SUBTYPE GET-HEADER-DATA)) ; compiling (DEFINE-VOP (SET-VECTOR-SUBTYPE SET-HEADER-DATA)) ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SIGNED-BYTE-8 SIGNED-BYTE-INDEX-REF) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SIGNED-BYTE-8 BYTE-INDEX-SET) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SIGNED-BYTE-16 SIGNED-HALFWORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SIGNED-BYTE-16 HALFWORD-INDEX-SET) ...); ; compilation unit finished ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/array.lisp-obj-tmp written ; compilation finished in 0:00:07 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/array.lisp" (written 14 JUL 2005 07:35:35 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-NIL) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/array.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/pred.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (BRANCH) ...) ; compiling (DEFINE-VOP (IF-EQ) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/pred.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/type-vops.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN %TEST-FIXNUM ...) ; compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...) ; compiling (DEFUN %TEST-IMMEDIATE ...) ; compiling (DEFUN %TEST-LOWTAG ...) ; compiling (DEFUN %TEST-HEADERS ...) ; compiling (DEFINE-VOP (CHECK-TYPE) ...) ; compiling (DEFINE-VOP (TYPE-PREDICATE) ...) ; compiling (DEFUN COST-TO-TEST-TYPES ...) ; compiling (DEFMACRO !DEFINE-TYPE-VOPS ...) ; 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 (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) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/target/type-vops.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/late-type-vops.lisp" (written 03 JUN 2006 09:26:52 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 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 (!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 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/late-type-vops.lisp-obj-tmp written ; compilation finished in 0:00:09 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/assembly/ creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/assembly/target/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assembly/target/assem-rtns.lisp" (written 02 NOV 2006 03:35:12 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/assembly/target/assem-rtns.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assembly/target/array.lisp" (written 21 FEB 2006 10:59:31 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR # ...) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/assembly/target/array.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assembly/target/arith.lisp" (written 21 FEB 2006 10:59:31 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-+ # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-- # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-* # ...) ...) ; compiling (FROB UNSIGNED-* ...) ; compiling (FROB SIGNED-* ...) ; compiling (FROB FIXNUM-* ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (POSITIVE-FIXNUM-TRUNCATE # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (FIXNUM-TRUNCATE # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (SIGNED-TRUNCATE # ...) ...) ; compiling (DEFINE-COND-ASSEM-RTN GENERIC-< ...) ; compiling (DEFINE-COND-ASSEM-RTN GENERIC-<= ...) ; compiling (DEFINE-COND-ASSEM-RTN GENERIC-> ...) ; compiling (DEFINE-COND-ASSEM-RTN GENERIC->= ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-EQL # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-= # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-/= # ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assembly/target/arith.lisp ; in: ; DEFINE-ASSEMBLY-ROUTINE (GENERIC-* (:COST 50) (:RETURN-STYLE :FULL-CALL) ; (:TRANSLATE *) (:POLICY :SAFE) ...) ; (SB!C:DEFINE-ASSEMBLY-ROUTINE ; (SB!VM::GENERIC-* (:COST 50) (:RETURN-STYLE :FULL-CALL) (:TRANSLATE *) ; (:POLICY :SAFE) (:SAVE-P T)) ; ((:ARG SB!VM::X (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:ARG SB!VM::Y (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A1-OFFSET) ; (:RES SB!VM::RES (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:TEMP SB!VM::TEMP SB!VM::NON-DESCRIPTOR-REG SB!VM::NL0-OFFSET) ; (:TEMP SB!VM::LO SB!VM::NON-DESCRIPTOR-REG SB!VM::NL1-OFFSET) ; (:TEMP SB!VM::HI SB!VM::NON-DESCRIPTOR-REG SB!VM::NL2-OFFSET) ; (:TEMP SB!VM::PA-FLAG SB!VM::NON-DESCRIPTOR-REG SB!VM::NL3-OFFSET) ; (:TEMP SB!VM::LIP SB!VM::INTERIOR-REG SB!VM::LIP-OFFSET) ; (:TEMP SB!KERNEL:LRA SB!VM::DESCRIPTOR-REG SB!VM::LRA-OFFSET) ; (:TEMP SB!VM::NARGS SB!VM::ANY-REG SB!VM::NARGS-OFFSET) ; (:TEMP SB!VM::OCFP SB!VM::ANY-REG SB!VM::OCFP-OFFSET)) ; (SB!ASSEM:INST SB!VM::MTXER SB!VM::ZERO-TN) ; (SB!ASSEM:INST OR SB!VM::TEMP SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::ANDI. SB!VM::TEMP SB!VM::TEMP 3) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::TEMP SB!VM::X 2) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::NARGS SB!VM::Y 2) ; (SB!ASSEM:INST SB!VM::BNE SB!VM::DO-STATIC-FUN) ; (SB!ASSEM:INST SB!VM::MULLWO. SB!VM::LO SB!VM::NARGS SB!VM::TEMP) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::HI SB!VM::LO 31) ; (SB!ASSEM:INST SB!VM::BNS SB!VM::ONE-WORD-ANSWER) ...) ; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* ; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET ; ==> ; (SB!C:CURRENT-NFP-TN #:VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: ; DEFINE-ASSEMBLY-ROUTINE (GENERIC-- (:COST 10) (:RETURN-STYLE :FULL-CALL) ; (:TRANSLATE -) (:POLICY :SAFE) ...) ; (SB!C:DEFINE-ASSEMBLY-ROUTINE ; (SB!VM::GENERIC-- (:COST 10) (:RETURN-STYLE :FULL-CALL) (:TRANSLATE -) ; (:POLICY :SAFE) (:SAVE-P T)) ; ((:ARG SB!VM::X (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:ARG SB!VM::Y (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A1-OFFSET) ; (:RES SB!VM::RES (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:TEMP SB!VM::TEMP SB!VM::NON-DESCRIPTOR-REG SB!VM::NL0-OFFSET) ; (:TEMP SB!VM::TEMP2 SB!VM::NON-DESCRIPTOR-REG SB!VM::NL1-OFFSET) ; (:TEMP SB!VM::FLAG SB!VM::NON-DESCRIPTOR-REG SB!VM::NL3-OFFSET) ; (:TEMP SB!VM::LIP SB!VM::INTERIOR-REG SB!VM::LIP-OFFSET) ; (:TEMP SB!KERNEL:LRA SB!VM::DESCRIPTOR-REG SB!VM::LRA-OFFSET) ; (:TEMP SB!VM::NARGS SB!VM::ANY-REG SB!VM::NARGS-OFFSET) ; (:TEMP SB!VM::OCFP SB!VM::ANY-REG SB!VM::OCFP-OFFSET)) ; (SB!ASSEM:INST SB!VM::MTXER SB!VM::ZERO-TN) ; (SB!ASSEM:INST OR SB!VM::TEMP SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::ANDI. SB!VM::TEMP SB!VM::TEMP 3) ; (SB!ASSEM:INST SB!VM::BNE SB!VM::DO-STATIC-FUN) ; (SB!ASSEM:INST SB!VM::SUBO. SB!VM::TEMP SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::BNS SB!VM::DONE) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::TEMP SB!VM::X 2) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::TEMP2 SB!VM::Y 2) ; (SB!ASSEM:INST SB!VM::SUB SB!VM::TEMP2 SB!VM::TEMP SB!VM::TEMP2) ...) ; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* ; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET ; ==> ; (SB!C:CURRENT-NFP-TN #:VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: ; DEFINE-ASSEMBLY-ROUTINE (GENERIC-+ (:COST 10) (:RETURN-STYLE :FULL-CALL) ; (:TRANSLATE +) (:POLICY :SAFE) ...) ; (SB!C:DEFINE-ASSEMBLY-ROUTINE ; (SB!VM::GENERIC-+ (:COST 10) (:RETURN-STYLE :FULL-CALL) (:TRANSLATE +) ; (:POLICY :SAFE) (:SAVE-P T)) ; ((:ARG SB!VM::X (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:ARG SB!VM::Y (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A1-OFFSET) ; (:RES SB!VM::RES (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:TEMP SB!VM::TEMP SB!VM::NON-DESCRIPTOR-REG SB!VM::NL0-OFFSET) ; (:TEMP SB!VM::TEMP2 SB!VM::NON-DESCRIPTOR-REG SB!VM::NL1-OFFSET) ; (:TEMP SB!VM::FLAG SB!VM::NON-DESCRIPTOR-REG SB!VM::NL3-OFFSET) ; (:TEMP SB!KERNEL:LRA SB!VM::DESCRIPTOR-REG SB!VM::LRA-OFFSET) ; (:TEMP SB!VM::NARGS SB!VM::ANY-REG SB!VM::NARGS-OFFSET) ; (:TEMP SB!VM::LIP SB!VM::INTERIOR-REG SB!VM::LIP-OFFSET) ; (:TEMP SB!VM::OCFP SB!VM::ANY-REG SB!VM::OCFP-OFFSET)) ; (SB!ASSEM:INST SB!VM::MTXER SB!VM::ZERO-TN) ; (SB!ASSEM:INST OR SB!VM::TEMP SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::ANDI. SB!VM::TEMP SB!VM::TEMP 3) ; (SB!ASSEM:INST SB!VM::BNE SB!VM::DO-STATIC-FUN) ; (SB!ASSEM:INST SB!VM::ADDO. SB!VM::TEMP SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::BNS SB!VM::DONE) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::TEMP SB!VM::X 2) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::TEMP2 SB!VM::Y 2) ; (SB!ASSEM:INST SB!VM::ADD SB!VM::TEMP2 SB!VM::TEMP2 SB!VM::TEMP) ...) ; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* ; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET ; ==> ; (SB!C:CURRENT-NFP-TN #:VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; 7 more uses of undefined function CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/assembly/target/arith.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assembly/target/alloc.lisp" (written 18 MAR 2002 05:56:12 PM): ; compiling (IN-PACKAGE "SB!VM") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/assembly/target/alloc.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/pseudo-vops.lisp" (written 21 OCT 2000 12:30:34 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...) ; compiling (DEFINE-VOP (MOVE-OPERAND) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/pseudo-vops.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/aliencomp.lisp" (written 06 MAR 2006 10:00:01 AM): ; 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 EXTRACT-ALIEN-VALUE ...) ; compiling (DEFKNOWN DEPOSIT-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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (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 (DEFTRANSFORM DISPOSE-LOCAL-ALIEN ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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::EMIT-MOVE SB!C:CALL BLOCK (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG) ; SB!C::TEMP-TN) ; ; caught STYLE-WARNING: ; undefined function: EMIT-MOVE ; (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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; ANNOTATE-ORDINARY-LVAR EMIT-MOVE LVAR-TN MOVE-LVAR-RESULT ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/aliencomp.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ltv.lisp" (written 14 JUL 2005 07:57:00 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ltv.lisp ; in: DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ; (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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; MAKE-VALUE-CELL MOVE-LVAR-RESULT ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ltv.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/gtn.lisp" (written 14 JUL 2005 07:56:59 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN GTN-ANALYZE ...) ; compiling (DEFUN ASSIGN-LAMBDA-VAR-TNS ...) ; compiling (DEFUN ASSIGN-IR2-PHYSENV ...) ; compiling (DEFUN HAS-FULL-CALL-USE ...) ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/gtn.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ltn.lisp" (written 14 JUL 2005 07:57:00 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NODE-LTN-POLICY ...) ; compiling (DEFUN LTN-POLICY-SAFE-P ...) ; compiling (DECLAIM (INLINE LVAR-PTYPE)) ; compiling (DEFUN LVAR-PTYPE ...) ; compiling (DEFUN LEGAL-IMMEDIATE-CONSTANT-P ...) ; 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 (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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ltn.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/stack.lisp" (written 14 JUL 2005 07:57:02 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 UPDATE-UVL-LIVE-SETS ...) ; compiling (DEFUN ORDER-BLOCK-UVL-SETS ...) ; compiling (DEFUN ORDER-UVL-SETS ...) ; compiling (DEFUN DISCARD-UNUSED-VALUES ...) ; compiling (DEFUN FIND-PUSHING-BLOCKS ...) ; compiling (DEFUN STACK-ANALYZE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/stack.lisp ; in: DEFUN DISCARD-UNUSED-VALUES ; (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 ; ; caught STYLE-WARNING: ; This function is undefined: ; ADD-TO-EMIT-ORDER ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/stack.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/control.lisp" (written 14 JUL 2005 07:52:37 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/control.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/entry.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN ENTRY-ANALYZE ...) ; compiling (DEFUN COMPUTE-ENTRY-INFO ...) ; compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/entry.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir2tran.lisp" (written 06 OCT 2006 11:54:13 AM): ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!C::FIND-IN-PHYSENV (SB!C::THING SB!C::PHYSENV) ; (BLOCK SB!C::FIND-IN-PHYSENV ; (OR (CDR (ASSOC SB!C::THING #)) ; (ETYPECASE SB!C::THING ; (SB!C::LAMBDA-VAR # #) ; (SB!C::NLX-INFO # #) ; (SB!C::CLAMBDA # #)) ; (SB!INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>" ; SB!C::THING SB!C::PHYSENV)))) ; ; 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 IR2-CONVERT-REF ...) ; compiling (DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA ...) ; compiling (DEFUN IR2-CONVERT-CLOSURE ...) ; 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 (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 (DEFUN PONDER-FULL-CALL ...) ; compiling (DEFUN IR2-CONVERT-FULL-CALL ...) ; compiling (DEFUN INIT-XEP-ENVIRONMENT ...) ; compiling (DEFUN IR2-CONVERT-BIND ...) ; compiling (DEFUN IR2-CONVERT-RETURN ...) ; compiling (DEFOPTIMIZER (%CALLER-FRAME-AND-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 (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 (DEFUN IR2-CONVERT ...) ; compiling (DEFUN FINISH-IR2-BLOCK ...) ; compiling (DEFUN IR2-CONVERT-BLOCK ...); ; compilation unit finished ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/ir2tran.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-ir2tran.lisp" (written 06 OCT 2006 11:54:15 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...) ; compiling (DEFUN EMIT-INITS ...) ; compiling (DEFUN EMIT-FIXED-ALLOC ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/vm-ir2tran.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/copyprop.lisp" (written 14 JUL 2005 07:52:37 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/copyprop.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/represent.lisp" (written 14 JUL 2005 07:57:01 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN GET-OPERAND-INFO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; 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 ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/represent.lisp ; in: DEFUN NOTE-IF-NUMBER-STACK ; (SB!C:TN-SC SB!C:TN) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE ; ==> ; SB!C:TN ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 6 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/represent.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/pack.lisp" (written 17 SEP 2005 08:43:33 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *PACK-ASSIGN-COSTS* ...) ; compiling (DEFVAR *PACK-OPTIMIZE-SAVES* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN OFFSET-CONFLICTS-IN-SB ...) ; 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 (DEFUN ASSIGN-TN-COSTS ...) ; compiling (DEFUN ASSIGN-TN-DEPTHS ...) ; compiling (DEFVAR *LIVE-BLOCK*) ; compiling (DEFVAR *LIVE-VOP*) ; compiling (DEFVAR *REPACK-BLOCKS*) ; compiling (DECLAIM (TYPE # ...)) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/pack.lisp ; in: DEFUN UNPACK-FOR-LOAD-TN ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!C::VICTIM SB!C::NORMAL-TNS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!C::CONF SB!C::NORMAL-TNS) ; ; note: deleting unreachable code ; ; 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 (DEFUN FIND-OK-TARGET-OFFSET ...) ; compiling (DEFUN SELECT-LOCATION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/pack.lisp ; in: DEFUN SELECT-LOCATION ; (MEMBER SB!C::OFFSET (SB!C::SC-RESERVE-LOCATIONS SB!C:SC)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN ORIGINAL-TN ...) ; compiling (DEFUN PACK-TN ...) ; compiling (DEFUN PACK-WIRED-TN ...) ; compiling (DEFEVENT REPACK-BLOCK ...) ; compiling (DEFUN CLEAN-UP-PACK-STRUCTURES ...) ; compiling (DEFUN PACK ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; PRINT-TN-GUTS ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 8 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/pack.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/codegen.lisp" (written 14 JUL 2005 07:52:37 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 *TRACE-TABLE-INFO*) ; compiling (DEFVAR *CODE-SEGMENT* ...) ; compiling (DEFVAR *ELSEWHERE* ...) ; compiling (DEFVAR *ELSEWHERE-LABEL* ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/codegen.lisp ; in: DEFUN TRACE-INSTRUCTION ; (SB!C::PRINT-VOP SB!C::VOP) ; ; caught STYLE-WARNING: ; undefined function: PRINT-VOP ; ; caught STYLE-WARNING: ; This function is undefined: ; PRINT-VOP ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/codegen.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/debug.lisp" (written 14 JUL 2005 07:52:38 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-CONTINUATION ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/debug.lisp ; in: DEFUN PRINT-CONTINUATION ; (DEFUN SB!C::PRINT-CONTINUATION (SB!C::CONT) ; (DECLARE (TYPE SB!C::CONTINUATION SB!C::CONT)) ; (FORMAT T " c~D" (SB!C::CONT-NUM SB!C::CONT)) ; (VALUES)) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G2129 'SB!C::CONTINUATION) ; ; caught STYLE-WARNING: ; undefined type: CONTINUATION ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G2129 'SB!C::CONTINUATION) ; ; caught STYLE-WARNING: ; undefined type: CONTINUATION ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB!C::PRINT-CONTINUATION (SB!C::CONT) ; (DECLARE (TYPE SB!C::CONTINUATION SB!C::CONT)) ; (BLOCK SB!C::PRINT-CONTINUATION ; (FORMAT T " c~D" (SB!C::CONT-NUM SB!C::CONT)) ; (VALUES))) ; ; caught STYLE-WARNING: ; undefined type: CONTINUATION ; ; caught STYLE-WARNING: ; 1 more use of undefined type CONTINUATION ; ; caught STYLE-WARNING: ; This type is undefined: ; CONTINUATION ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/debug.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/format-time.lisp" (written 14 JUL 2005 05:30:35 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/format-time.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/error.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 HEAP-EXHAUSTED-ERROR ...) ; compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/error.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/macroexpand.lisp" (written 07 OCT 2005 05:57:09 AM): ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/macroexpand.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-extensions.lisp" (written 22 AUG 2006 04:48:56 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN LIST-WITH-LENGTH-P ...) ; compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/late-extensions.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-step.lisp" (written 18 SEP 2006 09:09:13 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-step.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/parse-defmacro-errors.lisp" (written 14 JUL 2005 05:30:37 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/parse-defmacro-errors.lisp ; in: DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ; (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FUNCALL SB!KERNEL::FUN STREAM)) ; --> 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 ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/parse-defmacro-errors.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cl-specials.lisp" (written 14 JUL 2005 05:30:13 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 #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/cl-specials.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/late-proclaim.lisp" (written 30 MAY 2003 11:44:11 AM): ; 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) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/late-proclaim.lisp-obj-tmp written ; compilation finished in 0:00:00 STYLE-WARNING: new FTYPE proclamation # for CLASSOID-NAME does not match old FTYPE proclamation # ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defboot.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 (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-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 #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/defboot.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/destructuring-bind.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/destructuring-bind.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-setf.lisp" (written 11 AUG 2006 09:08:39 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SB-XC:GET-SETF-EXPANSION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN GET-SETF-METHOD ...) ; 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 (SB-XC:DEFINE-SETF-EXPANDER THE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/early-setf.lisp-obj-tmp written ; compilation finished in 0:00:00 STYLE-WARNING: redefining ASSIGN-SETF-MACRO in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/macros.lisp" (written 02 OCT 2006 07:38:36 AM): ; 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 (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 (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...) ; compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/macros.lisp-obj-tmp written ; compilation finished in 0:00:01 STYLE-WARNING: redefining SB!C::%DEFINE-COMPILER-MACRO in DEFUN STYLE-WARNING: redefining CASE-BODY in DEFUN STYLE-WARNING: redefining CASE-BODY-AUX in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/loop.lisp" (written 27 FEB 2006 01:12:34 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-CROCKS*) ; 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 (DEFVAR *LOOP-DUPLICATE-CODE* ...) ; compiling (DEFVAR *LOOP-ITERATION-FLAG-VAR* ...) ; compiling (DEFUN LOOP-CODE-DUPLICATION-THRESHOLD ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-BODY ...) ; compiling (DEFUN DUPLICATABLE-CODE-P ...) ; compiling (DEFVAR *SPECIAL-CODE-SIZES* ...) ; compiling (DEFVAR *ESTIMATE-CODE-SIZE-PUNT* ...) ; compiling (DEFUN DESTRUCTURING-SIZE ...) ; compiling (DEFUN ESTIMATE-CODE-SIZE ...) ; compiling (DEFUN ESTIMATE-CODE-SIZE-1 ...) ; compiling (DEFUN LOOP-CONTEXT ...) ; compiling (DEFUN LOOP-ERROR ...) ; compiling (DEFUN LOOP-WARN ...) ; compiling (DEFUN LOOP-CHECK-DATA-TYPE ...) ; compiling (DEFUN SUBST-GENSYMS-FOR-NIL ...) ; 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 LOOP-VAR-P ...) ; compiling (DEFUN LOOP-MAKE-VAR ...) ; 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 (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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/loop.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-setf.lisp" (written 14 JUL 2005 05:30:35 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY PSETF ...) ; compiling (DEFMACRO-MUNDANELY ROTATEF ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/late-setf.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-format.lisp" (written 10 AUG 2006 11:18:51 AM): ; compiling (IN-PACKAGE "SB!FORMAT") ; compiling (DEFINE-CONDITION FORMAT-ERROR ...) ; compiling (DEFUN %PRINT-FORMAT-ERROR ...) ; compiling (DEF!STRUCT FORMAT-DIRECTIVE ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN TOKENIZE-CONTROL-STRING ...) ; compiling (DEFUN PARSE-DIRECTIVE ...) ; compiling (SB-XC:DEFMACRO FORMATTER ...) ; compiling (DEFUN %FORMATTER ...) ; 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 (DEFMACRO DEF-COMPLEX-FORMAT-DIRECTIVE ...) ; compiling (DEFMACRO DEF-FORMAT-DIRECTIVE ...) ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/late-format.lisp-obj-tmp written ; compilation finished in 0:00:07 STYLE-WARNING: redefining %SET-FORMAT-DIRECTIVE-EXPANDER in DEFUN STYLE-WARNING: redefining %SET-FORMAT-DIRECTIVE-INTERPRETER in DEFUN STYLE-WARNING: redefining FIND-DIRECTIVE in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sxhash.lisp" (written 14 JUL 2005 05:30:39 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sxhash.lisp ; in: DEFTRANSFORM SXHASH ; (SB!C::LVAR-VALUE SB!C::X) ; ; note: deleting unreachable code ; compiling (DEFTRANSFORM SXHASH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sxhash.lisp ; in: DEFTRANSFORM SXHASH ; (SB!C::LVAR-VALUE SB!C::X) ; ==> ; SB!C::X ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/sxhash.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/signal.lisp" (written 14 JUL 2005 05:30:38 PM): ; compiling (IN-PACKAGE "SB!UNIX") ; compiling (DEFVAR *INTERRUPTS-ENABLED* ...) ; compiling (DEFVAR *INTERRUPT-PENDING* ...) ; compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/signal.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-defbangmethod.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY DEF!METHOD ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/code/late-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/pcl/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/walk.lisp" (written 07 NOV 2006 10:22:17 AM): ; 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-LEXICAL-VARIABLES ...) ; compiling (DEFUN NOTE-DECLARATION ...) ; compiling (DEFUN NOTE-LEXICAL-BINDING ...) ; compiling (DEFUN VAR-LEXICAL-P ...) ; compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...) ; compiling (DEFVAR *VAR-DECLARATIONS* ...) ; 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 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 WALK-LET* ...) ; compiling (DEFUN WALK-LET/LET* ...) ; compiling (DEFUN WALK-LOCALLY ...) ; compiling (DEFUN WALK-MULTIPLE-VALUE-SETQ ...) ; compiling (DEFUN WALK-MULTIPLE-VALUE-BIND ...) ; compiling (DEFUN WALK-BINDINGS-1 ...) ; compiling (DEFUN WALK-BINDINGS-2 ...) ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/pcl/walk.lisp-obj-tmp written ; compilation finished in 0:00:02 * ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (SB!KERNEL::YES) (SB!KERNEL::WIN) &REST #:G1756) ; (DECLARE (IGNORE #:G1756)) ; (ASSERT (NOT SB!KERNEL::YES))) ; ; caught STYLE-WARNING: ; The variable WIN is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (SB!KERNEL::YES) (SB!KERNEL::WIN) &REST #:G1765) ; (DECLARE (IGNORE #:G1765)) ; (ASSERT (NOT SB!KERNEL::YES))) ; ; caught STYLE-WARNING: ; The variable WIN is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition T * ; in: LAMBDA NIL ; (SB-COLD::SECOND-PASS) ; ; caught STYLE-WARNING: ; undefined function: SECOND-PASS ; (SB-COLD::SLURP-UCD-LINE SB-COLD::LINE) ; ; caught STYLE-WARNING: ; undefined function: SLURP-UCD-LINE ; ; caught STYLE-WARNING: ; These functions are undefined: ; SECOND-PASS SLURP-UCD-LINE ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions T * 181 304 305 383 453 456 459 498 837 962 976 977 981 982 1008 1009 1012 1013 7835 8126 8486 8490 8491 7897 * * ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/genesis.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFCONSTANT CORE-MAGIC ...) ; compiling (DEFCONSTANT SBCL-CORE-VERSION-INTEGER ...) ; 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 DESCRIPTOR-LOW-BITS ...) ; compiling (DEFCONSTANT TARGET-SPACE-ALIGNMENT ...) ; compiling (DEFSTRUCT (GSPACE # ...) ...) ; compiling (DEFUN GSPACE-BYTE-ADDRESS ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN MAKE-GSPACE ...) ; compiling (DEFSTRUCT (DESCRIPTOR # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN ALLOCATE-COLD-DESCRIPTOR ...) ; compiling (DEFUN DESCRIPTOR-LOWTAG ...) ; compiling (DEFUN DESCRIPTOR-BITS ...) ; 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 MAKE-RANDOM-DESCRIPTOR ...) ; 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 *COLD-LOAD-FILENAME* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFMACRO COLD-PUSH ...) ; compiling (DECLAIM (FTYPE # ...)) ; 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 ALLOCATE-BOXED-OBJECT ...) ; compiling (DEFUN ALLOCATE-UNBOXED-OBJECT ...) ; compiling (DEFUN ALLOCATE-VECTOR-OBJECT ...) ; compiling (DEFUN BASE-STRING-TO-CORE ...) ; compiling (DEFUN BIGNUM-TO-CORE ...) ; compiling (DEFUN NUMBER-PAIR-TO-CORE ...) ; compiling (DEFUN WRITE-DOUBLE-FLOAT-BITS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/genesis.lisp ; in: DEFUN WRITE-DOUBLE-FLOAT-BITS ; (LET ((SB!SYS:BITS ; (SB!FASL::MAKE-RANDOM-DESCRIPTOR (ECASE SB!C:*BACKEND-BYTE-ORDER* #)))) ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX SB!SYS: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 (DEFVAR *COLD-SYMBOL-ALLOCATION-GSPACE* ...) ; 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 (DEFCONSTANT TARGET-LAYOUT-LENGTH ...) ; compiling (DEFUN LISTIFY-COLD-INHERITS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-COLD-LAYOUT ...) ; compiling (DEFUN INITIALIZE-LAYOUTS ...) ; compiling (DEFVAR *COLD-PACKAGE-SYMBOLS*) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *COLD-SYMBOLS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFUN PACKAGE-OK-FOR-TARGET-SYMBOL-P ...) ; compiling (DEFUN SYMBOL-PACKAGE-FOR-TARGET-SYMBOL ...) ; compiling (DEFUN COLD-INTERN ...) ; compiling (DEFUN MAKE-NIL-DESCRIPTOR ...) ; compiling (DEFUN INITIALIZE-NON-NIL-SYMBOLS ...) ; compiling (DEFUN COLD-LIST-ALL-LAYOUTS ...) ; compiling (DEFUN FINISH-SYMBOLS ...) ; compiling (DEFUN MAKE-MAKE-PACKAGE-ARGS ...) ; 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 (DEFUN INITIALIZE-STATIC-FNS ...) ; compiling (DEFUN LIST-ALL-FDEFN-OBJECTS ...) ; 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 (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CALC-OFFSET ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DO-COLD-FIXUP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/genesis.lisp ; in: DEFUN DO-COLD-FIXUP ; (ECASE SB!FASL::KIND ; (:JMP-HINT (ASSERT (ZEROP (SB-XC:LDB # SB!FASL::VALUE)))) ; (:BITS-63-48 ; (LET* ((SB!FASL::VALUE #) (SB!FASL::VALUE #) (SB!FASL::VALUE #)) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB # SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES #) ; (SB-XC:LDB # SB!FASL::VALUE)))) ; (:BITS-47-32 ; (LET* ((SB!FASL::VALUE #) (SB!FASL::VALUE #)) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB # SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES #) ; (SB-XC:LDB # SB!FASL::VALUE)))) ; (:LDAH ; (LET ((SB!FASL::VALUE #)) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB # SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES #) ; (SB-XC:LDB # SB!FASL::VALUE)))) ; (:LDA ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 0) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 8) SB!FASL::VALUE)))) ; --> LET ; ==> ; SB!FASL::KIND ; ; note: deleting unreachable code ; (+ SB!FASL::VALUE (ASH 1 48)) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (+ SB!FASL::VALUE (ASH 1 32)) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (+ SB!FASL::VALUE (ASH 1 16)) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (LET* ((SB!FASL::VALUE ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 47 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE))) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE))) ; ; note: deleting unreachable code ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 16)) SB!FASL::VALUE) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (LET* ((SB!FASL::VALUE ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 47 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE))) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 32)) SB!FASL::VALUE) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (LET* ((SB!FASL::VALUE ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 47 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE))) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (IF (LOGBITP 47 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 48)) SB!FASL::VALUE) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (LET* ((SB!FASL::VALUE ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 47 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE))) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE)) ; --> PROGN SETF LET* ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 8 48) ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 48) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 56) SB!FASL::VALUE)) ; --> PROGN SETF LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; (1+ SB!FASL::GSPACE-BYTE-OFFSET) ; --> + ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 8 56) ; ; note: deleting unreachable code ; (+ SB!FASL::VALUE (ASH 1 32)) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (+ SB!FASL::VALUE (ASH 1 16)) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (LET* ((SB!FASL::VALUE ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE))) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 32) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 40) SB!FASL::VALUE))) ; ; note: deleting unreachable code ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 16)) SB!FASL::VALUE) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (LET* ((SB!FASL::VALUE ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE))) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 32) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 40) SB!FASL::VALUE))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 32)) SB!FASL::VALUE) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (LET* ((SB!FASL::VALUE ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE)) ; (SB!FASL::VALUE ; (IF (LOGBITP 31 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE))) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 32) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 40) SB!FASL::VALUE))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 32) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 40) SB!FASL::VALUE)) ; --> PROGN SETF LET* ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 8 32) ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 32) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 40) SB!FASL::VALUE)) ; --> PROGN SETF LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; (1+ SB!FASL::GSPACE-BYTE-OFFSET) ; --> + ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 8 40) ; ; note: deleting unreachable code ; (+ SB!FASL::VALUE (ASH 1 16)) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (LET ((SB!FASL::VALUE ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE))) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 16) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 24) SB!FASL::VALUE))) ; ; note: deleting unreachable code ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE (ASH 1 16)) SB!FASL::VALUE) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (LET ((SB!FASL::VALUE ; (IF (LOGBITP 15 SB!FASL::VALUE) (+ SB!FASL::VALUE #) SB!FASL::VALUE))) ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 16) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 24) SB!FASL::VALUE))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 16) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 24) SB!FASL::VALUE)) ; --> PROGN SETF LET* ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 8 16) ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 16) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 24) SB!FASL::VALUE)) ; --> PROGN SETF LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; (1+ SB!FASL::GSPACE-BYTE-OFFSET) ; --> + ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 8 24) ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 0) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 8) SB!FASL::VALUE)) ; --> PROGN SETF LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 8 0) ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:LDB (SB-XC:BYTE 8 0) SB!FASL::VALUE) ; (SB!FASL::BVREF-8 SB!FASL::GSPACE-BYTES ; (1+ SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 8 8) SB!FASL::VALUE)) ; --> PROGN SETF LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; (1+ SB!FASL::GSPACE-BYTE-OFFSET) ; --> + ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 8 8) ; ; note: deleting unreachable code ; (SB-XC:BYTE 2 0) ; ; note: deleting unreachable code ; (ECASE SB!FASL::KIND ; (:LOAD ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR (ASH # 1) (LOGAND # 4294950912)))) ; (:LOAD-SHORT ; (LET ((SB!FASL::LOW-BITS #)) ; (ASSERT (<= 0 SB!FASL::LOW-BITS #)) ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR # #)))) ; (:HI ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR (ASH # 16) (ASH # 14) (ASH # 12) (ASH # 1) ; (SB-XC:LDB # SB!FASL::VALUE) (LOGAND # 4292870144)))) ; (:BRANCH ; (LET ((SB!SYS:BITS #)) ; (ASSERT (ZEROP #)) ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR # #))))) ; --> LET ; ==> ; SB!FASL::KIND ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR (ASH (SB-XC:LDB (SB-XC:BYTE 11 0) SB!FASL::VALUE) 1) ; (LOGAND ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; 4294950912))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 11 0) ; ; note: deleting unreachable code ; (LET ((SB!FASL::LOW-BITS (SB-XC:LDB (SB-XC:BYTE 11 0) SB!FASL::VALUE))) ; (ASSERT (<= 0 SB!FASL::LOW-BITS (1- (ASH 1 4)))) ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR (ASH SB!FASL::LOW-BITS 17) ; (LOGAND ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; 4292935679)))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (<= 0 SB!FASL::LOW-BITS (1- (ASH 1 4))) ; --> ; --> (LAMBDA (#:G1511 #:G1510 #:G1509) (DECLARE (TYPE REAL #:G1511 #:G1510 #:G1509)) (IF (> #:G1511 #:G1510) NIL (IF (> #:G1510 #:G1509) NIL T))) ; ==> ; SB!FASL::LOW-BITS ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR (ASH SB!FASL::LOW-BITS 17) ; (LOGAND ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; 4292935679))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (ASH SB!FASL::LOW-BITS 17) ; ==> ; SB!FASL::LOW-BITS ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR (ASH (SB-XC:LDB (SB-XC:BYTE 5 13) SB!FASL::VALUE) 16) ; (ASH (SB-XC:LDB (SB-XC:BYTE 2 18) SB!FASL::VALUE) 14) ; (ASH (SB-XC:LDB (SB-XC:BYTE 2 11) SB!FASL::VALUE) 12) ; (ASH (SB-XC:LDB (SB-XC:BYTE 11 20) SB!FASL::VALUE) 1) ; (SB-XC:LDB (SB-XC:BYTE 1 31) SB!FASL::VALUE) ; (LOGAND ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; 4292870144))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 5 13) ; ; note: deleting unreachable code ; (LET ((SB!SYS:BITS (SB-XC:LDB (SB-XC:BYTE 9 2) SB!FASL::VALUE))) ; (ASSERT (ZEROP (SB-XC:LDB (SB-XC:BYTE 2 0) SB!FASL::VALUE))) ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR (ASH SB!SYS:BITS 3) ; (LOGAND ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; 4292927490)))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB-XC:BYTE 2 0) ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR (ASH SB!SYS:BITS 3) ; (LOGAND ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; 4292927490))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (ASH SB!SYS:BITS 3) ; ==> ; SB!SYS:BITS ; ; note: deleting unreachable code ; (ECASE SB!FASL::KIND ; (:JUMP ; (ASSERT (ZEROP (ASH SB!FASL::VALUE -28))) ; (SETF (SB-XC:LDB (SB-XC:BYTE 26 0) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (ASH SB!FASL::VALUE -2))) ; (:LUI ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR (SB-XC:MASK-FIELD # #) (ASH # -1)))) ; (:ADDI ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR (SB-XC:MASK-FIELD # #) (SB-XC:LDB # SB!FASL::VALUE))))) ; --> LET ; ==> ; SB!FASL::KIND ; ; note: deleting unreachable code ; (ASH SB!FASL::VALUE -28) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (SB-XC:BYTE 26 0) ; ; note: deleting unreachable code ; (SETF (SB-XC:LDB (SB-XC:BYTE 26 0) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (ASH SB!FASL::VALUE -2)) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (ASH SB!FASL::VALUE -2) ; ==> ; SB!FASL::VALUE ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR ; (SB-XC:MASK-FIELD (SB-XC:BYTE 16 16) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (ASH (1+ (SB-XC:LDB # SB!FASL::VALUE)) -1))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 16 16) ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (LOGIOR ; (SB-XC:MASK-FIELD (SB-XC:BYTE 16 16) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB-XC:LDB (SB-XC:BYTE 16 0) SB!FASL::VALUE))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 16 16) ; ; note: deleting unreachable code ; (ECASE SB!FASL::KIND ; (:CALL (ERROR "can't deal with call fixups yet")) ; (:SETHI ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:DPB (SB-XC:LDB # SB!FASL::VALUE) (SB-XC:BYTE 22 0) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)))) ; (:ADD ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:DPB (SB-XC:LDB # SB!FASL::VALUE) (SB-XC:BYTE 10 0) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET))))) ; --> LET ; ==> ; SB!FASL::KIND ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:DPB (SB-XC:LDB (SB-XC:BYTE 22 10) SB!FASL::VALUE) ; (SB-XC:BYTE 22 0) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 22 10) ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; (SB-XC:DPB (SB-XC:LDB (SB-XC:BYTE 10 0) SB!FASL::VALUE) ; (SB-XC:BYTE 10 0) ; (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET))) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTES ; ; note: deleting unreachable code ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; (SB-XC:BYTE 10 0) ; ; note: deleting unreachable code ; (ERROR "can't deal with call fixups yet") ; ==> ; "can't deal with call fixups yet" ; ; note: deleting unreachable code ; (LET* ((SB!FASL::UN-FIXED-UP ; (SB!FASL::BVREF-WORD SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB!FASL::CODE-OBJECT-START-ADDR ; (LOGANDC2 (SB!FASL::DESCRIPTOR-BITS SB!FASL::CODE-OBJECT) ; SB!VM:LOWTAG-MASK))) ; (ASSERT ; (= SB!FASL::CODE-OBJECT-START-ADDR ; (+ SB!FASL::GSPACE-BYTE-ADDRESS ; (SB!FASL::DESCRIPTOR-BYTE-OFFSET SB!FASL::CODE-OBJECT)))) ; (ECASE SB!FASL::KIND ; (:ABSOLUTE ; (LET (#) ; (SETF # SB!FASL::FIXED-UP) ; (UNLESS # #))) ; (:RELATIVE ; (LET (#) ; (SETF # SB!FASL::FIXED-UP) ; (SB!FASL::NOTE-LOAD-TIME-CODE-FIXUP SB!FASL::CODE-OBJECT ; SB!FASL::AFTER-HEADER SB!FASL::VALUE SB!FASL::KIND))))) ; ; note: deleting unreachable code ; (< SB!FASL::FIXED-UP SB!FASL::CODE-OBJECT-START-ADDR) ; ==> ; SB!FASL::FIXED-UP ; ; note: deleting unreachable code ; (LET ((SB!FASL::FIXED-UP (+ SB!FASL::VALUE SB!FASL::UN-FIXED-UP))) ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; SB!FASL::FIXED-UP) ; (UNLESS (< SB!FASL::FIXED-UP SB!FASL::CODE-OBJECT-START-ADDR) ; (SB!FASL::NOTE-LOAD-TIME-CODE-FIXUP SB!FASL::CODE-OBJECT ; SB!FASL::AFTER-HEADER SB!FASL::VALUE SB!FASL::KIND))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; SB!FASL::FIXED-UP) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; --> LET* MULTIPLE-VALUE-BIND LET ; ==> ; SB!FASL::FIXED-UP ; ; note: deleting unreachable code ; (LET* ((SB!FASL::UN-FIXED-UP ; (SB!FASL::BVREF-WORD SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET)) ; (SB!FASL::CODE-OBJECT-START-ADDR ; (LOGANDC2 (SB!FASL::DESCRIPTOR-BITS SB!FASL::CODE-OBJECT) ; SB!VM:LOWTAG-MASK))) ; (ASSERT ; (= SB!FASL::CODE-OBJECT-START-ADDR ; (+ SB!FASL::GSPACE-BYTE-ADDRESS ; (SB!FASL::DESCRIPTOR-BYTE-OFFSET SB!FASL::CODE-OBJECT)))) ; (ECASE SB!FASL::KIND ; (:ABSOLUTE ; (LET (#) ; (SETF # SB!FASL::FIXED-UP) ; (UNLESS # #))) ; (:RELATIVE ; (LET (#) ; (SETF # SB!FASL::FIXED-UP) ; (SB!FASL::NOTE-LOAD-TIME-CODE-FIXUP SB!FASL::CODE-OBJECT ; SB!FASL::AFTER-HEADER SB!FASL::VALUE SB!FASL::KIND))))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (= SB!FASL::CODE-OBJECT-START-ADDR ; (+ SB!FASL::GSPACE-BYTE-ADDRESS ; (SB!FASL::DESCRIPTOR-BYTE-OFFSET SB!FASL::CODE-OBJECT))) ; ==> ; SB!FASL::CODE-OBJECT-START-ADDR ; ; note: deleting unreachable code ; (ECASE SB!FASL::KIND ; (:ABSOLUTE ; (LET ((SB!FASL::FIXED-UP #)) ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; SB!FASL::FIXED-UP) ; (UNLESS (< SB!FASL::FIXED-UP SB!FASL::CODE-OBJECT-START-ADDR) ; (SB!FASL::NOTE-LOAD-TIME-CODE-FIXUP SB!FASL::CODE-OBJECT ; SB!FASL::AFTER-HEADER SB!FASL::VALUE SB!FASL::KIND)))) ; (:RELATIVE ; (LET ((SB!FASL::FIXED-UP #)) ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES ; SB!FASL::GSPACE-BYTE-OFFSET) ; SB!FASL::FIXED-UP) ; (SB!FASL::NOTE-LOAD-TIME-CODE-FIXUP SB!FASL::CODE-OBJECT ; SB!FASL::AFTER-HEADER SB!FASL::VALUE SB!FASL::KIND)))) ; --> LET ; ==> ; SB!FASL::KIND ; ; note: deleting unreachable code ; (LET ((SB!FASL::FIXED-UP ; (- (+ SB!FASL::VALUE SB!FASL::UN-FIXED-UP) ; SB!FASL::GSPACE-BYTE-ADDRESS SB!FASL::GSPACE-BYTE-OFFSET 4))) ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; SB!FASL::FIXED-UP) ; (SB!FASL::NOTE-LOAD-TIME-CODE-FIXUP SB!FASL::CODE-OBJECT ; SB!FASL::AFTER-HEADER SB!FASL::VALUE SB!FASL::KIND)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES SB!FASL::GSPACE-BYTE-OFFSET) ; SB!FASL::FIXED-UP) ; --> LET* ; ==> ; SB!FASL::GSPACE-BYTE-OFFSET ; ; note: deleting unreachable code ; --> LET* MULTIPLE-VALUE-BIND LET ; ==> ; SB!FASL::FIXED-UP ; ; note: deleting unreachable code ; (SB!FASL::NOTE-LOAD-TIME-CODE-FIXUP SB!FASL::CODE-OBJECT ; SB!FASL::AFTER-HEADER SB!FASL::VALUE SB!FASL::KIND) ; ==> ; SB!FASL::CODE-OBJECT ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN RESOLVE-ASSEMBLER-FIXUPS ...) ; compiling (DEFUN FOREIGN-SYMBOLS-TO-CORE ...) ; compiling (DEFVAR *COLD-FOP-FUNS* ...) ; compiling (DEFVAR *NORMAL-FOP-FUNS*) ; compiling (DEFMACRO DEFINE-COLD-FOP ...) ; compiling (DEFMACRO CLONE-COLD-FOP ...) ; compiling (DEFMACRO NOT-COLD-FOP ...) ; compiling (DEFUN COLD-LOAD ...) ; compiling (DEFINE-COLD-FOP (FOP-MISC-TRAP) ...) ; compiling (DEFINE-COLD-FOP (FOP-SHORT-CHARACTER) ...) ; compiling (DEFINE-COLD-FOP (FOP-EMPTY-LIST) ...) ; compiling (DEFINE-COLD-FOP (FOP-TRUTH) ...) ; compiling (DEFINE-COLD-FOP (FOP-NORMAL-LOAD :STACKP ...) ...) ; compiling (DEFINE-FOP (FOP-MAYBE-COLD-LOAD 82 ...) ...) ; compiling (DEFINE-COLD-FOP (FOP-MAYBE-COLD-LOAD :STACKP ...)) ; compiling (CLONE-COLD-FOP (FOP-STRUCT) ...) ; compiling (DEFINE-COLD-FOP (FOP-LAYOUT) ...) ; compiling (DEFUN COLD-LOAD-SYMBOL ...) ; compiling (FROB FOP-SYMBOL-IN-PACKAGE-SAVE ...) ; compiling (FROB FOP-SMALL-SYMBOL-IN-PACKAGE-SAVE ...) ; compiling (FROB FOP-SYMBOL-IN-BYTE-PACKAGE-SAVE ...) ; compiling (FROB FOP-SMALL-SYMBOL-IN-BYTE-PACKAGE-SAVE ...) ; compiling (CLONE-COLD-FOP (FOP-LISP-SYMBOL-SAVE) ...) ; compiling (CLONE-COLD-FOP (FOP-KEYWORD-SYMBOL-SAVE) ...) ; compiling (CLONE-COLD-FOP (FOP-UNINTERNED-SYMBOL-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 (CLONE-COLD-FOP (FOP-BASE-STRING) ...) ; compiling (CLONE-COLD-FOP (FOP-CHARACTER-STRING) ...) ; compiling (CLONE-COLD-FOP (FOP-VECTOR) ...) ; compiling (DEFINE-COLD-FOP (FOP-INT-VECTOR) ...) ; compiling (DEFINE-COLD-FOP (FOP-SINGLE-FLOAT-VECTOR) ...) ; compiling (NOT-COLD-FOP FOP-DOUBLE-FLOAT-VECTOR) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/genesis.lisp ; in: NOT-COLD-FOP FOP-DOUBLE-FLOAT-VECTOR ; (SB!FASL::NOT-COLD-FOP SB!FASL::FOP-DOUBLE-FLOAT-VECTOR) ; --> SB!FASL::DEFINE-COLD-FOP PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN ; (ERROR "The fop ~S is not supported in cold load." ; 'SB!FASL::FOP-DOUBLE-FLOAT-VECTOR)) ; #:FOP-STACK-3988) ; ; note: The first argument never returns a value. ; compiling (NOT-COLD-FOP FOP-COMPLEX-SINGLE-FLOAT-VECTOR) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/genesis.lisp ; in: NOT-COLD-FOP FOP-COMPLEX-SINGLE-FLOAT-VECTOR ; (SB!FASL::NOT-COLD-FOP SB!FASL::FOP-COMPLEX-SINGLE-FLOAT-VECTOR) ; --> SB!FASL::DEFINE-COLD-FOP PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN ; (ERROR "The fop ~S is not supported in cold load." ; 'SB!FASL::FOP-COMPLEX-SINGLE-FLOAT-VECTOR)) ; #:FOP-STACK-4006) ; ; note: The first argument never returns a value. ; compiling (NOT-COLD-FOP FOP-COMPLEX-DOUBLE-FLOAT-VECTOR) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/genesis.lisp ; in: NOT-COLD-FOP FOP-COMPLEX-DOUBLE-FLOAT-VECTOR ; (SB!FASL::NOT-COLD-FOP SB!FASL::FOP-COMPLEX-DOUBLE-FLOAT-VECTOR) ; --> SB!FASL::DEFINE-COLD-FOP PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN ; (ERROR "The fop ~S is not supported in cold load." ; 'SB!FASL::FOP-COMPLEX-DOUBLE-FLOAT-VECTOR)) ; #:FOP-STACK-4024) ; ; note: The first argument never returns a value. ; compiling (DEFINE-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-INTEGER) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-SMALL-INTEGER) ; 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-FOP (FOP-RATIO) ...) ; compiling (DEFINE-COLD-FOP (FOP-COMPLEX) ...) ; compiling (NOT-COLD-FOP FOP-EVAL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/genesis.lisp ; in: NOT-COLD-FOP FOP-EVAL ; (SB!FASL::NOT-COLD-FOP SB!FASL::FOP-EVAL) ; --> SB!FASL::DEFINE-COLD-FOP PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN ; (ERROR "The fop ~S is not supported in cold load." 'SB!FASL::FOP-EVAL)) ; #:FOP-STACK-4306) ; ; note: The first argument never returns a value. ; compiling (NOT-COLD-FOP FOP-EVAL-FOR-EFFECT) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/genesis.lisp ; in: NOT-COLD-FOP FOP-EVAL-FOR-EFFECT ; (SB!FASL::NOT-COLD-FOP SB!FASL::FOP-EVAL-FOR-EFFECT) ; --> SB!FASL::DEFINE-COLD-FOP PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SB!FASL::WITH-FOP-STACK LET MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN ; (ERROR "The fop ~S is not supported in cold load." ; 'SB!FASL::FOP-EVAL-FOR-EFFECT)) ; #:FOP-STACK-4324) ; ; note: The first argument never returns a value. ; 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 :PUSHP ...) ...) ; compiling (DEFINE-COLD-FOP (FOP-RPLACA :PUSHP ...) ...) ; compiling (DEFINE-COLD-FOP (FOP-RPLACD :PUSHP ...) ...) ; compiling (DEFINE-COLD-FOP (FOP-SVSET :PUSHP ...) ...) ; compiling (DEFINE-COLD-FOP (FOP-STRUCTSET :PUSHP ...) ...) ; compiling (DEFINE-COLD-FOP (FOP-NTHCDR) ...) ; compiling (DEFUN COLD-NTHCDR ...) ; compiling (DEFPARAMETER *COLD-FSET-WARM-NAMES* ...) ; compiling (DEFINE-COLD-FOP (FOP-FSET :PUSHP ...) ...) ; compiling (DEFINE-COLD-FOP (FOP-FDEFINITION) ...) ; compiling (DEFINE-COLD-FOP (FOP-SANCTIFY-FOR-EXECUTION) ...) ; compiling (DEFMACRO DEFINE-COLD-CODE-FOP ...) ; compiling (DEFINE-COLD-CODE-FOP FOP-CODE ...) ; compiling (DEFINE-COLD-CODE-FOP FOP-SMALL-CODE ...) ; compiling (CLONE-COLD-FOP (FOP-ALTER-CODE :PUSHP ...) ...) ; compiling (DEFINE-COLD-FOP (FOP-FUN-ENTRY) ...) ; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-DATAREF-FIXUP) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/genesis.lisp ; in: DEFINE-COLD-FOP (FOP-FOREIGN-DATAREF-FIXUP) ; (LET* ((SB!FASL::KIND (SB!FASL::POP-STACK)) ; (SB!FASL::CODE-OBJECT (SB!FASL::POP-STACK)) ; (SB!FASL::LEN (SB!FASL::READ-BYTE-ARG)) ; (SB!FASL::SYM (MAKE-STRING SB!FASL::LEN))) ; (SB!FASL::READ-STRING-AS-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::SYM) ; (MAPHASH ; (LAMBDA (SB!FASL::K SB!FASL::V) ; (FORMAT *ERROR-OUTPUT* "~&~S = #X~8X~%" SB!FASL::K SB!FASL::V)) ; SB!FASL::*COLD-FOREIGN-SYMBOL-TABLE*) ; (ERROR "shared foreign symbol in cold load: ~S (~S)" SB!FASL::SYM ; SB!FASL::KIND)) ; ; caught STYLE-WARNING: ; The variable CODE-OBJECT is defined but never used. ; 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 TAILWISE-EQUAL ...) ; compiling (DEFUN WRITE-BOILERPLATE ...) ; compiling (DEFUN WRITE-MAKEFILE-FEATURES ...) ; compiling (DEFUN WRITE-CONFIG-H ...) ; compiling (DEFUN WRITE-CONSTANTS-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 VERSION-CORE-ENTRY-TYPE-CODE ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/genesis.lisp ; in: DEFUN DO-COLD-FIXUP ; (SB!FASL::NOTE-LOAD-TIME-CODE-FIXUP SB!FASL::CODE-OBJECT ; SB!FASL::AFTER-HEADER SB!FASL::VALUE SB!FASL::KIND) ; ; caught STYLE-WARNING: ; undefined function: NOTE-LOAD-TIME-CODE-FIXUP ; ; caught STYLE-WARNING: ; This function is undefined: ; NOTE-LOAD-TIME-CODE-FIXUP ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 114 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-host/src/compiler/generic/genesis.lisp-obj-tmp written ; compilation finished in 0:00:07 STYLE-WARNING: redefining FOP-MAYBE-COLD-LOAD in DEFUN T * beginning GENESIS, creating headers in "src/runtime/genesis" NIL * real 4m28.242s user 3m6.881s sys 0m7.510s //entering make-target-1.sh //building runtime system and symbol table file make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime' rm -f *.[do] sbcl sbcl.nm sbcl.h core *.tmp # the depend file is obsolete rm -f depend make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime' echo '#include "genesis/config.h"' >sbcl.h echo '#include "genesis/constants.h"' >>sbcl.h make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime' cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o alloc.o alloc.c alloc.c: In function 'pa_alloc': alloc.c:64: warning: assignment makes integer from pointer without a cast alloc.c:70: warning: assignment makes pointer from integer without a cast alloc.c:43: warning: unused variable 'th' cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o backtrace.o backtrace.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o breakpoint.o breakpoint.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o coreparse.o coreparse.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o dynbind.o dynbind.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o gc-common.o gc-common.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o globals.o globals.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o interr.o interr.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o interrupt.o interrupt.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o largefile.o largefile.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o monitor.o monitor.c monitor.c: In function 'quit_cmd': monitor.c:306: warning: ignoring return value of 'fgets', declared with attribute warn_unused_result cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o os-common.o os-common.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o parse.o parse.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o print.o print.c print.c: In function 'continue_p': print.c:175: warning: ignoring return value of 'fgets', declared with attribute warn_unused_result cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o purify.o purify.c purify.c: In function 'purify': purify.c:1451: warning: assignment makes pointer from integer without a cast cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o pthread-futex.o pthread-futex.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o pthread-lutex.o pthread-lutex.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o regnames.o regnames.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o run-program.o run-program.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o runtime.o runtime.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o save.o save.c save.c: In function 'write_lispobj': save.c:44: warning: ignoring return value of 'fwrite', declared with attribute warn_unused_result save.c: In function 'output_space': save.c:173: warning: format '%ld' expects type 'long int', but argument 3 has type 'size_t' save.c: In function 'save_to_filehandle': save.c:329: warning: ignoring return value of 'fwrite', declared with attribute warn_unused_result save.c: In function 'save_runtime_to_filehandle': save.c:391: warning: ignoring return value of 'fwrite', declared with attribute warn_unused_result save.c:397: warning: ignoring return value of 'fwrite', declared with attribute warn_unused_result cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o search.o search.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o thread.o thread.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o time.o time.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o util.o util.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o validate.o validate.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o vars.o vars.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o wrap.o wrap.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o ppc-arch.o ppc-arch.c ppc-arch.c: In function 'arch_get_bad_addr': ppc-arch.c:44: warning: unused variable 'pc' ppc-arch.c: In function 'handle_allocation_trap': ppc-arch.c:331: warning: implicit declaration of function 'alloc' ppc-arch.c:211: warning: unused variable 'block' ppc-arch.c:208: warning: unused variable 'immed' ppc-arch.c:204: warning: unused variable 'or_inst' ppc-arch.c: In function 'sigtrap_handler': ppc-arch.c:405: warning: passing argument 2 of 'interrupt_internal_error' makes pointer from integer without a cast ppc-arch.c:416: warning: implicit declaration of function 'handle_breakpoint' ppc-arch.c:421: warning: implicit declaration of function 'handle_fun_end_breakpoint' ppc-arch.c:440: warning: implicit declaration of function 'handle_single_step_trap' ppc-arch.c:446: warning: passing argument 2 of 'interrupt_handle_now' makes pointer from integer without a cast ppc-arch.c:455: warning: passing argument 2 of 'interrupt_internal_error' makes pointer from integer without a cast ppc-arch.c:462: warning: passing argument 2 of 'interrupt_handle_now' makes pointer from integer without a cast ppc-arch.c: In function 'arch_install_interrupt_handlers': ppc-arch.c:472: warning: passing argument 2 of 'undoably_install_low_level_interrupt_handler' from incompatible pointer type ppc-arch.c:473: warning: passing argument 2 of 'undoably_install_low_level_interrupt_handler' from incompatible pointer type cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o linux-os.o linux-os.c cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o ppc-linux-os.o ppc-linux-os.c ppc-linux-os.c: In function 'os_context_register_addr': ppc-linux-os.c:56: warning: pointer targets in return differ in signedness ppc-linux-os.c: In function 'os_context_pc_addr': ppc-linux-os.c:66: warning: pointer targets in return differ in signedness ppc-linux-os.c: In function 'os_context_lr_addr': ppc-linux-os.c:76: warning: pointer targets in return differ in signedness ppc-linux-os.c: In function 'os_restore_fp_control': ppc-linux-os.c:124: warning: dereferencing type-punned pointer will break strict-aliasing rules ppc-linux-os.c: In function 'os_flush_icache': ppc-linux-os.c:137: warning: implicit declaration of function 'ppc_flush_icache' cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o gencgc.o gencgc.c gencgc.c: In function 'gc_alloc_new_region': gencgc.c:671: warning: assignment makes pointer from integer without a cast gencgc.c: In function 'gc_alloc_large': gencgc.c:1053: warning: assignment makes pointer from integer without a cast gencgc.c: In function 'garbage_collect_generation': gencgc.c:3844: warning: unused variable 'th' gencgc.c: In function 'update_dynamic_space_free_pointer': gencgc.c:4125: warning: assignment makes pointer from integer without a cast gencgc.c: In function 'gc_free_heap': gencgc.c:4393: warning: assignment makes pointer from integer without a cast gencgc.c: At top level: gencgc.c:2125: warning: 'possibly_valid_dynamic_space_pointer' defined but not used cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o ppc-assem.o ppc-assem.S cc -g -Wall -O3 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I. -c -o ldso-stubs.o ldso-stubs.S cc -g -v -rdynamic -o sbcl alloc.o backtrace.o breakpoint.o coreparse.o dynbind.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 pthread-lutex.o regnames.o run-program.o runtime.o save.o search.o thread.o time.o util.o validate.o vars.o wrap.o ppc-arch.o linux-os.o ppc-linux-os.o gencgc.o ppc-assem.o ldso-stubs.o -ldl -lm Using built-in specs. Target: ppc64-redhat-linux Configured with: ../configure --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --enable-checking=release --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-libgcj-multifile --enable-languages=c,c++,objc,obj-c++,java,fortran,ada --disable-libgcj --enable-secureplt --with-long-double-128 --host=ppc64-redhat-linux --build=ppc64-redhat-linux --target=ppc64-redhat-linux --with-cpu=default32 Thread model: posix gcc version 4.1.1 20061220 (Red Hat 4.1.1-47) /usr/libexec/gcc/ppc64-redhat-linux/4.1.1/collect2 --eh-frame-hdr -V -Qy -m elf32ppclinux --hash-style=gnu -export-dynamic -dynamic-linker /lib/ld.so.1 -o sbcl /usr/lib/gcc/ppc64-redhat-linux/4.1.1/../../../../lib/crt1.o /usr/lib/gcc/ppc64-redhat-linux/4.1.1/../../../../lib/crti.o /usr/lib/gcc/ppc64-redhat-linux/4.1.1/crtbegin.o -L/usr/lib/gcc/ppc64-redhat-linux/4.1.1 -L/usr/lib/gcc/ppc64-redhat-linux/4.1.1 -L/usr/lib/gcc/ppc64-redhat-linux/4.1.1/../../../../lib -L/lib/../lib -L/usr/lib/../lib alloc.o backtrace.o breakpoint.o coreparse.o dynbind.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 pthread-lutex.o regnames.o run-program.o runtime.o save.o search.o thread.o time.o util.o validate.o vars.o wrap.o ppc-arch.o linux-os.o ppc-linux-os.o gencgc.o ppc-assem.o ldso-stubs.o -ldl -lm -lgcc --as-needed -lgcc_s --no-as-needed -lc -lgcc --as-needed -lgcc_s --no-as-needed /usr/lib/gcc/ppc64-redhat-linux/4.1.1/crtsavres.o /usr/lib/gcc/ppc64-redhat-linux/4.1.1/crtend.o /usr/lib/gcc/ppc64-redhat-linux/4.1.1/../../../../lib/crtn.o GNU ld version 2.17.50.0.3-6 20060715 Supported emulations: elf32ppclinux elf32ppc elf32ppcsim elf64ppc ./linux-nm sbcl | grep -v " [FUw] " > ,sbcl.nm mv -f ,sbcl.nm sbcl.nm make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tools-for-build' cc -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -I../src/runtime -ldl grovel-headers.c -o grovel-headers grovel-headers.c: In function 'main': grovel-headers.c:76: warning: implicit declaration of function 'exit' grovel-headers.c:76: warning: incompatible implicit declaration of built-in function 'exit' make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tools-for-build' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime' make[1]: Nothing to be done for `after-grovel-headers'. make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime' real 0m18.039s user 0m7.766s sys 0m1.490s //entering make-host-2.sh //running cross-compiler to create target object files This is SBCL 1.0.1, 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*=(:ANSI-CL :COMMON-LISP :SBCL :UNIX :SB-DOC :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS :IEEE-FLOATING-POINT :PPC :ELF :LINUX :GENCGC :STACK-ALLOCATABLE-CLOSURES :LINKAGE-TABLE :OS-PROVIDES-DLOPEN :OS-PROVIDES-PUTWC) target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL T * # * "obj/from-xc/" * T * T * ; in: LAMBDA NIL ; (THE SB!SYS:SAP-INT #:ONCE-ONLY-1483) ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G4 'SB!SYS:SAP-INT) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G4 'SB!SYS:SAP-INT) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; 3 more uses of undefined type SAP-INT ; ; caught STYLE-WARNING: ; This type is undefined: ; SAP-INT ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; in: LAMBDA NIL ; (THE SB!C::CLAMBDA #:ONCE-ONLY-1491) ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G4 'SB!C::CLAMBDA) ; ; caught STYLE-WARNING: ; undefined type: CLAMBDA ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G4 'SB!C::CLAMBDA) ; ; caught STYLE-WARNING: ; undefined type: CLAMBDA ; ; caught STYLE-WARNING: ; undefined type: CLAMBDA ; ; caught STYLE-WARNING: ; 3 more uses of undefined type CLAMBDA ; ; caught STYLE-WARNING: ; This type is undefined: ; CLAMBDA ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; in: LAMBDA NIL ; (THE SB!C:TN #:ONCE-ONLY-1501) ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G4 'SB!C:TN) ; ; caught STYLE-WARNING: ; undefined type: TN ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G4 'SB!C:TN) ; ; caught STYLE-WARNING: ; undefined type: TN ; ; caught STYLE-WARNING: ; undefined type: TN ; ; caught STYLE-WARNING: ; 3 more uses of undefined type TN ; ; caught STYLE-WARNING: ; This type is undefined: ; TN ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions STYLE-WARNING: redefining MAKE-MUTEX in DEFUN STYLE-WARNING: redefining MAKE-SPINLOCK in DEFUN STYLE-WARNING: redefining MASK-SIGNED-FIELD in DEFUN STYLE-WARNING: new FTYPE proclamation # for CLASSOID-NAME does not match old FTYPE proclamation # * PROCLAIM-TARGET-OPTIMIZATION * PROCLAIM-TARGET-OPTIMIZATION NIL NIL * IN-TARGET-CROSS-COMPILATION-MODE * IN-TARGET-CROSS-COMPILATION-MODE NIL NIL * # * # * # * creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/ creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/ creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/show.lisp" (written 14 JUL 2005 05:30:38 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFUN CANNOT-/SHOW ...) ; 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") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/show.lisp ; in: DEFMACRO /XHOW ; (SB!IMPL::BACKQ-CONS 'SB!INT:/SHOW REST) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::BACKQ-CONS ; (SB!IMPL::BACKQ-LIST 'LET '((*PRINT-BASE* 16)) ; (SB!IMPL::BACKQ-CONS 'SB!INT:/SHOW REST)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::BACKQ-LIST ; in: DEFMACRO /NOHEXSTR ; (DEFMACRO SB!INT:/NOHEXSTR (SB!INT::THING) (DECLARE (IGNORE SB!INT::THING))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS76 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))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS67 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))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS58 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFUN CANNOT-/SHOW ; (DEFUN SB!INT::CANNOT-/SHOW (STRING) ; (DECLARE (TYPE SIMPLE-STRING STRING)) ; (SB!SYS:%PRIMITIVE PRINT "/can't /SHOW:") ; (SB!SYS:%PRIMITIVE PRINT STRING) ; (VALUES)) ; --> PROGN EVAL-WHEN SB!IMPL::%DEFUN SB!IMPL::%DEFUN ; ==> ; (SB!C:SOURCE-LOCATION) ; ; caught STYLE-WARNING: ; undefined function: SB!C:SOURCE-LOCATION ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!IMPL::BACKQ-CONS SB!IMPL::BACKQ-LIST PROPER-LIST-OF-LENGTH-P SB!C:SOURCE-LOCATION ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/show.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-source-location.lisp" (written 06 NOV 2005 08:40:31 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *SOURCE-LOCATION-THUNKS* ...) ; compiling (DEFUN SOURCE-LOCATION ...) ; compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...) ; compiling (DEFMACRO WITH-SOURCE-LOCATION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-source-location.lisp ; in: DEFMACRO WITH-SOURCE-LOCATION ; (SB!IMPL::BACKQ-LIST 'WHEN SB!C:SOURCE-LOCATION ; (SB!IMPL::BACKQ-LIST* 'IF ; (SB!IMPL::BACKQ-LIST 'CONSP ; SB!C:SOURCE-LOCATION) ; (SB!IMPL::BACKQ-LIST* 'PUSH ; (SB!IMPL::BACKQ-LIST ; 'LAMBDA NIL ; (SB!IMPL::BACKQ-LIST* ; 'LET # ; SB!C::BODY)) ; '(SB!C:*SOURCE-LOCATION-THUNKS*)) ; SB!C::BODY)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::BACKQ-LIST ; in: DEFINE-COMPILER-MACRO SOURCE-LOCATION ; (SB!IMPL::BACKQ-LIST 'CONS ; (SB!C::MAKE-FILE-INFO-NAMESTRING *COMPILE-FILE-PATHNAME* ; (SB!C::SOURCE-INFO-FILE-INFO ; (SYMBOL-VALUE ; 'SB!C::*SOURCE-INFO*))) ; (WHEN (BOUNDP 'SB!C::*CURRENT-PATH*) ; (SB!C::SOURCE-PATH-TLF-NUMBER ; (SYMBOL-VALUE 'SB!C::*CURRENT-PATH*)))) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::BACKQ-LIST ; in: DEFMACRO WITH-SOURCE-LOCATION ; (SB!IMPL::BACKQ-LIST* 'IF (SB!IMPL::BACKQ-LIST 'CONSP SB!C:SOURCE-LOCATION) ; (SB!IMPL::BACKQ-LIST* 'PUSH ; (SB!IMPL::BACKQ-LIST 'LAMBDA NIL ; (SB!IMPL::BACKQ-LIST* ; 'LET ; (SB!IMPL::BACKQ-LIST ; #) ; SB!C::BODY)) ; '(SB!C:*SOURCE-LOCATION-THUNKS*)) ; SB!C::BODY) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::BACKQ-LIST* ; (DEFMACRO SB!C:WITH-SOURCE-LOCATION ((SB!C:SOURCE-LOCATION) &BODY SB!C::BODY) ; (SB!IMPL::BACKQ-LIST 'WHEN SB!C:SOURCE-LOCATION ; (SB!IMPL::BACKQ-LIST* 'IF ; (SB!IMPL::BACKQ-LIST 'CONSP ; SB!C:SOURCE-LOCATION) ; (SB!IMPL::BACKQ-LIST* 'PUSH ; (SB!IMPL::BACKQ-LIST ; 'LAMBDA ; NIL #) ; '(SB!C:*SOURCE-LOCATION-THUNKS*)) ; SB!C::BODY))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS27 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFINE-COMPILER-MACRO SOURCE-LOCATION ; (SB!C::MAKE-FILE-INFO-NAMESTRING *COMPILE-FILE-PATHNAME* ; (SB!C::SOURCE-INFO-FILE-INFO ; (SYMBOL-VALUE 'SB!C::*SOURCE-INFO*))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-FILE-INFO-NAMESTRING ; in: DEFMACRO WITH-SOURCE-LOCATION ; (DEFMACRO SB!C:WITH-SOURCE-LOCATION ((SB!C:SOURCE-LOCATION) &BODY SB!C::BODY) ; (SB!IMPL::BACKQ-LIST 'WHEN SB!C:SOURCE-LOCATION ; (SB!IMPL::BACKQ-LIST* 'IF ; (SB!IMPL::BACKQ-LIST 'CONSP ; SB!C:SOURCE-LOCATION) ; (SB!IMPL::BACKQ-LIST* 'PUSH ; (SB!IMPL::BACKQ-LIST ; 'LAMBDA ; NIL #) ; '(SB!C:*SOURCE-LOCATION-THUNKS*)) ; SB!C::BODY))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS26 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 ; (WHEN ; (AND (BOUNDP 'SB!C::*SOURCE-INFO*) ; (SYMBOL-VALUE 'SB!C::*SOURCE-INFO*)) ; (SB!IMPL::BACKQ-LIST 'CONS ; (SB!C::MAKE-FILE-INFO-NAMESTRING ; *COMPILE-FILE-PATHNAME* ; (SB!C::SOURCE-INFO-FILE-INFO ; #)) ; (WHEN ; (BOUNDP ; 'SB!C::*CURRENT-PATH*) ; (SB!C::SOURCE-PATH-TLF-NUMBER ; #))))) ; --> EVAL-WHEN SB!C::%DEFINE-COMPILER-MACRO SB!C::%DEFINE-COMPILER-MACRO ; --> FUNCTION LET* LET UNLESS COND IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS10 0 0) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; (SB!C::SOURCE-PATH-TLF-NUMBER (SYMBOL-VALUE 'SB!C::*CURRENT-PATH*)) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!IMPL::BACKQ-LIST SB!IMPL::BACKQ-LIST* LIST-OF-LENGTH-AT-LEAST-P MAKE-FILE-INFO-NAMESTRING PROPER-LIST-OF-LENGTH-P SOURCE-PATH-TLF-NUMBER ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-source-location.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/backq.lisp" (written 18 SEP 2005 08:13:37 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (/SHOW0 "entering backq.lisp") ; compiling (DEFVAR *BACKQUOTE-COUNT* ...) ; compiling (DEFVAR *BQ-COMMA-FLAG* ...) ; compiling (DEFVAR *BQ-AT-FLAG* ...) ; compiling (DEFVAR *BQ-DOT-FLAG* ...) ; compiling (DEFVAR *BQ-VECTOR-FLAG* ...) ; compiling (/SHOW0 "backq.lisp 50") ; compiling (DEFUN BACKQUOTE-MACRO ...) ; compiling (/SHOW0 "backq.lisp 64") ; compiling (DEFUN COMMA-MACRO ...) ; compiling (/SHOW0 "backq.lisp 83") ; compiling (DEFUN EXPANDABLE-BACKQ-EXPRESSION-P ...) ; compiling (DEFUN BACKQUOTIFY ...) ; compiling (/SHOW0 "backq.lisp 139") ; compiling (DEFUN COMMA ...) ; compiling (/SHOW0 "backq.lisp 157") ; compiling (DEFUN BACKQUOTIFY-1 ...) ; compiling (/SHOW0 "backq.lisp 184") ; compiling (DEF BACKQ-LIST ...) ; compiling (DEF BACKQ-LIST* ...) ; compiling (DEF BACKQ-APPEND ...) ; compiling (DEF BACKQ-NCONC ...) ; compiling (DEF BACKQ-CONS ...) ; compiling (/SHOW0 "backq.lisp 204") ; compiling (DEFUN BACKQ-VECTOR ...) ; compiling (/SHOW0 "backq.lisp 212") ; compiling (DEFUN !BACKQ-COLD-INIT ...) ; compiling (DEFVAR *BACKQ-TOKENS* ...) ; compiling (/SHOW0 "done with backq.lisp") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/backq.lisp ; in: DEFUN BACKQUOTIFY ; (SB!IMPL::%READER-ERROR STREAM ",@ after dot in ~S" SB!IMPL::CODE) ; ; caught STYLE-WARNING: ; undefined function: %READER-ERROR ; in: DEFUN COMMA-MACRO ; (SB!IMPL::%READER-ERROR STREAM "comma not inside a backquote") ; ; caught STYLE-WARNING: ; undefined function: %READER-ERROR ; in: DEFUN BACKQUOTE-MACRO ; (SB!IMPL::%READER-ERROR STREAM ",@ after backquote in ~S" SB!IMPL::THING) ; ; caught STYLE-WARNING: ; undefined function: %READER-ERROR ; ; caught STYLE-WARNING: ; This function is undefined: ; %READER-ERROR ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/backq.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/globals.lisp" (written 11 AUG 2005 03:44:16 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (SPECIAL *KEYWORD-PACKAGE* ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/globals.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defsetfs.lisp" (written 04 JUN 2006 03:25:06 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 CAR ...) ; compiling (DEFSETF CDR ...) ; compiling (DEFSETF CAAR ...) ; compiling (DEFSETF CADR ...) ; compiling (DEFSETF CDAR ...) ; compiling (DEFSETF CDDR ...) ; compiling (DEFSETF CAAAR ...) ; compiling (DEFSETF CADAR ...) ; compiling (DEFSETF CDAAR ...) ; compiling (DEFSETF CDDAR ...) ; compiling (DEFSETF CAADR ...) ; compiling (DEFSETF CADDR ...) ; compiling (DEFSETF CDADR ...) ; compiling (DEFSETF CDDDR ...) ; compiling (DEFSETF CAAAAR ...) ; compiling (DEFSETF CADAAR ...) ; compiling (DEFSETF CDAAAR ...) ; compiling (DEFSETF CDDAAR ...) ; compiling (DEFSETF CAADAR ...) ; compiling (DEFSETF CADDAR ...) ; compiling (DEFSETF CDADAR ...) ; compiling (DEFSETF CDDDAR ...) ; compiling (DEFSETF CAAADR ...) ; compiling (DEFSETF CADADR ...) ; compiling (DEFSETF CDAADR ...) ; compiling (DEFSETF CDDADR ...) ; compiling (DEFSETF CAADDR ...) ; compiling (DEFSETF CADDDR ...) ; compiling (DEFSETF CDADDR ...) ; compiling (DEFSETF CDDDDR ...) ; compiling (DEFSETF FIRST ...) ; compiling (DEFSETF SECOND ...) ; compiling (DEFSETF THIRD ...) ; compiling (DEFSETF FOURTH ...) ; compiling (DEFSETF FIFTH ...) ; compiling (DEFSETF SIXTH ...) ; compiling (DEFSETF SEVENTH ...) ; compiling (DEFSETF EIGHTH ...) ; compiling (DEFSETF NINTH ...) ; compiling (DEFSETF TENTH ...) ; compiling (DEFSETF REST ...) ; compiling (DEFSETF ELT ...) ; compiling (DEFSETF AREF ...) ; compiling (DEFSETF ROW-MAJOR-AREF ...) ; compiling (DEFSETF SVREF ...) ; compiling (DEFSETF CHAR ...) ; compiling (DEFSETF BIT ...) ; compiling (DEFSETF SCHAR ...) ; compiling (DEFSETF SBIT ...) ; compiling (DEFSETF %ARRAY-DIMENSION ...) ; compiling (DEFSETF %RAW-BITS ...) ; compiling (DEFSETF %VECTOR-RAW-BITS ...) ; compiling (DEFSETF SYMBOL-VALUE ...) ; compiling (DEFSETF SYMBOL-PLIST ...) ; compiling (DEFSETF NTH ...) ; compiling (DEFSETF FILL-POINTER ...) ; 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-SINGLE ...) ; compiling (DEFSETF SAP-REF-DOUBLE ...) ; compiling (DEFSETF SUBSEQ ...) ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFSETF FDEFINITION ...) ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFSETF CODE-HEADER-REF ...) ; compiling (DEFSETF %RAW-BITS ...) ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFSETF OBJECT-SET-OPERATION ...) ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFSETF CONTEXT-REGISTER ...) ; compiling (DEFSETF CONTEXT-FLOAT-REGISTER ...) ; compiling (/SHOW0 "leaving defsetfs.lisp") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; '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!IMPL::BACKQ-LIST* 'SB!ALIEN-INTERNALS:%SET-DEREF SB!ALIEN:ALIEN ; SB!ALIEN::VALUE SB!ALIEN::INDICES)) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ALIEN:DEREF ; (LAMBDA (#:ACCESS-FORM-7 #:ENVIRONMENT-8) ; (DECLARE (IGNORE #:ENVIRONMENT-8)) ; (SB!IMPL::%DEFSETF #:ACCESS-FORM-7 1 ; (LAMBDA (#:WHOLE-6) ; (LET* # ; # ; # ; #)))) ; 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 'SB!ALIEN-INTERNALS:%SET-SLOT ; NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; ; caught STYLE-WARNING: ; 91 more uses of undefined function SB!IMPL::ASSIGN-SETF-MACRO ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defsetfs.lisp ; in: DEFSETF DEREF ; (DEFSETF SB!ALIEN:DEREF (SB!ALIEN:ALIEN &REST SB!ALIEN::INDICES) ; (SB!ALIEN::VALUE) ; (SB!IMPL::BACKQ-LIST* 'SB!ALIEN-INTERNALS:%SET-DEREF SB!ALIEN:ALIEN ; SB!ALIEN::VALUE SB!ALIEN::INDICES)) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA ; --> FUNCTION SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET UNLESS COND IF NOT IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS13 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFSETF CADR ; (DEFSETF CADR (SB!IMPL::X) ; (SB!IMPL::V) ; (SB!IMPL::BACKQ-LIST 'SB!KERNEL:%RPLACA ; (SB!IMPL::BACKQ-LIST 'CDR SB!IMPL::X) SB!IMPL::V)) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA ; --> FUNCTION SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET UNLESS COND IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS72 2 2) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFSETF CAAR ; (DEFSETF CAAR (SB!IMPL::X) ; (SB!IMPL::V) ; (SB!IMPL::BACKQ-LIST 'SB!KERNEL:%RPLACA ; (SB!IMPL::BACKQ-LIST 'CAR SB!IMPL::X) SB!IMPL::V)) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA ; --> FUNCTION SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET UNLESS COND IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS58 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!IMPL::BACKQ-LIST* 'SB!ALIEN-INTERNALS:%SET-DEREF SB!ALIEN:ALIEN ; SB!ALIEN::VALUE SB!ALIEN::INDICES)) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA ; --> FUNCTION SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET UNLESS COND IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS14 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!IMPL::ASSIGN-SETF-MACRO LIST-OF-LENGTH-AT-LEAST-P PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; caught 10 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/defsetfs.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cold-init-helper-macros.lisp" (written 04 JUL 2003 06:18:25 AM): ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cold-init-helper-macros.lisp ; in: DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ; (DEFMACRO SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS (SB!KERNEL::NAME) ; (SB!IMPL::BACKQ-LIST* 'PROGN ; (SB!IMPL::BACKQ-LIST* 'DEFUN SB!KERNEL::NAME NIL ; (SB!IMPL::BACKQ-APPEND ; SB!KERNEL::*COLD-INIT-FORMS* ; '(#))) ; '((EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (MAKUNBOUND 'SB!KERNEL::*COLD-INIT-FORMS*))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS22 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))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS9 0 0) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; caught STYLE-WARNING: ; This function is undefined: ; PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/cold-init-helper-macros.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/uncross.lisp" (written 14 JUL 2005 05:30:40 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DECLAIM (INLINE UNCROSS)) ; compiling (DEFUN UNCROSS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/uncross.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/primordial-type.lisp" (written 16 JUL 2006 07:48:19 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFVAR *TYPE-SYSTEM-INITIALIZED*) ; compiling (DEFVAR *WILD-TYPE*) ; compiling (DEFVAR *EMPTY-TYPE*) ; compiling (DEFVAR *UNIVERSAL-TYPE*) ; compiling (DEFVAR *UNIVERSAL-FUN-TYPE*) ; compiling (DEFVAR *INSTANCE-TYPE*) ; compiling (DEFVAR *FUNCALLABLE-INSTANCE-TYPE*) ; compiling (DEFVAR *BUILT-IN-CLASS-CODES*) ; compiling (DEFVAR *NULL-CLASSOID-LAYOUT*) ; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/primordial-type.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-defbangmethod.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangtype.lisp" (written 14 JUL 2005 05:30:32 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFMACRO DEF!TYPE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangtype.lisp ; in: DEFMACRO DEF!TYPE ; (DEFMACRO SB!INT:DEF!TYPE (SB!KERNEL::NAME &REST REST) ; (SB!IMPL::BACKQ-LIST 'PROGN ; (SB!IMPL::BACKQ-LIST* 'DEFTYPE SB!KERNEL::NAME REST))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS9 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; ; caught STYLE-WARNING: ; This function is undefined: ; LIST-OF-LENGTH-AT-LEAST-P ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/defbangtype.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangmacro.lisp" (written 14 JUL 2005 05:30:32 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO DEF!MACRO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangmacro.lisp ; in: DEFMACRO DEF!MACRO ; (DEFMACRO SB!INT:DEF!MACRO (SB!IMPL::NAME &REST REST) ; (SB!IMPL::BACKQ-LIST* 'SB!INT:DEFMACRO-MUNDANELY SB!IMPL::NAME REST)) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS9 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; ; caught STYLE-WARNING: ; This function is undefined: ; LIST-OF-LENGTH-AT-LEAST-P ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/defbangmacro.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangconstant.lisp" (written 14 JUL 2005 05:30:32 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFMACRO DEF!CONSTANT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!IMPL::BACKQ-LIST 'PROGN ; (SB!IMPL::BACKQ-CONS 'DEFCONSTANT ; (CDR SB!KERNEL::WHOLE)))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS9 2 3) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; caught STYLE-WARNING: ; This function is undefined: ; PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/defbangconstant.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/primordial-extensions.lisp" (written 14 JUL 2005 05:30:37 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...) ; compiling (DEFUN FROB-DO-BODY ...) ; compiling (DEFMACRO DO-ANONYMOUS ...) ; compiling (DEFMACRO WITH-UNIQUE-NAMES ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-GENSYM-LIST ...) ; compiling (DECLAIM (TYPE PACKAGE ...)) ; compiling (DEFVAR *CL-PACKAGE* ...) ; compiling (DEFVAR *KEYWORD-PACKAGE* ...) ; compiling (DEFUN SYMBOLICATE ...) ; compiling (DEFUN KEYWORDICATE ...) ; compiling (DEFUN SANE-PACKAGE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/primordial-extensions.lisp ; in: DEFUN SANE-PACKAGE ; (TYPE-OF SB!IMPL::MAYBE-PACKAGE) ; ==> ; SB!IMPL::MAYBE-PACKAGE ; ; note: deleting unreachable code ; compiling (DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS ...) ; compiling (DEFMACRO DEFENUM ...) ; compiling (DEFMACRO DEFCONSTANT-EQX ...) ; compiling (DEFUN %DEFCONSTANT-EQX-VALUE ...) ; compiling (DEFUN PROPER-LIST-OF-LENGTH-P ...) ; compiling (DEFMACRO DEFINE-UNSUPPORTED-FUN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/primordial-extensions.lisp ; in: DEFMACRO DEFENUM ; (DEFMACRO SB!INT:DEFENUM ; ((&KEY (SB!IMPL::PREFIX "") (SB!IMPL::SUFFIX "") (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!IMPL::BACKQ-CONS 'PROGN (NREVERSE SB!IMPL::RESULTS)))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P ':STEP #:KEYWORDS-97) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::KEYWORD-SUPPLIED-P ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS104 1) ; ; 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!IMPL::BACKQ-LIST* 'LET ; (MAPCAR ; (LAMBDA (SYMBOL) ; (LET* # ; #)) ; SB!IMPL::SYMBOLS) ; SB!IMPL::BODY)) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS30 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFMACRO DO-ANONYMOUS ; (DEFMACRO SB!INT:DO-ANONYMOUS ; (SB!IMPL::VARLIST SB!IMPL::ENDLIST &REST SB!IMPL::BODY) ; (SB!SYS:FROB-DO-BODY SB!IMPL::VARLIST SB!IMPL::ENDLIST SB!IMPL::BODY 'LET ; 'PSETQ 'SB!INT:DO-ANONYMOUS (GENSYM))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS23 2) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFMACRO DEFENUM ; (DEFMACRO SB!INT:DEFENUM ; ((&KEY (SB!IMPL::PREFIX "") (SB!IMPL::SUFFIX "") (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!IMPL::BACKQ-CONS 'PROGN (NREVERSE SB!IMPL::RESULTS)))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD ':STEP #:KEYWORDS-97) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::LOOKUP-KEYWORD ; 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::PREFIX "") (SB!IMPL::SUFFIX "") (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!IMPL::BACKQ-CONS 'PROGN (NREVERSE SB!IMPL::RESULTS)))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-97 '(:STEP :START :SUFFIX :PREFIX) ; 'NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::VERIFY-KEYWORDS ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::KEYWORD-SUPPLIED-P LIST-OF-LENGTH-AT-LEAST-P SB!KERNEL::LOOKUP-KEYWORD PARSE-BODY SB!KERNEL::VERIFY-KEYWORDS ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/primordial-extensions.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/function-names.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 (DEFUN MACRO-FUNCTION-NAME ...) ; compiling (DEFINE-FUNCTION-NAME-SYNTAX DEFMACRO ...) ; compiling (DEFINE-FUNCTION-NAME-SYNTAX MACROLET ...) ; compiling (DEFUN !FUNCTION-NAMES-COLD-INIT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/function-names.lisp ; 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 COND IF NOT IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS72 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFINE-FUNCTION-NAME-SYNTAX SETF ; (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 (UNLESS # #))))) ; --> LET LET* LET UNLESS COND IF NOT IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS66 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!IMPL::BACKQ-LIST 'PROGN ; (SB!IMPL::BACKQ-LIST* 'DEFUN SB!IMPL::SYNTAX-CHECKER ; (SB!IMPL::BACKQ-LIST ; SB!DEBUG:VAR) ; SB!IMPL::BODY) ; (SB!IMPL::BACKQ-LIST ; 'SB!IMPL::%DEFINE-FUN-NAME-SYNTAX ; (SB!IMPL::BACKQ-LIST 'QUOTE SYMBOL) ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!IMPL::SYNTAX-CHECKER))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS COND ; --> IF NOT IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS35 2) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; ; caught STYLE-WARNING: ; This function is undefined: ; LIST-OF-LENGTH-AT-LEAST-P ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/function-names.lisp-obj-tmp written ; compilation finished in 0:00:00 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/parms.lisp" (written 19 NOV 2006 04:38:44 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...) ; compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/parms.lisp-obj-tmp written ; compilation finished in 0:00:00 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/parms.lisp" (written 29 DEC 2006 10:09:41 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 GENCGC-PAGE-SIZE ...) ; compiling (DEF!CONSTANT PSEUDO-ATOMIC-INTERRUPTED-FLAG ...) ; compiling (DEF!CONSTANT PSEUDO-ATOMIC-FLAG ...) ; 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 SINGLE-FLOAT-DIGITS ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...) ; compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...) ; 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 (DEF!CONSTANT FLOAT-FAST-BIT ...) ; compiling (DEF!CONSTANT READ-ONLY-SPACE-START ...) ; compiling (DEF!CONSTANT READ-ONLY-SPACE-END ...) ; compiling (DEF!CONSTANT STATIC-SPACE-START ...) ; compiling (DEF!CONSTANT STATIC-SPACE-END ...) ; compiling (DEF!CONSTANT DYNAMIC-SPACE-START ...) ; compiling (DEF!CONSTANT DYNAMIC-SPACE-END ...) ; compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-START ...) ; compiling (DEF!CONSTANT LINKAGE-TABLE-SPACE-END ...) ; compiling (DEF!CONSTANT LINKAGE-TABLE-ENTRY-SIZE ...) ; compiling (DEFENUM (:SUFFIX -TRAP ...) ...) ; compiling (DEFENUM (:PREFIX OBJECT-NOT- ...) ...) ; compiling (DEFENUM (:PREFIX TRACE-TABLE-) ...) ; compiling (DEFPARAMETER *STATIC-SYMBOLS* ...) ; compiling (DEFPARAMETER *STATIC-FUNS* ...) ; compiling (DEFPARAMETER *ASSEMBLY-UNIT-LENGTH* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/parms.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/early-vm.lisp" (written 14 JUL 2005 07:35:35 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-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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/early-vm.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/early-objdef.lisp" (written 10 JUN 2006 06:07:24 AM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFENUM (:SUFFIX -LOWTAG) ...) ; compiling (DEF!CONSTANT NIL-VALUE ...) ; compiling (DEFENUM (:SUFFIX -WIDETAG ...) ...) ; compiling (DEFENUM (:PREFIX VECTOR- ...) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/early-objdef.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-array.lisp" (written 19 MAY 2002 02:55:31 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-array.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-extensions.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFPARAMETER *EOF-OBJECT* ...) ; compiling (DEF!TYPE INDEX ...) ; 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 (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 (DECLAIM (INLINE SINGLETON-P)) ; compiling (DEFUN SINGLETON-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 (DEFVAR *PROFILE-HASH-CACHE* ...) ; compiling (DEFMACRO DEFINE-HASH-CACHE ...) ; compiling (DEFMACRO DEFUN-CACHED ...) ; compiling (DEFMACRO DEFINE-CACHED-SYNONYM ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-extensions.lisp ; in: DEFUN FUN-NAME-BLOCK-NAME ; (ERROR "not legal as a function name: ~S" SB!IMPL::FUN-NAME) ; ==> ; "not legal as a function name: ~S" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P ...) ; compiling (DEFUN SYMBOL-SELF-EVALUATING-P ...) ; compiling (DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ...) ; compiling (DEFMACRO COLD-FSET ...) ; 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 (DEFUN RENAME-KEY-ARGS ...) ; compiling (DEFUN READ-SEQUENCE-OR-DIE ...) ; 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 DEPRECATION-WARNING ...) ; compiling (DEFMACRO AWHEN ...) ; compiling (DEFMACRO ACOND ...) ; 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 (DECLAIM (TYPE # ...)) ; compiling (DEFPARAMETER *EVALUATOR-MODE* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-extensions.lisp ; in: DEFMACRO DEFPRINTER ; (DEFMACRO SB!INT:DEFPRINTER ; ((SB!IMPL::NAME ; &KEY (SB!IMPL::CONC-NAME (CONCATENATE 'SIMPLE-STRING # "-")) ; IDENTITY) ; &REST SB!IMPL::SLOT-DESCS) ; (LET ((SB!IMPL::FIRST? T) ; SB!IMPL::MAYBE-PRINT-SPACE ; (SB!IMPL::REVERSED-PRINTS NIL) ; (STREAM (GENSYM "STREAM"))) ; (FLET ((SB!IMPL::SREF # ; #)) ; (DOLIST (SB!IMPL::SLOT-DESC SB!IMPL::SLOT-DESCS) ; (IF SB!IMPL::FIRST? # #) ; (COND # #))) ; (SB!IMPL::BACKQ-LIST 'SB!INT:DEF!METHOD 'PRINT-OBJECT ; (SB!IMPL::BACKQ-LIST ; (SB!IMPL::BACKQ-LIST 'STRUCTURE SB!IMPL::NAME) ; STREAM) ; (SB!IMPL::BACKQ-LIST 'PPRINT-LOGICAL-BLOCK ; (SB!IMPL::BACKQ-CONS STREAM '#) ; (SB!IMPL::BACKQ-LIST* ; 'PRINT-UNREADABLE-OBJECT # ; #))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P :IDENTITY #:KEYWORDS-767) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::KEYWORD-SUPPLIED-P ; in: DEFMACRO DEFUN-CACHED ; (DEFMACRO SB!INT:DEFUN-CACHED ; ((SB!IMPL::NAME ; &REST SB!IMPL::OPTIONS ; &KEY (VALUES 1) SB!IMPL::DEFAULT &ALLOW-OTHER-KEYS) ; SB!IMPL::ARGS ; &BODY SB!IMPL::BODY-DECLS-DOC) ; (LET ((SB!IMPL::DEFAULT-VALUES (IF # # #)) ; (SB!IMPL::ARG-NAMES (MAPCAR #'CAR SB!IMPL::ARGS))) ; (SB!INT:COLLECT ((SB!IMPL::VALUES-NAMES)) ; (DOTIMES (SB!IMPL::I VALUES) (SB!IMPL::VALUES-NAMES #)) ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::BODY SB!IMPL::DECLS SB!IMPL::DOC) ; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC) ; (SB!IMPL::BACKQ-LIST 'PROGN # #))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P :DEFAULT #:KEYWORDS-421) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::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::DEFAULT ; (SB!IMPL::INIT-WRAPPER 'PROGN) (VALUES 1)) ; (LET* ((SB!IMPL::VAR-NAME ; (SB!INT:SYMBOLICATE "*" SB!IMPL::NAME "-CACHE-VECTOR*")) ; (SB!IMPL::NARGS (LENGTH SB!IMPL::ARGS)) ; (SB!IMPL::SIZE (ASH 1 SB!IMPL::HASH-BITS)) ; (SB!IMPL::DEFAULT-VALUES (IF # # #)) ; (SB!IMPL::ARGS-AND-VALUES (GENSYM)) ; (SB!IMPL::ARGS-AND-VALUES-SIZE (+ SB!IMPL::NARGS VALUES)) ; (SB!IMPL::N-INDEX (GENSYM)) ; (SB!IMPL::N-CACHE (GENSYM))) ; (UNLESS (= (LENGTH SB!IMPL::DEFAULT-VALUES) VALUES) ; (ERROR "The number of default values ~S differs from :VALUES ~W." ; SB!IMPL::DEFAULT VALUES)) ; (SB!INT:COLLECT ; ((SB!IMPL::INLINES) (SB!IMPL::FORMS) (SB!IMPL::INITS) (SB!IMPL::SETS) ; (SB!IMPL::TESTS) (SB!IMPL::ARG-VARS) (SB!IMPL::VALUES-REFS) ; (SB!IMPL::VALUES-NAMES)) ; (DOTIMES (SB!IMPL::I VALUES) ; (LET # ; # ; # ; #)) ; (LET (#) ; (DOLIST # # # #)) ; (WHEN SB!IMPL::*PROFILE-HASH-CACHE* ; (LET # ; # ; # ; # ; # ; #)) ; (LET (#) ; (SB!IMPL::INLINES SB!IMPL::FUN-NAME) ; (SB!IMPL::FORMS #)) ; (LET (#) ; (SB!IMPL::INLINES SB!IMPL::FUN-NAME) ; (SB!IMPL::FORMS #)) ; (LET (#) ; (SB!IMPL::FORMS #) ; (SB!IMPL::FORMS #)) ; (SB!IMPL::INITS (SB!IMPL::BACKQ-LIST 'UNLESS # #)) ; (SB!IMPL::BACKQ-LIST* 'PROGN ; (SB!IMPL::BACKQ-LIST 'DEFVAR SB!IMPL::VAR-NAME) ; (SB!IMPL::BACKQ-LIST 'DECLAIM #) ; (SB!IMPL::BACKQ-LIST 'DECLAIM #) ; (SB!IMPL::BACKQ-CONS SB!IMPL::INIT-WRAPPER #) ; (SB!IMPL::BACKQ-APPEND # #))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P :DEFAULT #:KEYWORDS-290) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::KEYWORD-SUPPLIED-P ; in: DEFMACRO DEFPRINTER ; (DEFMACRO SB!INT:DEFPRINTER ; ((SB!IMPL::NAME ; &KEY (SB!IMPL::CONC-NAME (CONCATENATE 'SIMPLE-STRING # "-")) ; IDENTITY) ; &REST SB!IMPL::SLOT-DESCS) ; (LET ((SB!IMPL::FIRST? T) ; SB!IMPL::MAYBE-PRINT-SPACE ; (SB!IMPL::REVERSED-PRINTS NIL) ; (STREAM (GENSYM "STREAM"))) ; (FLET ((SB!IMPL::SREF # ; #)) ; (DOLIST (SB!IMPL::SLOT-DESC SB!IMPL::SLOT-DESCS) ; (IF SB!IMPL::FIRST? # #) ; (COND # #))) ; (SB!IMPL::BACKQ-LIST 'SB!INT:DEF!METHOD 'PRINT-OBJECT ; (SB!IMPL::BACKQ-LIST ; (SB!IMPL::BACKQ-LIST 'STRUCTURE SB!IMPL::NAME) ; STREAM) ; (SB!IMPL::BACKQ-LIST 'PPRINT-LOGICAL-BLOCK ; (SB!IMPL::BACKQ-CONS STREAM '#) ; (SB!IMPL::BACKQ-LIST* ; 'PRINT-UNREADABLE-OBJECT # ; #))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD :IDENTITY #:KEYWORDS-767) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::LOOKUP-KEYWORD ; in: DEFMACRO DEFUN-CACHED ; (DEFMACRO SB!INT:DEFUN-CACHED ; ((SB!IMPL::NAME ; &REST SB!IMPL::OPTIONS ; &KEY (VALUES 1) SB!IMPL::DEFAULT &ALLOW-OTHER-KEYS) ; SB!IMPL::ARGS ; &BODY SB!IMPL::BODY-DECLS-DOC) ; (LET ((SB!IMPL::DEFAULT-VALUES (IF # # #)) ; (SB!IMPL::ARG-NAMES (MAPCAR #'CAR SB!IMPL::ARGS))) ; (SB!INT:COLLECT ((SB!IMPL::VALUES-NAMES)) ; (DOTIMES (SB!IMPL::I VALUES) (SB!IMPL::VALUES-NAMES #)) ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::BODY SB!IMPL::DECLS SB!IMPL::DOC) ; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC) ; (SB!IMPL::BACKQ-LIST 'PROGN # #))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD :DEFAULT #:KEYWORDS-421) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::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::DEFAULT ; (SB!IMPL::INIT-WRAPPER 'PROGN) (VALUES 1)) ; (LET* ((SB!IMPL::VAR-NAME ; (SB!INT:SYMBOLICATE "*" SB!IMPL::NAME "-CACHE-VECTOR*")) ; (SB!IMPL::NARGS (LENGTH SB!IMPL::ARGS)) ; (SB!IMPL::SIZE (ASH 1 SB!IMPL::HASH-BITS)) ; (SB!IMPL::DEFAULT-VALUES (IF # # #)) ; (SB!IMPL::ARGS-AND-VALUES (GENSYM)) ; (SB!IMPL::ARGS-AND-VALUES-SIZE (+ SB!IMPL::NARGS VALUES)) ; (SB!IMPL::N-INDEX (GENSYM)) ; (SB!IMPL::N-CACHE (GENSYM))) ; (UNLESS (= (LENGTH SB!IMPL::DEFAULT-VALUES) VALUES) ; (ERROR "The number of default values ~S differs from :VALUES ~W." ; SB!IMPL::DEFAULT VALUES)) ; (SB!INT:COLLECT ; ((SB!IMPL::INLINES) (SB!IMPL::FORMS) (SB!IMPL::INITS) (SB!IMPL::SETS) ; (SB!IMPL::TESTS) (SB!IMPL::ARG-VARS) (SB!IMPL::VALUES-REFS) ; (SB!IMPL::VALUES-NAMES)) ; (DOTIMES (SB!IMPL::I VALUES) ; (LET # ; # ; # ; #)) ; (LET (#) ; (DOLIST # # # #)) ; (WHEN SB!IMPL::*PROFILE-HASH-CACHE* ; (LET # ; # ; # ; # ; # ; #)) ; (LET (#) ; (SB!IMPL::INLINES SB!IMPL::FUN-NAME) ; (SB!IMPL::FORMS #)) ; (LET (#) ; (SB!IMPL::INLINES SB!IMPL::FUN-NAME) ; (SB!IMPL::FORMS #)) ; (LET (#) ; (SB!IMPL::FORMS #) ; (SB!IMPL::FORMS #)) ; (SB!IMPL::INITS (SB!IMPL::BACKQ-LIST 'UNLESS # #)) ; (SB!IMPL::BACKQ-LIST* 'PROGN ; (SB!IMPL::BACKQ-LIST 'DEFVAR SB!IMPL::VAR-NAME) ; (SB!IMPL::BACKQ-LIST 'DECLAIM #) ; (SB!IMPL::BACKQ-LIST 'DECLAIM #) ; (SB!IMPL::BACKQ-CONS SB!IMPL::INIT-WRAPPER #) ; (SB!IMPL::BACKQ-APPEND # #))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD ':VALUES #:KEYWORDS-290) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::LOOKUP-KEYWORD ; 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 ; in: DEFUN 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!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN ; --> COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN 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!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN ; --> COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFMACRO DEFPRINTER ; (DEFMACRO SB!INT:DEFPRINTER ; ((SB!IMPL::NAME ; &KEY (SB!IMPL::CONC-NAME (CONCATENATE 'SIMPLE-STRING # "-")) ; IDENTITY) ; &REST SB!IMPL::SLOT-DESCS) ; (LET ((SB!IMPL::FIRST? T) ; SB!IMPL::MAYBE-PRINT-SPACE ; (SB!IMPL::REVERSED-PRINTS NIL) ; (STREAM (GENSYM "STREAM"))) ; (FLET ((SB!IMPL::SREF # ; #)) ; (DOLIST (SB!IMPL::SLOT-DESC SB!IMPL::SLOT-DESCS) ; (IF SB!IMPL::FIRST? # #) ; (COND # #))) ; (SB!IMPL::BACKQ-LIST 'SB!INT:DEF!METHOD 'PRINT-OBJECT ; (SB!IMPL::BACKQ-LIST ; (SB!IMPL::BACKQ-LIST 'STRUCTURE SB!IMPL::NAME) ; STREAM) ; (SB!IMPL::BACKQ-LIST 'PPRINT-LOGICAL-BLOCK ; (SB!IMPL::BACKQ-CONS STREAM '#) ; (SB!IMPL::BACKQ-LIST* ; 'PRINT-UNREADABLE-OBJECT # ; #))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-767 '(:IDENTITY :CONC-NAME) 'NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::VERIFY-KEYWORDS ; in: DEFMACRO DEFUN-CACHED ; (DEFMACRO SB!INT:DEFUN-CACHED ; ((SB!IMPL::NAME ; &REST SB!IMPL::OPTIONS ; &KEY (VALUES 1) SB!IMPL::DEFAULT &ALLOW-OTHER-KEYS) ; SB!IMPL::ARGS ; &BODY SB!IMPL::BODY-DECLS-DOC) ; (LET ((SB!IMPL::DEFAULT-VALUES (IF # # #)) ; (SB!IMPL::ARG-NAMES (MAPCAR #'CAR SB!IMPL::ARGS))) ; (SB!INT:COLLECT ((SB!IMPL::VALUES-NAMES)) ; (DOTIMES (SB!IMPL::I VALUES) (SB!IMPL::VALUES-NAMES #)) ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::BODY SB!IMPL::DECLS SB!IMPL::DOC) ; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC) ; (SB!IMPL::BACKQ-LIST 'PROGN # #))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-421 '(:DEFAULT :VALUES) 'T) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::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::DEFAULT ; (SB!IMPL::INIT-WRAPPER 'PROGN) (VALUES 1)) ; (LET* ((SB!IMPL::VAR-NAME ; (SB!INT:SYMBOLICATE "*" SB!IMPL::NAME "-CACHE-VECTOR*")) ; (SB!IMPL::NARGS (LENGTH SB!IMPL::ARGS)) ; (SB!IMPL::SIZE (ASH 1 SB!IMPL::HASH-BITS)) ; (SB!IMPL::DEFAULT-VALUES (IF # # #)) ; (SB!IMPL::ARGS-AND-VALUES (GENSYM)) ; (SB!IMPL::ARGS-AND-VALUES-SIZE (+ SB!IMPL::NARGS VALUES)) ; (SB!IMPL::N-INDEX (GENSYM)) ; (SB!IMPL::N-CACHE (GENSYM))) ; (UNLESS (= (LENGTH SB!IMPL::DEFAULT-VALUES) VALUES) ; (ERROR "The number of default values ~S differs from :VALUES ~W." ; SB!IMPL::DEFAULT VALUES)) ; (SB!INT:COLLECT ; ((SB!IMPL::INLINES) (SB!IMPL::FORMS) (SB!IMPL::INITS) (SB!IMPL::SETS) ; (SB!IMPL::TESTS) (SB!IMPL::ARG-VARS) (SB!IMPL::VALUES-REFS) ; (SB!IMPL::VALUES-NAMES)) ; (DOTIMES (SB!IMPL::I VALUES) ; (LET # ; # ; # ; #)) ; (LET (#) ; (DOLIST # # # #)) ; (WHEN SB!IMPL::*PROFILE-HASH-CACHE* ; (LET # ; # ; # ; # ; # ; #)) ; (LET (#) ; (SB!IMPL::INLINES SB!IMPL::FUN-NAME) ; (SB!IMPL::FORMS #)) ; (LET (#) ; (SB!IMPL::INLINES SB!IMPL::FUN-NAME) ; (SB!IMPL::FORMS #)) ; (LET (#) ; (SB!IMPL::FORMS #) ; (SB!IMPL::FORMS #)) ; (SB!IMPL::INITS (SB!IMPL::BACKQ-LIST 'UNLESS # #)) ; (SB!IMPL::BACKQ-LIST* 'PROGN ; (SB!IMPL::BACKQ-LIST 'DEFVAR SB!IMPL::VAR-NAME) ; (SB!IMPL::BACKQ-LIST 'DECLAIM #) ; (SB!IMPL::BACKQ-LIST 'DECLAIM #) ; (SB!IMPL::BACKQ-CONS SB!IMPL::INIT-WRAPPER #) ; (SB!IMPL::BACKQ-APPEND # #))))) ; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-290 ; '(:VALUES :INIT-WRAPPER :DEFAULT :HASH-BITS ; :HASH-FUNCTION) ; 'NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::VERIFY-KEYWORDS ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::KEYWORD-SUPPLIED-P SB!KERNEL::LOOKUP-KEYWORD PARSE-BODY UPDATE-OBJECT-LAYOUT-OR-INVALID SB!KERNEL::VERIFY-KEYWORDS ; ; compilation unit finished ; caught 15 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-extensions.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/parse-body.lisp" (written 14 JUL 2005 05:30:37 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (/SHOW0 "entering parse-body.lisp") ; compiling (DEFUN PARSE-BODY ...) ; compiling (/SHOW0 "leaving parse-body.lisp") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/parse-body.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/parse-defmacro.lisp" (written 11 AUG 2006 09:08:39 AM): ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/parse-defmacro.lisp ; in: DEFUN PARSE-DEFMACRO-LAMBDA-LIST ; 'CAR ; ; note: deleting unreachable code ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/parse-defmacro.lisp ; in: DEFUN ARG-COUNT-ERROR ; (SB!KERNEL:FIND-CALLER-NAME-AND-FRAME) ; ; caught STYLE-WARNING: ; undefined function: FIND-CALLER-NAME-AND-FRAME ; ; caught STYLE-WARNING: ; This function is undefined: ; FIND-CALLER-NAME-AND-FRAME ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/parse-defmacro.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/deftype.lisp" (written 14 JUL 2005 07:52:38 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!MACRO SB-XC:DEFTYPE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/deftype.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/defconstant.lisp" (written 06 NOV 2005 08:40:31 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!MACRO SB-XC:DEFCONSTANT ...) ; compiling (DEFUN SB!C::%DEFCONSTANT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/defconstant.lisp ; in: DEFUN SB!C::%DEFCONSTANT ; (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) #:G15 #:G18 #:G17 #:G16) ; ; 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!INT:INFO :VARIABLE :CONSTANT-VALUE SB!IMPL::NAME) :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!INT:INFO :VARIABLE :CONSTANT-VALUE ; SB!IMPL::NAME) ; :NEW-VALUE SB!IMPL::VALUE) ; 'SIMPLE-ERROR 'CERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; (SB!INT:INFO :VARIABLE :CONSTANT-VALUE SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; (SB!C:WITH-SOURCE-LOCATION (SB!IMPL::SOURCE-LOCATION) ; (SETF (SB!INT:INFO :SOURCE-LOCATION :CONSTANT ; SB!IMPL::NAME) ; SB!IMPL::SOURCE-LOCATION)) ; --> WHEN COND IF PROGN IF PUSH LET* LAMBDA FUNCTION LET ; ==> ; (SB!C::MAKE-DEFINITION-SOURCE-LOCATION :NAMESTRING ; (CAR SB!IMPL::SOURCE-LOCATION) ; :TOPLEVEL-FORM-NUMBER ; (CDR SB!IMPL::SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!C::MAKE-DEFINITION-SOURCE-LOCATION ; (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!INT:INFO :VARIABLE :CONSTANT-VALUE SB!IMPL::NAME) :NEW-VALUE ; SB!IMPL::VALUE)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; ==> ; (SB!KERNEL:MAKE-RESTART :NAME 'ABORT :FUNCTION ; #'(LAMBDA (&REST SB!IMPL::TEMP) (SETQ #:G28 SB!IMPL::TEMP) (GO #:G29)) ; :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Keep the old value."))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTART ; ; caught STYLE-WARNING: ; These functions are undefined: ; (SETF INFO) COERCE-TO-CONDITION INFO SB!C::MAKE-DEFINITION-SOURCE-LOCATION MAKE-RESTART ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/defconstant.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-alieneval.lisp" (written 06 SEP 2006 09:27:10 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* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/specializable-array.lisp" (written 14 JUL 2005 05:30:38 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFTYPE SPECIALIZABLE ...) ; compiling (DEFTYPE SPECIALIZABLE-VECTOR ...) ; compiling (DECLAIM (INLINE MAKE-SPECIALIZABLE-ARRAY)) ; compiling (DEFUN MAKE-SPECIALIZABLE-ARRAY ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/specializable-array.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-cl.lisp" (written 14 JUL 2005 05:30:32 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (PROCLAIM (QUOTE #)) ; compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-cl.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-fasl.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 (DEFVAR *LOAD-DEPTH* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *FASL-INPUT-STREAM*) ; compiling (DECLAIM (TYPE ANSI-STREAM ...)) ; compiling (DEFVAR *LOAD-CODE-VERBOSE* ...); ; caught STYLE-WARNING: ; undefined type: ANSI-STREAM ; ; caught STYLE-WARNING: ; This type is undefined: ; ANSI-STREAM ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-fasl.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/debug-var-io.lisp" (written 28 NOV 2006 01:57:45 PM): ; compiling (IN-PACKAGE "SB!C") ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/debug-var-io.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-thread.lisp" (written 01 JUL 2005 09:48:33 AM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEFVAR *CURRENT-THREAD*) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-thread.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-defbangmethod.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *DELAYED-DEF!METHOD-ARGS* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-print.lisp" (written 14 JUL 2005 05:30:32 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *CURRENT-LEVEL-IN-PRINT* ...) ; compiling (DEFMACRO DESCEND-INTO ...) ; compiling (DEFMACRO PUNT-PRINT-IF-TOO-LONG ...) ; compiling (DEFVAR *CIRCULARITY-HASH-TABLE* ...) ; compiling (DEFVAR *CIRCULARITY-COUNTER* ...) ; compiling (DEFUN CHECK-FOR-CIRCULARITY ...) ; compiling (DEFUN HANDLE-CIRCULARITY ...) ; compiling (DEFMACRO WITH-CIRCULARITY-DETECTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-print.lisp ; in: DEFUN HANDLE-CIRCULARITY ; (SB!IMPL::OUTPUT-INTEGER (- SB!IMPL::MARKER) STREAM) ; ; caught STYLE-WARNING: ; undefined function: OUTPUT-INTEGER ; ; caught STYLE-WARNING: ; This function is undefined: ; OUTPUT-INTEGER ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-print.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-pprint.lisp" (written 27 FEB 2006 01:12:34 PM): ; compiling (IN-PACKAGE "SB!PRETTY") ; compiling (DEFMACRO WITH-PRETTY-STREAM ...) ; compiling (DEFMACRO PPRINT-LOGICAL-BLOCK ...) ; compiling (DEFMACRO PPRINT-EXIT-IF-LIST-EXHAUSTED ...) ; compiling (DEFMACRO PPRINT-POP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-pprint.lisp ; in: DEFMACRO PPRINT-LOGICAL-BLOCK ; (SB!INT:CONSTANT-TYPEP (OR SB!PRETTY::PREFIX SB!PRETTY::PER-LINE-PREFIX) ; 'STRING SB!PRETTY::ENV) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-TYPEP ; ; caught STYLE-WARNING: ; This function is undefined: ; CONSTANT-TYPEP ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-pprint.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-impl.lisp" (written 19 NOV 2006 04:27:13 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (SPECIAL *POSIX-ARGV* ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-impl.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-extensions.lisp" (written 27 FEB 2006 05:13:29 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *SAVE-HOOKS* ...) ; compiling (DEFVAR *INIT-HOOKS* ...) ; compiling (DEFUN BINARY-SEARCH ...) ; compiling (DEFUN LISTEN-SKIP-WHITESPACE ...) ; compiling (DEFUN SIMPLE-PERROR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; GET-ERRNO STRERROR WHITESPACE[1]P ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-extensions.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-package.lisp" (written 14 APR 2006 09:18:20 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFVAR *IGNORED-PACKAGE-LOCKS* ...) ; compiling (!COLD-INIT-FORMS (SETF *IGNORED-PACKAGE-LOCKS* ...)) ; compiling (DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR ...) ; compiling (DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...) ; compiling (DEFMACRO WITHOUT-PACKAGE-LOCKS ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-PACKAGE-COLD-INIT) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SYMBOL SB!IMPL::CONTROL) ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (SB!IMPL::EVAL-ERROR CONDITION) ; ; caught STYLE-WARNING: ; undefined function: EVAL-ERROR ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED EVAL-ERROR ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-package.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-defstructs.lisp" (written 14 JUL 2005 05:30:32 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "entering early-defstructs.lisp") ; compiling (!SET-UP-STRUCTURE-OBJECT-CLASS) ; compiling (DEFSTRUCT (ALIEN-VALUE) ...) ; compiling (/SHOW0 "done with early-defstructs.lisp") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-defstructs.lisp ; in: !SET-UP-STRUCTURE-OBJECT-CLASS ; (SB!KERNEL::!SET-UP-STRUCTURE-OBJECT-CLASS) ; ==> ; (SB!KERNEL::!SET-UP-STRUCTURE-OBJECT-CLASS) ; ; caught STYLE-WARNING: ; undefined function: !SET-UP-STRUCTURE-OBJECT-CLASS ; 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!ALIEN-INTERNALS:ALIEN-VALUE)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 'SB!ALIEN-INTERNALS:ALIEN-VALUE "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; !SET-UP-STRUCTURE-OBJECT-CLASS %MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-defstructs.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangstruct.lisp" (written 14 JUL 2005 05:30:32 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 (DEFUN PARSE-DEF!STRUCT-ARGS ...) ; compiling (DEFMACRO DEF!STRUCT ...) ; compiling (DEF!STRUCT (STRUCTURE!OBJECT #)) ; compiling (DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM ...) ; compiling (SETF (SYMBOL-FUNCTION #) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defbangstruct.lisp ; in: DEF!STRUCT (STRUCTURE!OBJECT (:CONSTRUCTOR NIL)) ; (SB!INT:DEF!STRUCT (SB!SYS:STRUCTURE!OBJECT (: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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!SYS:STRUCTURE!OBJECT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This function is undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/defbangstruct.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/unportable-float.lisp" (written 14 JUL 2005 05:30:41 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/unportable-float.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/funutils.lisp" (written 14 JUL 2005 05:30:35 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN IDENTITY ...) ; compiling (DEFUN COMPLEMENT ...) ; compiling (DEFUN CONSTANTLY ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/funutils.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/type-class.lisp" (written 03 AUG 2005 03:32:06 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFVAR *TYPE-CLASSES*) ; compiling (!COLD-INIT-FORMS (UNLESS # ...)) ; compiling (DEFUN TYPE-CLASS-OR-LOSE ...) ; compiling (DEFUN MUST-SUPPLY-THIS ...) ; compiling (DEF!STRUCT (TYPE-CLASS #) ...) ; compiling (DEFPARAMETER *TYPE-CLASS-FUN-SLOTS* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN COPY-TYPE-CLASS-COLDLY ...) ; compiling (DEFUN CLASS-FUN-SLOT-OR-LOSE ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/type-class.lisp ; 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 NIL :TYPE SYMBOL) ; (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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL::TYPE-CLASS)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL::TYPE-CLASS ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; #'SB!KERNEL::HIERARCHICAL-INTERSECTION2 ; ; caught STYLE-WARNING: ; undefined function: HIERARCHICAL-INTERSECTION2 ; #'SB!KERNEL::HIERARCHICAL-UNION2 ; ; caught STYLE-WARNING: ; undefined function: HIERARCHICAL-UNION2 ; ; caught STYLE-WARNING: ; These functions are undefined: ; %MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED HIERARCHICAL-INTERSECTION2 HIERARCHICAL-UNION2 ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/type-class.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-pcounter.lisp" (written 14 JUL 2005 05:30:32 PM): ; compiling (IN-PACKAGE "SB!PROFILE") ; compiling (DEF!STRUCT (PCOUNTER #) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-pcounter.lisp ; in: DEF!STRUCT (PCOUNTER (:COPIER NIL)) ; (SB!INT:DEF!STRUCT (SB!INT:PCOUNTER (:COPIER NIL)) ; (INTEGER 0 :TYPE UNSIGNED-BYTE) ; (FIXNUM 0 :TYPE (AND FIXNUM UNSIGNED-BYTE))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!INT:PCOUNTER)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!INT:PCOUNTER ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-pcounter.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pcounter.lisp" (written 14 JUL 2005 05:30:37 PM): ; compiling (IN-PACKAGE "SB!PROFILE") ; compiling (/SHOW0 "pcounter.lisp 21") ; compiling (DECLAIM (MAYBE-INLINE INCF-PCOUNTER)) ; compiling (DEFUN INCF-PCOUNTER ...) ; compiling (/SHOW0 "pcounter.lisp 34") ; compiling (DEFUN PCOUNTER->INTEGER ...) ; compiling (/SHOW0 "pcounter.lisp 47") ; compiling (DECLAIM (INLINE %INCF-PCOUNTER-OR-FIXNUM)) ; compiling (DEFUN %INCF-PCOUNTER-OR-FIXNUM ...) ; compiling (DEFINE-MODIFY-MACRO INCF-PCOUNTER-OR-FIXNUM ...) ; compiling (/SHOW0 "pcounter.lisp 62") ; compiling (DEFMACRO FASTBIG-INCF-PCOUNTER-OR-FIXNUM ...) ; compiling (/SHOW0 "pcounter.lisp 76") ; compiling (DECLAIM (MAYBE-INLINE PCOUNTER-OR-FIXNUM->INTEGER)) ; compiling (DEFUN PCOUNTER-OR-FIXNUM->INTEGER ...) ; compiling (/SHOW0 "pcounter.lisp end") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pcounter.lisp ; in: DEFINE-MODIFY-MACRO INCF-PCOUNTER-OR-FIXNUM ; (DEFINE-MODIFY-MACRO SB!INT:INCF-PCOUNTER-OR-FIXNUM (SB!PROFILE::DELTA) ; SB!PROFILE::%INCF-PCOUNTER-OR-FIXNUM) ; --> SB!INT:DEFMACRO-MUNDANELY LET LET SB-XC:DEFMACRO EVAL-WHEN ; --> SB!C::%DEFMACRO FUNCTION LET* LET* BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!IMPL::GET-SETF-METHOD #:G49 #:G48) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::GET-SETF-METHOD ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!IMPL::GET-SETF-METHOD ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/pcounter.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/ansi-stream.lisp" (written 14 JUL 2005 05:30:12 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFCONSTANT +ANSI-STREAM-IN-BUFFER-LENGTH+ ...) ; compiling (DEFTYPE ANSI-STREAM-IN-BUFFER ...) ; compiling (DEFTYPE ANSI-STREAM-CIN-BUFFER ...) ; compiling (DEFSTRUCT (ANSI-STREAM # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:ANSI-STREAM ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This function is undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/ansi-stream.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sysmacs.lisp" (written 18 NOV 2005 12:28:40 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO ATOMIC-INCF/SYMBOL ...) ; compiling (DEFVAR *GC-INHIBIT*) ; compiling (DEFVAR *GC-PENDING* ...) ; compiling (DEFMACRO WITHOUT-GCING ...) ; compiling (DEFMACRO EOF-OR-LOSE ...) ; compiling (DEFMACRO IN-SYNONYM-OF ...) ; compiling (DEFMACRO OUT-SYNONYM-OF ...) ; compiling (DEFMACRO WITH-IN-STREAM ...) ; compiling (DEFMACRO WITH-OUT-STREAM/NO-SYNONYM ...) ; compiling (DEFMACRO WITH-OUT-STREAM ...) ; compiling (DEFMACRO PREPARE-FOR-FAST-READ-CHAR ...) ; compiling (DEFMACRO DONE-WITH-FAST-READ-CHAR ...) ; compiling (DEFMACRO FAST-READ-CHAR ...) ; compiling (DEFMACRO PREPARE-FOR-FAST-READ-BYTE ...) ; compiling (DEFMACRO FAST-READ-BYTE ...) ; compiling (DEFMACRO DONE-WITH-FAST-READ-BYTE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/sysmacs.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-error.lisp" (written 22 OCT 2005 11:20:15 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFVAR *RESTART-CLUSTERS* ...) ; compiling (DEFVAR *CONDITION-RESTARTS* ...) ; compiling (DEFVAR *HANDLER-CLUSTERS* ...) ; compiling (DEFSTRUCT (RESTART # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN COMPUTE-RESTARTS ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFUN RESTART-REPORT ...) ; compiling (DEFUN FIND-RESTART ...) ; compiling (DEFUN FIND-RESTART-OR-CONTROL-ERROR ...) ; compiling (DEFUN INVOKE-RESTART ...) ; compiling (DEFUN INTERACTIVE-RESTART-ARGUMENTS ...) ; compiling (DEFUN INVOKE-RESTART-INTERACTIVELY ...) ; compiling (DEFUN ASSERT-ERROR ...) ; compiling (DEFUN READ-EVALUATED-FORM ...) ; compiling (DEFUN CHECK-TYPE-ERROR ...) ; compiling (DEFUN CASE-BODY-ERROR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-error.lisp ; in: DEFSTRUCT RESTART ; (DEFSTRUCT (RESTART (:COPIER NIL) (:PREDICATE NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (FUNCTION (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!KERNEL::REPORT-FUNCTION NIL :TYPE (OR NULL FUNCTION)) ; (SB!KERNEL::INTERACTIVE-FUNCTION NIL :TYPE (OR NULL FUNCTION)) ; (SB!KERNEL::TEST-FUNCTION (LAMBDA (COND) (DECLARE (IGNORE COND)) T) :TYPE ; FUNCTION)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT RESTART)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'RESTART ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN CASE-BODY-ERROR ; (RESTART-CASE ; (ERROR 'SB!KERNEL:CASE-FAILURE :NAME SB!KERNEL::NAME :DATUM ; SB!KERNEL::KEYFORM-VALUE :EXPECTED-TYPE SB!KERNEL::EXPECTED-TYPE ; :POSSIBILITIES SB!KERNEL::KEYS) ; (STORE-VALUE (SB!KERNEL::VALUE) :REPORT ; (LAMBDA (STREAM) ; (FORMAT STREAM "Supply a new value for ~S." ; SB!KERNEL::KEYFORM)) ; :INTERACTIVE SB!INT:READ-EVALUATED-FORM SB!KERNEL::VALUE)) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!KERNEL:CASE-FAILURE ; (LIST :NAME SB!KERNEL::NAME :DATUM ; SB!KERNEL::KEYFORM-VALUE :EXPECTED-TYPE ; SB!KERNEL::EXPECTED-TYPE :POSSIBILITIES ; SB!KERNEL::KEYS) ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; in: DEFUN CHECK-TYPE-ERROR ; (RESTART-CASE (ERROR CONDITION) ; (STORE-VALUE (SB!KERNEL::VALUE) :REPORT ; (LAMBDA (STREAM) ; (FORMAT STREAM "Supply a new value for ~S." ; SB!KERNEL::PLACE)) ; :INTERACTIVE SB!INT:READ-EVALUATED-FORM ; SB!KERNEL::VALUE)) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION CONDITION (LIST) 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; in: DEFUN ASSERT-ERROR ; (RESTART-CASE (ERROR COND) ; (CONTINUE NIL :REPORT ; (LAMBDA (STREAM) ; (FORMAT STREAM "Retry assertion") ; (IF SB!KERNEL::PLACES ; (FORMAT STREAM ; " with new value~P for ~{~S~^, ~}." # ; SB!KERNEL::PLACES) ; (FORMAT STREAM "."))) ; NIL)) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION COND (LIST) 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-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." ; (LET ((SB!KERNEL::ASSOCIATED NIL) (SB!KERNEL::OTHER NIL)) ; (DOLIST (SB!KERNEL::ALIST SB!KERNEL:*CONDITION-RESTARTS*) ; (IF (EQ # CONDITION) (SETQ SB!KERNEL::ASSOCIATED #) ; (SETQ SB!KERNEL::OTHER #))) ; (SB!INT:COLLECT ((SB!KERNEL::RES)) ; (DOLIST ; (SB!KERNEL::RESTART-CLUSTER ; SB!KERNEL:*RESTART-CLUSTERS*) ; (DOLIST # #)) ; (SB!KERNEL::RES)))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET COMPUTE-RESTARTS ; (LAMBDA (&OPTIONAL CONDITION) ; (BLOCK COMPUTE-RESTARTS ; (LET (# #) ; (DOLIST # #) ; (SB!INT:COLLECT # # #))))) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; 501 more uses of undefined type CONDITION ; ; caught STYLE-WARNING: ; These functions are undefined: ; %MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED COERCE-TO-CONDITION ; ; caught STYLE-WARNING: ; This type is undefined: ; CONDITION ; ; compilation unit finished ; caught 11 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-error.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/early-backend.lisp" (written 09 MAR 2004 12:08:40 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *BACKEND-PAGE-SIZE* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/early-backend.lisp-obj-tmp written ; compilation finished in 0:00:00 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/output/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/stuff-groveled-from-headers.lisp" (written 29 DEC 2006 10:14:35 PM): ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (DEFCONSTANT RTLD-LAZY ...) ; compiling (DEFCONSTANT RTLD-NOW ...) ; compiling (DEFCONSTANT RTLD-GLOBAL ...) ; compiling (IN-PACKAGE "SB!UNIX") ; compiling (DEFCONSTANT CODESET ...) ; compiling (DEFINE-ALIEN-TYPE CLOCK-T ...) ; compiling (DEFINE-ALIEN-TYPE DEV-T ...) ; compiling (DEFINE-ALIEN-TYPE GID-T ...) ; compiling (DEFINE-ALIEN-TYPE INO-T ...) ; compiling (DEFINE-ALIEN-TYPE MODE-T ...) ; compiling (DEFINE-ALIEN-TYPE NLINK-T ...) ; compiling (DEFINE-ALIEN-TYPE OFF-T ...) ; compiling (DEFINE-ALIEN-TYPE SIZE-T ...) ; compiling (DEFINE-ALIEN-TYPE TIME-T ...) ; compiling (DEFINE-ALIEN-TYPE UID-T ...) ; compiling (DEFCONSTANT R_OK ...) ; compiling (DEFCONSTANT W_OK ...) ; compiling (DEFCONSTANT X_OK ...) ; compiling (DEFCONSTANT F_OK ...) ; compiling (DEFCONSTANT O_RDONLY ...) ; compiling (DEFCONSTANT O_WRONLY ...) ; compiling (DEFCONSTANT O_RDWR ...) ; compiling (DEFCONSTANT O_ACCMODE ...) ; compiling (DEFCONSTANT O_CREAT ...) ; compiling (DEFCONSTANT O_EXCL ...) ; compiling (DEFCONSTANT O_NOCTTY ...) ; compiling (DEFCONSTANT O_TRUNC ...) ; compiling (DEFCONSTANT O_APPEND ...) ; compiling (DEFCONSTANT S-IFMT ...) ; compiling (DEFCONSTANT S-IFIFO ...) ; compiling (DEFCONSTANT S-IFCHR ...) ; compiling (DEFCONSTANT S-IFDIR ...) ; compiling (DEFCONSTANT S-IFBLK ...) ; compiling (DEFCONSTANT S-IFREG ...) ; compiling (DEFCONSTANT S-IFLNK ...) ; compiling (DEFCONSTANT S-IFSOCK ...) ; compiling (DEFCONSTANT ENOENT ...) ; compiling (DEFCONSTANT EINTR ...) ; compiling (DEFCONSTANT EIO ...) ; compiling (DEFCONSTANT EEXIST ...) ; compiling (DEFCONSTANT ESPIPE ...) ; compiling (DEFCONSTANT EWOULDBLOCK ...) ; compiling (DEFCONSTANT WNOHANG ...) ; compiling (DEFCONSTANT WUNTRACED ...) ; compiling (DEFCONSTANT TIOCNOTTY ...) ; compiling (DEFCONSTANT TIOCGWINSZ ...) ; compiling (DEFCONSTANT TIOCSWINSZ ...) ; compiling (DEFCONSTANT TIOCGPGRP ...) ; compiling (DEFCONSTANT TIOCSPGRP ...) ; compiling (DEFCONSTANT SIGALRM ...) ; compiling (DEFCONSTANT SIGBUS ...) ; compiling (DEFCONSTANT SIGCHLD ...) ; compiling (DEFCONSTANT SIGCONT ...) ; compiling (DEFCONSTANT SIGFPE ...) ; compiling (DEFCONSTANT SIGHUP ...) ; compiling (DEFCONSTANT SIGILL ...) ; compiling (DEFCONSTANT SIGINT ...) ; compiling (DEFCONSTANT SIGIO ...) ; compiling (DEFCONSTANT SIGIOT ...) ; compiling (DEFCONSTANT SIGKILL ...) ; compiling (DEFCONSTANT SIGPIPE ...) ; compiling (DEFCONSTANT SIGPROF ...) ; compiling (DEFCONSTANT SIGQUIT ...) ; compiling (DEFCONSTANT SIGSEGV ...) ; compiling (DEFCONSTANT SIGSTOP ...) ; compiling (DEFCONSTANT SIGSYS ...) ; compiling (DEFCONSTANT SIGTERM ...) ; compiling (DEFCONSTANT SIGTRAP ...) ; compiling (DEFCONSTANT SIGTSTP ...) ; compiling (DEFCONSTANT SIGTTIN ...) ; compiling (DEFCONSTANT SIGTTOU ...) ; compiling (DEFCONSTANT SIGURG ...) ; compiling (DEFCONSTANT SIGUSR1 ...) ; compiling (DEFCONSTANT SIGUSR2 ...) ; compiling (DEFCONSTANT SIGVTALRM ...) ; compiling (DEFCONSTANT SIGWINCH ...) ; compiling (DEFCONSTANT SIGXCPU ...) ; compiling (DEFCONSTANT SIGXFSZ ...) ; compiling (DEFCONSTANT FPE-INTOVF ...) ; compiling (DEFCONSTANT FPE-INTDIV ...) ; compiling (DEFCONSTANT FPE-FLTDIV ...) ; compiling (DEFCONSTANT FPE-FLTOVF ...) ; compiling (DEFCONSTANT FPE-FLTUND ...) ; compiling (DEFCONSTANT FPE-FLTRES ...) ; compiling (DEFCONSTANT FPE-FLTINV ...) ; compiling (DEFCONSTANT FPE-FLTSUB ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/stuff-groveled-from-headers.lisp ; in: DEFINE-ALIEN-TYPE GID-T ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX:GID-T (SB!ALIEN:UNSIGNED 32)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX:GID-T ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE 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 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 ; ; caught STYLE-WARNING: ; 7 more uses of undefined function SB!ALIEN::%DEFINE-ALIEN-TYPE ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!ALIEN::%DEFINE-ALIEN-TYPE ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/output/stuff-groveled-from-headers.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/kernel.lisp" (written 28 MAR 2005 07:55:25 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN GET-HEADER-DATA ...) ; compiling (DEFUN SET-HEADER-DATA ...) ; compiling (DEFUN GET-CLOSURE-LENGTH ...) ; compiling (DEFUN LOWTAG-OF ...) ; compiling (DEFUN WIDETAG-OF ...) ; compiling (DEFUN VECTOR-SAP ...) ; compiling (DEFUN BINDING-STACK-POINTER-SAP ...) ; compiling (DEFUN DYNAMIC-SPACE-FREE-POINTER ...) ; compiling (DEFUN CONTROL-STACK-POINTER-SAP ...) ; compiling (DEFUN FUN-SUBTYPE ...) ; compiling (DEFUN (SETF FUN-SUBTYPE) ...) ; compiling (DEFUN %SIMPLE-FUN-ARGLIST ...) ; compiling (DEFUN %SIMPLE-FUN-NAME ...) ; compiling (DEFUN %SIMPLE-FUN-TYPE ...) ; compiling (DEFUN %SIMPLE-FUN-NEXT ...) ; compiling (DEFUN %SIMPLE-FUN-SELF ...) ; compiling (DEFUN %CLOSURE-FUN ...) ; compiling (DEFUN SB!C::VECTOR-LENGTH ...) ; compiling (DEFUN %CLOSURE-INDEX-REF ...) ; compiling (DEFUN ALLOCATE-VECTOR ...) ; compiling (DEFUN MAKE-ARRAY-HEADER ...) ; compiling (DEFUN CODE-INSTRUCTIONS ...) ; compiling (DEFUN CODE-HEADER-REF ...) ; compiling (DEFUN CODE-HEADER-SET ...) ; compiling (DEFUN %RAW-BITS ...) ; compiling (DEFUN %SET-RAW-BITS ...) ; compiling (DEFUN %VECTOR-RAW-BITS ...) ; compiling (DEFUN %SET-VECTOR-RAW-BITS ...) ; compiling (DEFUN MAKE-SINGLE-FLOAT ...) ; compiling (DEFUN MAKE-DOUBLE-FLOAT ...) ; compiling (DEFUN SINGLE-FLOAT-BITS ...) ; compiling (DEFUN DOUBLE-FLOAT-HIGH-BITS ...) ; compiling (DEFUN DOUBLE-FLOAT-LOW-BITS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/kernel.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/toplevel.lisp" (written 26 OCT 2006 05:07:54 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR SB!VM:*CURRENT-CATCH-BLOCK*) ; compiling (DEFVAR SB!VM::*CURRENT-UNWIND-PROTECT-BLOCK*) ; compiling (DEFVAR *FREE-INTERRUPT-CONTEXT-INDEX*) ; compiling (DECLAIM (SPECIAL SB!UNIX::*INTERRUPTS-ENABLED* ...)) ; compiling (DEFVAR *COLD-INIT-COMPLETE-P*) ; compiling (DEFVAR *MAXIMUM-ERROR-DEPTH*) ; compiling (DEFVAR *CURRENT-ERROR-DEPTH*) ; compiling (DEFUN SYSINIT-PATHNAME ...) ; compiling (DEFUN USERINIT-PATHNAME ...) ; compiling (DEFVAR *SYSINIT-PATHNAME-FUNCTION* ...) ; compiling (DEFVAR *USERINIT-PATHNAME-FUNCTION* ...) ; compiling (DEFMACRO HANDLING-END-OF-THE-WORLD ...) ; compiling (DEFMACRO INFINITE-ERROR-PROTECT ...) ; compiling (DEFUN INFINITE-ERROR-PROTECTOR ...) ; compiling (DEFUN SLEEP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/toplevel.lisp ; in: DEFUN SLEEP ; 'SIMPLE-TYPE-ERROR ; ; note: deleting unreachable code ; compiling (DEFCONSTANT BYTES-PER-SCRUB-UNIT ...) ; compiling (DEFUN SCRUB-CONTROL-STACK ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/toplevel.lisp ; in: DEFUN SCRUB-CONTROL-STACK ; (- (SB!SYS:SAP-INT (SB!DI::DESCRIPTOR-SAP SB!VM:*CONTROL-STACK-END*)) ; SB!C:*BACKEND-PAGE-SIZE*) ; ; 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 -536870910 4294967295) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (INTEGER -536870910 4294967295) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (>= (SB!SYS:SAP-INT SB!IMPL::PTR) SB!IMPL::END-OF-STACK) ; --> IF ; ==> ; (< (SB!SYS:SAP-INT SB!IMPL::PTR) SB!IMPL::END-OF-STACK) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The second argument is a (INTEGER -536870910 4294967295), not a FIXNUM. ; (- (SB!SYS:SAP-INT (SB!DI::DESCRIPTOR-SAP SB!VM:*CONTROL-STACK-END*)) ; SB!C:*BACKEND-PAGE-SIZE*) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; (>= (SB!SYS:SAP-INT SB!IMPL::PTR) SB!IMPL::END-OF-STACK) ; --> IF ; ==> ; (< (SB!SYS:SAP-INT SB!IMPL::PTR) SB!IMPL::END-OF-STACK) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-< ; compiling (DEFVAR / ...) ; compiling (DEFVAR // ...) ; compiling (DEFVAR /// ...) ; compiling (DEFVAR * ...) ; compiling (DEFVAR ** ...) ; compiling (DEFVAR *** ...) ; compiling (DEFVAR + ...) ; compiling (DEFVAR ++ ...) ; compiling (DEFVAR +++ ...) ; compiling (DEFVAR - ...) ; compiling (DEFUN INTERACTIVE-EVAL ...) ; compiling (DEFUN FLUSH-STANDARD-OUTPUT-STREAMS ...) ; compiling (DEFUN PROCESS-INIT-FILE ...) ; compiling (DEFUN PROCESS-EVAL-OPTIONS ...) ; compiling (DEFUN STARTUP-ERROR ...) ; compiling (DEFUN TOPLEVEL-INIT ...) ; compiling (DEFVAR *REPL-READ-FORM-FUN* ...) ; compiling (DEFVAR *REPL-PROMPT-FUN* ...) ; compiling (DEFVAR *REPL-FUN-GENERATOR* ...) ; compiling (DEFUN TOPLEVEL-REPL ...) ; compiling (DEFUN REPL-PROMPT-FUN ...) ; compiling (DEFUN REPL-READ-FORM-FUN ...) ; compiling (DEFUN REPL-FUN ...) ; compiling (DEFUN %HALT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/toplevel.lisp ; 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 ; in: DEFUN SCRUB-CONTROL-STACK ; (SB!DI::DESCRIPTOR-SAP SB!VM:*CONTROL-STACK-END*) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::DESCRIPTOR-SAP ; 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::*CURRENT-ERROR-DEPTH* ; " nested errors. " "SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.") ; ; caught STYLE-WARNING: ; undefined function: ERROR-ERROR ; in: DEFUN REPL-FUN ; (SB!THREAD::GET-FOREGROUND) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::GET-FOREGROUND ; in: DEFUN SLEEP ; (SB!UNIX:NANOSLEEP SB!IMPL::SEC SB!IMPL::NSEC) ; ; caught STYLE-WARNING: ; undefined function: SB!UNIX:NANOSLEEP ; in: DEFUN TOPLEVEL-INIT ; (SB!EXT:NATIVE-PATHNAME (SB!IMPL::POP-OPTION)) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-PATHNAME ; 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::PROTECT-CONTROL-STACK-GUARD-PAGE 1) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::PROTECT-CONTROL-STACK-GUARD-PAGE ; in: DEFUN REPL-READ-FORM-FUN ; (SB!EXT:QUIT) ; ; caught STYLE-WARNING: ; undefined function: QUIT ; in: DEFUN TOPLEVEL-INIT ; (SB!EXT:QUIT :UNIX-STATUS 1) ; ; caught STYLE-WARNING: ; undefined function: QUIT ; in: DEFUN STARTUP-ERROR ; (SB!EXT:QUIT :UNIX-STATUS 1) ; ; caught STYLE-WARNING: ; undefined function: QUIT ; in: DEFUN TOPLEVEL-REPL ; (SB!UNIX::RESET-SIGNAL-MASK) ; ; caught STYLE-WARNING: ; undefined function: SB!UNIX::RESET-SIGNAL-MASK ; in: DEFUN SYSINIT-PATHNAME ; (SB!INT:SBCL-HOMEDIR-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: SBCL-HOMEDIR-PATHNAME ; in: DEFUN REPL-READ-FORM-FUN ; (DEFUN SB!IMPL::REPL-READ-FORM-FUN (SB!IMPL::IN SB!IMPL::OUT) ; (DECLARE (TYPE STREAM SB!IMPL::IN SB!IMPL::OUT) (IGNORE SB!IMPL::OUT)) ; (LET* ((SB!IMPL::EOF-MARKER (CONS NIL NIL)) ; (SB!KERNEL:FORM (READ SB!IMPL::IN NIL SB!IMPL::EOF-MARKER))) ; (IF (EQ SB!KERNEL:FORM SB!IMPL::EOF-MARKER) (SB!EXT:QUIT) ; SB!KERNEL:FORM))) ; --> PROGN SB!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN ; --> COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; These functions are undefined: ; CRITICALLY-UNREACHABLE SB!DI::DESCRIPTOR-SAP DISABLE-STEPPING ERROR-ERROR SB!THREAD::GET-FOREGROUND SB!UNIX:NANOSLEEP NATIVE-PATHNAME PARSE-NATIVE-NAMESTRING SB!KERNEL::PROTECT-CONTROL-STACK-GUARD-PAGE QUIT SB!UNIX::RESET-SIGNAL-MASK SBCL-HOMEDIR-PATHNAME UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; caught 17 STYLE-WARNING conditions ; printed 5 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/toplevel.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cold-error.lisp" (written 14 JUL 2005 05:30:14 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFVAR *BREAK-ON-SIGNALS* ...) ; compiling (DEFUN SIGNAL ...) ; compiling (DEFUN ERROR ...) ; compiling (DEFUN CERROR ...) ; compiling (DEFUN %BREAK ...) ; compiling (DEFUN BREAK ...) ; compiling (DEFUN WARN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cold-error.lisp ; in: DEFUN CERROR ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-ERROR 'CERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; in: DEFUN ERROR ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; in: DEFUN SIGNAL ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-CONDITION 'SIGNAL) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; ; caught STYLE-WARNING: ; 2 more uses of undefined function COERCE-TO-CONDITION ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cold-error.lisp ; in: DEFUN ERROR ; (INVOKE-DEBUGGER CONDITION) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFMACRO-MUNDANELY MAYBE-FIND-STACK-TOP-HINT ; (SB!KERNEL:FIND-CALLER-NAME-AND-FRAME) ; ; caught STYLE-WARNING: ; undefined function: FIND-CALLER-NAME-AND-FRAME ; ; caught STYLE-WARNING: ; undefined function: FIND-CALLER-NAME-AND-FRAME ; ; caught STYLE-WARNING: ; undefined function: FIND-CALLER-NAME-AND-FRAME ; in: DEFUN WARN ; (ETYPECASE CONDITION (STYLE-WARNING 'STYLE-WARNING) (WARNING 'WARNING)) ; --> LET COND IF ; ==> ; (TYPEP #:G163 'STYLE-WARNING) ; ; caught STYLE-WARNING: ; undefined type: STYLE-WARNING ; ; caught STYLE-WARNING: ; undefined type: STYLE-WARNING ; ; caught STYLE-WARNING: ; undefined type: STYLE-WARNING ; ; caught STYLE-WARNING: ; 4 more uses of undefined type STYLE-WARNING ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cold-error.lisp ; in: DEFUN WARN ; (SB!INT:ENFORCE-TYPE CONDITION WARNING) ; --> LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:ONCE-ONLY-155 'WARNING) ; ; caught STYLE-WARNING: ; undefined type: WARNING ; ; caught STYLE-WARNING: ; undefined type: WARNING ; ; caught STYLE-WARNING: ; undefined type: WARNING ; ; caught STYLE-WARNING: ; 11 more uses of undefined type WARNING ; ; caught STYLE-WARNING: ; These functions are undefined: ; COERCE-TO-CONDITION FIND-CALLER-NAME-AND-FRAME ; ; caught STYLE-WARNING: ; These types are undefined: ; CONDITION STYLE-WARNING WARNING ; ; compilation unit finished ; caught 20 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/cold-error.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fdefinition.lisp" (written 14 JUL 2005 05:30:34 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (/SHOW0 "fdefinition.lisp 22") ; compiling (DEFUN MAKE-FDEFN ...) ; compiling (DEFUN FDEFN-NAME ...) ; compiling (DEFUN FDEFN-FUN ...) ; compiling (DEFUN (SETF FDEFN-FUN) ...) ; compiling (DEFUN FDEFN-MAKUNBOUND ...) ; compiling (DEFVAR *!INITIAL-FDEFN-OBJECTS*) ; compiling (DEFUN !FDEFN-COLD-INIT ...) ; compiling (DEFUN FDEFINITION-OBJECT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fdefinition.lisp ; in: DEFUN FDEFINITION-OBJECT ; (DEFUN SB!KERNEL:FDEFINITION-OBJECT (SB!IMPL::NAME SB!IMPL::CREATE) ; (DECLARE (VALUES (OR SB!KERNEL:FDEFN NULL))) ; (SB!INT:LEGAL-FUN-NAME-OR-TYPE-ERROR SB!IMPL::NAME) ; (LET ((SB!KERNEL:FDEFN (SB!INT:INFO :FUNCTION :DEFINITION SB!IMPL::NAME))) ; (IF (AND (NULL SB!KERNEL:FDEFN) SB!IMPL::CREATE) ; (SETF (SB!INT:INFO :FUNCTION :DEFINITION SB!IMPL::NAME) ; (SB!KERNEL:MAKE-FDEFN SB!IMPL::NAME)) ; SB!KERNEL:FDEFN))) ; --> PROGN SB!INT:COLD-FSET ; ==> ; (THE ; # ; (PROGN ; (BLOCK SB!KERNEL:FDEFINITION-OBJECT ; (SB!INT:LEGAL-FUN-NAME-OR-TYPE-ERROR SB!IMPL::NAME) ; (LET (#) ; (IF # # SB!KERNEL:FDEFN))))) ; ; note: type assertion too complex to check: ; (VALUES &OPTIONAL (OR FDEFN NULL) &REST T). ; compiling (DECLAIM (INLINE %COERCE-NAME-TO-FUN)) ; compiling (DEFUN %COERCE-NAME-TO-FUN ...) ; compiling (DEFUN (SETF %COERCE-NAME-TO-FUN) ...) ; compiling (DEFUN %COERCE-CALLABLE-TO-FUN ...) ; compiling (DEFSTRUCT (ENCAPSULATION-INFO # ...) ...) ; compiling (DEFUN ENCAPSULATE ...) ; compiling (DEFUN FIND-IF-IN-CLOSURE ...) ; compiling (DEFUN ENCAPSULATION-INFO ...) ; compiling (DEFUN UNENCAPSULATE ...) ; compiling (DEFUN ENCAPSULATED-P ...) ; compiling (DEFUN FDEFINITION ...) ; compiling (DEFVAR *SETF-FDEFINITION-HOOK* ...) ; compiling (DEFUN %SET-FDEFINITION ...) ; compiling (DEFUN FBOUNDP ...) ; compiling (DEFUN FMAKUNBOUND ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!IMPL::ENCAPSULATION-INFO)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; in: DEFUN FDEFINITION-OBJECT ; (SETF (SB!INT:INFO :FUNCTION :DEFINITION SB!IMPL::NAME) ; (SB!KERNEL:MAKE-FDEFN SB!IMPL::NAME)) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!INT:INFO) #:G38 #:G41 #:G40 #:G39) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; in: DEFUN !FDEFN-COLD-INIT ; (SETF (SB!INT:INFO :FUNCTION :DEFINITION ; (SB!KERNEL:FDEFN-NAME SB!KERNEL:FDEFN)) ; SB!KERNEL:FDEFN) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!INT:INFO) #:G31 #:G34 #:G33 #:G32) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; in: DEFUN FMAKUNBOUND ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR ; (:SYMBOL SB!IMPL::NAME "removing the function or macro definition of ~A") ; (LET ((SB!KERNEL:FDEFN (SB!KERNEL:FDEFINITION-OBJECT SB!IMPL::NAME NIL))) ; (WHEN SB!KERNEL:FDEFN (SB!KERNEL:FDEFN-MAKUNBOUND SB!KERNEL:FDEFN))) ; (SB!KERNEL:UNDEFINE-FUN-NAME SB!IMPL::NAME) SB!IMPL::NAME) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!IMPL::NAME ; "removing the function or macro definition of ~A") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN %SET-FDEFINITION ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR ; (:SYMBOL SB!IMPL::NAME "setting fdefinition of ~A") ; (LET ((SB!KERNEL:FDEFN (SB!KERNEL:FDEFINITION-OBJECT SB!IMPL::NAME T))) ; (WHEN (BOUNDP 'SB!INT:*SETF-FDEFINITION-HOOK*) ; (DOLIST (SB!IMPL::F SB!INT:*SETF-FDEFINITION-HOOK*) ; (DECLARE #) ; (FUNCALL SB!IMPL::F SB!IMPL::NAME SB!IMPL::NEW-VALUE))) ; (LET ((SB!IMPL::ENCAP-INFO #)) ; (COND (SB!IMPL::ENCAP-INFO #) (T #))))) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!IMPL::NAME ; "setting fdefinition of ~A") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::ENCAPSULATION-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN FDEFINITION-OBJECT ; (SB!INT:INFO :FUNCTION :DEFINITION SB!IMPL::NAME) ; ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT (SETF INFO) ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED INFO UNDEFINE-FUN-NAME ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/fdefinition.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp" (written 06 OCT 2006 11:54:13 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFUN CTYPEP ...) ; compiling (DECLAIM (INLINE LAYOUT-OF)) ; compiling (DEFUN LAYOUT-OF ...) ; compiling (DECLAIM (INLINE CLASSOID-OF)) ; compiling (DEFUN CLASSOID-OF ...) ; compiling (DEFUN CLEAR-TYPE-CACHES ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: DEFUN LAYOUT-OF ; (COND ; ((SB!KERNEL:%INSTANCEP SB!KERNEL::X) ; (SB!KERNEL:%INSTANCE-LAYOUT SB!KERNEL::X)) ; ((SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::X) ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X)) ; ((NULL SB!KERNEL::X) SB!KERNEL::*NULL-CLASSOID-LAYOUT*) ; (T ; (SVREF SB!KERNEL::*BUILT-IN-CLASS-CODES* ; (SB!KERNEL:WIDETAG-OF SB!KERNEL::X)))) ; --> IF COND IF COND IF PROGN ; ==> ; SB!KERNEL::*NULL-CLASSOID-LAYOUT* ; ; note: deleting unreachable code ; (SB!KERNEL:%INSTANCE-LAYOUT SB!KERNEL::X) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; (NULL SB!KERNEL::X) ; --> IF ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; (SVREF SB!KERNEL::*BUILT-IN-CLASS-CODES* (SB!KERNEL:WIDETAG-OF SB!KERNEL::X)) ; --> AREF THE ; ==> ; SB!KERNEL::*BUILT-IN-CLASS-CODES* ; ; note: deleting unreachable code ; (COND ; ((SB!KERNEL:%INSTANCEP SB!KERNEL::X) ; (SB!KERNEL:%INSTANCE-LAYOUT SB!KERNEL::X)) ; ((SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::X) ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X)) ; ((NULL SB!KERNEL::X) SB!KERNEL::*NULL-CLASSOID-LAYOUT*) ; (T ; (SVREF SB!KERNEL::*BUILT-IN-CLASS-CODES* ; (SB!KERNEL:WIDETAG-OF SB!KERNEL::X)))) ; --> IF COND IF COND IF PROGN ; ==> ; SB!KERNEL::*NULL-CLASSOID-LAYOUT* ; ; note: deleting unreachable code ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TARGET-TYPE-COLD-INIT) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: ; DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION (LAMBDA (X) (LOGAND (SXHASH X) 511)) ; :HASH-BITS 9 ...) ; (SB!IMPL::%FUN-TYPE SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%FUN-TYPE ; in: DEFUN LAYOUT-OF ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; undefined type: ALIEN-TYPE-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 COND IF COND IF COND IF TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:G6 'SB!KERNEL:ALIEN-TYPE-TYPE) ; ; caught STYLE-WARNING: ; undefined type: ALIEN-TYPE-TYPE ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G6 'SB!KERNEL:ALIEN-TYPE-TYPE) ; ; caught STYLE-WARNING: ; undefined type: ALIEN-TYPE-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type ALIEN-TYPE-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: DEFUN CTYPEP ; (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 LET OR LET IF OR LET IF OR LET IF OR LET TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:ONCE-ONLY-7 'SB!KERNEL:ARRAY-TYPE) ; ; caught STYLE-WARNING: ; undefined type: ARRAY-TYPE ; --> LET COND IF TYPEP LET OR LET IF OR LET IF OR LET IF OR LET ; ==> ; (TYPEP #:ONCE-ONLY-7 'SB!KERNEL:ARRAY-TYPE) ; ; caught STYLE-WARNING: ; undefined type: ARRAY-TYPE ; --> LET COND IF ; ==> ; (TYPEP #:G6 ; '(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: ; 4 more uses of undefined type ARRAY-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 TYPEP LET OR LET IF OR LET IF OR LET IF OR LET IF OR LET ; --> TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:ONCE-ONLY-7 'SB!KERNEL:CHARACTER-SET-TYPE) ; ; caught STYLE-WARNING: ; undefined type: CHARACTER-SET-TYPE ; --> LET COND IF TYPEP LET OR LET IF OR LET IF OR LET IF OR LET IF OR LET ; ==> ; (TYPEP #:ONCE-ONLY-7 'SB!KERNEL:CHARACTER-SET-TYPE) ; ; caught STYLE-WARNING: ; undefined type: CHARACTER-SET-TYPE ; --> LET COND IF ; ==> ; (TYPEP #:G6 ; '(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: CHARACTER-SET-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type CHARACTER-SET-TYPE ; ; caught STYLE-WARNING: ; undefined type: COMPOUND-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ==> ; (SB!KERNEL:%TYPEP #:G6 'SB!KERNEL:COMPOUND-TYPE) ; ; caught STYLE-WARNING: ; undefined type: COMPOUND-TYPE ; --> LET COND IF COND IF COND IF ; ==> ; (TYPEP #:G6 'SB!KERNEL:COMPOUND-TYPE) ; ; caught STYLE-WARNING: ; undefined type: COMPOUND-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type COMPOUND-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: DEFUN CTYPEP ; (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 LET OR LET IF OR LET IF OR LET IF OR LET IF OR LET IF ; --> OR LET IF OR TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:ONCE-ONLY-7 'SB!KERNEL:CONS-TYPE) ; ; caught STYLE-WARNING: ; undefined type: CONS-TYPE ; --> LET COND IF TYPEP LET OR LET IF OR LET IF OR LET IF OR LET IF OR LET IF ; --> OR LET IF OR ; ==> ; (TYPEP #:ONCE-ONLY-7 'SB!KERNEL:CONS-TYPE) ; ; caught STYLE-WARNING: ; undefined type: CONS-TYPE ; --> LET COND IF ; ==> ; (TYPEP #:G6 ; '(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 ; ; caught STYLE-WARNING: ; 5 more uses of undefined type CONS-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: DEFUN CTYPEP ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: ; DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION (LAMBDA (X) (LOGAND (SXHASH X) 511)) ; :HASH-BITS 9 ...) ; (SB!KERNEL::CTYPE-OF-NUMBER SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF-NUMBER ; ; caught STYLE-WARNING: ; undefined type: FUN-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 COND IF TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:G6 'SB!KERNEL:FUN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: FUN-TYPE ; --> LET COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G6 'SB!KERNEL:FUN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: FUN-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type FUN-TYPE ; ; caught STYLE-WARNING: ; undefined type: HAIRY-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 COND IF COND IF COND IF COND IF COND IF TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:G6 'SB!KERNEL:HAIRY-TYPE) ; ; caught STYLE-WARNING: ; undefined type: HAIRY-TYPE ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G6 'SB!KERNEL:HAIRY-TYPE) ; ; caught STYLE-WARNING: ; undefined type: HAIRY-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type HAIRY-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: DEFUN CTYPEP ; (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 ; ; caught STYLE-WARNING: ; undefined type: INTERSECTION-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: DEFUN CTYPEP ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; --> LET COND IF TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:G15 'SB!KERNEL:INTERSECTION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: INTERSECTION-TYPE ; --> LET COND IF ; ==> ; (TYPEP #:G15 'SB!KERNEL:INTERSECTION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: INTERSECTION-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type INTERSECTION-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: ; DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION (LAMBDA (X) (LOGAND (SXHASH X) 511)) ; :HASH-BITS 9 ...) ; (SB!KERNEL:MAKE-ARRAY-TYPE :DIMENSIONS (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 LET OR LET IF OR LET IF OR LET TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:ONCE-ONLY-7 'SB!KERNEL:MEMBER-TYPE) ; ; caught STYLE-WARNING: ; undefined type: MEMBER-TYPE ; --> LET COND IF TYPEP LET OR LET IF OR LET IF OR LET ; ==> ; (TYPEP #:ONCE-ONLY-7 'SB!KERNEL:MEMBER-TYPE) ; ; caught STYLE-WARNING: ; undefined type: MEMBER-TYPE ; --> LET COND IF ; ==> ; (TYPEP #:G6 ; '(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: ; 4 more uses of undefined type MEMBER-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 TYPEP LET OR LET IF OR LET TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:ONCE-ONLY-7 'SB!KERNEL:NAMED-TYPE) ; ; caught STYLE-WARNING: ; undefined type: NAMED-TYPE ; --> LET COND IF TYPEP LET OR LET IF OR LET ; ==> ; (TYPEP #:ONCE-ONLY-7 'SB!KERNEL:NAMED-TYPE) ; ; caught STYLE-WARNING: ; undefined type: NAMED-TYPE ; --> LET COND IF ; ==> ; (TYPEP #:G6 ; '(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: NAMED-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type NAMED-TYPE ; ; caught STYLE-WARNING: ; undefined type: NEGATION-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 COND IF COND IF COND IF COND IF TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:G6 'SB!KERNEL:NEGATION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: NEGATION-TYPE ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G6 'SB!KERNEL:NEGATION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: NEGATION-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type NEGATION-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: DEFUN CTYPEP ; (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 LET OR LET TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:ONCE-ONLY-7 'SB!KERNEL:NUMERIC-TYPE) ; ; caught STYLE-WARNING: ; undefined type: NUMERIC-TYPE ; --> LET COND IF TYPEP LET OR LET ; ==> ; (TYPEP #:ONCE-ONLY-7 'SB!KERNEL:NUMERIC-TYPE) ; ; caught STYLE-WARNING: ; undefined type: NUMERIC-TYPE ; --> LET COND IF ; ==> ; (TYPEP #:G6 ; '(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 ; ; caught STYLE-WARNING: ; 4 more uses of undefined type NUMERIC-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: ; DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION (LAMBDA (X) (LOGAND (SXHASH X) 511)) ; :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 ; ; caught STYLE-WARNING: ; undefined type: UNION-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-type.lisp ; in: DEFUN CTYPEP ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; --> LET COND IF COND IF TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:G15 'SB!KERNEL:UNION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: UNION-TYPE ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G15 'SB!KERNEL:UNION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: UNION-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type UNION-TYPE ; ; caught STYLE-WARNING: ; undefined type: UNKNOWN-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 COND IF COND IF TYPEP ; ==> ; (SB!KERNEL:%TYPEP #:G6 'SB!KERNEL:UNKNOWN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: UNKNOWN-TYPE ; --> LET COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G6 'SB!KERNEL:UNKNOWN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: UNKNOWN-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type UNKNOWN-TYPE ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!IMPL::%FUN-TYPE %FUNCALLABLE-INSTANCE-LAYOUT ALIEN-TYPE-TYPE-ALIEN-TYPE ALIEN-TYPEP COMPOUND-TYPE-TYPES CSUBTYPEP CTYPE-OF-NUMBER HAIRY-TYPE-SPECIFIER INFO MAKE-ARRAY-TYPE MAKE-CONS-TYPE MAKE-MEMBER-TYPE NEGATION-TYPE-TYPE SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; These types are undefined: ; ALIEN-TYPE-TYPE ARRAY-TYPE CHARACTER-SET-TYPE COMPOUND-TYPE CONS-TYPE FUN-TYPE HAIRY-TYPE INTERSECTION-TYPE MEMBER-TYPE NAMED-TYPE NEGATION-TYPE NUMERIC-TYPE UNION-TYPE UNKNOWN-TYPE ; ; compilation unit finished ; caught 75 STYLE-WARNING conditions ; printed 5 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-type.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pred.lisp" (written 21 DEC 2006 03:17:32 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (INLINE STREAMP)) ; compiling (DEFUN STREAMP ...) ; compiling (DEFUN VECTOR-T-P ...) ; compiling (DEFUN SEQUENCEP ...) ; compiling (DEFUN NOT ...) ; compiling (DEF-TYPE-PREDICATE-WRAPPER ARRAY-HEADER-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER ARRAYP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER ATOM) ; compiling (DEF-TYPE-PREDICATE-WRAPPER BASE-CHAR-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER BASE-STRING-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER CHARACTER-STRING-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER BIGNUMP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER BIT-VECTOR-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER CHARACTERP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER CODE-COMPONENT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER CONSP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER COMPILED-FUNCTION-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEXP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-DOUBLE-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-RATIONAL-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-SINGLE-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER DOUBLE-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER EXTENDED-CHAR-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER FDEFN-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER FIXNUMP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER FLOATP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER FUNCTIONP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER INTEGERP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER LISTP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER LONG-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER LRA-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER NULL) ; compiling (DEF-TYPE-PREDICATE-WRAPPER NUMBERP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER RATIONALP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER RATIOP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER REALP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SHORT-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-BIT-VECTOR-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-BASE-STRING-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-CHARACTER-STRING-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-STRING-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-VECTOR-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SINGLE-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER STRINGP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER %INSTANCEP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SYMBOLP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SYSTEM-AREA-POINTER-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER WEAK-POINTER-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER VECTORP) ; compiling (DEF-TYPE-PREDICATE-WRAPPER UNSIGNED-BYTE-32-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIGNED-BYTE-32-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-NIL-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-UNSIGNED-BYTE-2-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-UNSIGNED-BYTE-4-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-UNSIGNED-BYTE-8-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-UNSIGNED-BYTE-16-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-UNSIGNED-BYTE-32-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-SIGNED-BYTE-8-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-SIGNED-BYTE-16-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-SIGNED-BYTE-30-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-SIGNED-BYTE-32-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-SINGLE-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-DOUBLE-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P) ; compiling (DEF-TYPE-PREDICATE-WRAPPER VECTOR-NIL-P) ; compiling (DEFUN TYPE-OF ...) ; compiling (DEFUN EQ ...) ; compiling (DECLAIM (INLINE %EQL)) ; compiling (DEFUN %EQL ...) ; compiling (DEFUN EQL ...) ; compiling (DEFUN BIT-VECTOR-= ...) ; compiling (DEFUN EQUAL ...) ; compiling (DEFUN HASH-TABLE-EQUALP ...) ; compiling (DEFUN EQUALP ...) ; compiling (/SHOW0 "about to do test cases in pred.lisp") ; compiling (LET (#) ...) ; compiling (/SHOW0 "done with test cases in pred.lisp") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pred.lisp ; in: DEFUN TYPE-OF ; (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 SEQUENCEP ; (SB!KERNEL:LAYOUT-OF SB!IMPL::X) ; --> BLOCK COND IF COND IF PROGN ; ==> ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN STREAMP ; (TYPEP STREAM 'STREAM) ; --> SB!C::%INSTANCE-TYPEP AND IF AND LET 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 %EQL ; (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: BIGNUM-COMPARE ; ; caught STYLE-WARNING: ; undefined function: BIGNUM-COMPARE ; ; caught STYLE-WARNING: ; undefined function: BIGNUM-COMPARE ; in: DEFUN TYPE-OF ; (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-PROPER-NAME ; in: DEF-TYPE-PREDICATE-WRAPPER COMPILED-FUNCTION-P ; (SB!IMPL::DEF-TYPE-PREDICATE-WRAPPER COMPILED-FUNCTION-P) ; --> DEFUN PROGN SB!INT:COLD-FSET BLOCK COMPILED-FUNCTION-P LET AND IF AND NOT ; --> IF ; ==> ; (SB!EVAL:INTERPRETED-FUNCTION-P #:ONCE-ONLY-77) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-P ; in: DEFUN EQUALP ; (SB!IMPL::PATHNAME= SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: PATHNAME= ; in: DEFUN EQUAL ; (SB!IMPL::PATHNAME= SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: PATHNAME= ; in: DEFUN TYPE-OF ; (SB!KERNEL:TYPE-SPECIFIER (SB!KERNEL:CTYPE-OF SB!IMPL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (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: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) ; --> SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; These functions are undefined: ; %FUNCALLABLE-INSTANCE-LAYOUT BIGNUM-COMPARE CLASSOID-PROPER-NAME SB!EVAL:INTERPRETED-FUNCTION-P PATHNAME= TYPE-SPECIFIER SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; caught 15 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/pred.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-alieneval.lisp" (written 23 OCT 2006 02:45:53 PM): ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (/SHOW0 "target-alieneval.lisp 15") ; compiling (DEFUN GUESS-ALIEN-NAME-FROM-LISP-NAME ...) ; compiling (DEFUN GUESS-LISP-NAME-FROM-ALIEN-NAME ...) ; compiling (DEFUN PICK-LISP-AND-ALIEN-NAMES ...) ; compiling (DEFMACRO DEFINE-ALIEN-VARIABLE ...) ; compiling (DEFMACRO DEF-ALIEN-VARIABLE ...) ; compiling (DEFUN %DEFINE-ALIEN-VARIABLE ...) ; compiling (DEFMACRO EXTERN-ALIEN ...) ; compiling (DEFMACRO WITH-ALIEN ...) ; compiling (DECLAIM (FREEZE-TYPE ALIEN-VALUE)) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DECLAIM (INLINE NULL-ALIEN)) ; compiling (DEFUN NULL-ALIEN ...) ; compiling (DEFMACRO SAP-ALIEN ...) ; compiling (DEFUN %SAP-ALIEN ...) ; compiling (DEFUN ALIEN-SAP ...) ; compiling (DEFMACRO MAKE-ALIEN ...) ; compiling (DECLAIM (INLINE %MAKE-ALIEN)) ; compiling (DEFUN %MAKE-ALIEN ...) ; compiling (DECLAIM (INLINE FREE-ALIEN)) ; compiling (DEFUN FREE-ALIEN ...) ; compiling (DEFUN SLOT-OR-LOSE ...) ; compiling (DEFUN SLOT ...) ; compiling (DEFUN %SET-SLOT ...) ; compiling (DEFUN %SLOT-ADDR ...) ; compiling (DEFUN DEREF-GUTS ...) ; compiling (DEFUN DEREF ...) ; compiling (DEFUN %SET-DEREF ...) ; compiling (DEFUN %DEREF-ADDR ...) ; compiling (DEFUN %HEAP-ALIEN ...) ; compiling (DEFUN %SET-HEAP-ALIEN ...) ; compiling (DEFUN %HEAP-ALIEN-ADDR ...) ; compiling (DEFUN MAKE-LOCAL-ALIEN ...) ; compiling (DEFUN NOTE-LOCAL-ALIEN-TYPE ...) ; compiling (DEFUN LOCAL-ALIEN ...) ; compiling (DEFUN %SET-LOCAL-ALIEN ...) ; compiling (DEFINE-SETF-EXPANDER LOCAL-ALIEN ...) ; compiling (DEFUN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; compiling (DEFUN %LOCAL-ALIEN-ADDR ...) ; compiling (DEFUN DISPOSE-LOCAL-ALIEN ...) ; compiling (DEFMACRO CAST ...) ; compiling (DEFUN %CAST ...) ; compiling (DEFMACRO ALIEN-SIZE ...) ; compiling (DEFUN NATURALIZE ...) ; compiling (DEFUN DEPORT ...) ; compiling (DEFUN EXTRACT-ALIEN-VALUE ...) ; compiling (DEFUN DEPOSIT-ALIEN-VALUE ...) ; compiling (DEFUN ALIEN-FUNCALL ...) ; compiling (DEFMACRO DEFINE-ALIEN-ROUTINE ...) ; compiling (DEFMACRO DEF-ALIEN-ROUTINE ...) ; compiling (DEFUN ALIEN-TYPEP ...) ; compiling (DEFVAR *ALIEN-CALLBACK-INFO* ...) ; compiling (DEFSTRUCT CALLBACK-INFO ...) ; compiling (DEFUN CALLBACK-INFO-KEY ...) ; compiling (DEFUN ALIEN-CALLBACK-INFO ...) ; compiling (DEFVAR *ALIEN-CALLBACKS* ...) ; compiling (DEFVAR *ALIEN-CALLBACK-WRAPPERS* ...) ; compiling (DEFVAR *ALIEN-CALLBACK-TRAMPOLINES* ...) ; compiling (DEFUN %ALIEN-CALLBACK-SAP ...) ; compiling (DEFUN ALIEN-CALLBACK-LISP-TRAMPOLINE ...) ; compiling (DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ...) ; compiling (DEFUN INVALID-ALIEN-CALLBACK ...) ; compiling (DEFUN PARSE-CALLBACK-SPECIFICATION ...) ; compiling (DEFUN PARSE-ALIEN-FTYPE ...) ; compiling (DEFUN ALIEN-VOID-TYPE-P ...) ; compiling (DEFUN ALIEN-TYPE-WORD-ALIGNED-BITS ...) ; compiling (DEFUN ALIEN-CALLBACK-ARGUMENT-BYTES ...) ; compiling (DEFUN ENTER-ALIEN-CALLBACK ...) ; compiling (DEFVAR *ENTER-ALIEN-CALLBACK* ...) ; compiling (DEFMACRO ALIEN-CALLBACK ...); ; caught STYLE-WARNING: ; undefined function: ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-FTYPE ; ; caught STYLE-WARNING: ; These functions are undefined: ; ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA PARSE-ALIEN-FTYPE ; compiling (DEFUN ALIEN-CALLBACK-P ...) ; compiling (DEFUN ALIEN-CALLBACK-FUNCTION ...) ; compiling (DEFUN (SETF ALIEN-CALLBACK-FUNCTION) ...) ; compiling (DEFUN INVALIDATE-ALIEN-CALLBACK ...) ; compiling (DEFMACRO ALIEN-LAMBDA ...); ; caught STYLE-WARNING: ; undefined function: PARSE-CALLBACK-SPECIFICATION ; ; caught STYLE-WARNING: ; This function is undefined: ; PARSE-CALLBACK-SPECIFICATION ; compiling (DEFMACRO DEFINE-ALIEN-CALLBACK ...); ; caught STYLE-WARNING: ; undefined function: PARSE-CALLBACK-SPECIFICATION ; ; caught STYLE-WARNING: ; This function is undefined: ; PARSE-CALLBACK-SPECIFICATION ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-alieneval.lisp ; in: DEFSTRUCT CALLBACK-INFO ; (DEFSTRUCT SB!ALIEN::CALLBACK-INFO ; SB!ALIEN::SPECIFIER ; FUNCTION ; SB!ALIEN::WRAPPER ; SB!INT:INDEX) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!ALIEN::CALLBACK-INFO)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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) #:G31 #:G34 #:G33 #:G32) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; in: DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; (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) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-CALLBACK-ASSEMBLER-WRAPPER ; 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 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!ALIEN-INTERNALS:ALIGN-OFFSET SB!SYS:BITS SB!ALIEN::ALIGNMENT) ; ; caught STYLE-WARNING: ; undefined function: ALIGN-OFFSET ; in: DEFSTRUCT CALLBACK-INFO ; (DEFSTRUCT SB!ALIEN::CALLBACK-INFO ; SB!ALIEN::SPECIFIER ; FUNCTION ; SB!ALIEN::WRAPPER ; SB!INT:INDEX) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ALIEN::CALLBACK-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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!INT:INFO (IF # # #))) ; (VALUES NIL NIL (LIST SB!ALIEN::VALUE) ; (SB!IMPL::BACKQ-LIST 'IF ; (SB!IMPL::BACKQ-LIST ; 'SB!ALIEN-INTERNALS:%LOCAL-ALIEN-FORCED-TO-MEMORY-P ; #) ; (SB!IMPL::BACKQ-LIST ; 'SB!ALIEN-INTERNALS:%SET-LOCAL-ALIEN # ; SB!ALIEN:ALIEN SB!ALIEN::VALUE) ; (SB!IMPL::BACKQ-LIST 'SETF SB!ALIEN:ALIEN ; #)) ; SB!ALIEN::WHOLE))) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ALIEN-INTERNALS:LOCAL-ALIEN ; (LAMBDA (#:WHOLE420 #:ENVIRONMENT421) ; (DECLARE (IGNORE #:ENVIRONMENT421)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN-INTERNALS:LOCAL-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 ; NIL ; SB!ALIEN::OPT1P) ; (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!IMPL::BACKQ-LIST* 'SYMBOL-MACROLET ; (SB!IMPL::BACKQ-LIST ; (SB!IMPL::BACKQ-LIST ; 'SB!ALIEN::&AUXILIARY-TYPE-DEFINITIONS& ; (SB!IMPL::BACKQ-APPEND ; SB!ALIEN::*NEW-AUXILIARY-TYPES* ; #))) ; SB!ALIEN::BODY)) ; --> SB!IMPL::BACKQ-LIST SB!IMPL::BACKQ-LIST SB!IMPL::BACKQ-LIST ; --> SB!IMPL::BACKQ-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!IMPL::BACKQ-LIST* 'EVAL-WHEN ; '(:COMPILE-TOPLEVEL ; :LOAD-TOPLEVEL ; :EXECUTE) ; (SB!IMPL::BACKQ-APPEND ; (WHEN ; SB!ALIEN::*NEW-AUXILIARY-TYPES* ; #) ; (SB!IMPL::BACKQ-LIST ; #))))) ; --> SB!IMPL::BACKQ-LIST SB!IMPL::BACKQ-LIST SB!IMPL::BACKQ-LIST ; --> SB!IMPL::BACKQ-APPEND ; ==> ; (SB!ALIEN::AUXILIARY-TYPE-DEFINITIONS SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: AUXILIARY-TYPE-DEFINITIONS ; in: DEFUN DISPOSE-LOCAL-ALIEN ; (SB!EXT:CANCEL-FINALIZATION SB!ALIEN:ALIEN) ; ; caught STYLE-WARNING: ; undefined function: CANCEL-FINALIZATION ; in: DEFUN %DEFINE-ALIEN-VARIABLE ; (SB!INT:CLEAR-INFO :VARIABLE :CONSTANT-VALUE SB!ALIEN::LISP-NAME) ; ; caught STYLE-WARNING: ; undefined function: CLEAR-INFO ; 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 ; (SB!ALIEN-INTERNALS:COMPUTE-DEPORT-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-DEPORT-LAMBDA ; in: DEFUN DEPOSIT-ALIEN-VALUE ; (SB!ALIEN-INTERNALS:COMPUTE-DEPOSIT-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-DEPOSIT-LAMBDA ; in: DEFUN EXTRACT-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))) ; ; caught STYLE-WARNING: ; undefined function: FINALIZE ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:MAKE-ALIEN-POINTER-TYPE :TO SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-ALIEN-POINTER-TYPE ; in: DEFMACRO WITH-ALIEN ; (SB!ALIEN::MAKE-HEAP-ALIEN-INFO :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE :SAP-FORM ; (SB!IMPL::BACKQ-LIST ; 'SB!SYS:FOREIGN-SYMBOL-SAP ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!ALIEN::INITIAL-VALUE) ; SB!ALIEN::DATAP)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-HEAP-ALIEN-INFO ; in: DEFMACRO EXTERN-ALIEN ; (SB!ALIEN::MAKE-HEAP-ALIEN-INFO :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE :SAP-FORM ; (SB!IMPL::BACKQ-LIST ; 'SB!SYS:FOREIGN-SYMBOL-SAP ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!ALIEN::ALIEN-NAME) ; SB!ALIEN::DATAP)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-HEAP-ALIEN-INFO ; in: DEFUN %DEFINE-ALIEN-VARIABLE ; (SB!ALIEN::MAKE-HEAP-ALIEN-INFO :TYPE TYPE :SAP-FORM ; (SB!IMPL::BACKQ-LIST* ; 'SB!SYS:FOREIGN-SYMBOL-SAP ; (SB!IMPL::BACKQ-LIST 'QUOTE ; SB!ALIEN::ALIEN-NAME) ; '(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: ; 8 more uses of undefined function PARSE-ALIEN-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-alieneval.lisp ; in: DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; (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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT (SETF INFO) ALIEN-CALLBACK-ACCESSOR-FORM ALIEN-CALLBACK-ASSEMBLER-WRAPPER ALIEN-SUBTYPE-P ALIGN-OFFSET SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!IMPL::ASSIGN-SETF-MACRO AUXILIARY-TYPE-DEFINITIONS CANCEL-FINALIZATION CLEAR-INFO COMPUTE-ALIEN-REP-TYPE COMPUTE-DEPORT-LAMBDA COMPUTE-DEPOSIT-LAMBDA COMPUTE-EXTRACT-LAMBDA COMPUTE-LISP-REP-TYPE COMPUTE-NATURALIZE-LAMBDA CONSTANT-FORM-VALUE FINALIZE MAKE-ALIEN-POINTER-TYPE MAKE-HEAP-ALIEN-INFO MAKE-LOCAL-ALIEN-INFO PARSE-ALIEN-TYPE UNPARSE-ALIEN-TYPE VERIFY-LOCAL-AUXILIARIES-OKAY ; ; compilation unit finished ; caught 43 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-c-call.lisp" (written 06 SEP 2006 09:27:10 PM): ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (DEFINE-ALIEN-TYPE CHAR ...) ; compiling (DEFINE-ALIEN-TYPE SHORT ...) ; compiling (DEFINE-ALIEN-TYPE INT ...) ; compiling (DEFINE-ALIEN-TYPE LONG ...) ; compiling (DEFINE-ALIEN-TYPE LONG-LONG ...) ; compiling (DEFINE-ALIEN-TYPE UNSIGNED-CHAR ...) ; compiling (DEFINE-ALIEN-TYPE UNSIGNED-SHORT ...) ; compiling (DEFINE-ALIEN-TYPE UNSIGNED-INT ...) ; compiling (DEFINE-ALIEN-TYPE UNSIGNED-LONG ...) ; compiling (DEFINE-ALIEN-TYPE UNSIGNED-LONG-LONG ...) ; compiling (DEFINE-ALIEN-TYPE FLOAT ...) ; compiling (DEFINE-ALIEN-TYPE DOUBLE ...) ; compiling (DEFINE-ALIEN-TYPE UTF8-STRING ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VOID ...) ; compiling (DEFUN DEFAULT-C-STRING-EXTERNAL-FORMAT ...) ; compiling (DEFUN %NATURALIZE-C-STRING ...) ; compiling (DEFUN STRING-TO-C-STRING ...) ; compiling (DEFUN C-STRING-TO-STRING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-c-call.lisp ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 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::GET-EXTERNAL-FORMAT-FUNCTION SB!ALIEN::EXTERNAL-FORMAT 9) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::GET-EXTERNAL-FORMAT-FUNCTION ; in: DEFUN STRING-TO-C-STRING ; (SB!IMPL::GET-EXTERNAL-FORMAT-FUNCTION SB!ALIEN::EXTERNAL-FORMAT 10) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::GET-EXTERNAL-FORMAT-FUNCTION ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; %DEFINE-ALIEN-TYPE %DEFINE-ALIEN-TYPE-TRANSLATOR SB!IMPL::DEFAULT-EXTERNAL-FORMAT SB!IMPL::GET-EXTERNAL-FORMAT-FUNCTION SB!KERNEL:MAKE-NULL-LEXENV PARSE-ALIEN-TYPE ; ; compilation unit finished ; caught 11 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-c-call.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-allocate.lisp" (written 04 MAR 2006 09:45:34 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFINE-ALIEN-ROUTINE ("os_allocate" ALLOCATE-SYSTEM-MEMORY) ...) ; compiling (DEFINE-ALIEN-ROUTINE ("os_deallocate" DEALLOCATE-SYSTEM-MEMORY) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-allocate.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/misc-aliens.lisp" (written 12 DEC 2001 10:54:50 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (INLINE MEMMOVE)) ; compiling (DEFINE-ALIEN-ROUTINE ("memmove" MEMMOVE) ...) ; compiling (DEFINE-ALIEN-ROUTINE ("os_get_errno" GET-ERRNO) ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFUN STRERROR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/misc-aliens.lisp ; 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:NATURALIZE IF SB!ALIEN::C-STRING-TO-STRING ; ==> ; (SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/misc-aliens.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/array.lisp" (written 21 DEC 2006 03:17:23 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (INLINE FILL-POINTER ...)) ; compiling (DEF %ARRAY-FILL-POINTER) ; compiling (DEF %ARRAY-FILL-POINTER-P) ; compiling (DEF %ARRAY-AVAILABLE-ELEMENTS) ; compiling (DEF %ARRAY-DATA-VECTOR) ; compiling (DEF %ARRAY-DISPLACEMENT) ; compiling (DEF %ARRAY-DISPLACED-P) ; compiling (DEFUN %ARRAY-RANK ...) ; compiling (DEFUN %ARRAY-DIMENSION ...) ; compiling (DEFUN %SET-ARRAY-DIMENSION ...) ; compiling (DEFUN %CHECK-BOUND ...) ; compiling (DEFUN %WITH-ARRAY-DATA ...) ; compiling (DEFUN %DATA-VECTOR-AND-INDEX ...) ; compiling (DEFUN FAILED-%WITH-ARRAY-DATA ...) ; compiling (DEFUN %VECTOR-WIDETAG-AND-N-BITS ...) ; compiling (DEFUN %COMPLEX-VECTOR-WIDETAG ...) ; compiling (DEFUN MAKE-ARRAY ...) ; compiling (DEFUN MAKE-STATIC-VECTOR ...) ; compiling (DEFUN DATA-VECTOR-FROM-INITS ...) ; compiling (DEFUN VECTOR ...) ; compiling (DEFUN HAIRY-DATA-VECTOR-REF ...) ; compiling (DEFUN DATA-VECTOR-REF ...) ; compiling (DEFUN HAIRY-DATA-VECTOR-SET ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/array.lisp ; in: DEFUN HAIRY-DATA-VECTOR-SET ; (SB!KERNEL:DATA-VECTOR-SET (THE (SIMPLE-ARRAY NIL (*)) VECTOR) SB!INT:INDEX ; (THE NIL SB!IMPL::NEW-VALUE)) ; ; note: The third argument never returns a value. ; (THE NIL SB!IMPL::NEW-VALUE) ; ; note: deleting unreachable code ; compiling (DEFUN %ARRAY-ROW-MAJOR-INDEX ...) ; compiling (DEFUN ARRAY-IN-BOUNDS-P ...) ; compiling (DEFUN ARRAY-ROW-MAJOR-INDEX ...) ; compiling (DEFUN AREF ...) ; compiling (DEFUN %ASET ...) ; compiling (DECLAIM (INLINE #)) ; compiling (DEFUN (SETF AREF) ...) ; compiling (DEFUN ROW-MAJOR-AREF ...) ; compiling (DEFUN %SET-ROW-MAJOR-AREF ...) ; compiling (DEFUN SVREF ...) ; compiling (DEFUN %SVSET ...) ; compiling (DEFUN BIT ...) ; compiling (DEFUN %BITSET ...) ; compiling (DECLAIM (INLINE #)) ; compiling (DEFUN (SETF BIT) ...) ; compiling (DEFUN SBIT ...) ; compiling (DEFUN %SBITSET ...) ; compiling (DECLAIM (INLINE #)) ; compiling (DEFUN (SETF SBIT) ...) ; compiling (DEFUN ARRAY-ELEMENT-TYPE ...) ; compiling (DEFUN ARRAY-RANK ...) ; compiling (DEFUN ARRAY-DIMENSION ...) ; compiling (DEFUN ARRAY-DIMENSIONS ...) ; compiling (DEFUN ARRAY-TOTAL-SIZE ...) ; compiling (DEFUN ARRAY-DISPLACEMENT ...) ; compiling (DEFUN ADJUSTABLE-ARRAY-P ...) ; compiling (DEFUN ARRAY-HAS-FILL-POINTER-P ...) ; compiling (DEFUN FILL-POINTER ...) ; compiling (DEFUN %SET-FILL-POINTER ...) ; compiling (DEFUN VECTOR-PUSH ...) ; compiling (DEFUN VECTOR-PUSH-EXTEND ...) ; compiling (DEFUN VECTOR-POP ...) ; compiling (DEFUN ADJUST-ARRAY ...) ; compiling (DEFUN GET-NEW-FILL-POINTER ...) ; compiling (DEFUN %SHRINK-VECTOR ...) ; compiling (DEFUN SHRINK-VECTOR ...) ; compiling (DEFUN SET-ARRAY-HEADER ...) ; compiling (DEFVAR *ZAP-ARRAY-DATA-TEMP* ...) ; compiling (DEFUN ZAP-ARRAY-DATA-TEMP ...) ; compiling (DEFUN ZAP-ARRAY-DATA ...) ; compiling (DEFUN ZAP-ARRAY-DATA-AUX ...) ; compiling (DEFUN ROW-MAJOR-INDEX-FROM-DIMS ...) ; compiling (DEFUN BIT-ARRAY-SAME-DIMENSIONS-P ...) ; compiling (DEFUN PICK-RESULT-ARRAY ...) ; compiling (DEFMACRO DEF-BIT-ARRAY-OP ...) ; compiling (DEF-BIT-ARRAY-OP BIT-AND ...) ; compiling (DEF-BIT-ARRAY-OP BIT-IOR ...) ; compiling (DEF-BIT-ARRAY-OP BIT-XOR ...) ; compiling (DEF-BIT-ARRAY-OP BIT-EQV ...) ; compiling (DEF-BIT-ARRAY-OP BIT-NAND ...) ; compiling (DEF-BIT-ARRAY-OP BIT-NOR ...) ; compiling (DEF-BIT-ARRAY-OP BIT-ANDC1 ...) ; compiling (DEF-BIT-ARRAY-OP BIT-ANDC2 ...) ; compiling (DEF-BIT-ARRAY-OP BIT-ORC1 ...) ; compiling (DEF-BIT-ARRAY-OP BIT-ORC2 ...) ; compiling (DEFUN BIT-NOT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 DATA-VECTOR-FROM-INITS ; (SB!IMPL::FILL-DATA-VECTOR SB!IMPL::DATA SB!IMPL::DIMENSIONS ; SB!IMPL::INITIAL-CONTENTS) ; ; caught STYLE-WARNING: ; undefined function: FILL-DATA-VECTOR ; ; caught STYLE-WARNING: ; These functions are undefined: ; ALLOCATE-STATIC-VECTOR FILL-DATA-VECTOR ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/array.lisp-obj-tmp written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-float.lisp" (written 14 JUL 2005 05:30:32 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN SINGLE-FROM-BITS ...) ; compiling (DEFUN DOUBLE-FROM-BITS ...) ; compiling (DEFCONSTANT LEAST-POSITIVE-SINGLE-FLOAT ...) ; compiling (DEFCONSTANT LEAST-POSITIVE-SHORT-FLOAT ...) ; compiling (DEFCONSTANT LEAST-NEGATIVE-SINGLE-FLOAT ...) ; compiling (DEFCONSTANT LEAST-NEGATIVE-SHORT-FLOAT ...) ; compiling (DEFCONSTANT LEAST-POSITIVE-DOUBLE-FLOAT ...) ; compiling (DEFCONSTANT LEAST-POSITIVE-LONG-FLOAT ...) ; compiling (DEFCONSTANT LEAST-NEGATIVE-DOUBLE-FLOAT ...) ; compiling (DEFCONSTANT LEAST-NEGATIVE-LONG-FLOAT ...) ; compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT ...) ; compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT ...) ; compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT ...) ; compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT ...) ; compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT ...) ; compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT ...) ; compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT ...) ; compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT ...) ; compiling (DEFCONSTANT MOST-POSITIVE-SINGLE-FLOAT ...) ; compiling (DEFCONSTANT MOST-POSITIVE-SHORT-FLOAT ...) ; compiling (DEFCONSTANT MOST-NEGATIVE-SINGLE-FLOAT ...) ; compiling (DEFCONSTANT MOST-NEGATIVE-SHORT-FLOAT ...) ; compiling (DEFCONSTANT MOST-POSITIVE-DOUBLE-FLOAT ...) ; compiling (DEFCONSTANT MOST-POSITIVE-LONG-FLOAT ...) ; compiling (DEFCONSTANT MOST-NEGATIVE-DOUBLE-FLOAT ...) ; compiling (DEFCONSTANT MOST-NEGATIVE-LONG-FLOAT ...) ; compiling (LET NIL ...) ; compiling (DEFCONSTANT SINGLE-FLOAT-EPSILON ...) ; compiling (DEFCONSTANT SHORT-FLOAT-EPSILON ...) ; compiling (DEFCONSTANT SINGLE-FLOAT-NEGATIVE-EPSILON ...) ; compiling (DEFCONSTANT SHORT-FLOAT-NEGATIVE-EPSILON ...) ; compiling (DEFCONSTANT DOUBLE-FLOAT-EPSILON ...) ; compiling (DEFCONSTANT LONG-FLOAT-EPSILON ...) ; compiling (DEFCONSTANT DOUBLE-FLOAT-NEGATIVE-EPSILON ...) ; compiling (DEFCONSTANT LONG-FLOAT-NEGATIVE-EPSILON ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-float.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-sxhash.lisp" (written 08 SEP 2006 03:35:22 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFCONSTANT +MAX-HASH-DEPTHOID+ ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MIX ...) ; compiling (DECLAIM (INLINE %SXHASH-SUBSTRING)) ; compiling (DEFUN %SXHASH-SUBSTRING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-sxhash.lisp ; in: DEFUN %SXHASH-SUBSTRING ; (AREF STRING SB!IMPL::I) ; --> LET* ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; compiling (DEFUN %SXHASH-SIMPLE-STRING ...) ; compiling (DEFUN %SXHASH-SIMPLE-SUBSTRING ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFMACRO HASH-ARRAY-USING ...) ; compiling (DEFUN SXHASH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-sxhash.lisp ; in: DEFUN SXHASH ; (TYPEP SB!IMPL::X '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 ; (IF ; (OR (TYPEP SB!IMPL::X 'STRUCTURE-OBJECT) (TYPEP SB!IMPL::X 'CONDITION)) ; (LOGXOR 422371266 (SXHASH #)) (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 ; (SB!IMPL::HASH-ARRAY-USING SB!IMPL::SXHASH-RECURSE SB!IMPL::X ; SB!IMPL::DEPTHOID)))) ; (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 #:G100 'GENERIC-FUNCTION) ; ; note: can't open-code test of unknown type GENERIC-FUNCTION ; in: DEFUN %SXHASH-SUBSTRING ; (AREF STRING SB!IMPL::I) ; --> LET* ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN SXHASH ; (COPY-SEQ SB!IMPL::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a BIT-VECTOR, not a SIMPLE-BIT-VECTOR. ; The result is a (VALUES (OR (SIMPLE-ARRAY * (*)) (AND SEQUENCE (NOT VECTOR))) ; &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T). ; (SB!IMPL::HASH-ARRAY-USING SB!IMPL::SXHASH-RECURSE SB!IMPL::X ; SB!IMPL::DEPTHOID) ; --> LET LET LET DOTIMES DO BLOCK LET MIN LET LET MIN LET ; ==> ; (ARRAY-RANK #:ONCE-ONLY-118) ; ; note: unable to optimize because: The array rank is not known at compile time: * ; --> LET LET LET DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* ; --> SB!INT:MIX ; ==> ; (ARRAY-DIMENSION #:ONCE-ONLY-118 SB!IMPL::I) ; ; note: unable to optimize because: The axis is not constant. ; --> LET LET LET DOTIMES DO BLOCK LET MIN LET LET MIN LET ; ==> ; (ARRAY-TOTAL-SIZE #:ONCE-ONLY-118) ; ; note: unable to optimize because: can't tell the rank at compile time ; --> LET LET LET DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* ; --> SB!INT:MIX SB!IMPL::SXHASH-RECURSE ROW-MAJOR-AREF ; --> 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 ; --> LET LET LET DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* ; --> SB!INT:MIX SB!IMPL::SXHASH-RECURSE ROW-MAJOR-AREF ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; (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). ; (SXHASH SB!IMPL::X) ; --> LET LET COND IF COND IF PROGN DO* BLOCK LET* TAGBODY RETURN-FROM PROGN ; --> LET LOGAND ; ==> ; (ASH (1- (ASH 1 (MOD LENGTH SB!VM:N-WORD-BITS))) ; (- SB!VM:N-WORD-BITS (MOD LENGTH SB!VM:N-WORD-BITS))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (INTEGER 1 32), not a (UNSIGNED-BYTE 5). ; --> LET* ; ==> ; (LOGAND (SB!KERNEL:SINGLE-FLOAT-BITS SB!C::VAL) 4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32). ; ==> ; (LOGAND (SB!KERNEL:DOUBLE-FLOAT-HIGH-BITS SB!C::VAL) 4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32). ; (REALPART SB!IMPL::X) ; ; note: forced to do full call ; unable to do complex single 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 double 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 single 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 double 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). ; (SXHASH SB!IMPL::X) ; --> LET LET COND IF COND IF PROGN DO* BLOCK LET* TAGBODY RETURN-FROM PROGN ; --> LET LOGAND ; ==> ; (ASH (1- (ASH 1 (MOD LENGTH SB!VM:N-WORD-BITS))) ; (- SB!VM:N-WORD-BITS (MOD LENGTH SB!VM:N-WORD-BITS))) ; ; note: doing unsigned word to integer coercion (cost 20) ; --> LET* ; ==> ; (LOGAND (SB!KERNEL:DOUBLE-FLOAT-HIGH-BITS SB!C::VAL) 4294967295) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; ==> ; (LOGAND (SB!KERNEL:SINGLE-FLOAT-BITS SB!C::VAL) 4294967295) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; compiling (DEFUN PSXHASH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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. ; compiling (DEFUN ARRAY-PSXHASH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-sxhash.lisp ; in: DEFUN ARRAY-PSXHASH ; (AREF SB!IMPL::KEY SB!IMPL::I) ; --> LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; (SB!IMPL::HASH-ARRAY-USING SB!INT:PSXHASH SB!IMPL::KEY SB!IMPL::DEPTHOID) ; --> LET LET LET DOTIMES DO BLOCK LET MIN LET LET MIN LET ; ==> ; (ARRAY-RANK #:ONCE-ONLY-195) ; ; note: unable to optimize because: The array rank is not known at compile time: * ; --> LET LET LET DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* ; --> SB!INT:MIX ; ==> ; (ARRAY-DIMENSION #:ONCE-ONLY-195 SB!IMPL::I) ; ; note: unable to optimize because: The axis is not constant. ; --> LET LET LET DOTIMES DO BLOCK LET MIN LET LET MIN LET ; ==> ; (ARRAY-TOTAL-SIZE #:ONCE-ONLY-195) ; ; note: unable to optimize because: can't tell the rank at compile time ; --> LET LET LET DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* ; --> SB!INT:MIX SB!INT:PSXHASH ROW-MAJOR-AREF 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 ; --> LET LET LET DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* ; --> SB!INT:MIX SB!INT:PSXHASH ROW-MAJOR-AREF ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; compiling (DEFUN STRUCTURE-OBJECT-PSXHASH ...) ; compiling (DEFUN LIST-PSXHASH ...) ; compiling (DEFUN HASH-TABLE-PSXHASH ...) ; compiling (DEFUN NUMBER-PSXHASH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-sxhash.lisp ; in: DEFUN NUMBER-PSXHASH ; (SXHASH SB!IMPL::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; ; 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). ; (SXHASH SB!IMPL::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (SXHASH SB!IMPL::VAL) ; --> LET* ; ==> ; (LOGAND (SB!KERNEL:DOUBLE-FLOAT-HIGH-BITS SB!C::VAL) 4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32). ; (SB!IMPL::FROB DOUBLE-FLOAT) ; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET ; ==> ; (SB!KERNEL:%UNARY-TRUNCATE SB!C::X) ; ; note: forced to do full call ; unable to do inline float truncate (cost 5) because: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES - - FLOAT ; ==> ; (SB!KERNEL:%DOUBLE-FLOAT SB!C::N) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; unable to do inline float coercion (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 1- ; ==> ; (- SB!C::TRU 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. ; (FLOOR SB!IMPL::KEY) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET ; ==> ; (SB!KERNEL:%UNARY-TRUNCATE SB!C::X) ; ; note: forced to do full call ; unable to do inline float truncate (cost 5) because: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES - - FLOAT ; ==> ; (SB!KERNEL:%DOUBLE-FLOAT SB!C::N) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; unable to do inline float coercion (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 1- ; ==> ; (- SB!C::TRU 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!IMPL::FROB SINGLE-FLOAT) ; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET ; ==> ; (SB!KERNEL:%UNARY-TRUNCATE SB!C::X) ; ; note: forced to do full call ; unable to do inline float truncate (cost 5) because: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES - - FLOAT ; ==> ; (SB!KERNEL:%SINGLE-FLOAT SB!C::N) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; unable to do inline float coercion (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 1- ; ==> ; (- SB!C::TRU 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. ; (FLOOR SB!IMPL::KEY) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET ; ==> ; (SB!KERNEL:%UNARY-TRUNCATE SB!C::X) ; ; note: forced to do full call ; unable to do inline float truncate (cost 5) because: ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES - - FLOAT ; ==> ; (SB!KERNEL:%SINGLE-FLOAT SB!C::N) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; unable to do inline float coercion (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 1- ; ==> ; (- SB!C::TRU 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. ; (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 (UNSIGNED-BYTE 32). ; unable to do inline float coercion (cost 5) because: ; The first argument is a RATIONAL, not a (SIGNED-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 (UNSIGNED-BYTE 32). ; unable to do inline float coercion (cost 5) because: ; The first argument is a RATIONAL, not a (SIGNED-BYTE 32). ; (IMAGPART SB!IMPL::KEY) ; ; note: forced to do full call ; unable to do complex single 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 double 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 single 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 double 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). ; ; note: forced to do full call ; unable to do complex single 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 double 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 single 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 double 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). ; (SXHASH SB!IMPL::VAL) ; --> LET* ; ==> ; (LOGAND (SB!KERNEL:DOUBLE-FLOAT-HIGH-BITS SB!C::VAL) 4294967295) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; in: DEFUN SXHASH ; (TYPEP SB!IMPL::X 'CONDITION) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; 18 more uses of undefined type CONDITION ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-sxhash.lisp ; in: DEFUN SXHASH ; (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 ; (IF ; (OR (TYPEP SB!IMPL::X 'STRUCTURE-OBJECT) (TYPEP SB!IMPL::X 'CONDITION)) ; (LOGXOR 422371266 (SXHASH #)) (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 ; (SB!IMPL::HASH-ARRAY-USING SB!IMPL::SXHASH-RECURSE SB!IMPL::X ; SB!IMPL::DEPTHOID)))) ; (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 #:G100 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; ; caught STYLE-WARNING: ; 11 more uses of undefined type GENERIC-FUNCTION ; ; caught STYLE-WARNING: ; These types are undefined: ; CONDITION GENERIC-FUNCTION ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; printed 73 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-sxhash.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp" (written 21 SEP 2005 12:28:56 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (MAYBE-INLINE TREE-EQUAL ...)) ; compiling (DEFUN CAR ...) ; compiling (DEFUN CDR ...) ; compiling (DEFUN CADR ...) ; compiling (DEFUN CDAR ...) ; compiling (DEFUN CAAR ...) ; compiling (DEFUN CDDR ...) ; compiling (DEFUN CADDR ...) ; compiling (DEFUN CAADR ...) ; compiling (DEFUN CAAAR ...) ; compiling (DEFUN CDAAR ...) ; compiling (DEFUN CDDAR ...) ; compiling (DEFUN CDDDR ...) ; compiling (DEFUN CADAR ...) ; compiling (DEFUN CDADR ...) ; compiling (DEFUN CAAAAR ...) ; compiling (DEFUN CAAADR ...) ; compiling (DEFUN CAADDR ...) ; compiling (DEFUN CADDDR ...) ; compiling (DEFUN CDDDDR ...) ; compiling (DEFUN CDAAAR ...) ; compiling (DEFUN CDDAAR ...) ; compiling (DEFUN CDDDAR ...) ; compiling (DEFUN CAADAR ...) ; compiling (DEFUN CADAAR ...) ; compiling (DEFUN CADADR ...) ; compiling (DEFUN CADDAR ...) ; compiling (DEFUN CDAADR ...) ; compiling (DEFUN CDADAR ...) ; compiling (DEFUN CDADDR ...) ; compiling (DEFUN CDDADR ...) ; compiling (DEFUN CONS ...) ; compiling (DECLAIM (MAYBE-INLINE TREE-EQUAL-TEST ...)) ; compiling (DEFUN TREE-EQUAL-TEST-NOT ...) ; compiling (DEFUN TREE-EQUAL-TEST ...) ; compiling (DEFUN TREE-EQUAL ...) ; compiling (DEFUN ENDP ...) ; compiling (DEFUN LIST-LENGTH ...) ; compiling (DEFUN NTH ...) ; compiling (DEFUN FIRST ...) ; compiling (DEFUN SECOND ...) ; compiling (DEFUN THIRD ...) ; compiling (DEFUN FOURTH ...) ; compiling (DEFUN FIFTH ...) ; compiling (DEFUN SIXTH ...) ; compiling (DEFUN SEVENTH ...) ; compiling (DEFUN EIGHTH ...) ; compiling (DEFUN NINTH ...) ; compiling (DEFUN TENTH ...) ; compiling (DEFUN REST ...) ; compiling (DEFUN NTHCDR ...) ; compiling (DEFUN LAST1 ...) ; compiling (DEFUN LAST ...) ; compiling (DEFUN LIST ...) ; compiling (DEFUN LIST* ...) ; compiling (DEFUN MAKE-LIST ...) ; compiling (DEFUN APPEND ...) ; compiling (DEFUN COPY-LIST ...) ; compiling (DEFUN COPY-ALIST ...) ; compiling (DEFUN COPY-TREE ...) ; compiling (DEFUN REVAPPEND ...) ; compiling (DEFUN NCONC ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN NCONC ; (SB!IMPL::FAIL SB!IMPL::ELE) ; ; note: deleting unreachable code ; (SB!IMPL::FAIL SB!IMPL::TOP-OF-TOP) ; ; note: deleting unreachable code ; compiling (DEFUN NCONC2 ...) ; compiling (DEFUN NRECONC ...) ; compiling (FLET (#) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN BUTLAST ; (DEFUN BUTLAST (LIST &OPTIONAL (SB!IMPL::N 1)) ; (IF (TYPEP SB!IMPL::N 'SB!INT:INDEX) ; (LET ((SB!IMPL::N-CONSES-IN-LIST #)) ; (COND (# #) (# NIL) (T #))) ; NIL)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET BUTLAST ; (LAMBDA (LIST &OPTIONAL (SB!IMPL::N 1)) ; (BLOCK BUTLAST ; (IF (TYPEP SB!IMPL::N 'SB!INT:INDEX) ; (LET # ; #) ; NIL)))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET BUTLAST #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET BUTLAST not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; in: DEFUN NBUTLAST ; (DEFUN NBUTLAST (LIST &OPTIONAL (SB!IMPL::N 1)) ; (COND ((ZEROP SB!IMPL::N) LIST) ; ((NOT (TYPEP SB!IMPL::N 'SB!INT:INDEX)) NIL) ; (T ; (LET (#) ; (UNLESS # # LIST))))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET NBUTLAST ; (LAMBDA (LIST &OPTIONAL (SB!IMPL::N 1)) ; (BLOCK NBUTLAST (COND (# LIST) (# NIL) (T #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET NBUTLAST #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET NBUTLAST not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; compiling (DEFUN LDIFF ...) ; compiling (DEFUN RPLACA ...) ; compiling (DEFUN RPLACD ...) ; compiling (DEFUN %RPLACA ...) ; compiling (DEFUN %RPLACD ...) ; compiling (DEFUN %SETNTH ...) ; compiling (DEFMACRO APPLY-KEY ...) ; compiling (DEFMACRO WITH-SET-KEYS ...) ; compiling (DEFMACRO SATISFIES-THE-TEST ...) ; compiling (DEFUN SUBST ...) ; compiling (DEFUN SUBST-IF ...) ; compiling (DEFUN SUBST-IF-NOT ...) ; compiling (DEFUN NSUBST ...) ; compiling (DEFUN NSUBST-IF ...) ; compiling (DEFUN NSUBST-IF-NOT ...) ; compiling (DEFUN SUBLIS ...) ; compiling (DEFMACRO NSUBLIS-MACRO ...) ; compiling (DEFUN NSUBLIS ...) ; compiling (DEFUN MEMBER ...) ; compiling (DEFUN MEMBER-IF ...) ; compiling (DEFUN MEMBER-IF-NOT ...) ; compiling (DEFUN TAILP ...) ; compiling (DEFUN ADJOIN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN MEMBER ; #'EQL ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (IF SB!IMPL::TESTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF COND IF PROGN NOT IF FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; --> IF AND ; ==> ; SB!IMPL::NOTP ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (IF SB!IMPL::NOTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; compiling (DEFUN UNION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN MEMBER ; #'EQL ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (IF SB!IMPL::TESTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF COND IF PROGN NOT IF FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; --> IF AND ; ==> ; SB!IMPL::NOTP ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (IF SB!IMPL::NOTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; compiling (DEFMACRO STEVE-SPLICE ...) ; compiling (DEFUN NUNION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN MEMBER ; #'EQL ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (IF SB!IMPL::TESTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF COND IF PROGN NOT IF FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; --> IF AND ; ==> ; SB!IMPL::NOTP ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (IF SB!IMPL::NOTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; compiling (DEFUN INTERSECTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN MEMBER ; #'EQL ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (IF SB!IMPL::TESTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF COND IF PROGN NOT IF FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; --> IF AND ; ==> ; SB!IMPL::NOTP ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (IF SB!IMPL::NOTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; compiling (DEFUN NINTERSECTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN MEMBER ; #'EQL ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (IF SB!IMPL::TESTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF COND IF PROGN NOT IF FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; --> IF AND ; ==> ; SB!IMPL::NOTP ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (IF SB!IMPL::NOTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; compiling (DEFUN SET-DIFFERENCE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN MEMBER ; #'EQL ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (IF SB!IMPL::TESTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF COND IF PROGN NOT IF FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; --> IF AND ; ==> ; SB!IMPL::NOTP ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (IF SB!IMPL::NOTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; compiling (DEFUN NSET-DIFFERENCE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN MEMBER ; #'EQL ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (IF SB!IMPL::TESTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF COND IF PROGN NOT IF FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; --> IF AND ; ==> ; SB!IMPL::NOTP ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (IF SB!IMPL::NOTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; compiling (DEFUN SET-EXCLUSIVE-OR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN MEMBER ; #'EQL ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (IF SB!IMPL::TESTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF COND IF PROGN NOT IF FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; --> IF AND ; ==> ; SB!IMPL::NOTP ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (IF SB!IMPL::NOTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (IF SB!IMPL::TESTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF COND IF PROGN NOT IF FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; --> IF AND ; ==> ; SB!IMPL::NOTP ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (IF SB!IMPL::NOTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; compiling (DEFUN NSET-EXCLUSIVE-OR ...) ; compiling (DEFUN SUBSETP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/list.lisp ; in: DEFUN MEMBER ; #'EQL ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (IF SB!IMPL::TESTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF COND IF PROGN NOT IF FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; #'EQL ; ; note: deleting unreachable code ; (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; --> IF AND ; ==> ; SB!IMPL::NOTP ; ; note: deleting unreachable code ; (ERROR ":TEST and :TEST-NOT were both supplied.") ; ==> ; ":TEST and :TEST-NOT were both supplied." ; ; note: deleting unreachable code ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; ==> ; SB!IMPL::TEST ; ; note: deleting unreachable code ; (IF SB!IMPL::NOTP (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT) ; SB!IMPL::TEST-NOT) ; ==> ; SB!IMPL::TEST-NOT ; ; note: deleting unreachable code ; (SB!IMPL::SATISFIES-THE-TEST SB!IMPL::ITEM CAR) ; --> LET COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN FUNCALL ; ==> ; SB!IMPL::ITEM ; ; note: deleting unreachable code ; compiling (DEFUN ACONS ...) ; compiling (DEFUN PAIRLIS ...) ; compiling (DEFMACRO ASSOC-GUTS ...) ; compiling (DEFUN ASSOC ...) ; compiling (DEFUN ASSOC-IF ...) ; compiling (DEFUN ASSOC-IF-NOT ...) ; compiling (DEFUN RASSOC ...) ; compiling (DEFUN RASSOC-IF ...) ; compiling (DEFUN RASSOC-IF-NOT ...) ; compiling (DEFUN MAP1 ...) ; compiling (DEFUN MAPC ...) ; compiling (DEFUN MAPCAR ...) ; compiling (DEFUN MAPCAN ...) ; compiling (DEFUN MAPL ...) ; compiling (DEFUN MAPLIST ...) ; compiling (DEFUN MAPCON ...); ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 132 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/list.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp" (written 21 DEC 2006 03:17:36 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFPARAMETER *SEQUENCE-KEYWORD-INFO* ...) ; compiling (SB-XC:DEFMACRO DEFINE-SEQUENCE-TRAVERSER ...) ; compiling (SB-XC:DEFMACRO SEQ-DISPATCH ...) ; compiling (SB-XC:DEFMACRO %MAKE-SEQUENCE-LIKE ...) ; compiling (SB-XC:DEFMACRO BAD-SEQUENCE-TYPE-ERROR ...) ; compiling (SB-XC:DEFMACRO SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR ...) ; compiling (SB-XC:DEFMACRO SEQUENCE-TYPE-TOO-HAIRY ...) ; compiling (DEFUN IS-A-VALID-SEQUENCE-TYPE-SPECIFIER-P ...) ; compiling (DEFUN VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH ...) ; compiling (DEFUN SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNAL-INDEX-TOO-LARGE-ERROR ...) ; compiling (DEFUN SIGNAL-BOUNDING-INDICES-BAD-ERROR ...) ; compiling (DEFUN ELT ...) ; compiling (DEFUN %SETELT ...) ; compiling (DEFUN LENGTH ...) ; compiling (DEFUN MAKE-SEQUENCE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; in: DEFUN MAKE-SEQUENCE ; (TYPECASE TYPE ; (ATOM ; (COND ((EQ TYPE 'STRING) '(VECTOR CHARACTER)) ; ((EQ TYPE 'SIMPLE-STRING) '(SIMPLE-ARRAY CHARACTER #)) (T TYPE))) ; (CONS ; (COND ((EQ # 'STRING) (SB!IMPL::BACKQ-LIST* 'VECTOR 'CHARACTER #)) ; ((EQ # 'SIMPLE-STRING) ; (SB!IMPL::BACKQ-LIST 'SIMPLE-ARRAY 'CHARACTER #)) ; (T TYPE))) ; (T TYPE)) ; --> LET COND IF COND IF COND IF PROGN ; ==> ; TYPE ; ; note: deleting unreachable code ; compiling (DEFUN VECTOR-SUBSEQ* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; in: DEFUN VECTOR-SUBSEQ* ; (SB!IMPL::%MAKE-SEQUENCE-LIKE SEQUENCE (- SB!IMPL::END SB!IMPL::START)) ; --> SB!IMPL::SEQ-DISPATCH IF LET SB!EXT:TRULY-THE ; ==> ; SEQUENCE ; ; note: deleting unreachable code ; (- SB!IMPL::END SB!IMPL::START) ; ==> ; SB!IMPL::END ; ; note: deleting unreachable code ; (SB!IMPL::%MAKE-SEQUENCE-LIKE SEQUENCE (- SB!IMPL::END SB!IMPL::START)) ; --> SB!IMPL::SEQ-DISPATCH IF IF SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; ==> ; SEQUENCE ; ; note: deleting unreachable code ; compiling (DEFUN LIST-SUBSEQ* ...) ; compiling (DEFUN SUBSEQ ...) ; compiling (DEFUN COPY-SEQ ...) ; compiling (DEFUN LIST-COPY-SEQ* ...) ; compiling (DEFUN VECTOR-COPY-SEQ* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; in: DEFUN VECTOR-COPY-SEQ* ; (SB!IMPL::VECTOR-COPY-SEQ SEQUENCE) ; --> LET DO BLOCK LET SB!IMPL::%MAKE-SEQUENCE-LIKE SB!IMPL::SEQ-DISPATCH IF ; --> LET SB!EXT:TRULY-THE ; ==> ; SEQUENCE ; ; note: deleting unreachable code ; --> LET DO BLOCK LET SB!IMPL::%MAKE-SEQUENCE-LIKE SB!IMPL::SEQ-DISPATCH IF IF ; --> SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; ==> ; SEQUENCE ; ; note: deleting unreachable code ; compiling (DEFUN LIST-FILL* ...) ; compiling (DEFUN VECTOR-FILL* ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER FILL ...) ; compiling (DEFUN LIST-REPLACE-FROM-LIST* ...) ; compiling (DEFUN LIST-REPLACE-FROM-VECTOR* ...) ; compiling (DEFUN VECTOR-REPLACE-FROM-LIST* ...) ; compiling (DEFUN VECTOR-REPLACE-FROM-VECTOR* ...) ; compiling (DEFUN SIMPLE-CHARACTER-STRING-REPLACE-FROM-SIMPLE-CHARACTER-STRING* ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER REPLACE ...) ; compiling (DEFUN REVERSE ...) ; compiling (DEFUN LIST-REVERSE* ...) ; compiling (DEFUN VECTOR-REVERSE* ...) ; compiling (DEFUN LIST-NREVERSE* ...) ; compiling (DEFUN VECTOR-NREVERSE* ...) ; compiling (DEFUN NREVERSE ...) ; compiling (DEFMACRO SB!SEQUENCE:DOSEQUENCE ...) ; compiling (DEFUN CONCATENATE ...) ; compiling (DEFUN CONCAT-TO-LIST* ...) ; compiling (DEFUN CONCAT-TO-SIMPLE* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %MAP-TO-LIST-ARITY-1 ...) ; compiling (DEFUN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...) ; compiling (DEFUN %MAP-FOR-EFFECT-ARITY-1 ...) ; compiling (DECLAIM (MAYBE-INLINE %MAP-FOR-EFFECT)) ; compiling (DEFUN %MAP-FOR-EFFECT ...) ; compiling (DEFUN %MAP-TO-LIST ...) ; compiling (DEFUN %MAP-TO-VECTOR ...) ; compiling (DEFUN %MAP-TO-SEQUENCE ...) ; compiling (DEFUN %MAP ...) ; compiling (DEFUN MAP ...) ; compiling (DEFUN MAP-INTO ...) ; compiling (DEFQUANTIFIER SOME ...) ; compiling (DEFQUANTIFIER EVERY ...) ; compiling (DEFQUANTIFIER NOTANY ...) ; compiling (DEFQUANTIFIER NOTEVERY ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER REDUCE ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER DELETE ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-IF ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-IF-NOT ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; in: SB-XC:DEFMACRO MUMBLE-REMOVE-MACRO ; (SB!IMPL::%MAKE-SEQUENCE-LIKE SEQUENCE LENGTH) ; --> SB!IMPL::SEQ-DISPATCH IF LET SB!EXT:TRULY-THE ; ==> ; SEQUENCE ; ; 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 ; ==> ; SEQUENCE ; ; note: deleting unreachable code ; compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-IF ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; in: SB-XC:DEFMACRO MUMBLE-REMOVE-MACRO ; (SB!IMPL::%MAKE-SEQUENCE-LIKE SEQUENCE LENGTH) ; --> SB!IMPL::SEQ-DISPATCH IF LET SB!EXT:TRULY-THE ; ==> ; SEQUENCE ; ; 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 ; ==> ; SEQUENCE ; ; note: deleting unreachable code ; compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-IF-NOT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; in: SB-XC:DEFMACRO MUMBLE-REMOVE-MACRO ; (SB!IMPL::%MAKE-SEQUENCE-LIKE SEQUENCE LENGTH) ; --> SB!IMPL::SEQ-DISPATCH IF LET SB!EXT:TRULY-THE ; ==> ; SEQUENCE ; ; 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 ; ==> ; SEQUENCE ; ; note: deleting unreachable code ; compiling (DEFUN LIST-REMOVE-DUPLICATES* ...) ; compiling (DEFUN VECTOR-REMOVE-DUPLICATES* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-DUPLICATES ...) ; compiling (DEFUN LIST-DELETE-DUPLICATES* ...) ; compiling (DEFUN VECTOR-DELETE-DUPLICATES* ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-DUPLICATES ...) ; compiling (DEFUN LIST-SUBSTITUTE* ...) ; compiling (DEFUN VECTOR-SUBSTITUTE* ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF-NOT ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE ...) ; compiling (DEFUN NLIST-SUBSTITUTE* ...) ; compiling (DEFUN NVECTOR-SUBSTITUTE* ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF ...) ; compiling (DEFUN NLIST-SUBSTITUTE-IF* ...) ; compiling (DEFUN NVECTOR-SUBSTITUTE-IF* ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF-NOT ...) ; compiling (DEFUN NLIST-SUBSTITUTE-IF-NOT* ...) ; compiling (DEFUN NVECTOR-SUBSTITUTE-IF-NOT* ...) ; compiling (DEFUN EFFECTIVE-FIND-POSITION-TEST ...) ; compiling (DEFUN EFFECTIVE-FIND-POSITION-KEY ...) ; compiling (DEFUN %FIND-POSITION ...) ; compiling (DEFUN %FIND-POSITION-IF ...) ; compiling (DEFUN %FIND-POSITION-IF-NOT ...) ; compiling (DEFUN FIND ...) ; compiling (DEFUN POSITION ...) ; compiling (DEFUN FIND-IF ...) ; compiling (DEFUN POSITION-IF ...) ; compiling (DEFUN FIND-IF-NOT ...) ; compiling (DEFUN POSITION-IF-NOT ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER COUNT-IF ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER COUNT-IF-NOT ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER COUNT ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER MISMATCH ...) ; compiling (DEFINE-SEQUENCE-TRAVERSER SEARCH ...) ; compiling (SB-XC:DEFMACRO STRING-DISPATCH ...) ; compiling (DEFUN FILL-DATA-VECTOR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; 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) #:G222 #:G224 #:G223) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!SEQUENCE:ELT) ; ; caught STYLE-WARNING: ; undefined type: ARRAY-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; in: DEFUN MAKE-SEQUENCE ; (TYPEP TYPE 'SB!KERNEL:ARRAY-TYPE) ; ==> ; (SB!KERNEL:%TYPEP TYPE 'SB!KERNEL:ARRAY-TYPE) ; ; caught STYLE-WARNING: ; undefined type: ARRAY-TYPE ; ; caught STYLE-WARNING: ; undefined type: ARRAY-TYPE ; ; caught STYLE-WARNING: ; 5 more uses of undefined type ARRAY-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; in: DEFUN CONCATENATE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (REDUCE #'+ SB!IMPL::SEQUENCES :KEY #'LENGTH)) ; --> ERROR COND IF PROGN SB!IMPL::BACKQ-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!IMPL::BACKQ-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 ; (SB!MOP:CLASS-FINALIZED-P CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-FINALIZED-P ; (SB!MOP:CLASS-PROTOTYPE CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-PROTOTYPE ; in: DEFUN 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: DEFINE-SEQUENCE-TRAVERSER FILL ; #'SB!SEQUENCE:FILL ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:FILL ; in: DEFUN MAKE-SEQUENCE ; (SB!MOP:FINALIZE-INHERITANCE CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:FINALIZE-INHERITANCE ; 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: DEFUN LENGTH ; (SB!SEQUENCE:LENGTH SEQUENCE) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:LENGTH ; 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)) ; --> BLOCK LET SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE1043) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; in: SB-XC:DEFMACRO CONCATENATE-TO-MUMBLE ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::E SEQUENCE) ; (SETF (AREF SB!IMPL::RESULT SB!INT:INDEX) SB!IMPL::E) (INCF SB!INT:INDEX)) ; --> BLOCK LET SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE969) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; in: SB-XC:DEFMACRO CONCATENATE-TO-LIST ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::E SEQUENCE) ; (SETQ SB!IMPL::SPLICE (CDR (RPLACD SB!IMPL::SPLICE (LIST SB!IMPL::E))))) ; --> BLOCK LET SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE910) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; ; caught STYLE-WARNING: ; 5 more uses of undefined function SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; in: DEFUN VECTOR-COPY-SEQ* ; (SB!IMPL::VECTOR-COPY-SEQ 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 VECTOR-SUBSEQ* ; (SB!IMPL::%MAKE-SEQUENCE-LIKE SEQUENCE (- SB!IMPL::END SB!IMPL::START)) ; --> SB!IMPL::SEQ-DISPATCH IF IF ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE SEQUENCE (- SB!IMPL::END SB!IMPL::START)) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; in: DEFUN MAKE-SEQUENCE ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE (SB!MOP:CLASS-PROTOTYPE CLASS) LENGTH ; :INITIAL-ELEMENT SB!IMPL::INITIAL-ELEMENT) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; ; caught STYLE-WARNING: ; 6 more uses of undefined function SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/seq.lisp ; 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: SB-XC:DEFMACRO SEARCH-COMPARE ; #'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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: SB-XC:DEFMACRO SUBST-DISPATCH ; #'SB!SEQUENCE:SUBSTITUTE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SUBSTITUTE ; #'SB!SEQUENCE:SUBSTITUTE-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SUBSTITUTE-IF ; #'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= ; ; caught STYLE-WARNING: ; These functions are undefined: ; (SETF SB!SEQUENCE:ELT) ARRAY-TYPE-DIMENSIONS ARRAY-TYPE-P ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE SB!MOP:CLASS-FINALIZED-P SB!MOP:CLASS-PROTOTYPE 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:FILL SB!MOP:FINALIZE-INHERITANCE SB!SEQUENCE:FIND FIND-CLASS SB!SEQUENCE:FIND-IF SB!SEQUENCE:FIND-IF-NOT SB!SEQUENCE:LENGTH SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR SB!SEQUENCE:MAKE-SEQUENCE-LIKE 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= ; ; caught STYLE-WARNING: ; This type is undefined: ; ARRAY-TYPE ; ; compilation unit finished ; caught 78 STYLE-WARNING conditions ; printed 18 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/seq.lisp-obj-tmp written ; compilation finished in 0:00:10 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/coerce.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF LIST-TO-VECTOR* ...) ; compiling (DEF VECTOR-TO-VECTOR* ...) ; compiling (DEF SEQUENCE-TO-VECTOR* ...) ; compiling (DEFUN VECTOR-TO-LIST* ...) ; compiling (DEFVAR *OFFENDING-DATUM*) ; compiling (DECLAIM (INLINE COERCE-TO-LIST)) ; compiling (DECLAIM (INLINE COERCE-TO-VECTOR)) ; compiling (DEFUN COERCE-TO-FUN ...) ; compiling (DEFUN COERCE-TO-LIST ...) ; compiling (DEFUN COERCE-TO-VECTOR ...) ; compiling (DEFUN COERCE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/coerce.lisp ; in: DEFUN COERCE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE (LENGTH SB!IMPL::OBJECT)) ; --> ERROR COND IF PROGN SB!IMPL::BACKQ-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 CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-PROTOTYPE ; (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 'CHARACTER)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; (FIND-CLASS SB!IMPL::OUTPUT-TYPE-SPEC NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASS ; (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 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; caught STYLE-WARNING: ; These functions are undefined: ; ARRAY-TYPE-DIMENSIONS ARRAY-TYPE-P SB!MOP:CLASS-PROTOTYPE SB!KERNEL::CONS-TYPE-LENGTH-INFO CONS-TYPE-P CSUBTYPEP FIND-CLASS SB!SEQUENCE:MAKE-SEQUENCE-LIKE SPECIFIER-TYPE TYPE-SPECIFIER TYPE= ; ; compilation unit finished ; caught 12 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/coerce.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/string.lisp" (written 14 JUL 2005 05:30:39 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN STRING ...) ; compiling (DEFUN %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; compiling (DEFUN CHAR ...) ; compiling (DEFUN %CHARSET ...) ; compiling (DEFUN SCHAR ...) ; compiling (DEFUN %SCHARSET ...) ; compiling (DEFUN STRING=* ...) ; compiling (DEFUN STRING/=* ...) ; compiling (DEFUN STRING<* ...) ; compiling (DEFUN STRING>* ...) ; compiling (DEFUN STRING<=* ...) ; compiling (DEFUN STRING>=* ...) ; compiling (DEFUN STRING< ...) ; compiling (DEFUN STRING> ...) ; compiling (DEFUN STRING<= ...) ; compiling (DEFUN STRING>= ...) ; compiling (DEFUN STRING= ...) ; compiling (DEFUN STRING/= ...) ; compiling (DEFUN STRING-EQUAL ...) ; compiling (DEFUN STRING-NOT-EQUAL ...) ; compiling (DEFUN STRING-LESSP* ...) ; compiling (DEFUN STRING-GREATERP* ...) ; compiling (DEFUN STRING-NOT-LESSP* ...) ; compiling (DEFUN STRING-NOT-GREATERP* ...) ; compiling (DEFUN STRING-LESSP ...) ; compiling (DEFUN STRING-GREATERP ...) ; compiling (DEFUN STRING-NOT-LESSP ...) ; compiling (DEFUN STRING-NOT-GREATERP ...) ; compiling (DEFUN MAKE-STRING ...) ; compiling (FLET (#) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/string.lisp ; in: DEFUN STRING-UPCASE ; (DEFUN STRING-UPCASE (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (SB!IMPL::%UPCASE (COPY-SEQ (STRING STRING)) SB!IMPL::START SB!IMPL::END)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET STRING-UPCASE ; (LAMBDA (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (BLOCK STRING-UPCASE ; (SB!IMPL::%UPCASE (COPY-SEQ #) SB!IMPL::START ; SB!IMPL::END)))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET STRING-UPCASE #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET STRING-UPCASE not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; in: DEFUN NSTRING-UPCASE ; (DEFUN NSTRING-UPCASE (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (SB!IMPL::%UPCASE STRING SB!IMPL::START SB!IMPL::END)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET NSTRING-UPCASE ; (LAMBDA (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (BLOCK NSTRING-UPCASE ; (SB!IMPL::%UPCASE STRING SB!IMPL::START SB!IMPL::END)))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET NSTRING-UPCASE #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET NSTRING-UPCASE not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; 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 (SCHAR STRING SB!INT:INDEX))))) ; --> LET* IF STRING ; ==> ; STRING ; ; note: deleting unreachable code ; compiling (FLET (#) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/string.lisp ; in: DEFUN STRING-DOWNCASE ; (DEFUN STRING-DOWNCASE (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (SB!IMPL::%DOWNCASE (COPY-SEQ (STRING STRING)) SB!IMPL::START SB!IMPL::END)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET STRING-DOWNCASE ; (LAMBDA (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (BLOCK STRING-DOWNCASE ; (SB!IMPL::%DOWNCASE (COPY-SEQ #) SB!IMPL::START ; SB!IMPL::END)))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET STRING-DOWNCASE #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET STRING-DOWNCASE not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; in: DEFUN NSTRING-DOWNCASE ; (DEFUN NSTRING-DOWNCASE (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (SB!IMPL::%DOWNCASE STRING SB!IMPL::START SB!IMPL::END)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET NSTRING-DOWNCASE ; (LAMBDA (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (BLOCK NSTRING-DOWNCASE ; (SB!IMPL::%DOWNCASE STRING SB!IMPL::START ; SB!IMPL::END)))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET NSTRING-DOWNCASE #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET NSTRING-DOWNCASE not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; 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 (SCHAR STRING SB!INT:INDEX))))) ; --> LET* IF STRING ; ==> ; STRING ; ; note: deleting unreachable code ; compiling (FLET (#) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/string.lisp ; in: DEFUN STRING-CAPITALIZE ; (DEFUN STRING-CAPITALIZE (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (SB!IMPL::%CAPITALIZE (COPY-SEQ (STRING STRING)) SB!IMPL::START ; SB!IMPL::END)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET STRING-CAPITALIZE ; (LAMBDA (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (BLOCK STRING-CAPITALIZE ; (SB!IMPL::%CAPITALIZE (COPY-SEQ #) SB!IMPL::START ; SB!IMPL::END)))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET STRING-CAPITALIZE #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET STRING-CAPITALIZE not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; in: DEFUN NSTRING-CAPITALIZE ; (DEFUN NSTRING-CAPITALIZE (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (SB!IMPL::%CAPITALIZE STRING SB!IMPL::START SB!IMPL::END)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET NSTRING-CAPITALIZE ; (LAMBDA (STRING &KEY (SB!IMPL::START 0) SB!IMPL::END) ; (BLOCK NSTRING-CAPITALIZE ; (SB!IMPL::%CAPITALIZE STRING SB!IMPL::START ; SB!IMPL::END)))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET NSTRING-CAPITALIZE #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET NSTRING-CAPITALIZE not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; 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? T)) ; (SB!IMPL::NEW-WORD? (SETF # #) (SETQ SB!IMPL::NEW-WORD? NIL)) ; (T (SETF # #))))) ; --> LET* IF STRING ; ==> ; STRING ; ; note: deleting unreachable code ; compiling (DEFUN STRING-LEFT-TRIM ...) ; compiling (DEFUN STRING-RIGHT-TRIM ...) ; compiling (DEFUN STRING-TRIM ...); ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; printed 3 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/string.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/mipsstrops.lisp" (written 14 JUL 2005 05:30:36 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN %SP-STRING-COMPARE ...) ; compiling (DEFUN %SP-REVERSE-STRING-COMPARE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/mipsstrops.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-time.lisp" (written 26 OCT 2006 09:38:51 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFCONSTANT SB-XC:INTERNAL-TIME-UNITS-PER-SECOND ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-time.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/unix.lisp" (written 19 NOV 2006 04:27:13 PM): ; compiling (IN-PACKAGE "SB!UNIX") ; compiling (/SHOW0 "unix.lisp 21") ; compiling (DEFMACRO DEF-ENUM ...) ; compiling (DEFUN C-STRINGS->STRING-LIST ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/unix.lisp ; in: DEFUN C-STRINGS->STRING-LIST ; (ERROR "argh! can't happen") ; ==> ; "argh! can't happen" ; ; note: deleting unreachable code ; compiling (DEFTYPE UNIX-PATHNAME ...) ; compiling (DEFTYPE UNIX-FD ...) ; compiling (DEFTYPE UNIX-FILE-MODE ...) ; compiling (DEFTYPE UNIX-PID ...) ; compiling (DEFTYPE UNIX-UID ...) ; compiling (DEFTYPE UNIX-GID ...) ; compiling (/SHOW0 "unix.lisp 74") ; compiling (DEFMACRO SYSCALL ...) ; compiling (DEFMACRO SYSCALL* ...) ; compiling (/SHOW0 "unix.lisp 109") ; compiling (DEFMACRO VOID-SYSCALL ...) ; compiling (DEFMACRO INT-SYSCALL ...) ; compiling (DEFMACRO WITH-RESTARTED-SYSCALL ...) ; compiling (DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ...) ; compiling (DEFUN UNIX-RENAME ...) ; compiling (/SHOW0 "unix.lisp 220") ; compiling (DEFINE-ALIEN-TYPE FD-MASK ...) ; compiling (DEFCONSTANT FD-SETSIZE ...) ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (/SHOW0 "unix.lisp 304") ; compiling (DEFUN UNIX-OPEN ...) ; compiling (/SHOW0 "unix.lisp 391") ; compiling (DEFUN UNIX-CLOSE ...) ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DEFCONSTANT RUSAGE_SELF ...) ; compiling (DEFCONSTANT RUSAGE_CHILDREN ...) ; compiling (DEFCONSTANT RUSAGE_BOTH ...) ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DEFUN UNIX-ACCESS ...) ; compiling (DEFCONSTANT L_SET ...) ; compiling (DEFCONSTANT L_INCR ...) ; compiling (DEFCONSTANT L_XTND ...) ; compiling (DEFUN UNIX-ISATTY ...) ; compiling (DEFUN UNIX-LSEEK ...) ; compiling (DEFUN UNIX-READ ...) ; compiling (DEFUN UNIX-WRITE ...) ; compiling (DEFUN UNIX-PIPE ...) ; compiling (DEFUN UNIX-MKDIR ...) ; compiling (DEFUN NEWCHARSTAR-STRING ...) ; compiling (DEFUN POSIX-GETCWD ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/unix.lisp ; in: DEFUN POSIX-GETCWD ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "getcwd" (FUNCTION (* CHAR) (* CHAR) SB!UNIX:SIZE-T)) ; NIL 0) ; --> 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 ; compiling (DEFUN POSIX-GETCWD/ ...) ; compiling (DEFUN UNIX-DUP ...) ; compiling (DEFUN UNIX-EXIT ...) ; compiling (DEFINE-ALIEN-ROUTINE ("getpid" UNIX-GETPID) ...) ; compiling (DEFINE-ALIEN-ROUTINE ("getuid" UNIX-GETUID) ...) ; compiling (DEFUN UID-USERNAME ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: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 ; compiling (DEFUN UID-HOMEDIR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: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 ; compiling (DEFUN UNIX-READLINK ...) ; compiling (DEFUN UNIX-UNLINK ...) ; compiling (DEFUN UNIX-GETHOSTNAME ...) ; compiling (DEFUN UNIX-SETSID ...) ; compiling (DEFUN UNIX-IOCTL ...) ; compiling (DECLAIM (INLINE UNIX-FAST-GETRUSAGE)) ; compiling (DEFUN UNIX-FAST-GETRUSAGE ...) ; compiling (DEFUN UNIX-GETRUSAGE ...) ; compiling (DECLAIM (INLINE UNIX-FAST-SELECT)) ; compiling (DEFUN UNIX-FAST-SELECT ...) ; compiling (DEFMACRO NUM-TO-FD-SET ...) ; compiling (DEFMACRO FD-SET-TO-NUM ...) ; compiling (DEFUN UNIX-SELECT ...) ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DECLAIM (INLINE %EXTRACT-STAT-RESULTS)) ; compiling (DEFUN %EXTRACT-STAT-RESULTS ...) ; compiling (DEFUN UNIX-STAT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFUN UNIX-LSTAT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFUN UNIX-FSTAT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DEFINE-ALIEN-ROUTINE GET-TIMEZONE ...) ; compiling (DEFUN NANOSLEEP ...) ; compiling (DEFUN UNIX-GET-SECONDS-WEST ...) ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DECLAIM (INLINE UNIX-GETTIMEOFDAY)) ; compiling (DEFUN UNIX-GETTIMEOFDAY ...) ; compiling (DEFINE-ALIEN-TYPE NIL ...) ; compiling (DEFCONSTANT ITIMER-REAL ...) ; compiling (DEFCONSTANT ITIMER-VIRTUAL ...) ; compiling (DEFCONSTANT ITIMER-PROF ...) ; compiling (DEFUN UNIX-GETITIMER ...) ; compiling (DEFUN UNIX-SETITIMER ...) ; compiling (DEFUN UNIX-FILE-KIND ...) ; compiling (DEFUN RELATIVE-UNIX-PATHNAME? ...) ; compiling (DEFUN UNIX-RESOLVE-LINKS ...) ; compiling (DEFCONSTANT MICRO-SECONDS-PER-INTERNAL-TIME-UNIT ...) ; compiling (DECLAIM (INLINE SYSTEM-INTERNAL-REAL-TIME ...)) ; compiling (DEFUN SYSTEM-INTERNAL-REAL-TIME ...) ; compiling (DEFUN SYSTEM-INTERNAL-RUN-TIME ...) ; compiling (DEFCONSTANT WSTOPPED ...) ; compiling (DEFMACRO FD-SET ...) ; compiling (DEFMACRO FD-CLR ...) ; compiling (DEFMACRO FD-ISSET ...) ; compiling (DEFMACRO FD-ZERO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/unix.lisp ; in: DEFINE-ALIEN-TYPE NIL ; (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:TIMEVAL ; (SB!UNIX:TV-SEC SB!UNIX:TIME-T) ; (SB!UNIX:TV-USEC SB!UNIX:TIME-T))) ; --> 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 ; (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: ; 5 more uses of undefined function SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/unix.lisp ; in: DEFINE-ALIEN-TYPE FD-MASK ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX::FD-MASK SB!ALIEN:UNSIGNED-LONG) ; --> 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: DEFUN UNIX-RENAME ; (SB!UNIX::VOID-SYSCALL ("rename" SB!ALIEN:C-STRING SB!ALIEN:C-STRING) ; SB!UNIX::NAME1 SB!UNIX::NAME2) ; --> SB!UNIX::SYSCALL LOCALLY LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:NATURALIZE SB!C:%ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF COND IF COND IF PROGN ; --> SB!SYS:VECTOR-SAP SB!ALIEN::STRING-TO-C-STRING ; ==> ; (SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; ; 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)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:NATURALIZE SB!C:%ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF COND IF COND IF PROGN ; --> SB!SYS:VECTOR-SAP SB!ALIEN::STRING-TO-C-STRING ; ==> ; (SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; ; 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:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE IF ; --> SB!ALIEN::C-STRING-TO-STRING ; ==> ; (SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; ; caught STYLE-WARNING: ; 9 more uses of undefined function SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/unix.lisp ; in: DEFUN UNIX-RESOLVE-LINKS ; (SB!INT:SIMPLIFY-NAMESTRING ; (IF (SB!UNIX::RELATIVE-UNIX-PATHNAME? SB!UNIX::LINK) ; (LET* ((SB!UNIX::DIR-LEN #) (SB!UNIX::DIR #)) ; (SB!INT:/NOSHOW SB!UNIX::DIR) ; (CONCATENATE 'STRING SB!UNIX::DIR SB!UNIX::LINK)) ; SB!UNIX::LINK)) ; ; caught STYLE-WARNING: ; undefined function: SIMPLIFY-NAMESTRING ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE SB!ALIEN::C-STRING-EXTERNAL-FORMAT SIMPLIFY-NAMESTRING ; ; compilation unit finished ; caught 11 STYLE-WARNING conditions ; printed 7 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/unix.lisp-obj-tmp written ; compilation finished in 0:00:15 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/common-os.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!SYS") ; compiling (DEFVAR *SOFTWARE-VERSION* ...) ; compiling (DEFVAR *CORE-PATHNAME* ...) ; compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("posix_argv" *NATIVE-POSIX-ARGV*) ...) ; compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("core_string" *NATIVE-CORE-STRING*) ...) ; compiling (DEFUN OS-COLD-INIT-OR-REINIT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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:EXTRACT-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!ALIEN:CAST SB!SYS::*NATIVE-CORE-STRING* SB!ALIEN:C-STRING) ; --> SB!ALIEN-INTERNALS:%CAST SB!ALIEN-INTERNALS:NATURALIZE IF ; --> SB!ALIEN::C-STRING-TO-STRING ; ==> ; (SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; (SB!INT:MAKE-TRIVIAL-DEFAULT-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: MAKE-TRIVIAL-DEFAULT-PATHNAME ; (SB!EXT:NATIVE-PATHNAME (SB!UNIX:POSIX-GETCWD/)) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-PATHNAME ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!ALIEN::C-STRING-EXTERNAL-FORMAT MAKE-TRIVIAL-DEFAULT-PATHNAME NATIVE-PATHNAME ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/common-os.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/linux-os.lisp" (written 29 DEC 2006 10:09:41 PM): ; compiling (IN-PACKAGE "SB!SYS") ; compiling (DEFUN SOFTWARE-TYPE ...) ; compiling (DEFUN SOFTWARE-VERSION ...) ; compiling (DEFUN GET-SYSTEM-INFO ...) ; compiling (DEFUN GET-PAGE-SIZE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/linux-os.lisp ; in: DEFUN SOFTWARE-VERSION ; (SB!EXT:RUN-PROGRAM "/bin/uname" '("-r") :OUTPUT STREAM) ; ; caught STYLE-WARNING: ; undefined function: RUN-PROGRAM ; ; caught STYLE-WARNING: ; This function is undefined: ; RUN-PROGRAM ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/linux-os.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sc-offset.lisp" (written 14 JUL 2005 05:30:38 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/sc-offset.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/ppc-vm.lisp" (written 21 FEB 2006 10:59:31 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-ALIEN-TYPE OS-CONTEXT-T ...) ; compiling (DEFUN MACHINE-TYPE ...) ; compiling (DEFUN GET-MACHINE-VERSION ...) ; compiling (DEFUN FIXUP-CODE-OBJECT ...) ; compiling (DEFINE-ALIEN-ROUTINE ("os_context_pc_addr" CONTEXT-PC-ADDR) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/ppc-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-LONG) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL 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 ; compiling (DEFUN CONTEXT-PC ...) ; compiling (DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/ppc-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-LONG) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T)) ; (SB!INT:INDEX SB!ALIEN:INT)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL 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 ; compiling (DEFUN CONTEXT-REGISTER ...) ; compiling (DEFINE-ALIEN-ROUTINE ("os_context_lr_addr" CONTEXT-LR-ADDR) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/ppc-vm.lisp ; in: DEFINE-ALIEN-ROUTINE ("os_context_lr_addr" CONTEXT-LR-ADDR) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("os_context_lr_addr" SB!VM::CONTEXT-LR-ADDR) ; (* SB!ALIEN:UNSIGNED-LONG) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL 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 ; compiling (DEFUN CONTEXT-LR ...) ; compiling (DEFUN %SET-CONTEXT-REGISTER ...) ; compiling (DEFINE-ALIEN-ROUTINE ("os_context_fp_control" CONTEXT-FLOATING-POINT-MODES) ...) ; compiling (DEFUN INTERNAL-ERROR-ARGS ...) ; compiling (DEFUN ARGS-FOR-UNIMP-INST ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/ppc-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 ; (SB!SYS:WITHOUT-GCING ; (LET ((SB!VM::SAP (SB!EXT:TRULY-THE SB!SYS:SYSTEM-AREA-POINTER #))) ; (ECASE SB!VM::KIND ; (:B (ERROR "Can't deal with CALL fixups, yet.")) ; (:BA (SETF # #)) ; (:HA ; (LET* # ; #)) ; (:L (SETF # #))))) ; --> UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 3 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/ppc-vm.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-signal.lisp" (written 02 NOV 2006 12:00:31 PM): ; compiling (IN-PACKAGE "SB!UNIX") ; compiling (DEFUN INVOKE-INTERRUPTION ...) ; compiling (DEFMACRO IN-INTERRUPTION ...) ; compiling (DEFCONSTANT SIG_DFL ...) ; compiling (DEFCONSTANT SIG_IGN ...) ; compiling (DECLAIM (INLINE REAL-UNIX-KILL)) ; compiling (DEFINE-ALIEN-ROUTINE ("kill" UNIX-KILL) ...) ; compiling (DECLAIM (INLINE REAL-UNIX-KILLPG)) ; compiling (DEFINE-ALIEN-ROUTINE ("killpg" UNIX-KILLPG) ...) ; compiling (DEFINE-ALIEN-ROUTINE "reset_signal_mask" ...) ; compiling (DEFINE-ALIEN-ROUTINE ("install_handler" INSTALL-HANDLER) ...) ; compiling (DEFUN ENABLE-INTERRUPT ...) ; compiling (DEFUN DEFAULT-INTERRUPT ...) ; compiling (DEFUN IGNORE-INTERRUPT ...) ; compiling (DEFUN SIGINT-%BREAK ...) ; compiling (DEFINE-SIGNAL-HANDLER SIGINT-HANDLER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-signal.lisp ; in: SB-XC:DEFMACRO DEFINE-SIGNAL-HANDLER ; (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 ; compiling (DEFINE-SIGNAL-HANDLER SIGILL-HANDLER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-signal.lisp ; in: SB-XC:DEFMACRO DEFINE-SIGNAL-HANDLER ; (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 ; compiling (DEFINE-SIGNAL-HANDLER SIGTRAP-HANDLER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-signal.lisp ; in: SB-XC:DEFMACRO DEFINE-SIGNAL-HANDLER ; (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 ; compiling (DEFINE-SIGNAL-HANDLER SIGBUS-HANDLER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-signal.lisp ; in: SB-XC:DEFMACRO DEFINE-SIGNAL-HANDLER ; (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 ; compiling (DEFINE-SIGNAL-HANDLER SIGSEGV-HANDLER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-signal.lisp ; in: SB-XC:DEFMACRO DEFINE-SIGNAL-HANDLER ; (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 ; compiling (DEFUN SIGALRM-HANDLER ...) ; compiling (DEFUN SIGTERM-HANDLER ...) ; compiling (DEFUN SIGIOT-HANDLER ...) ; compiling (DEFUN SB!KERNEL:SIGNAL-COLD-INIT-OR-REINIT ...) ; compiling (DEFINE-ALIEN-ROUTINE ("siginfo_code" SIGINFO-CODE) ...) ; compiling (DEFUN RECEIVE-PENDING-INTERRUPT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-signal.lisp ; in: DEFUN SIGINT-%BREAK ; (SB!THREAD::FOREGROUND-THREAD) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::FOREGROUND-THREAD ; (SB!THREAD:INTERRUPT-THREAD (SB!THREAD::FOREGROUND-THREAD) ; #'SB!UNIX::BREAK-IT) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:INTERRUPT-THREAD ; in: DEFUN ENABLE-INTERRUPT ; (SB!SYS:WITHOUT-GCING ; (LET ((SB!UNIX::RESULT (SB!UNIX::INSTALL-HANDLER SIGNAL #))) ; (COND ((= SB!UNIX::RESULT SB!UNIX::SIG_DFL) :DEFAULT) ; ((= SB!UNIX::RESULT SB!UNIX::SIG_IGN) :IGNORE) (T (THE # #))))) ; --> UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; in: DEFUN SIGTERM-HANDLER ; (SB!EXT:QUIT) ; ; caught STYLE-WARNING: ; undefined function: QUIT ; in: DEFUN SIGALRM-HANDLER ; (SB!IMPL::RUN-EXPIRED-TIMERS) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::RUN-EXPIRED-TIMERS ; in: DEFUN SB!KERNEL:SIGNAL-COLD-INIT-OR-REINIT ; #'SB!VM:SIGFPE-HANDLER ; ; caught STYLE-WARNING: ; undefined function: SB!VM:SIGFPE-HANDLER ; in: DEFUN SIGTERM-HANDLER ; (SB!THREAD::TERMINATE-SESSION) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::TERMINATE-SESSION ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!THREAD::FOREGROUND-THREAD SB!THREAD:INTERRUPT-THREAD SB!KERNEL::MAYBE-HANDLE-PENDING-GC QUIT SB!IMPL::RUN-EXPIRED-TIMERS SB!VM:SIGFPE-HANDLER SB!THREAD::TERMINATE-SESSION ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 5 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-signal.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/symbol.lisp" (written 05 JAN 2006 11:18:00 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (MAYBE-INLINE GET ...)) ; compiling (DEFUN SYMBOL-VALUE ...) ; compiling (DEFUN BOUNDP ...) ; compiling (DEFUN SET ...) ; compiling (DEFUN %SET-SYMBOL-VALUE ...) ; compiling (DEFUN MAKUNBOUND ...) ; compiling (DEFUN SYMBOL-HASH ...) ; compiling (DEFUN SYMBOL-FUNCTION ...) ; compiling (DEFUN (SETF SYMBOL-FUNCTION) ...) ; compiling (DEFUN SYMBOL-PLIST ...) ; compiling (DEFUN %SET-SYMBOL-PLIST ...) ; compiling (DEFUN SYMBOL-NAME ...) ; compiling (DEFUN SYMBOL-PACKAGE ...) ; compiling (DEFUN %SET-SYMBOL-PACKAGE ...) ; compiling (DEFUN MAKE-SYMBOL ...) ; compiling (DEFUN GET ...) ; compiling (DEFUN GET2 ...) ; compiling (DEFUN GET3 ...) ; compiling (DEFUN %PUT ...) ; compiling (DEFUN REMPROP ...) ; compiling (DEFUN GETF ...) ; compiling (DEFUN %PUTF ...) ; compiling (DEFUN GET-PROPERTIES ...) ; compiling (DEFUN COPY-SYMBOL ...) ; compiling (DECLAIM (SPECIAL *KEYWORD-PACKAGE*)) ; compiling (DEFUN KEYWORDP ...) ; compiling (DEFVAR *GENSYM-COUNTER* ...) ; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; compiling (DEFUN GENSYM ...) ; compiling (DEFVAR *GENTEMP-COUNTER* ...) ; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; compiling (DEFUN GENTEMP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/symbol.lisp ; 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 BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SYMBOL ; "setting the symbol-function of ~A") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN MAKUNBOUND ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR ; (:SYMBOL SYMBOL "unbinding the symbol ~A") ; (SET SYMBOL ; (SB!SYS:%PRIMITIVE SB!C:MAKE-OTHER-IMMEDIATE-TYPE 0 ; SB!VM:UNBOUND-MARKER-WIDETAG)) ; SYMBOL) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SYMBOL ; "unbinding the symbol ~A") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN GENSYM ; (SB!IMPL::QUICK-INTEGER-TO-STRING SB!ALIEN:INT) ; ; caught STYLE-WARNING: ; undefined function: QUICK-INTEGER-TO-STRING ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED QUICK-INTEGER-TO-STRING ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/symbol.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bignum.lisp" (written 28 JUL 2006 02:08:41 AM): ; compiling (IN-PACKAGE "SB!BIGNUM") ; compiling (DEFCONSTANT DIGIT-SIZE ...) ; compiling (DEFCONSTANT MAXIMUM-BIGNUM-LENGTH ...) ; compiling (DEFCONSTANT ALL-ONES-DIGIT ...) ; compiling (DEFUN %ALLOCATE-BIGNUM ...) ; compiling (DEFUN %BIGNUM-LENGTH ...) ; compiling (DEFUN %BIGNUM-REF ...) ; compiling (DEFUN %BIGNUM-SET ...) ; compiling (DEFUN %DIGIT-0-OR-PLUSP ...) ; compiling (DECLAIM (INLINE %BIGNUM-0-OR-PLUSP)) ; compiling (DEFUN %BIGNUM-0-OR-PLUSP ...) ; compiling (DEFUN %ADD-WITH-CARRY ...) ; compiling (DEFUN %SUBTRACT-WITH-BORROW ...) ; compiling (DEFUN %MULTIPLY ...) ; compiling (DEFUN %MULTIPLY-AND-ADD ...) ; compiling (DEFUN %LOGNOT ...) ; compiling (DECLAIM (INLINE %LOGAND ...)) ; compiling (DEFUN %LOGAND ...) ; compiling (DEFUN %LOGIOR ...) ; compiling (DEFUN %LOGXOR ...) ; compiling (DEFUN %FIXNUM-TO-DIGIT ...) ; compiling (DEFUN %FLOOR ...) ; compiling (DEFUN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...) ; compiling (DEFUN %ASHR ...) ; compiling (DEFUN %ASHL ...) ; compiling (DEFUN %DIGIT-LOGICAL-SHIFT-RIGHT ...) ; compiling (DEFUN %BIGNUM-SET-LENGTH ...) ; compiling (DECLAIM (INLINE %SIGN-DIGIT)) ; compiling (DEFUN %SIGN-DIGIT ...) ; compiling (DECLAIM (INLINE %DIGIT-COMPARE ...)) ; compiling (DEFUN %DIGIT-COMPARE ...) ; compiling (DEFUN %DIGIT-GREATER ...) ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFUN ADD-BIGNUMS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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) ; compiling (DEFUN FINISH-ADD ...) ; compiling (DEFUN SUBTRACT-BIGNUM ...) ; compiling (DEFUN SUBTRACT-BIGNUM-BUFFERS-WITH-LEN ...) ; compiling (DEFUN SUBTRACT-BIGNUM-BUFFERS ...) ; compiling (DEFUN MULTIPLY-BIGNUMS ...) ; compiling (DEFUN MULTIPLY-BIGNUM-AND-FIXNUM ...) ; compiling (DEFUN MULTIPLY-FIXNUMS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!INT:COLD-FSET SB!BIGNUM:MULTIPLY-FIXNUMS ; (LAMBDA (SB!BIGNUM::A SB!BIGNUM::B) ; (DECLARE (FIXNUM SB!BIGNUM::A SB!BIGNUM::B)) ; (BLOCK SB!BIGNUM:MULTIPLY-FIXNUMS ; (LET* (# #) ; (MULTIPLE-VALUE-BIND # # # #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (SB-XC:DEFMACRO GCD-ASSERT ...); in: LAMBDA NIL ; 'ASSERT ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; 'ASSERT ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bignum.lisp ; in: SB-XC:DEFMACRO GCD-ASSERT ; 'ASSERT ; ; note: deleting unreachable code ; compiling (SB-XC:DEFMACRO MODULARLY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BIGNUM-FACTORS-OF-TWO ...) ; compiling (DECLAIM (INLINE MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER)) ; compiling (DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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. ; ; 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 SB!BIGNUM::SMALLNUM) ; ; note: forced to do static-fun %Negate (cost 52) ; 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). ; compiling (DECLAIM (INLINE BMOD)) ; compiling (DEFUN BMOD ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (LOGIOR SB!BIGNUM::UMASK SB!BIGNUM::IMASK)) ; (UNLESS (ZEROP #) (SETF SB!BIGNUM::UD #) (SETF SB!BIGNUM::M #)) ; (SETF SB!BIGNUM::IMASK (SB!BIGNUM::MODULARLY #)) ; (SETF SB!BIGNUM::VD (SB!BIGNUM::MODULARLY #))) ; SB!BIGNUM::M)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!BIGNUM::BMOD ; (LAMBDA (SB!BIGNUM::U SB!BIGNUM::V) ; (BLOCK SB!BIGNUM::BMOD ; (LET (# # # # #) ; (DECLARE #) ; (DOTIMES # # # # #) ; SB!BIGNUM::M)))) ; ; note: doing unsigned word to integer coercion (cost 20) from M to "" ; compiling (DEFUN DMOD ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bignum.lisp ; in: DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER ; (- SB!BIGNUM::SMALLNUM) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!BIGNUM::SMALLNUM ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; 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 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). ; (> (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 ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (- (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 RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; 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 SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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))) ; ==> ; (+ SB!C::Y 1) ; ; note: unable to ; optimize ; 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). ; (+ (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 SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; 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. ; 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))) ; ==> ; (+ SB!C::Y 1) ; ; 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 2) 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 (SIGNED-BYTE 32) &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. ; compiling (DEFCONSTANT LOWER-ONES-DIGIT ...) ; compiling (DEFUN REDUCED-RATIO-MOD ...) ; compiling (DEFUN COPY-BIGNUM ...) ; compiling (DECLAIM (INLINE MAKE-SMALL-BIGNUM)) ; compiling (DEFUN MAKE-SMALL-BIGNUM ...) ; compiling (DEFPARAMETER *ACCELERATED-GCD-CUTOFF* ...) ; compiling (DEFUN BIGNUM-GCD ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (MOD SB!BIGNUM::V1 SB!BIGNUM::U1) ; ; note: unable to ; convert remainder mod 2^k to LOGAND ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (+ 8 (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)) ; ==> ; (+ SB!C::Y 8) ; ; note: unable to ; optimize ; 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). ; (> (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 ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; 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. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; in: DEFUN BIGNUM-GCD ; (> 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 SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; 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. ; 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)) ; ==> ; (+ SB!C::Y 8) ; ; 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 SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; 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. ; etc. ; in: DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER ; (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 SB!BIGNUM::SMALLNUM) ; ; note: forced to do static-fun %Negate (cost 52) ; 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). ; (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 SB!BIGNUM::SMALLNUM) ; ; note: forced to do static-fun %Negate (cost 52) ; 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). ; in: DEFUN BIGNUM-GCD ; (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 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; 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 (SIGNED-BYTE 32). ; The second 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. ; compiling (DEFUN BIGNUM-MOD-GCD ...) ; compiling (DEFUN BIGNUM-BINARY-GCD ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-BINARY-GCD ; (ZEROP SB!BIGNUM::FACTORS-OF-TWO) ; ==> ; (= SB!BIGNUM::FACTORS-OF-TWO 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. ; compiling (DEFUN BIGNUM-GCD-ORDER-AND-SUBTRACT ...) ; compiling (DEFUN MAKE-GCD-BIGNUM-ODD ...) ; compiling (DEFUN NEGATE-BIGNUM ...) ; compiling (DEFUN NEGATE-BIGNUM-BUFFER-IN-PLACE ...) ; compiling (DEFUN NEGATE-BIGNUM-IN-PLACE ...) ; compiling (DEFUN BIGNUM-ABS-BUFFER ...) ; compiling (DEFUN BIGNUM-ASHIFT-RIGHT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-ASHIFT-RIGHT ; (ERROR "bignum overflow: can't shift right by ~S" COUNT) ; ; note: deleting unreachable code ; compiling (DEFUN BIGNUM-ASHIFT-RIGHT-DIGITS ...) ; compiling (DEFUN BIGNUM-BUFFER-ASHIFT-RIGHT ...) ; compiling (DEFUN BIGNUM-ASHIFT-LEFT ...) ; compiling (DEFUN BIGNUM-ASHIFT-LEFT-DIGITS ...) ; compiling (DEFUN BIGNUM-ASHIFT-LEFT-UNALIGNED ...) ; compiling (DEFUN BIGNUM-PLUS-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BIGNUM-COMPARE ...) ; compiling (DEFUN SINGLE-FLOAT-FROM-BITS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bignum.lisp ; in: DEFUN SINGLE-FLOAT-FROM-BITS ; (DEFUN SB!BIGNUM::SINGLE-FLOAT-FROM-BITS (SB!BIGNUM::BITS EXP PLUSP) ; (DECLARE (FIXNUM EXP)) ; (DECLARE (OPTIMIZE (SB!EXT:INHIBIT-WARNINGS 3))) ; (LET ((SB!BIGNUM::RES (SB-XC:DPB EXP SB!VM:SINGLE-FLOAT-EXPONENT-BYTE #))) ; (SB!KERNEL:MAKE-SINGLE-FLOAT ; (IF PLUSP SB!BIGNUM::RES (LOGIOR SB!BIGNUM::RES #))))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!BIGNUM::SINGLE-FLOAT-FROM-BITS ; (LAMBDA (SB!BIGNUM::BITS EXP PLUSP) ; (DECLARE (FIXNUM EXP)) ; (DECLARE (OPTIMIZE (SB!EXT:INHIBIT-WARNINGS 3))) ; (BLOCK SB!BIGNUM::SINGLE-FLOAT-FROM-BITS ; (LET (#) ; (SB!KERNEL:MAKE-SINGLE-FLOAT #))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; compiling (DEFUN DOUBLE-FLOAT-FROM-BITS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bignum.lisp ; in: DEFUN DOUBLE-FLOAT-FROM-BITS ; (DEFUN SB!BIGNUM::DOUBLE-FLOAT-FROM-BITS (SB!BIGNUM::BITS EXP PLUSP) ; (DECLARE (FIXNUM EXP)) ; (DECLARE (OPTIMIZE (SB!EXT:INHIBIT-WARNINGS 3))) ; (LET ((SB!BIGNUM::HI (SB-XC:DPB EXP SB!VM:DOUBLE-FLOAT-EXPONENT-BYTE #)) ; (SB!BIGNUM::LO (LOGAND 4294967295 #))) ; (SB!KERNEL:MAKE-DOUBLE-FLOAT ; (IF PLUSP SB!BIGNUM::HI (LOGIOR SB!BIGNUM::HI #)) SB!BIGNUM::LO))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!BIGNUM::DOUBLE-FLOAT-FROM-BITS ; (LAMBDA (SB!BIGNUM::BITS EXP PLUSP) ; (DECLARE (FIXNUM EXP)) ; (DECLARE (OPTIMIZE (SB!EXT:INHIBIT-WARNINGS 3))) ; (BLOCK SB!BIGNUM::DOUBLE-FLOAT-FROM-BITS ; (LET (# #) ; (SB!KERNEL:MAKE-DOUBLE-FLOAT # SB!BIGNUM::LO))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; compiling (DEFUN BIGNUM-TO-FLOAT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; unable to do inline (signed-byte 32) integer-length (cost 6) because: ; The first argument is a INTEGER, not a (SIGNED-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 safe inline fixnum arithmetic (cost 4) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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. ; compiling (DEFUN BIGNUM-BUFFER-INTEGER-LENGTH ...) ; compiling (DEFUN BIGNUM-INTEGER-LENGTH ...) ; compiling (DEFUN BIGNUM-LOGBITP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-LOGBITP ; (FLOOR SB!INT:INDEX SB!BIGNUM::DIGIT-SIZE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (>= SB!BIGNUM::WORD-INDEX SB!BIGNUM::LEN) ; --> IF ; ==> ; (< SB!BIGNUM::WORD-INDEX SB!BIGNUM::LEN) ; ; 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. ; (ASH 1 SB!KERNEL:BIT-INDEX) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) 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 (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (LOGAND (SB!BIGNUM:%BIGNUM-REF BIGNUM SB!BIGNUM::WORD-INDEX) ; (ASH 1 SB!KERNEL:BIT-INDEX)) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, 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 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; compiling (DEFUN BIGNUM-LOGCOUNT ...) ; compiling (DEFUN BIGNUM-LOGICAL-NOT ...) ; compiling (DEFUN BIGNUM-LOGICAL-AND ...) ; compiling (DEFUN LOGAND-SHORTER-POSITIVE ...) ; compiling (DEFUN LOGAND-SHORTER-NEGATIVE ...) ; compiling (DEFUN BIGNUM-LOGICAL-IOR ...) ; compiling (DEFUN LOGIOR-SHORTER-POSITIVE ...) ; compiling (DEFUN LOGIOR-SHORTER-NEGATIVE ...) ; compiling (DEFUN BIGNUM-LOGICAL-XOR ...) ; compiling (DEFUN BIGNUM-LOGICAL-XOR-AUX ...) ; compiling (DEFUN BIGNUM-TRUNCATE ...) ; compiling (DECLAIM (INLINE 32X16-SUBTRACT-WITH-BORROW ...)) ; compiling (DECLAIM (MAYBE-INLINE %NORMALIZE-BIGNUM-BUFFER)) ; compiling (DEFUN %NORMALIZE-BIGNUM-BUFFER ...) ; compiling (DEFUN %NORMALIZE-BIGNUM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFUN %MOSTLY-NORMALIZE-BIGNUM ...) ; compiling (DEFUN SXHASH-BIGNUM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bignum.lisp ; in: DEFUN BIGNUM-TO-FLOAT ; (SB!KERNEL:FLOAT-FORMAT-DIGITS FORMAT) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-DIGITS ; ; caught STYLE-WARNING: ; undefined type: SB!VM::POSITIVE-FIXNUM ; ; caught STYLE-WARNING: ; This function is undefined: ; FLOAT-FORMAT-DIGITS ; ; caught STYLE-WARNING: ; This type is undefined: ; SB!VM::POSITIVE-FIXNUM ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 77 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/bignum.lisp-obj-tmp written ; compilation finished in 0:00:08 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/numbers.lisp" (written 28 DEC 2005 10:37:14 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN PARSE-NUMBER-DISPATCH ...) ; compiling (DEFPARAMETER *TYPE-TEST-ORDERING* ...) ; compiling (DEFUN TYPE-TEST-ORDER ...) ; compiling (DEFUN GENERATE-NUMBER-DISPATCH ...) ; compiling (DEFMACRO NUMBER-DISPATCH ...) ; compiling (DECLAIM (INLINE CANONICAL-COMPLEX)) ; compiling (DEFUN CANONICAL-COMPLEX ...) ; compiling (DECLAIM (INLINE BUILD-RATIO)) ; compiling (DEFUN BUILD-RATIO ...) ; compiling (DECLAIM (INLINE MAYBE-TRUNCATE)) ; compiling (DEFUN MAYBE-TRUNCATE ...) ; compiling (DEFUN COMPLEX ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/numbers.lisp ; in: DEFUN CANONICAL-COMPLEX ; (TYPEP IMAGPART 'DOUBLE-FLOAT) ; --> SB!INT:LONG-FLOAT-P SB!INT:DOUBLE-FLOAT-P ; ==> ; IMAGPART ; ; note: deleting unreachable code ; (COMPLEX REALPART IMAGPART) ; ==> ; IMAGPART ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ==> ; REALPART ; ; note: deleting unreachable code ; (TYPEP IMAGPART 'SINGLE-FLOAT) ; --> SB!INT:SINGLE-FLOAT-P ; ==> ; IMAGPART ; ; note: deleting unreachable code ; (COMPLEX REALPART IMAGPART) ; ==> ; REALPART ; ; note: deleting unreachable code ; compiling (DEFUN REALPART ...) ; compiling (DEFUN IMAGPART ...) ; compiling (DEFUN CONJUGATE ...) ; compiling (DEFUN SIGNUM ...) ; compiling (DEFUN NUMERATOR ...) ; compiling (DEFUN DENOMINATOR ...) ; compiling (DEFINE-ARITH + ...) ; compiling (DEFINE-ARITH * ...) ; compiling (DEFUN - ...) ; compiling (DEFUN / ...) ; compiling (DEFUN 1+ ...) ; compiling (DEFUN 1- ...) ; compiling (TWO-ARG-+/- TWO-ARG-+ ...) ; compiling (TWO-ARG-+/- TWO-ARG-- ...) ; compiling (DEFUN TWO-ARG-* ...) ; compiling (DEFUN INTEGER-/-INTEGER ...) ; compiling (DEFUN TWO-ARG-/ ...) ; compiling (DEFUN %NEGATE ...) ; compiling (DEFUN TRUNCATE ...) ; compiling (DECLAIM (INLINE REM ...)) ; compiling (DECLAIM (MAYBE-INLINE CEILING ...)) ; compiling (DEFUN FLOOR ...) ; compiling (DEFUN CEILING ...) ; compiling (DEFUN ROUND ...) ; compiling (DEFUN REM ...) ; compiling (DEFUN MOD ...) ; compiling (DEFMACRO !DEFINE-FLOAT-ROUNDING-FUNCTION ...) ; compiling (DEFUN FTRUNCATE ...) ; compiling (DEFUN FFLOOR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/numbers.lisp ; in: DEFUN FTRUNCATE ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL) (SB!KERNEL::DIVISOR REAL)) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO) (OR FIXNUM BIGNUM RATIO)) ; (MULTIPLE-VALUE-BIND ; (SB!KERNEL::Q SB!KERNEL::R) ; (TRUNCATE NUMBER SB!KERNEL::DIVISOR) ; (VALUES (FLOAT SB!KERNEL::Q) SB!KERNEL::R))) ; (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT) (OR RATIONAL SINGLE-FLOAT)) ; (IF (EQL SB!KERNEL::DIVISOR 1) ; (LET (#) ; (VALUES SB!KERNEL::RES #)) ; (SB!KERNEL::FTRUNCATE-FLOAT (SB!KERNEL::DISPATCH-TYPE NUMBER)))) ; ((DOUBLE-FLOAT (OR SINGLE-FLOAT DOUBLE-FLOAT)) ; (SB!KERNEL::FTRUNCATE-FLOAT DOUBLE-FLOAT)) ; ((SINGLE-FLOAT DOUBLE-FLOAT) (SB!KERNEL::FTRUNCATE-FLOAT DOUBLE-FLOAT)) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO) ; (SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT)) ; (SB!KERNEL::FTRUNCATE-FLOAT (SB!KERNEL::DISPATCH-TYPE SB!KERNEL::DIVISOR)))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; in: DEFMACRO NUMBER-DISPATCH ; 'SIMPLE-TYPE-ERROR ; ; note: deleting unreachable code ; in: DEFUN FTRUNCATE ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL) (SB!KERNEL::DIVISOR REAL)) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO) (OR FIXNUM BIGNUM RATIO)) ; (MULTIPLE-VALUE-BIND ; (SB!KERNEL::Q SB!KERNEL::R) ; (TRUNCATE NUMBER SB!KERNEL::DIVISOR) ; (VALUES (FLOAT SB!KERNEL::Q) SB!KERNEL::R))) ; (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT) (OR RATIONAL SINGLE-FLOAT)) ; (IF (EQL SB!KERNEL::DIVISOR 1) ; (LET (#) ; (VALUES SB!KERNEL::RES #)) ; (SB!KERNEL::FTRUNCATE-FLOAT (SB!KERNEL::DISPATCH-TYPE NUMBER)))) ; ((DOUBLE-FLOAT (OR SINGLE-FLOAT DOUBLE-FLOAT)) ; (SB!KERNEL::FTRUNCATE-FLOAT DOUBLE-FLOAT)) ; ((SINGLE-FLOAT DOUBLE-FLOAT) (SB!KERNEL::FTRUNCATE-FLOAT DOUBLE-FLOAT)) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO) ; (SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT)) ; (SB!KERNEL::FTRUNCATE-FLOAT (SB!KERNEL::DISPATCH-TYPE SB!KERNEL::DIVISOR)))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; SB!KERNEL::DIVISOR ; ; note: deleting unreachable code ; compiling (DEFUN FCEILING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/numbers.lisp ; in: DEFUN FTRUNCATE ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL) (SB!KERNEL::DIVISOR REAL)) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO) (OR FIXNUM BIGNUM RATIO)) ; (MULTIPLE-VALUE-BIND ; (SB!KERNEL::Q SB!KERNEL::R) ; (TRUNCATE NUMBER SB!KERNEL::DIVISOR) ; (VALUES (FLOAT SB!KERNEL::Q) SB!KERNEL::R))) ; (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT) (OR RATIONAL SINGLE-FLOAT)) ; (IF (EQL SB!KERNEL::DIVISOR 1) ; (LET (#) ; (VALUES SB!KERNEL::RES #)) ; (SB!KERNEL::FTRUNCATE-FLOAT (SB!KERNEL::DISPATCH-TYPE NUMBER)))) ; ((DOUBLE-FLOAT (OR SINGLE-FLOAT DOUBLE-FLOAT)) ; (SB!KERNEL::FTRUNCATE-FLOAT DOUBLE-FLOAT)) ; ((SINGLE-FLOAT DOUBLE-FLOAT) (SB!KERNEL::FTRUNCATE-FLOAT DOUBLE-FLOAT)) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO) ; (SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT)) ; (SB!KERNEL::FTRUNCATE-FLOAT (SB!KERNEL::DISPATCH-TYPE SB!KERNEL::DIVISOR)))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; in: DEFMACRO NUMBER-DISPATCH ; 'SIMPLE-TYPE-ERROR ; ; note: deleting unreachable code ; in: DEFUN FTRUNCATE ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL) (SB!KERNEL::DIVISOR REAL)) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO) (OR FIXNUM BIGNUM RATIO)) ; (MULTIPLE-VALUE-BIND ; (SB!KERNEL::Q SB!KERNEL::R) ; (TRUNCATE NUMBER SB!KERNEL::DIVISOR) ; (VALUES (FLOAT SB!KERNEL::Q) SB!KERNEL::R))) ; (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT) (OR RATIONAL SINGLE-FLOAT)) ; (IF (EQL SB!KERNEL::DIVISOR 1) ; (LET (#) ; (VALUES SB!KERNEL::RES #)) ; (SB!KERNEL::FTRUNCATE-FLOAT (SB!KERNEL::DISPATCH-TYPE NUMBER)))) ; ((DOUBLE-FLOAT (OR SINGLE-FLOAT DOUBLE-FLOAT)) ; (SB!KERNEL::FTRUNCATE-FLOAT DOUBLE-FLOAT)) ; ((SINGLE-FLOAT DOUBLE-FLOAT) (SB!KERNEL::FTRUNCATE-FLOAT DOUBLE-FLOAT)) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO) ; (SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT)) ; (SB!KERNEL::FTRUNCATE-FLOAT (SB!KERNEL::DISPATCH-TYPE SB!KERNEL::DIVISOR)))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; SB!KERNEL::DIVISOR ; ; note: deleting unreachable code ; compiling (DEFUN FROUND ...) ; compiling (DEFUN = ...) ; compiling (DEFUN /= ...) ; compiling (DEFUN < ...) ; compiling (DEFUN > ...) ; compiling (DEFUN <= ...) ; compiling (DEFUN >= ...) ; compiling (DEFUN MAX ...) ; compiling (DEFUN MIN ...) ; compiling (DEFCONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...) ; compiling (DEFCONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...) ; compiling (DEFCONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...) ; compiling (DEFCONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...) ; compiling (DEF-TWO-ARG- TWO-ARG-< ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/numbers.lisp ; in: DEFUN BASIC-COMPARE ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (RATIONAL SB!KERNEL::X) ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::Y) ; ; note: deleting unreachable code ; 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!INT:COLD-FSET BLOCK SB!KERNEL::NUMBER-DISPATCH 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::Y ; ; note: deleting unreachable code ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; compiling (DEF-TWO-ARG- TWO-ARG-> ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/numbers.lisp ; in: DEFUN BASIC-COMPARE ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (RATIONAL SB!KERNEL::X) ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::Y) ; ; note: deleting unreachable code ; 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!INT:COLD-FSET BLOCK SB!KERNEL::NUMBER-DISPATCH 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::Y ; ; note: deleting unreachable code ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; compiling (DEFUN TWO-ARG-= ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/numbers.lisp ; in: DEFUN BASIC-COMPARE ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (VALUES SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; SB!KERNEL::MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM) ; ==> ; SB!KERNEL::MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ; ; note: deleting unreachable code ; (RATIONAL SB!KERNEL::X) ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::Y) ; ; note: deleting unreachable code ; 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 ; compiling (DEFUN LOGIOR ...) ; compiling (DEFUN LOGXOR ...) ; compiling (DEFUN LOGAND ...) ; compiling (DEFUN LOGEQV ...) ; compiling (DEFUN LOGNOT ...) ; compiling (DEF TWO-ARG-AND ...) ; compiling (DEF TWO-ARG-IOR ...) ; compiling (DEF TWO-ARG-XOR ...) ; compiling (DEF TWO-ARG-EQV ...) ; compiling (DEF LOGNAND ...) ; compiling (DEF LOGNOR ...) ; compiling (DEF LOGANDC1 ...) ; compiling (DEF LOGANDC2 ...) ; compiling (DEF LOGORC1 ...) ; compiling (DEF LOGORC2 ...) ; compiling (DEFUN LOGCOUNT ...) ; compiling (DEFUN LOGTEST ...) ; compiling (DEFUN LOGBITP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/numbers.lisp ; in: DEFUN LOGBITP ; (SB!KERNEL::NUMBER-DISPATCH ((SB!INT:INDEX INTEGER) (INTEGER INTEGER)) ; ((FIXNUM FIXNUM) (IF (> SB!INT:INDEX 29) (MINUSP INTEGER) (NOT (ZEROP #)))) ; ((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 ; compiling (DEFUN ASH ...) ; compiling (DEFUN INTEGER-LENGTH ...) ; compiling (DEFUN BYTE ...) ; compiling (DEFUN BYTE-SIZE ...) ; compiling (DEFUN BYTE-POSITION ...) ; compiling (DEFUN LDB ...) ; compiling (DEFUN LDB-TEST ...) ; compiling (DEFUN MASK-FIELD ...) ; compiling (DEFUN DPB ...) ; compiling (DEFUN DEPOSIT-FIELD ...) ; compiling (DEFUN %LDB ...) ; compiling (DEFUN %MASK-FIELD ...) ; compiling (DEFUN %DPB ...) ; compiling (DEFUN %DEPOSIT-FIELD ...) ; compiling (DEFUN SB!C::MASK-SIGNED-FIELD ...) ; 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 GCD ...) ; compiling (DEFUN LCM ...) ; compiling (DEFUN TWO-ARG-LCM ...) ; compiling (DEFUN TWO-ARG-GCD ...) ; compiling (DEFUN ISQRT ...) ; compiling (DEF ZEROP ...) ; compiling (DEF PLUSP ...) ; compiling (DEF MINUSP ...) ; compiling (DEF ODDP ...) ; compiling (DEF EVENP ...) ; compiling (DEFUN SB!VM::LOGNOT-MOD32 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/numbers.lisp ; in: DEFUN SB!VM::LOGNOT-MOD32 ; (SB!VM::LOGNOT-MOD32 (SB!KERNEL::PREPARE-ARGUMENT SB!VM::X)) ; ; note: deleting unreachable code ; compiling (DEFUN SB!VM::+-MOD32 ...) ; compiling (DEFUN SB!VM::--MOD32 ...) ; compiling (DEFUN SB!VM::*-MOD32 ...) ; compiling (DEFUN SB!VM::LOGXOR-MOD32 ...) ; compiling (DEFUN SB!VM::LOGEQV-MOD32 ...) ; compiling (DEFUN SB!VM::LOGNAND-MOD32 ...) ; compiling (DEFUN SB!VM::LOGNOR-MOD32 ...) ; compiling (DEFUN SB!VM::LOGANDC1-MOD32 ...) ; compiling (DEFUN SB!VM::LOGANDC2-MOD32 ...) ; compiling (DEFUN SB!VM::LOGORC1-MOD32 ...) ; compiling (DEFUN SB!VM::LOGORC2-MOD32 ...) ; compiling (DEFUN SB!VM::ASH-LEFT-MOD32 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/numbers.lisp ; in: DEFUN BASIC-COMPARE ; (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; ; caught STYLE-WARNING: ; This function is undefined: ; FLOAT-INFINITY-P ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 38 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/numbers.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/float-trap.lisp" (written 02 NOV 2006 12:00:31 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFPARAMETER *FLOAT-TRAP-ALIST* ...) ; compiling (DEFPARAMETER *ROUNDING-MODE-ALIST* ...) ; compiling (DEFUN FLOAT-TRAP-MASK ...) ; compiling (DEFUN FLOATING-POINT-MODES ...) ; compiling (DEFUN (SETF FLOATING-POINT-MODES) ...) ; compiling (DEFUN SET-FLOATING-POINT-MODES ...) ; compiling (DEFUN GET-FLOATING-POINT-MODES ...) ; compiling (DEFVAR *SAVED-FLOATING-POINT-MODES* ...) ; compiling (DEFUN FLOAT-COLD-INIT-OR-REINIT ...) ; compiling (DEFUN FLOAT-DEINIT ...) ; compiling (DEFMACRO CURRENT-FLOAT-TRAP ...) ; compiling (DEFPARAMETER *SIGFPE-CODE-ERROR-ALIST* ...) ; compiling (DEFUN SIGFPE-HANDLER ...) ; compiling (DEFMACRO WITH-FLOAT-TRAPS-MASKED ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/float-trap.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/float.lisp" (written 14 JUL 2005 05:30:34 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DECLAIM (MAYBE-INLINE FLOAT-DENORMALIZED-P ...)) ; compiling (DEFUN FLOAT-DENORMALIZED-P ...) ; compiling (DEFMACRO !DEFINE-FLOAT-DISPATCHING-FUNCTION ...) ; compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-INFINITY-P ...) ; compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-NAN-P ...) ; compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-TRAPPING-NAN-P ...) ; compiling (DECLAIM (MAYBE-INLINE FLOAT-PRECISION)) ; compiling (DEFUN FLOAT-PRECISION ...) ; compiling (DEFUN FLOAT-SIGN ...) ; compiling (DEFUN FLOAT-FORMAT-DIGITS ...) ; compiling (DECLAIM (INLINE FLOAT-DIGITS ...)) ; compiling (DEFUN FLOAT-DIGITS ...) ; compiling (DEFUN FLOAT-RADIX ...) ; compiling (DECLAIM (MAYBE-INLINE INTEGER-DECODE-SINGLE-FLOAT ...)) ; compiling (DEFUN INTEGER-DECODE-SINGLE-DENORM ...) ; compiling (DEFUN INTEGER-DECODE-SINGLE-FLOAT ...) ; compiling (DEFUN INTEGER-DECODE-DOUBLE-DENORM ...) ; compiling (DEFUN INTEGER-DECODE-DOUBLE-FLOAT ...) ; compiling (DEFUN INTEGER-DECODE-FLOAT ...) ; compiling (DECLAIM (MAYBE-INLINE DECODE-SINGLE-FLOAT ...)) ; compiling (DEFUN DECODE-SINGLE-DENORM ...) ; compiling (DEFUN DECODE-SINGLE-FLOAT ...) ; compiling (DEFUN DECODE-DOUBLE-DENORM ...) ; compiling (DEFUN DECODE-DOUBLE-FLOAT ...) ; compiling (DEFUN DECODE-FLOAT ...) ; compiling (DECLAIM (MAYBE-INLINE SCALE-SINGLE-FLOAT ...)) ; compiling (DEFUN SCALE-FLOAT-MAYBE-UNDERFLOW ...) ; compiling (DEFUN SCALE-FLOAT-MAYBE-OVERFLOW ...) ; compiling (DEFUN SCALE-SINGLE-FLOAT ...) ; compiling (DEFUN SCALE-DOUBLE-FLOAT ...) ; compiling (DEFUN SCALE-FLOAT ...) ; compiling (DEFUN FLOAT ...) ; compiling (FROB %SINGLE-FLOAT ...) ; compiling (FROB %DOUBLE-FLOAT ...) ; compiling (DEFUN FLOAT-RATIO ...) ; compiling (DEFUN %UNARY-TRUNCATE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!SYS:BITS EXP) ; (INTEGER-DECODE-FLOAT NUMBER) ; (LET # ; #))))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; compiling (DEFUN %UNARY-ROUND ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!SYS:BITS EXP) ; (INTEGER-DECODE-FLOAT NUMBER) ; (LET* # ; #))))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; compiling (DEFUN %UNARY-FTRUNCATE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFUN RATIONAL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/float.lisp ; in: DEFUN FLOAT-DIGITS ; (SB!KERNEL::NUMBER-DISPATCH ((SB!KERNEL::F FLOAT)) ; ((SINGLE-FLOAT) SB!VM:SINGLE-FLOAT-DIGITS) ; ((DOUBLE-FLOAT) SB!VM:DOUBLE-FLOAT-DIGITS)) ; --> BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF PROGN ; ==> ; SB!VM:SINGLE-FLOAT-DIGITS ; ; note: deleting unreachable code ; --> BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF COND IF PROGN ; ==> ; SB!VM:DOUBLE-FLOAT-DIGITS ; ; note: deleting unreachable code ; compiling (DEFUN RATIONALIZE ...); ; compilation unit finished ; printed 5 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/float.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/irrat.lisp" (written 30 OCT 2006 10:53:50 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFCONSTANT PI ...) ; compiling (DEF-MATH-RTN "sin" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %SIN does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "cos" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %COS does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "tan" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %TAN does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "asin" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %ASIN does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "acos" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %ACOS does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "atan" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %ATAN does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "atan2" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %ATAN2 does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "sinh" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %SINH does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "cosh" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %COSH does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "tanh" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %TANH does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "asinh" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %ASINH does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "acosh" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %ACOSH does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "atanh" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %ATANH does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "exp" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %EXP does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "log" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %LOG does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "log10" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %LOG10 does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "pow" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %POW does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "sqrt" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %SQRT does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "hypot" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %HYPOT does not match old FTYPE proclamation ; # ; compiling (DEF-MATH-RTN "log1p" ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for %LOG1P does not match old FTYPE proclamation ; # ; compiling (DEFUN EXP ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFPARAMETER *INTEXP-MAXIMUM-EXPONENT* ...) ; compiling (DEFUN INTEXP ...) ; compiling (DEFUN EXPT ...) ; compiling (DEFUN LOG2 ...) ; compiling (DEFUN LOG ...) ; compiling (DEFUN SQRT ...) ; compiling (DEFUN ABS ...) ; compiling (DEFUN PHASE ...) ; compiling (DEFUN SIN ...) ; compiling (DEFUN COS ...) ; compiling (DEFUN TAN ...) ; compiling (DEFUN CIS ...) ; compiling (DEFUN ASIN ...) ; compiling (DEFUN ACOS ...) ; compiling (DEFUN ATAN ...) ; compiling (DEFUN SINH ...) ; compiling (DEFUN COSH ...) ; compiling (DEFUN TANH ...) ; compiling (DEFUN ASINH ...) ; compiling (DEFUN ACOSH ...) ; compiling (DEFUN ATANH ...) ; compiling (DECLAIM (INLINE SQUARE)) ; compiling (DEFUN SQUARE ...) ; compiling (DECLAIM (INLINE SCALB)) ; compiling (DEFUN SCALB ...) ; compiling (DECLAIM (INLINE LOGB-FINITE)) ; compiling (DEFUN LOGB-FINITE ...) ; compiling (DEFUN LOGB ...) ; compiling (DECLAIM (INLINE COERCE-TO-COMPLEX-TYPE)) ; compiling (DEFUN COERCE-TO-COMPLEX-TYPE ...) ; compiling (DEFUN CSSQS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/irrat.lisp ; in: DEFUN CSSQS ; (MAX (ABS SB!KERNEL::X) (ABS SB!KERNEL::Y)) ; --> LET LET IF ; ==> ; SB!C::MAXREST ; ; note: doing float to pointer coercion (cost 13) ; (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 "" ; (MAX (ABS SB!KERNEL::X) (ABS SB!KERNEL::Y)) ; --> LET LET IF ; ==> ; #:ONCE-ONLY-695 ; ; note: doing float to pointer coercion (cost 13) ; (VALUES SB!KERNEL::RHO 0) ; ; note: doing float to pointer coercion (cost 13) to "" ; compiling (DEFUN COMPLEX-SQRT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (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 single 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 double 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). ; (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). ; (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). ; in: DEFUN COMPLEX-SQRT ; (ABS SB!KERNEL::X) ; ; note: doing float to pointer coercion (cost 13), for: ; the first result of inline float arithmetic ; (SB!KERNEL::SCALB (ABS SB!KERNEL::X) (- SB!KERNEL::K)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SQRT SB!KERNEL::RHO) ; --> SB!KERNEL:%SQRT BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!C:%ALIEN-FUNCALL ; (SB!ALIEN-INTERNALS:DEPORT FUNCTION ; '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G745 ; '#)) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (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) ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: doing float to pointer coercion (cost 13) from ETA ; ; note: doing float to pointer coercion (cost 13) from NU ; compiling (DEFUN COMPLEX-LOG-SCALED ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/irrat.lisp ; in: DEFUN COMPLEX-LOG-SCALED ; (ZEROP SB!KERNEL::K) ; ==> ; (= SB!KERNEL::K 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!KERNEL::RHO SB!KERNEL::T2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; (LOG SB!KERNEL::RHO) ; ; 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). ; (/ (LOG SB!KERNEL::RHO) 2.0d0) ; ; 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. ; ; 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::K SB!KERNEL::J) ; ; note: unable to ; optimize ; 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). ; (* (+ 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 RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (+ (/ (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 RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; 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 SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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). ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (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). ; in: DEFUN COMPLEX-LOG-SCALED ; (< SB!KERNEL::RHO SB!KERNEL::T2) ; ; 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. ; (/ (LOG SB!KERNEL::RHO) 2.0d0) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 19) 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::K SB!KERNEL::J) ; ; 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 safe inline fixnum arithmetic (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline float arithmetic (cost 5) 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). ; (+ (/ (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 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. ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex single 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 double 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). ; (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). ; (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). ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: doing float to pointer coercion (cost 13) ; in: DEFUN COMPLEX-LOG-SCALED ; (/ ; (SB!KERNEL:%LOG1P ; (+ (* (- SB!KERNEL::BETA 1.0d0) (+ SB!KERNEL::BETA 1.0d0)) ; (* SB!KERNEL::THETA SB!KERNEL::THETA))) ; 2.0d0) ; ; note: doing float to pointer coercion (cost 13) ; compiling (DEFUN COMPLEX-LOG ...) ; compiling (DEFUN COMPLEX-ATANH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 SINGLE-FLOAT. ; The second 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 DOUBLE-FLOAT. ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a 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 (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 (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. ; (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 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 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 (* 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). ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (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). ; in: DEFUN COMPLEX-ATANH ; (/ (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 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). ; unable to do inline float arithmetic (cost 19) 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). ; (* SB!KERNEL::BETA SB!KERNEL::ETA) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline float arithmetic (cost 5) 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 50) ; unable to do inline float arithmetic (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (- (* SB!KERNEL::BETA SB!KERNEL::NU)) ; ==> ; (SB!KERNEL:%NEGATE (* SB!KERNEL::BETA SB!KERNEL::NU)) ; ; note: forced to do static-fun %Negate (cost 52) ; unable to do inline float arithmetic (cost 1) 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). ; 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. ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex single 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 double 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). ; (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). ; (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). ; in: DEFUN COMPLEX-ATANH ; (SETF SB!KERNEL::ETA ; (LET* ((SB!KERNEL::X-BIGGER (> SB!KERNEL::X #)) ; (SB!KERNEL::R (IF SB!KERNEL::X-BIGGER # #)) ; (SB!KERNEL::D (+ 1.0d0 #))) ; (IF SB!KERNEL::X-BIGGER (/ (/ SB!KERNEL::X) SB!KERNEL::D) ; (/ (/ SB!KERNEL::R SB!KERNEL::Y) SB!KERNEL::D)))) ; ==> ; (SETQ SB!KERNEL::ETA ; (LET* ((SB!KERNEL::X-BIGGER (> SB!KERNEL::X #)) ; (SB!KERNEL::R (IF SB!KERNEL::X-BIGGER # #)) ; (SB!KERNEL::D (+ 1.0d0 #))) ; (IF SB!KERNEL::X-BIGGER (/ (/ SB!KERNEL::X) SB!KERNEL::D) ; (/ (/ SB!KERNEL::R SB!KERNEL::Y) 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-* ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (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) ; in: DEFUN COMPLEX-ATANH ; (SETF SB!KERNEL::ETA ; (* 0.25d0 (SB!KERNEL:%LOG1P (/ (* 4.0d0 SB!KERNEL::X) (+ # #))))) ; ==> ; (SETQ SB!KERNEL::ETA ; (* 0.25d0 (SB!KERNEL:%LOG1P (/ (* 4.0d0 SB!KERNEL::X) (+ # #))))) ; ; 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) ; compiling (DEFUN COMPLEX-TANH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 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). ; ; 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). ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (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). ; in: DEFUN COMPLEX-TANH ; (* 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 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 ; 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 RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (/ (* 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 RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (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: 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 single 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 double 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). ; (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). ; (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). ; in: DEFUN COMPLEX-TANH ; (/ SB!KERNEL::RHO SB!KERNEL::S) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 19) 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). ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex single 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 double 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). ; (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). ; (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). ; in: DEFUN COMPLEX-TANH ; (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) ; --> * ; ==> ; (* SB!KERNEL::BETA SB!KERNEL::RHO) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline float arithmetic (cost 5) 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 50) ; unable to do inline float arithmetic (cost 5) 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 19) 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). ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex single 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 double 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). ; (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). ; (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). ; in: DEFUN COMPLEX-TANH ; (SINH SB!KERNEL::X) ; --> SB!KERNEL:%SINH BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!C:%ALIEN-FUNCALL ; (SB!ALIEN-INTERNALS:DEPORT FUNCTION ; '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G837 ; '#)) ; ; 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-/ ; in: DEFUN COERCE-TO-COMPLEX-TYPE ; (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) ; (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) ; (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) ; compiling (DEFUN COMPLEX-ACOS ...) ; compiling (DEFUN COMPLEX-ACOSH ...) ; compiling (DEFUN COMPLEX-ASIN ...) ; compiling (DEFUN COMPLEX-ASINH ...) ; compiling (DEFUN COMPLEX-ATAN ...) ; compiling (DEFUN COMPLEX-TAN ...); ; compilation unit finished ; caught 20 STYLE-WARNING conditions ; printed 132 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/irrat.lisp-obj-tmp written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/char.lisp" (written 02 NOV 2004 08:37:51 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...) ; compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/char.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/huffman.lisp" (written 27 FEB 2006 05:13:29 AM): ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!IMPL::HUFFMAN-PAIR)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!IMPL::HUFFMAN-NODE)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::HUFFMAN-PAIR ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::HUFFMAN-NODE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/huffman.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-char.lisp" (written 01 JUN 2006 01:01:19 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (INLINE STANDARD-CHAR-P ...)) ; compiling (DECLAIM (MAYBE-INLINE DIGIT-CHAR-P ...)) ; compiling (DEFTYPE CHAR-CODE ...) ; compiling (DEFVAR *CHARACTER-DATABASE*) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *UNICODE-CHARACTER-NAME-DATABASE*) ; compiling (DEFVAR *UNICODE-CHARACTER-NAME-HUFFMAN-TREE*) ; compiling (FROB) ; compiling (DEFPARAMETER *BASE-CHAR-NAME-ALIST* ...) ; compiling (DEFUN UCD-INDEX ...) ; compiling (DEFUN UCD-VALUE-0 ...) ; compiling (DEFUN UCD-VALUE-1 ...) ; compiling (DEFUN UCD-GENERAL-CATEGORY ...) ; compiling (DEFUN UCD-DECIMAL-DIGIT ...) ; compiling (DEFUN CHAR-CODE ...) ; compiling (DEFUN CHAR-INT ...) ; compiling (DEFUN CODE-CHAR ...) ; compiling (DEFUN CHARACTER ...) ; compiling (DEFUN CHAR-NAME ...) ; compiling (DEFUN NAME-CHAR ...) ; compiling (DEFUN STANDARD-CHAR-P ...) ; compiling (DEFUN %STANDARD-CHAR-P ...) ; compiling (DEFUN GRAPHIC-CHAR-P ...) ; compiling (DEFUN ALPHA-CHAR-P ...) ; compiling (DEFUN UPPER-CASE-P ...) ; compiling (DEFUN LOWER-CASE-P ...) ; compiling (DEFUN BOTH-CASE-P ...) ; compiling (DEFUN DIGIT-CHAR-P ...) ; compiling (DEFUN ALPHANUMERICP ...) ; compiling (DEFUN CHAR= ...) ; compiling (DEFUN CHAR/= ...) ; compiling (DEFUN CHAR< ...) ; compiling (DEFUN CHAR> ...) ; compiling (DEFUN CHAR<= ...) ; compiling (DEFUN CHAR>= ...) ; compiling (DEFMACRO EQUAL-CHAR-CODE ...) ; compiling (DEFUN CHAR-EQUAL ...) ; compiling (DEFUN CHAR-NOT-EQUAL ...) ; compiling (DEFUN CHAR-LESSP ...) ; compiling (DEFUN CHAR-GREATERP ...) ; compiling (DEFUN CHAR-NOT-GREATERP ...) ; compiling (DEFUN CHAR-NOT-LESSP ...) ; compiling (DEFUN CHAR-UPCASE ...) ; compiling (DEFUN CHAR-DOWNCASE ...) ; compiling (DEFUN DIGIT-CHAR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-char.lisp-obj-tmp written ; compilation finished in 0:00:07 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-misc.lisp" (written 28 NOV 2006 01:34:07 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN FUNCTION-LAMBDA-EXPRESSION ...) ; compiling (DEFUN CLOSUREP ...) ; compiling (DEFUN %FUN-FUN ...) ; compiling (DEFUN %CLOSURE-VALUES ...) ; compiling (DEFUN %FUN-LAMBDA-LIST ...) ; compiling (DEFUN %FUN-NAME ...) ; compiling (DEFUN %FUN-TYPE ...) ; compiling (DEFUN (SETF %FUN-NAME) ...) ; compiling (DEFUN %FUN-DOC ...) ; compiling (DEFVAR *FEATURES* ...) ; compiling (DEFUN MACHINE-INSTANCE ...) ; compiling (DEFVAR *MACHINE-VERSION*) ; compiling (DEFUN MACHINE-VERSION ...) ; compiling (DEFVAR *SHORT-SITE-NAME* ...) ; compiling (DEFVAR *LONG-SITE-NAME* ...) ; compiling (DEFUN SHORT-SITE-NAME ...) ; compiling (DEFUN LONG-SITE-NAME ...) ; compiling (DEFVAR *ED-FUNCTIONS* ...) ; compiling (DEFUN ED ...) ; compiling (DEFVAR *PREVIOUS-DRIBBLE-STREAMS* ...) ; compiling (DEFVAR *DRIBBLE-STREAM* ...) ; compiling (DEFUN DRIBBLE ...) ; compiling (DEFUN %BYTE-BLT ...) ; compiling (DEFVAR *LOAD-PRINT* ...) ; compiling (DEFVAR *LOAD-VERBOSE* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-misc.lisp ; in: DEFUN DRIBBLE ; (SETF *STANDARD-INPUT* (SECOND SB!IMPL::OLD-STREAMS)) ; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; --> SB!C::%INSTANCE-TYPEP AND IF AND LET 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 FUNCTION-LAMBDA-EXPRESSION ; (ETYPECASE SB!IMPL::FUN ; (SB!EVAL:INTERPRETED-FUNCTION ; (LET ((SB!IMPL::NAME #) (SB!IMPL::LAMBDA-LIST #) (SB!IMPL::BODY #)) ; (VALUES ; (SB!IMPL::BACKQ-LIST* 'LAMBDA SB!IMPL::LAMBDA-LIST SB!IMPL::BODY) T ; SB!IMPL::NAME))) ; (FUNCTION ; (LET* ((SB!IMPL::FUN #) ; (SB!IMPL::NAME #) ; (SB!IMPL::CODE #) ; (SB!INT:INFO #)) ; (IF SB!INT:INFO ; (LET # ; #) ; (VALUES NIL T SB!IMPL::NAME))))) ; --> LET COND IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET ; ==> ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!C::OBJECT) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; (SB!INT:FUN-NAME-INLINE-EXPANSION SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: FUN-NAME-INLINE-EXPANSION ; in: DEFUN %FUN-FUN ; (SB!KERNEL:FUNCALLABLE-INSTANCE-FUN FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: FUNCALLABLE-INSTANCE-FUN ; in: DEFUN %FUN-DOC ; (SB!INT:INFO :FUNCTION :DOCUMENTATION SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN FUNCTION-LAMBDA-EXPRESSION ; (SB!EVAL:INTERPRETED-FUNCTION-BODY SB!IMPL::FUN) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-BODY ; (SB!EVAL:INTERPRETED-FUNCTION-LAMBDA-LIST SB!IMPL::FUN) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-LAMBDA-LIST ; (SB!EVAL:INTERPRETED-FUNCTION-NAME SB!IMPL::FUN) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-NAME ; 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) ; --> FLET SB!SYS:WITHOUT-GCING UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; in: DEFUN DRIBBLE ; (SETF *STANDARD-INPUT* (SECOND SB!IMPL::OLD-STREAMS)) ; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; --> SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN FUNCTION-LAMBDA-EXPRESSION ; (ETYPECASE SB!IMPL::FUN ; (SB!EVAL:INTERPRETED-FUNCTION ; (LET ((SB!IMPL::NAME #) (SB!IMPL::LAMBDA-LIST #) (SB!IMPL::BODY #)) ; (VALUES ; (SB!IMPL::BACKQ-LIST* 'LAMBDA SB!IMPL::LAMBDA-LIST SB!IMPL::BODY) T ; SB!IMPL::NAME))) ; (FUNCTION ; (LET* ((SB!IMPL::FUN #) ; (SB!IMPL::NAME #) ; (SB!IMPL::CODE #) ; (SB!INT:INFO #)) ; (IF SB!INT:INFO ; (LET # ; #) ; (VALUES NIL T SB!IMPL::NAME))))) ; --> LET COND IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN COND IF PROGN ; --> SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; These functions are undefined: ; %FUNCALLABLE-INSTANCE-LAYOUT FUN-NAME-INLINE-EXPANSION FUNCALLABLE-INSTANCE-FUN INFO SB!EVAL:INTERPRETED-FUNCTION-BODY SB!EVAL:INTERPRETED-FUNCTION-LAMBDA-LIST SB!EVAL:INTERPRETED-FUNCTION-NAME SB!KERNEL::MAYBE-HANDLE-PENDING-GC UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; caught 12 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-misc.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/misc.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...) ; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/misc.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/room.lisp" (written 03 NOV 2006 07:54:00 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!STRUCT (ROOM-INFO #) ...) ; compiling (DEFPARAMETER *ROOM-INFO* ...) ; compiling (DEFTYPE SPACES ...) ; compiling (DECLAIM (TYPE FIXNUM ...)) ; compiling (DEFUN SPACE-BOUNDS ...) ; compiling (DEFUN SPACE-BYTES ...) ; compiling (DECLAIM (INLINE ROUND-TO-DUALWORD)) ; compiling (DEFUN ROUND-TO-DUALWORD ...) ; compiling (DECLAIM (INLINE VECTOR-TOTAL-SIZE)) ; compiling (DEFUN VECTOR-TOTAL-SIZE ...) ; compiling (DEFINE-ALIEN-TYPE (STRUCT PAGE) ...) ; compiling (DECLAIM (INLINE FIND-PAGE-INDEX)) ; compiling (DEFINE-ALIEN-ROUTINE "find_page_index" ...) ; compiling (DEFINE-ALIEN-VARIABLE "page_table" ...) ; compiling (DECLAIM (MAYBE-INLINE MAP-ALLOCATED-OBJECTS)) ; compiling (DEFUN MAP-ALLOCATED-OBJECTS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/room.lisp ; in: DEFUN ROUND-TO-DUALWORD ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; in: DEFUN VECTOR-TOTAL-SIZE ; (ASH SB!VM::LEN SB!VM::SHIFT) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) 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 ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (ASH 1 (- SB!VM::SHIFT)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The second argument is a (INTEGER 1 536870912), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (1- (ASH 1 (- SB!VM::SHIFT))) ; ==> ; (- (ASH 1 (- SB!VM::SHIFT)) 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 2), 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 (INTEGER 2), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (+ SB!VM::LEN (1- (ASH 1 (- SB!VM::SHIFT)))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (ASH (+ SB!VM::LEN (1- (ASH 1 (- SB!VM::SHIFT)))) SB!VM::SHIFT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER 1), not a (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; unable to do inline ASH (cost 5) because: ; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; (+ (* SB!VM:VECTOR-DATA-OFFSET SB!VM:N-WORD-BYTES) ; (IF (MINUSP SB!VM::SHIFT) (ASH (+ SB!VM::LEN (1- #)) SB!VM::SHIFT) ; (ASH SB!VM::LEN SB!VM::SHIFT))) ; ==> ; (+ SB!C::Y 8) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!VM::ROUND-TO-DUALWORD ; (* (SB!VM::ROOM-INFO-LENGTH SB!INT:INFO) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN VECTOR-TOTAL-SIZE ; (ASH 1 (- SB!VM::SHIFT)) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!VM::ROUND-TO-DUALWORD ; (* (THE FIXNUM (SB!KERNEL:%CODE-CODE-SIZE SB!VM::OBJ)) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (LET* ((SB!VM::OBJ ; (SB!KERNEL:MAKE-LISP-OBJ (LOGIOR # SB!VM:OTHER-POINTER-LOWTAG))) ; (SB!VM::SIZE ; (ECASE (SB!VM::ROOM-INFO-KIND SB!INT:INFO) ; (:FIXED # #) ; (# #) ; (:HEADER #) ; (:CODE #)))) ; (DECLARE (FIXNUM SB!VM::SIZE)) ; (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::HEADER-WIDETAG SB!VM::SIZE) ; (SB!INT:AVER (ZEROP (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK))) ; (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::SIZE))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!VM::ROUND-TO-DUALWORD ; (* (+ (SB!KERNEL:%INSTANCE-LENGTH SB!VM::OBJ) 1) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:SLOT SB!VM::PAGE 'SB!VM::FLAGS) ; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; --> SB!SYS:SAP-REF-8 ; ==> ; (SB!SYS:SAP-REF-8 SB!C::SAP (+ SB!C::OFFSET1 SB!C::OFFSET2)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:SLOT SB!VM::PAGE 'SB!VM::BYTES-USED) ; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; --> SB!SYS:SAP-REF-16 ; ==> ; (SB!SYS:SAP-REF-16 SB!C::SAP (+ SB!C::OFFSET1 SB!C::OFFSET2)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; compiling (DEFUN TYPE-BREAKDOWN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/room.lisp ; in: DEFUN TYPE-BREAKDOWN ; (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE) ; --> LET* ; ==> ; (SB!KERNEL:%ASET #:G253 #:G252 #:G251) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (INCF (AREF SB!VM::COUNTS TYPE)) ; --> LET* ; ==> ; (SB!KERNEL:%ASET #:G257 #:G256 #:G255) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; compiling (DEFUN PRINT-SUMMARY ...) ; compiling (DEFUN REPORT-SPACE-TOTAL ...) ; compiling (DEFUN MEMORY-USAGE ...) ; compiling (DEFUN COUNT-NO-OPS ...) ; compiling (DEFUN DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/room.lisp ; in: DEFUN ROUND-TO-DUALWORD ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; in: DEFUN VECTOR-TOTAL-SIZE ; (ASH SB!VM::LEN SB!VM::SHIFT) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) 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 ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (ASH 1 (- SB!VM::SHIFT)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The second argument is a (INTEGER 1 536870912), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (1- (ASH 1 (- SB!VM::SHIFT))) ; ==> ; (- (ASH 1 (- SB!VM::SHIFT)) 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 2), 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 (INTEGER 2), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (+ SB!VM::LEN (1- (ASH 1 (- SB!VM::SHIFT)))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (ASH (+ SB!VM::LEN (1- (ASH 1 (- SB!VM::SHIFT)))) SB!VM::SHIFT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER 1), not a (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; unable to do inline ASH (cost 5) because: ; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; (+ (* SB!VM:VECTOR-DATA-OFFSET SB!VM:N-WORD-BYTES) ; (IF (MINUSP SB!VM::SHIFT) (ASH (+ SB!VM::LEN (1- #)) SB!VM::SHIFT) ; (ASH SB!VM::LEN SB!VM::SHIFT))) ; ==> ; (+ SB!C::Y 8) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!VM::ROUND-TO-DUALWORD ; (* (SB!VM::ROOM-INFO-LENGTH SB!INT:INFO) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN VECTOR-TOTAL-SIZE ; (ASH 1 (- SB!VM::SHIFT)) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!VM::ROUND-TO-DUALWORD ; (* (THE FIXNUM (SB!KERNEL:%CODE-CODE-SIZE SB!VM::OBJ)) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (LET* ((SB!VM::OBJ ; (SB!KERNEL:MAKE-LISP-OBJ (LOGIOR # SB!VM:OTHER-POINTER-LOWTAG))) ; (SB!VM::SIZE ; (ECASE (SB!VM::ROOM-INFO-KIND SB!INT:INFO) ; (:FIXED # #) ; (# #) ; (:HEADER #) ; (:CODE #)))) ; (DECLARE (FIXNUM SB!VM::SIZE)) ; (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::HEADER-WIDETAG SB!VM::SIZE) ; (SB!INT:AVER (ZEROP (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK))) ; (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::SIZE))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!VM::ROUND-TO-DUALWORD ; (* (+ (SB!KERNEL:%INSTANCE-LENGTH SB!VM::OBJ) 1) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:SLOT SB!VM::PAGE 'SB!VM::FLAGS) ; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; --> SB!SYS:SAP-REF-8 ; ==> ; (SB!SYS:SAP-REF-8 SB!C::SAP (+ SB!C::OFFSET1 SB!C::OFFSET2)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:SLOT SB!VM::PAGE 'SB!VM::BYTES-USED) ; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; --> SB!SYS:SAP-REF-16 ; ==> ; (SB!SYS:SAP-REF-16 SB!C::SAP (+ SB!C::OFFSET1 SB!C::OFFSET2)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; compiling (DEFUN INSTANCE-USAGE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/room.lisp ; in: DEFUN INSTANCE-USAGE ; (INCF SB!VM::TOTAL-OBJECTS) ; --> LET* SETQ ; ==> ; (THE # #:G732) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (INCF SB!VM::TOTAL-BYTES SB!VM::SIZE) ; --> LET* SETQ ; ==> ; (THE # #:G734) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (INCF (THE FIXNUM (CAR SB!VM::FOUND))) ; --> LET* MULTIPLE-VALUE-BIND LET ; ==> ; (THE FIXNUM (VALUES #:G736)) ; ; 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 #:G740)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; compiling (DEFUN PRINT-ALLOCATED-OBJECTS ...) ; compiling (DEFVAR *IGNORE-AFTER* ...) ; compiling (DEFUN VALID-OBJ ...) ; compiling (DEFUN MAYBE-CONS ...) ; compiling (DEFUN LIST-ALLOCATED-OBJECTS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/room.lisp ; in: DEFUN ROUND-TO-DUALWORD ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; in: DEFUN VECTOR-TOTAL-SIZE ; (ASH SB!VM::LEN SB!VM::SHIFT) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) 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 ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (ASH 1 (- SB!VM::SHIFT)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The second argument is a (INTEGER 1 536870912), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (1- (ASH 1 (- SB!VM::SHIFT))) ; ==> ; (- (ASH 1 (- SB!VM::SHIFT)) 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 2), 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 (INTEGER 2), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (+ SB!VM::LEN (1- (ASH 1 (- SB!VM::SHIFT)))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (ASH (+ SB!VM::LEN (1- (ASH 1 (- SB!VM::SHIFT)))) SB!VM::SHIFT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER 1), not a (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; unable to do inline ASH (cost 5) because: ; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; (+ (* SB!VM:VECTOR-DATA-OFFSET SB!VM:N-WORD-BYTES) ; (IF (MINUSP SB!VM::SHIFT) (ASH (+ SB!VM::LEN (1- #)) SB!VM::SHIFT) ; (ASH SB!VM::LEN SB!VM::SHIFT))) ; ==> ; (+ SB!C::Y 8) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!VM::ROUND-TO-DUALWORD ; (* (SB!VM::ROOM-INFO-LENGTH SB!INT:INFO) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN VECTOR-TOTAL-SIZE ; (ASH 1 (- SB!VM::SHIFT)) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!VM::ROUND-TO-DUALWORD ; (* (THE FIXNUM (SB!KERNEL:%CODE-CODE-SIZE SB!VM::OBJ)) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (LET* ((SB!VM::OBJ ; (SB!KERNEL:MAKE-LISP-OBJ (LOGIOR # SB!VM:OTHER-POINTER-LOWTAG))) ; (SB!VM::SIZE ; (ECASE (SB!VM::ROOM-INFO-KIND SB!INT:INFO) ; (:FIXED # #) ; (# #) ; (:HEADER #) ; (:CODE #)))) ; (DECLARE (FIXNUM SB!VM::SIZE)) ; (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::HEADER-WIDETAG SB!VM::SIZE) ; (SB!INT:AVER (ZEROP (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK))) ; (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::SIZE))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!VM::ROUND-TO-DUALWORD ; (* (+ (SB!KERNEL:%INSTANCE-LENGTH SB!VM::OBJ) 1) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:SLOT SB!VM::PAGE 'SB!VM::FLAGS) ; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; --> SB!SYS:SAP-REF-8 ; ==> ; (SB!SYS:SAP-REF-8 SB!C::SAP (+ SB!C::OFFSET1 SB!C::OFFSET2)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:SLOT SB!VM::PAGE 'SB!VM::BYTES-USED) ; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; --> SB!SYS:SAP-REF-16 ; ==> ; (SB!SYS:SAP-REF-16 SB!C::SAP (+ SB!C::OFFSET1 SB!C::OFFSET2)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; compiling (DEFUN MAP-REFERENCING-OBJECTS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/room.lisp ; in: DEFUN ROUND-TO-DUALWORD ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; in: DEFUN VECTOR-TOTAL-SIZE ; (ASH SB!VM::LEN SB!VM::SHIFT) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) 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 ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (ASH 1 (- SB!VM::SHIFT)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The second argument is a (INTEGER 1 536870912), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (1- (ASH 1 (- SB!VM::SHIFT))) ; ==> ; (- (ASH 1 (- SB!VM::SHIFT)) 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 2), 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 (INTEGER 2), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (+ SB!VM::LEN (1- (ASH 1 (- SB!VM::SHIFT)))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (ASH (+ SB!VM::LEN (1- (ASH 1 (- SB!VM::SHIFT)))) SB!VM::SHIFT) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER 1), not a (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; unable to do inline ASH (cost 5) because: ; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; (+ (* SB!VM:VECTOR-DATA-OFFSET SB!VM:N-WORD-BYTES) ; (IF (MINUSP SB!VM::SHIFT) (ASH (+ SB!VM::LEN (1- #)) SB!VM::SHIFT) ; (ASH SB!VM::LEN SB!VM::SHIFT))) ; ==> ; (+ SB!C::Y 8) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!VM::ROUND-TO-DUALWORD ; (* (SB!VM::ROOM-INFO-LENGTH SB!INT:INFO) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN VECTOR-TOTAL-SIZE ; (ASH 1 (- SB!VM::SHIFT)) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!VM::ROUND-TO-DUALWORD ; (* (THE FIXNUM (SB!KERNEL:%CODE-CODE-SIZE SB!VM::OBJ)) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (LET* ((SB!VM::OBJ ; (SB!KERNEL:MAKE-LISP-OBJ (LOGIOR # SB!VM:OTHER-POINTER-LOWTAG))) ; (SB!VM::SIZE ; (ECASE (SB!VM::ROOM-INFO-KIND SB!INT:INFO) ; (:FIXED # #) ; (# #) ; (:HEADER #) ; (:CODE #)))) ; (DECLARE (FIXNUM SB!VM::SIZE)) ; (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::HEADER-WIDETAG SB!VM::SIZE) ; (SB!INT:AVER (ZEROP (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK))) ; (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::SIZE))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!VM::ROUND-TO-DUALWORD ; (* (+ (SB!KERNEL:%INSTANCE-LENGTH SB!VM::OBJ) 1) SB!VM:N-WORD-BYTES)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFUN ROUND-TO-DUALWORD ; (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (LOGAND (THE FIXNUM (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)) ; (LOGNOT SB!VM:LOWTAG-MASK)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:SLOT SB!VM::PAGE 'SB!VM::FLAGS) ; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; --> SB!SYS:SAP-REF-8 ; ==> ; (SB!SYS:SAP-REF-8 SB!C::SAP (+ SB!C::OFFSET1 SB!C::OFFSET2)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB!ALIEN:SLOT SB!VM::PAGE 'SB!VM::BYTES-USED) ; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; --> SB!SYS:SAP-REF-16 ; ==> ; (SB!SYS:SAP-REF-16 SB!C::SAP (+ SB!C::OFFSET1 SB!C::OFFSET2)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; compiling (DEFUN LIST-REFERENCING-OBJECTS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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:LONG) ; (SB!VM::BYTES-USED (SB!ALIEN:UNSIGNED 16)) ; (SB!VM::FLAGS (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!INT:COLD-FSET MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; --> TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET 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: 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 :LOWTAG :FIXED :HEADER :VECTOR :STRING :CODE :CLOSURE :INSTANCE)) ; (LENGTH NIL :TYPE (OR FIXNUM NULL))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!VM::ROOM-INFO)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!VM::ROOM-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN INSTANCE-USAGE ; (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-PROPER-NAME ; in: DEFUN SPACE-BOUNDS ; (SB!KERNEL:CURRENT-DYNAMIC-SPACE-START) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-DYNAMIC-SPACE-START ; in: DEFUN MAP-ALLOCATED-OBJECTS ; (SB!SYS:WITHOUT-GCING ; (MULTIPLE-VALUE-BIND ; (SB!VM::START SB!VM::END) ; (SB!VM::SPACE-BOUNDS SPACE) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::START SB!VM::END)) ; (DECLARE (OPTIMIZE (SPEED 3))) ; (LET ((SB!VM::CURRENT SB!VM::START) (SB!VM::SKIP-TESTS-UNTIL-ADDR 0)) ; (LABELS (# #) ; (DECLARE #) ; (LOOP # # #))))) ; --> UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/room.lisp ; 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!INT:COLD-FSET MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; --> TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CLASSOID-PROPER-NAME CURRENT-DYNAMIC-SPACE-START SB!KERNEL::MAYBE-HANDLE-PENDING-GC UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; caught 13 STYLE-WARNING conditions ; printed 98 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/room.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/stream.lisp" (written 28 JUN 2006 12:35:51 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *TERMINAL-IO* ...) ; compiling (DEFVAR *STANDARD-INPUT* ...) ; compiling (DEFVAR *STANDARD-OUTPUT* ...) ; compiling (DEFVAR *ERROR-OUTPUT* ...) ; compiling (DEFVAR *QUERY-IO* ...) ; compiling (DEFVAR *TRACE-OUTPUT* ...) ; compiling (DEFVAR *DEBUG-IO* ...) ; compiling (DEFUN ILL-IN ...) ; compiling (DEFUN ILL-OUT ...) ; compiling (DEFUN ILL-BIN ...) ; compiling (DEFUN ILL-BOUT ...) ; compiling (DEFUN CLOSED-FLAME ...) ; compiling (DEFUN NO-OP-PLACEHOLDER ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-INPUT-STREAM-P)) ; compiling (DEFUN ANSI-STREAM-INPUT-STREAM-P ...) ; compiling (DEFUN INPUT-STREAM-P ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-OUTPUT-STREAM-P)) ; compiling (DEFUN ANSI-STREAM-OUTPUT-STREAM-P ...) ; compiling (DEFUN OUTPUT-STREAM-P ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-OPEN-STREAM-P)) ; compiling (DEFUN ANSI-STREAM-OPEN-STREAM-P ...) ; compiling (DEFUN OPEN-STREAM-P ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-ELEMENT-TYPE)) ; compiling (DEFUN ANSI-STREAM-ELEMENT-TYPE ...) ; compiling (DEFUN STREAM-ELEMENT-TYPE ...) ; compiling (DEFUN STREAM-EXTERNAL-FORMAT ...) ; compiling (DEFUN INTERACTIVE-STREAM-P ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-CLOSE)) ; compiling (DEFUN ANSI-STREAM-CLOSE ...) ; compiling (DEFUN CLOSE ...) ; compiling (DEFUN SET-CLOSED-FLAME ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-FILE-POSITION)) ; compiling (DEFUN ANSI-STREAM-FILE-POSITION ...) ; compiling (DEFUN FILE-POSITION ...) ; compiling (DEFUN STREAM-ASSOCIATED-WITH-FILE-P ...) ; compiling (DEFUN STREAM-MUST-BE-ASSOCIATED-WITH-FILE ...) ; compiling (DEFUN FILE-LENGTH ...) ; compiling (DEFUN FILE-STRING-LENGTH ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-READ-LINE)) ; compiling (DEFUN ANSI-STREAM-READ-LINE ...) ; compiling (DEFUN READ-LINE ...) ; compiling (DECLAIM (INLINE READ-CHAR ...)) ; compiling (DECLAIM (INLINE ANSI-STREAM-READ-CHAR)) ; compiling (DEFUN ANSI-STREAM-READ-CHAR ...) ; compiling (DEFUN READ-CHAR ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-UNREAD-CHAR)) ; compiling (DEFUN ANSI-STREAM-UNREAD-CHAR ...) ; compiling (DEFUN UNREAD-CHAR ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-LISTEN)) ; compiling (DEFUN ANSI-STREAM-LISTEN ...) ; compiling (DEFUN LISTEN ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-READ-CHAR-NO-HANG)) ; compiling (DEFUN ANSI-STREAM-READ-CHAR-NO-HANG ...) ; compiling (DEFUN READ-CHAR-NO-HANG ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-CLEAR-INPUT)) ; compiling (DEFUN ANSI-STREAM-CLEAR-INPUT ...) ; compiling (DEFUN CLEAR-INPUT ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-READ-BYTE)) ; compiling (DEFUN ANSI-STREAM-READ-BYTE ...) ; compiling (DEFUN READ-BYTE ...) ; compiling (DEFUN READ-N-BYTES ...) ; compiling (DEFCONSTANT +ANSI-STREAM-IN-BUFFER-EXTRA+ ...) ; compiling (DEFUN FAST-READ-CHAR-REFILL ...) ; compiling (DEFUN FAST-READ-BYTE-REFILL ...) ; compiling (DEFUN WRITE-CHAR ...) ; compiling (DEFUN TERPRI ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-FRESH-LINE)) ; compiling (DEFUN ANSI-STREAM-FRESH-LINE ...) ; compiling (DEFUN FRESH-LINE ...) ; compiling (DEFUN WRITE-STRING ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-WRITE-STRING)) ; compiling (DEFUN ANSI-STREAM-WRITE-STRING ...) ; compiling (DEFUN %WRITE-STRING ...) ; compiling (DECLAIM (INLINE WRITE-STRING-NO-KEY)) ; compiling (DEFUN WRITE-STRING-NO-KEY ...) ; compiling (DEFUN WRITE-LINE ...) ; compiling (DEFUN CHARPOS ...) ; compiling (DEFUN LINE-LENGTH ...) ; compiling (DEFUN FINISH-OUTPUT ...) ; compiling (DEFUN FORCE-OUTPUT ...) ; compiling (DEFUN CLEAR-OUTPUT ...) ; compiling (DEFUN WRITE-BYTE ...) ; compiling (DECLAIM (NOTINLINE READ-CHAR ...)) ; compiling (DEFUN STREAM-MISC-DISPATCH ...) ; compiling (DEFSTRUCT (BROADCAST-STREAM # ...) ...) ; compiling (DEFUN MAKE-BROADCAST-STREAM ...) ; compiling (OUT-FUN BROADCAST-OUT ...) ; compiling (OUT-FUN BROADCAST-BOUT ...) ; compiling (OUT-FUN BROADCAST-SOUT ...) ; compiling (DEFUN BROADCAST-MISC ...) ; compiling (DEFSTRUCT (SYNONYM-STREAM # ...) ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for MAKE-SYNONYM-STREAM does not match old FTYPE proclamation ; # ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (OUT-FUN SYNONYM-OUT ...) ; compiling (OUT-FUN SYNONYM-BOUT ...) ; compiling (OUT-FUN SYNONYM-SOUT ...) ; compiling (IN-FUN SYNONYM-IN ...) ; compiling (IN-FUN SYNONYM-BIN ...) ; compiling (IN-FUN SYNONYM-N-BIN ...) ; compiling (DEFUN SYNONYM-MISC ...) ; compiling (DEFSTRUCT (TWO-WAY-STREAM # ...) ...) ; compiling (DEFPRINTER (TWO-WAY-STREAM) ...) ; compiling (DEFUN MAKE-TWO-WAY-STREAM ...) ; compiling (OUT-FUN TWO-WAY-OUT ...) ; compiling (OUT-FUN TWO-WAY-BOUT ...) ; compiling (OUT-FUN TWO-WAY-SOUT ...) ; compiling (IN-FUN TWO-WAY-IN ...) ; compiling (IN-FUN TWO-WAY-BIN ...) ; compiling (IN-FUN TWO-WAY-N-BIN ...) ; compiling (DEFUN TWO-WAY-MISC ...) ; compiling (DEFSTRUCT (CONCATENATED-STREAM # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN MAKE-CONCATENATED-STREAM ...) ; compiling (IN-FUN CONCATENATED-IN ...) ; compiling (IN-FUN CONCATENATED-BIN ...) ; compiling (DEFUN CONCATENATED-N-BIN ...) ; compiling (DEFUN CONCATENATED-MISC ...) ; compiling (DEFSTRUCT (ECHO-STREAM # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN MAKE-ECHO-STREAM ...) ; compiling (IN-FUN ECHO-IN ...) ; compiling (IN-FUN ECHO-BIN ...) ; compiling (DEFUN ECHO-N-BIN ...) ; compiling (DEFSTRUCT (STRING-INPUT-STREAM # ...) ...) ; compiling (DEFUN STRING-INCH ...) ; compiling (DEFUN STRING-BINCH ...) ; compiling (DEFUN STRING-STREAM-READ-N-BYTES ...) ; compiling (DEFUN STRING-IN-MISC ...) ; compiling (DEFUN MAKE-STRING-INPUT-STREAM ...) ; compiling (DEFSTRUCT (STRING-OUTPUT-STREAM # ...) ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for MAKE-STRING-OUTPUT-STREAM does not match old FTYPE proclamation ; # ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFUN STRING-OUTPUT-STREAM-LAST-INDEX ...) ; compiling (DEFUN STRING-OUCH ...) ; compiling (DEFUN STRING-SOUT ...) ; compiling (DEFUN STRING-OUT-MISC ...) ; compiling (DEFUN GET-OUTPUT-STREAM-STRING ...) ; compiling (DEFUN DUMP-OUTPUT-STREAM-STRING ...) ; compiling (DEFTYPE STRING-WITH-FILL-POINTER ...) ; compiling (DEFSTRUCT (FILL-POINTER-OUTPUT-STREAM # ...) ...) ; compiling (DEFUN FILL-POINTER-OUCH ...) ; compiling (DEFUN FILL-POINTER-SOUT ...) ; compiling (DEFUN FILL-POINTER-MISC ...) ; compiling (DEFSTRUCT (INDENTING-STREAM # ...) ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFMACRO INDENTING-INDENT ...) ; compiling (DEFUN INDENTING-OUT ...) ; compiling (DEFUN INDENTING-SOUT ...) ; compiling (DEFUN INDENTING-MISC ...) ; compiling (DECLAIM (MAYBE-INLINE READ-CHAR ...)) ; compiling (DEFSTRUCT (CASE-FROB-STREAM # ...) ...) ; compiling (DEFUN MAKE-CASE-FROB-STREAM ...) ; compiling (DEFUN CASE-FROB-MISC ...) ; compiling (DEFUN CASE-FROB-UPCASE-OUT ...) ; compiling (DEFUN CASE-FROB-UPCASE-SOUT ...) ; compiling (DEFUN CASE-FROB-DOWNCASE-OUT ...) ; compiling (DEFUN CASE-FROB-DOWNCASE-SOUT ...) ; compiling (DEFUN CASE-FROB-CAPITALIZE-OUT ...) ; compiling (DEFUN CASE-FROB-CAPITALIZE-SOUT ...) ; compiling (DEFUN CASE-FROB-CAPITALIZE-AUX-OUT ...) ; compiling (DEFUN CASE-FROB-CAPITALIZE-AUX-SOUT ...) ; compiling (DEFUN CASE-FROB-CAPITALIZE-FIRST-OUT ...) ; compiling (DEFUN CASE-FROB-CAPITALIZE-FIRST-SOUT ...) ; compiling (DEFUN READ-SEQUENCE ...) ; compiling (DEFUN ANSI-STREAM-READ-SEQUENCE ...) ; compiling (DEFUN WRITE-SEQUENCE ...) ; compiling (DEFUN ANSI-STREAM-WRITE-SEQUENCE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/stream.lisp ; in: DEFUN STREAM-ELEMENT-TYPE ; (DEFUN STREAM-ELEMENT-TYPE (STREAM) ; (SB!KERNEL:ANSI-STREAM-ELEMENT-TYPE STREAM)) ; --> PROGN SB!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET ; --> 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 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!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET ; --> 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 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!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET ; --> 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 ; ; caught STYLE-WARNING: ; 17 more uses of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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)) ; (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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT TWO-WAY-STREAM)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SYNONYM-STREAM)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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 (&REST SB!IMPL::STREAMS)) ; (:COPIER NIL)) ; (SB!IMPL::STREAMS NIL :TYPE LIST :READ-ONLY T)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT BROADCAST-STREAM)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; ; caught STYLE-WARNING: ; 7 more uses of undefined function SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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)) ; (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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'TWO-WAY-STREAM ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SYNONYM-STREAM ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 (&REST SB!IMPL::STREAMS)) ; (:COPIER NIL)) ; (SB!IMPL::STREAMS NIL :TYPE LIST :READ-ONLY T)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'BROADCAST-STREAM ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 7 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/stream.lisp ; in: DEFUN ANSI-STREAM-FILE-POSITION ; (SB!IMPL::BYTES-FOR-CHAR-FUN SB!IMPL::EF-ENTRY) ; ; caught STYLE-WARNING: ; undefined function: BYTES-FOR-CHAR-FUN ; ; caught STYLE-WARNING: ; undefined function: BYTES-FOR-CHAR-FUN ; in: DEFSTRUCT ECHO-STREAM ; #'SB!IMPL::ECHO-MISC ; ; caught STYLE-WARNING: ; undefined function: ECHO-MISC ; in: DEFUN ANSI-STREAM-WRITE-SEQUENCE ; (SB!SYS:FD-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-P ; in: DEFUN ANSI-STREAM-FILE-POSITION ; (SB!IMPL::FIND-EXTERNAL-FORMAT SB!IMPL::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: FIND-EXTERNAL-FORMAT ; ; caught STYLE-WARNING: ; undefined function: FIND-EXTERNAL-FORMAT ; in: DEFUN STRING-STREAM-READ-N-BYTES ; (SB!SYS:WITHOUT-GCING ; (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)) ; --> UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; in: DEFUN READ-N-BYTES ; (SB!KERNEL:%BYTE-BLT SB!IMPL::IN-BUFFER SB!INT:INDEX SB!IMPL::BUFFER ; SB!IMPL::START (+ SB!IMPL::START SB!IMPL::NUMBYTES)) ; --> FLET SB!SYS:WITHOUT-GCING UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; in: DEFUN ANSI-STREAM-WRITE-SEQUENCE ; (SB!SYS:OUTPUT-RAW-BYTES STREAM SB!IMPL::DATA SB!IMPL::OFFSET-START ; SB!IMPL::OFFSET-END) ; ; caught STYLE-WARNING: ; undefined function: OUTPUT-RAW-BYTES ; in: DEFUN READ-SEQUENCE ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::SEQ SB!IMPL::START SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: STREAM-READ-SEQUENCE ; 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 STREAM-ELEMENT-TYPE ; (DEFUN STREAM-ELEMENT-TYPE (STREAM) ; (SB!KERNEL:ANSI-STREAM-ELEMENT-TYPE STREAM)) ; --> PROGN SB!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN ; --> COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; 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!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN ; --> COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; 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!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN ; --> COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; 17 more uses of undefined function UPDATE-OBJECT-LAYOUT-OR-INVALID ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/stream.lisp ; in: DEFUN ANSI-STREAM-FILE-POSITION ; (SB!IMPL::VARIABLE-WIDTH-EXTERNAL-FORMAT-P SB!IMPL::EF-ENTRY) ; ; caught STYLE-WARNING: ; undefined function: VARIABLE-WIDTH-EXTERNAL-FORMAT-P ; ; caught STYLE-WARNING: ; undefined function: VARIABLE-WIDTH-EXTERNAL-FORMAT-P ; ; caught STYLE-WARNING: ; These functions are undefined: ; %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED BYTES-FOR-CHAR-FUN ECHO-MISC FD-STREAM-P FIND-EXTERNAL-FORMAT SB!KERNEL::MAYBE-HANDLE-PENDING-GC OUTPUT-RAW-BYTES STREAM-READ-SEQUENCE STREAM-WRITE-SEQUENCE UPDATE-OBJECT-LAYOUT-OR-INVALID VARIABLE-WIDTH-EXTERNAL-FORMAT-P ; ; compilation unit finished ; caught 32 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/stream.lisp-obj-tmp written ; compilation finished in 0:00:08 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/print.lisp" (written 13 SEP 2006 04:59:33 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *PRINT-READABLY* ...) ; compiling (DEFVAR *PRINT-ESCAPE* ...) ; compiling (DEFVAR *PRINT-PRETTY* ...) ; compiling (DEFVAR *PRINT-BASE* ...) ; compiling (DEFVAR *PRINT-RADIX* ...) ; compiling (DEFVAR *PRINT-LEVEL* ...) ; compiling (DEFVAR *PRINT-LENGTH* ...) ; compiling (DEFVAR *PRINT-CIRCLE* ...) ; compiling (DEFVAR *PRINT-CASE* ...) ; compiling (DEFVAR *PRINT-ARRAY* ...) ; compiling (DEFVAR *PRINT-GENSYM* ...) ; compiling (DEFVAR *PRINT-LINES* ...) ; compiling (DEFVAR *PRINT-RIGHT-MARGIN* ...) ; compiling (DEFVAR *PRINT-MISER-WIDTH* ...) ; compiling (DEFVAR *PRINT-PPRINT-DISPATCH*) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFMACRO WITH-STANDARD-IO-SYNTAX ...) ; compiling (DEFUN %WITH-STANDARD-IO-SYNTAX ...) ; compiling (DEFUN WRITE ...) ; compiling (DEFUN PRIN1 ...) ; compiling (DEFUN PRINC ...) ; compiling (DEFUN PRINT ...) ; compiling (DEFUN PPRINT ...) ; compiling (DEFUN WRITE-TO-STRING ...) ; compiling (DEFUN PRIN1-TO-STRING ...) ; compiling (DEFUN PRINC-TO-STRING ...) ; compiling (DEFUN STRINGIFY-OBJECT ...) ; compiling (DEFUN %PRINT-UNREADABLE-OBJECT ...) ; compiling (DEFUN UNIQUELY-IDENTIFIED-BY-PRINT-P ...) ; compiling (DEFUN OUTPUT-OBJECT ...) ; compiling (DEFVAR *PRINT-OBJECT-IS-DISABLED-P*) ; compiling (DEFUN OUTPUT-UGLY-OBJECT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/print.lisp ; in: DEFUN OUTPUT-UGLY-OBJECT ; (SB!IMPL::OUTPUT-RATIO SB!IMPL::OBJECT STREAM) ; ==> ; STREAM ; ; note: deleting unreachable code ; compiling (DEFVAR *PREVIOUS-CASE* ...) ; compiling (DEFVAR *PREVIOUS-READTABLE-CASE* ...) ; compiling (DEFVAR *INTERNAL-SYMBOL-OUTPUT-FUN* ...) ; compiling (DEFUN SETUP-PRINTER-STATE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/print.lisp ; in: DEFUN SETUP-PRINTER-STATE ; (SETQ *PRINT-CASE* :UPCASE) ; ; note: deleting unreachable code ; compiling (DEFUN OUTPUT-QUOTED-SYMBOL-NAME ...) ; compiling (DEFUN OUTPUT-SYMBOL ...) ; compiling (DEFUN OUTPUT-SYMBOL-NAME ...) ; compiling (DEFVAR *CHARACTER-ATTRIBUTES* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFCONSTANT OTHER-ATTRIBUTE ...) ; compiling (DEFCONSTANT NUMBER-ATTRIBUTE ...) ; compiling (DEFCONSTANT UPPERCASE-ATTRIBUTE ...) ; compiling (DEFCONSTANT LOWERCASE-ATTRIBUTE ...) ; compiling (DEFCONSTANT SIGN-ATTRIBUTE ...) ; compiling (DEFCONSTANT EXTENSION-ATTRIBUTE ...) ; compiling (DEFCONSTANT DOT-ATTRIBUTE ...) ; compiling (DEFCONSTANT SLASH-ATTRIBUTE ...) ; compiling (DEFCONSTANT FUNNY-ATTRIBUTE ...) ; compiling (DEFPARAMETER *ATTRIBUTE-NAMES* ...) ; compiling (FLET (#) ...) ; compiling (DEFVAR *DIGIT-BASES* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DOTIMES (I 36) ...) ; compiling (DEFUN SYMBOL-QUOTEP ...) ; compiling (DEFUN OUTPUT-PRESERVE-SYMBOL ...) ; compiling (DEFUN OUTPUT-LOWERCASE-SYMBOL ...) ; compiling (DEFUN OUTPUT-UPPERCASE-SYMBOL ...) ; compiling (DEFUN OUTPUT-CAPITALIZE-SYMBOL ...) ; compiling (DEFUN OUTPUT-INVERT-SYMBOL ...) ; compiling (DEFUN OUTPUT-LIST ...) ; compiling (DEFUN OUTPUT-VECTOR ...) ; compiling (DEFUN QUOTE-STRING ...) ; compiling (DEFUN ARRAY-READABLY-PRINTABLE-P ...) ; compiling (DEFUN OUTPUT-ARRAY ...) ; compiling (DEFUN OUTPUT-TERSE-ARRAY ...) ; compiling (DEFUN OUTPUT-ARRAY-GUTS ...) ; compiling (DEFUN SUB-OUTPUT-ARRAY-GUTS ...) ; compiling (DEFUN PRINT-OBJECT ...) ; compiling (DEFUN %OUTPUT-RADIX ...) ; compiling (DEFUN %OUTPUT-FIXNUM-IN-BASE ...) ; compiling (DEFUN %OUTPUT-BIGNUM-IN-BASE ...) ; compiling (DEFUN %OUTPUT-INTEGER-IN-BASE ...) ; compiling (DEFUN OUTPUT-INTEGER ...) ; compiling (DEFUN OUTPUT-RATIO ...) ; compiling (DEFUN OUTPUT-COMPLEX ...) ; compiling (DEFUN FLONUM-TO-STRING ...) ; compiling (DEFCONSTANT SINGLE-FLOAT-MIN-E ...) ; compiling (DEFCONSTANT DOUBLE-FLOAT-MIN-E ...) ; compiling (DEFUN FLONUM-TO-DIGITS ...) ; compiling (DEFUN SCALE-EXPONENT ...) ; compiling (DEFUN PRINT-FLOAT-EXPONENT ...) ; compiling (DEFUN OUTPUT-FLOAT-INFINITY ...) ; compiling (DEFUN OUTPUT-FLOAT-NAN ...) ; compiling (DEFUN OUTPUT-FLOAT ...) ; compiling (DEFUN OUTPUT-FLOAT-AUX ...) ; compiling (DEFUN OUTPUT-CHARACTER ...) ; compiling (DEFUN OUTPUT-SAP ...) ; compiling (DEFUN OUTPUT-WEAK-POINTER ...) ; compiling (DEFUN OUTPUT-CODE-COMPONENT ...) ; compiling (DEFUN OUTPUT-LRA ...) ; compiling (DEFUN OUTPUT-FDEFN ...) ; compiling (DEFUN PRINTED-AS-FUNCALLABLE-STANDARD-CLASS ...) ; compiling (DEFUN OUTPUT-FUN ...) ; compiling (DEFUN OUTPUT-RANDOM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/print.lisp ; 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* (ERROR 'PRINT-NOT-READABLE :OBJECT SB!IMPL::X)) ; (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!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET ; --> 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 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!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET ; --> 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 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)) ; --> 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)) ; --> 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 ; ==> ; (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 %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> 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 ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> SB!PRETTY::WITH-PRETTY-STREAM FLET BLOCK SB!KERNEL:DESCEND-INTO FLET ; --> BLOCK LET ; ==> ; (SB!PRETTY::START-LOGICAL-BLOCK STREAM "#<" NIL ">") ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY::START-LOGICAL-BLOCK ; 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* (ERROR 'PRINT-NOT-READABLE :OBJECT SB!IMPL::X)) ; (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!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN ; --> COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; 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!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN ; --> COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; %FUNCALLABLE-INSTANCE-LAYOUT DEFAULT-STRUCTURE-PRINT SB!PRETTY::END-LOGICAL-BLOCK FIND-EXTERNAL-SYMBOL FLOAT-FORMAT-NAME SB!PRETTY::FORCE-PRETTY-OUTPUT SB!PRETTY::MAKE-PRETTY-STREAM SB!PRETTY:OUTPUT-PRETTY-OBJECT SB!PRETTY:PRETTY-STREAM-P PRINT-PRETTY-ON-STREAM-P SB!PRETTY::START-LOGICAL-BLOCK UPDATE-OBJECT-LAYOUT-OR-INVALID WEAK-POINTER-VALUE ; ; compilation unit finished ; caught 18 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/print.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pprint.lisp" (written 28 JUN 2006 11:20:07 AM): ; compiling (IN-PACKAGE "SB!PRETTY") ; compiling (DEFTYPE COLUMN ...) ; compiling (DEFTYPE POSN ...) ; compiling (DEFCONSTANT INITIAL-BUFFER-SIZE ...) ; compiling (DEFCONSTANT DEFAULT-LINE-LENGTH ...) ; compiling (DEFSTRUCT (PRETTY-STREAM # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DECLAIM (INLINE INDEX-POSN ...)) ; compiling (DEFUN INDEX-POSN ...) ; compiling (DEFUN POSN-INDEX ...) ; compiling (DEFUN POSN-COLUMN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!INT:COLD-FSET ; ==> ; (THE # ; (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). ; compiling (DEFUN PRINT-PRETTY-ON-STREAM-P ...) ; compiling (DEFUN PRETTY-OUT ...) ; compiling (DEFUN PRETTY-SOUT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 LET SB!LOOP::LOOP-BODY TAGBODY WHEN COND IF >= 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::J ; ; note: deleting unreachable code ; (SETF (AREF SB!PRETTY::TARGET SB!PRETTY::I) (AREF STRING SB!PRETTY::J)) ; --> SB!KERNEL:%ASET ; ==> ; SB!PRETTY::TARGET ; ; 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 ; ==> ; 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 ; ; note: deleting unreachable code ; compiling (DEFUN PRETTY-MISC ...) ; compiling (DEFSTRUCT (LOGICAL-BLOCK #) ...) ; compiling (DEFUN REALLY-START-LOGICAL-BLOCK ...) ; compiling (DEFUN SET-INDENTATION ...) ; compiling (DEFUN REALLY-END-LOGICAL-BLOCK ...) ; compiling (DEFSTRUCT (QUEUED-OP # ...) ...) ; compiling (DEFMACRO ENQUEUE ...) ; compiling (DEFSTRUCT (SECTION-START # ...) ...) ; compiling (DEFSTRUCT (NEWLINE # ...) ...) ; compiling (DEFUN ENQUEUE-NEWLINE ...) ; compiling (DEFSTRUCT (INDENTATION # ...) ...) ; compiling (DEFUN ENQUEUE-INDENT ...) ; compiling (DEFSTRUCT (BLOCK-START # ...) ...) ; compiling (DEFUN START-LOGICAL-BLOCK ...) ; compiling (DEFSTRUCT (BLOCK-END # ...) ...) ; compiling (DEFUN END-LOGICAL-BLOCK ...) ; compiling (DEFSTRUCT (TAB # ...) ...) ; compiling (DEFUN ENQUEUE-TAB ...) ; compiling (DEFUN COMPUTE-TAB-SIZE ...) ; compiling (DEFUN INDEX-COLUMN ...) ; compiling (DEFUN EXPAND-TABS ...) ; compiling (DEFUN ENSURE-SPACE-IN-BUFFER ...) ; compiling (DEFUN MAYBE-OUTPUT ...) ; compiling (DEFUN MISERING-P ...) ; compiling (DEFUN FITS-ON-LINE-P ...) ; compiling (DEFUN OUTPUT-LINE ...) ; compiling (DEFUN OUTPUT-PARTIAL-LINE ...) ; compiling (DEFUN FORCE-PRETTY-OUTPUT ...) ; compiling (DEFUN PPRINT-NEWLINE ...) ; compiling (DEFUN PPRINT-INDENT ...) ; compiling (DEFUN PPRINT-TAB ...) ; compiling (DEFUN PPRINT-FILL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pprint.lisp ; in: DEFUN PPRINT-FILL ; (IF SB!PRETTY::COLON? "(" "") ; ==> ; SB!PRETTY::COLON? ; ; note: deleting unreachable code ; ==> ; "(" ; ; note: deleting unreachable code ; ==> ; "" ; ; note: deleting unreachable code ; (IF SB!PRETTY::COLON? ")" "") ; ==> ; SB!PRETTY::COLON? ; ; note: deleting unreachable code ; ==> ; ")" ; ; note: deleting unreachable code ; ==> ; "" ; ; note: deleting unreachable code ; compiling (DEFUN PPRINT-LINEAR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pprint.lisp ; in: DEFUN PPRINT-LINEAR ; (IF SB!PRETTY::COLON? "(" "") ; ==> ; SB!PRETTY::COLON? ; ; note: deleting unreachable code ; ==> ; "(" ; ; note: deleting unreachable code ; ==> ; "" ; ; note: deleting unreachable code ; (IF SB!PRETTY::COLON? ")" "") ; ==> ; SB!PRETTY::COLON? ; ; note: deleting unreachable code ; ==> ; ")" ; ; note: deleting unreachable code ; ==> ; "" ; ; note: deleting unreachable code ; compiling (DEFUN PPRINT-TABULAR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pprint.lisp ; in: DEFUN PPRINT-TABULAR ; (IF SB!PRETTY::COLON? "(" "") ; ==> ; SB!PRETTY::COLON? ; ; note: deleting unreachable code ; ==> ; "(" ; ; note: deleting unreachable code ; ==> ; "" ; ; note: deleting unreachable code ; (IF SB!PRETTY::COLON? ")" "") ; ==> ; SB!PRETTY::COLON? ; ; note: deleting unreachable code ; ==> ; ")" ; ; note: deleting unreachable code ; ==> ; "" ; ; note: deleting unreachable code ; compiling (DEFVAR *INITIAL-PPRINT-DISPATCH*) ; compiling (DEFVAR *BUILDING-INITIAL-TABLE* ...) ; compiling (DEFSTRUCT (PPRINT-DISPATCH-ENTRY #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN CONS-TYPE-SPECIFIER-P ...) ; compiling (DEFUN ENTRY< ...) ; compiling (DEFVAR *PRECOMPILED-PPRINT-DISPATCH-FUNS* ...) ; compiling (DEFUN COMPUTE-TEST-FN ...) ; compiling (DEFUN COPY-PPRINT-DISPATCH ...) ; compiling (DEFUN PPRINT-DISPATCH ...) ; compiling (DEFUN SET-PPRINT-DISPATCH ...) ; compiling (DEFUN PPRINT-ARRAY ...) ; compiling (DEFUN PPRINT-VECTOR ...) ; compiling (DEFUN PPRINT-MULTI-DIM-ARRAY ...) ; compiling (DEFUN PPRINT-LAMBDA-LIST ...) ; compiling (DEFUN PPRINT-LAMBDA ...) ; compiling (DEFUN PPRINT-BLOCK ...) ; compiling (DEFUN PPRINT-FLET ...) ; compiling (DEFUN PPRINT-LET ...) ; compiling (DEFUN PPRINT-PROGN ...) ; compiling (DEFUN PPRINT-PROGV ...) ; compiling (DEFUN PPRINT-QUOTE ...) ; compiling (DEFUN PPRINT-SETQ ...) ; compiling (DEFMACRO PPRINT-TAGBODY-GUTS ...) ; compiling (DEFUN PPRINT-TAGBODY ...) ; compiling (DEFUN PPRINT-CASE ...) ; compiling (DEFUN PPRINT-DEFUN ...) ; compiling (DEFUN PPRINT-DESTRUCTURING-BIND ...) ; compiling (DEFUN PPRINT-DO ...) ; compiling (DEFUN PPRINT-DOLIST ...) ; compiling (DEFUN PPRINT-TYPECASE ...) ; compiling (DEFUN PPRINT-PROG ...) ; compiling (DEFUN PPRINT-FUN-CALL ...) ; compiling (DEFUN PPRINT-DATA-LIST ...) ; compiling (DEFUN OUTPUT-PRETTY-OBJECT ...) ; compiling (DEFUN !PPRINT-COLD-INIT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pprint.lisp ; in: DEFUN !PPRINT-COLD-INIT ; (SB!IMPL::!BACKQ-PP-COLD-INIT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::!BACKQ-PP-COLD-INIT ; 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 it 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!INT:COLD-FSET COND IF COND IF PROGN SB!C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR LET TYPEP ; --> SB!C::%INSTANCE-TYPEP AND IF AND LET 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 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 immediatly ; 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 ommitted ; 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!INT:COLD-FSET COND IF COND IF PROGN SB!C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR LET TYPEP ; --> SB!C::%INSTANCE-TYPEP AND IF AND LET 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: 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) ; (SB!KERNEL:LINE-LENGTH ; (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET) ; SB!PRETTY::DEFAULT-LINE-LENGTH) ; :TYPE SB!PRETTY::COLUMN) ; (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) ; (SB!PRETTY::PREFIX (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; SIMPLE-STRING) ; ...) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET LOCALLY SB!C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP ; --> AND IF AND LET 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 ; ; caught STYLE-WARNING: ; 4 more uses of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pprint.lisp ; in: DEFSTRUCT NEWLINE ; (DEFSTRUCT ; (SB!PRETTY::NEWLINE (:INCLUDE SB!PRETTY::SECTION-START) (:COPIER NIL)) ; (SB!PRETTY::KIND (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :LINEAR :FILL :MISER :LITERAL :MANDATORY))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!PRETTY::NEWLINE)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!PRETTY::LOGICAL-BLOCK)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-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) ; (SB!KERNEL:LINE-LENGTH ; (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET) ; SB!PRETTY::DEFAULT-LINE-LENGTH) ; :TYPE SB!PRETTY::COLUMN) ; (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) ; (SB!PRETTY::PREFIX (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; SIMPLE-STRING) ; ...) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!PRETTY:PRETTY-STREAM)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; ; caught STYLE-WARNING: ; 5 more uses of undefined function SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!PRETTY::QUEUED-OP ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!PRETTY::LOGICAL-BLOCK ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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) ; (SB!KERNEL:LINE-LENGTH ; (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET) ; SB!PRETTY::DEFAULT-LINE-LENGTH) ; :TYPE SB!PRETTY::COLUMN) ; (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) ; (SB!PRETTY::PREFIX (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; SIMPLE-STRING) ; ...) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!PRETTY:PRETTY-STREAM ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 7 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 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 it 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!INT:COLD-FSET COND IF COND IF PROGN SB!C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR LET TYPEP ; --> SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; 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 immediatly ; 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 ommitted ; 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!INT:COLD-FSET COND IF COND IF PROGN SB!C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET OR LET TYPEP ; --> SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; 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) ; (SB!KERNEL:LINE-LENGTH ; (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET) ; SB!PRETTY::DEFAULT-LINE-LENGTH) ; :TYPE SB!PRETTY::COLUMN) ; (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) ; (SB!PRETTY::PREFIX (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; SIMPLE-STRING) ; ...) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET LOCALLY SB!C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP SB!C::%INSTANCE-TYPEP ; --> AND IF AND LET WHEN COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; 4 more uses of undefined function UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!IMPL::!BACKQ-PP-COLD-INIT %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED MAKE-PPRINT-DISPATCH-TABLE UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; caught 20 STYLE-WARNING conditions ; printed 26 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/pprint.lisp-obj-tmp written ; compilation finished in 0:00:08 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-format.lisp" (written 14 JUL 2005 05:30:32 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*) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-format.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-format.lisp" (written 27 MAR 2006 09:22:21 AM): ; compiling (IN-PACKAGE "SB!FORMAT") ; compiling (DEFUN FORMAT ...) ; compiling (DEFUN %FORMAT ...) ; compiling (DEFUN INTERPRET-DIRECTIVE-LIST ...) ; compiling (DEFUN FORMAT-WRITE-FIELD ...) ; compiling (DEFUN FORMAT-PRINC ...) ; compiling (DEF-FORMAT-INTERPRETER #\A ...) ; compiling (DEFUN FORMAT-PRIN1 ...) ; compiling (DEF-FORMAT-INTERPRETER #\S ...) ; compiling (DEF-FORMAT-INTERPRETER #\C ...) ; compiling (DEFUN CHAR-PRINTING-P ...) ; compiling (DEFUN FORMAT-PRINT-NAMED-CHARACTER ...) ; compiling (DEF-FORMAT-INTERPRETER #\W ...) ; compiling (DEFUN FORMAT-PRINT-INTEGER ...) ; compiling (DEFUN FORMAT-ADD-COMMAS ...) ; compiling (DEFMACRO INTERPRET-FORMAT-INTEGER ...) ; compiling (DEF-FORMAT-INTERPRETER #\D ...) ; compiling (DEF-FORMAT-INTERPRETER #\B ...) ; compiling (DEF-FORMAT-INTERPRETER #\O ...) ; compiling (DEF-FORMAT-INTERPRETER #\X ...) ; compiling (DEF-FORMAT-INTERPRETER #\R ...) ; compiling (DEFPARAMETER *CARDINAL-ONES* ...) ; compiling (DEFPARAMETER *CARDINAL-TENS* ...) ; compiling (DEFPARAMETER *CARDINAL-TEENS* ...) ; compiling (DEFPARAMETER *CARDINAL-PERIODS* ...) ; compiling (DEFPARAMETER *ORDINAL-ONES* ...) ; compiling (DEFPARAMETER *ORDINAL-TENS* ...) ; compiling (DEFUN FORMAT-PRINT-SMALL-CARDINAL ...) ; compiling (DEFUN FORMAT-PRINT-CARDINAL ...) ; compiling (DEFUN FORMAT-PRINT-CARDINAL-AUX ...) ; compiling (DEFUN FORMAT-PRINT-ORDINAL ...) ; compiling (DEFUN FORMAT-PRINT-OLD-ROMAN ...) ; compiling (DEFUN FORMAT-PRINT-ROMAN ...) ; compiling (DEF-FORMAT-INTERPRETER #\P ...) ; compiling (DEFUN DECIMAL-STRING ...) ; compiling (DEF-FORMAT-INTERPRETER #\F ...) ; compiling (DEFUN FORMAT-FIXED ...) ; compiling (DEFUN FORMAT-FIXED-AUX ...) ; compiling (DEF-FORMAT-INTERPRETER #\E ...) ; compiling (DEFUN FORMAT-EXPONENTIAL ...) ; compiling (DEFUN FORMAT-EXPONENT-MARKER ...) ; compiling (DEFUN FORMAT-EXP-AUX ...) ; compiling (DEF-FORMAT-INTERPRETER #\G ...) ; compiling (DEFUN FORMAT-GENERAL ...) ; compiling (DEFUN FORMAT-GENERAL-AUX ...) ; compiling (DEF-FORMAT-INTERPRETER #\$ ...) ; compiling (DEFUN FORMAT-DOLLARS ...) ; compiling (DEF-FORMAT-INTERPRETER #\% ...) ; compiling (DEF-FORMAT-INTERPRETER #\& ...) ; compiling (DEF-FORMAT-INTERPRETER #\| ...) ; compiling (DEF-FORMAT-INTERPRETER #\~ ...) ; compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\Newline ...) ; compiling (DEF-FORMAT-INTERPRETER #\T ...) ; compiling (DEFUN OUTPUT-SPACES ...) ; compiling (DEFUN FORMAT-RELATIVE-TAB ...) ; compiling (DEFUN FORMAT-ABSOLUTE-TAB ...) ; compiling (DEF-FORMAT-INTERPRETER #\_ ...) ; compiling (DEF-FORMAT-INTERPRETER #\I ...) ; compiling (DEF-FORMAT-INTERPRETER #\* ...) ; compiling (DEF-FORMAT-INTERPRETER #\? ...) ; compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\( ...) ; compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\) ...) ; compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\[ ...) ; compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\; ...) ; compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\] ...) ; compiling (DEFVAR *OUTSIDE-ARGS*) ; compiling (DEF-FORMAT-INTERPRETER #\^ ...) ; compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\{ ...) ; compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\} ...) ; compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\< ...) ; compiling (DEFUN INTERPRET-FORMAT-JUSTIFICATION ...) ; compiling (DEFUN FORMAT-JUSTIFICATION ...) ; compiling (DEFUN INTERPRET-FORMAT-LOGICAL-BLOCK ...) ; compiling (DEF-FORMAT-INTERPRETER #\/ ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-format.lisp ; in: DEFUN FORMAT ; (ETYPECASE SB!FORMAT::DESTINATION ; (NULL ; (WITH-OUTPUT-TO-STRING (STREAM) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; (STRING ; (WITH-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 SB!C::%INSTANCE-TYPEP AND IF ; --> AND LET 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: 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 ; (IF SB!FORMAT::COLONP ; (SB!FORMAT::FORMAT-PRINT-NAMED-CHARACTER (SB!FORMAT::NEXT-ARG) STREAM) ; (IF SB!FORMAT::ATSIGNP (PRIN1 # STREAM) (WRITE-CHAR # STREAM))))) ; --> 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-format.lisp ; 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-COMPLEX-FORMAT-INTERPRETER #\< ; #'SB!FORMAT::ILLEGAL-INSIDE-JUSTIFICATION-P ; ; caught STYLE-WARNING: ; undefined function: ILLEGAL-INSIDE-JUSTIFICATION-P ; 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 ; (WITH-OUTPUT-TO-STRING (STREAM) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; (STRING ; (WITH-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 SB!C::%INSTANCE-TYPEP AND IF ; --> AND LET WHEN COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; These functions are undefined: ; %FUNCALLABLE-INSTANCE-LAYOUT %SET-FORMAT-DIRECTIVE-INTERPRETER EXTRACT-USER-FUN-NAME FIND-DIRECTIVE ILLEGAL-INSIDE-JUSTIFICATION-P PARSE-CONDITIONAL-DIRECTIVE PARSE-FORMAT-JUSTIFICATION PARSE-FORMAT-LOGICAL-BLOCK TOKENIZE-CONTROL-STRING UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; caught 15 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-format.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defpackage.lisp" (written 06 NOV 2005 08:40:31 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO DEFPACKAGE ...); ; caught STYLE-WARNING: ; undefined function: CHECK-DISJOINT ; ; caught STYLE-WARNING: ; undefined function: STRINGIFY-NAME ; ; caught STYLE-WARNING: ; undefined function: STRINGIFY-NAMES ; ; caught STYLE-WARNING: ; These functions are undefined: ; CHECK-DISJOINT STRINGIFY-NAME STRINGIFY-NAMES ; compiling (DEFUN CHECK-DISJOINT ...) ; compiling (DEFUN STRINGIFY-NAME ...) ; compiling (DEFUN STRINGIFY-NAMES ...) ; compiling (DEFUN %DEFPACKAGE ...) ; compiling (DEFUN FIND-OR-MAKE-SYMBOL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defpackage.lisp ; in: DEFUN %DEFPACKAGE ; (SB!EXT:ADD-IMPLEMENTATION-PACKAGE PACKAGE SB!IMPL::P) ; ; caught STYLE-WARNING: ; undefined function: ADD-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 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 function: COERCE-TO-CONDITION ; in: DEFUN %DEFPACKAGE ; (SB!IMPL::ENTER-NEW-NICKNAMES PACKAGE SB!IMPL::NICKNAMES) ; ; caught STYLE-WARNING: ; undefined function: ENTER-NEW-NICKNAMES ; (SB!C:WITH-SOURCE-LOCATION (SB!IMPL::SOURCE-LOCATION) ; (SETF (SB!IMPL::PACKAGE-SOURCE-LOCATION PACKAGE) ; SB!IMPL::SOURCE-LOCATION)) ; --> WHEN COND IF PROGN IF PUSH LET* LAMBDA FUNCTION LET ; ==> ; (SB!C::MAKE-DEFINITION-SOURCE-LOCATION :NAMESTRING ; (CAR SB!IMPL::SOURCE-LOCATION) ; :TOPLEVEL-FORM-NUMBER ; (CDR SB!IMPL::SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!C::MAKE-DEFINITION-SOURCE-LOCATION ; ; caught STYLE-WARNING: ; These functions are undefined: ; ADD-IMPLEMENTATION-PACKAGE COERCE-TO-CONDITION ENTER-NEW-NICKNAMES SB!C::MAKE-DEFINITION-SOURCE-LOCATION ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/defpackage.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pp-backq.lisp" (written 14 JUL 2005 05:30:37 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN BACKQ-UNPARSE-EXPR ...) ; compiling (DEFUN BACKQ-UNPARSE ...) ; compiling (DEFUN PPRINT-BACKQUOTE ...) ; compiling (DEFUN PPRINT-BACKQ-COMMA ...) ; compiling (DEFUN !BACKQ-PP-COLD-INIT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/pp-backq.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/error-error.lisp" (written 14 JUL 2005 05:30:33 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *ERROR-ERROR-DEPTH* ...) ; compiling (DEFUN ERROR-ERROR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/error-error.lisp ; in: DEFUN ERROR-ERROR ; (SB!DEBUG:BACKTRACE MOST-POSITIVE-FIXNUM *TERMINAL-IO*) ; ; caught STYLE-WARNING: ; undefined function: BACKTRACE ; (SB!KERNEL:COERCE-TO-CONDITION "Maximum error nesting depth exceeded" NIL ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; (INVOKE-DEBUGGER ; (SB!KERNEL:COERCE-TO-CONDITION "Maximum error nesting depth exceeded" NIL ; 'SIMPLE-ERROR 'ERROR)) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; (SB!KERNEL:STREAM-COLD-INIT-OR-RESET) ; ; caught STYLE-WARNING: ; undefined function: STREAM-COLD-INIT-OR-RESET ; ; caught STYLE-WARNING: ; These functions are undefined: ; BACKTRACE COERCE-TO-CONDITION STREAM-COLD-INIT-OR-RESET ; ; caught STYLE-WARNING: ; This type is undefined: ; CONDITION ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/error-error.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/serve-event.lisp" (written 03 JAN 2006 09:52:38 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFSTRUCT (HANDLER # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFVAR *DESCRIPTOR-HANDLERS* ...) ; compiling (DEFUN ADD-FD-HANDLER ...) ; compiling (DEFUN REMOVE-FD-HANDLER ...) ; compiling (DEFUN INVALIDATE-DESCRIPTOR ...) ; compiling (DEFMACRO WITH-FD-HANDLER ...) ; compiling (DEFUN HANDLER-DESCRIPTORS-ERROR ...) ; compiling (DEFUN DECODE-TIMEOUT ...) ; compiling (DEFUN WAIT-UNTIL-FD-USABLE ...) ; compiling (DEFUN SERVE-ALL-EVENTS ...) ; compiling (DEFUN SERVE-EVENT ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *PERIODIC-POLLING-FUNCTION* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *MAX-EVENT-TO-SEC* ...) ; compiling (DEFVAR *MAX-EVENT-TO-USEC* ...) ; compiling (DEFUN SUB-SERVE-EVENT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/serve-event.lisp ; 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 (MOD 1024)) ; SB!IMPL::ACTIVE ; (FUNCTION NIL :TYPE FUNCTION) ; SB!IMPL::BOGUS) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!IMPL::HANDLER)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::HANDLER ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN HANDLER-DESCRIPTORS-ERROR ; (RESTART-CASE ; (ERROR "~S ~[have~;has a~:;have~] bad file descriptor~:P." ; SB!IMPL::BOGUS-HANDLERS (LENGTH SB!IMPL::BOGUS-HANDLERS)) ; (SB!IMPL::REMOVE-THEM NIL :REPORT "Remove bogus handlers." ; (SETF SB!IMPL::*DESCRIPTOR-HANDLERS* ; (DELETE-IF #'SB!IMPL::HANDLER-BOGUS ; SB!IMPL::*DESCRIPTOR-HANDLERS*))) ; (SB!IMPL::RETRY-THEM NIL :REPORT "Retry bogus handlers." ; (DOLIST (SB!IMPL::HANDLER SB!IMPL::BOGUS-HANDLERS) ; (SETF (SB!IMPL::HANDLER-BOGUS SB!IMPL::HANDLER) NIL))) ; (CONTINUE NIL :REPORT "Go on, leaving handlers marked as bogus.")) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION ; "~S ~[have~;has a~:;have~] bad file descriptor~:P." ; (LIST SB!IMPL::BOGUS-HANDLERS (LENGTH SB!IMPL::BOGUS-HANDLERS)) ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED COERCE-TO-CONDITION ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/serve-event.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fd-stream.lisp" (written 02 NOV 2006 02:18:23 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *AVAILABLE-BUFFERS* ...) ; compiling (DEFMACRO WITH-AVAILABLE-BUFFERS-LOCK ...) ; compiling (DEFCONSTANT BYTES-PER-BUFFER ...) ; compiling (DECLAIM (INLINE NEXT-AVAILABLE-BUFFER)) ; compiling (DEFUN NEXT-AVAILABLE-BUFFER ...) ; compiling (DEFSTRUCT (FD-STREAM # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFVAR *OUTPUT-ROUTINES* ...) ; compiling (DEFUN SIMPLE-STREAM-PERROR ...) ; compiling (DEFUN SIMPLE-FILE-PERROR ...) ; compiling (DEFUN STREAM-DECODING-ERROR ...) ; compiling (DEFUN STREAM-ENCODING-ERROR ...) ; compiling (DEFUN C-STRING-ENCODING-ERROR ...) ; compiling (DEFUN C-STRING-DECODING-ERROR ...) ; compiling (DEFUN STREAM-DECODING-ERROR-AND-HANDLE ...) ; compiling (DEFUN STREAM-ENCODING-ERROR-AND-HANDLE ...) ; compiling (DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ...) ; compiling (DEFUN EXTERNAL-FORMAT-DECODING-ERROR ...) ; compiling (DEFUN FROB-OUTPUT-LATER ...) ; compiling (DEFUN OUTPUT-LATER ...) ; compiling (DEFUN FROB-OUTPUT ...) ; compiling (DEFUN FLUSH-OUTPUT-BUFFER ...) ; compiling (DEFMACRO OUTPUT-WRAPPER/VARIABLE-WIDTH ...) ; compiling (DEFMACRO OUTPUT-WRAPPER ...) ; compiling (DEFMACRO DEF-OUTPUT-ROUTINES/VARIABLE-WIDTH ...) ; compiling (DEFMACRO DEF-OUTPUT-ROUTINES ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-CHAR-~A-BUFFERED" 1 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-BYTE-~A-BUFFERED" 1 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-BYTE-~A-BUFFERED" 1 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-SHORT-~A-BUFFERED" 2 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-SHORT-~A-BUFFERED" 2 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-LONG-~A-BUFFERED" 4 ...) ...) ; compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-LONG-~A-BUFFERED" 4 ...) ...) ; compiling (DEFUN OUTPUT-RAW-BYTES ...) ; compiling (DEFUN FD-SOUT ...) ; compiling (DEFVAR *EXTERNAL-FORMATS* ...) ; compiling (DEFUN GET-EXTERNAL-FORMAT ...) ; compiling (DEFUN GET-EXTERNAL-FORMAT-FUNCTION ...) ; compiling (DEFUN PICK-OUTPUT-ROUTINE ...) ; compiling (DEFVAR *INPUT-ROUTINES* ...) ; compiling (DEFUN SYSREAD-MAY-BLOCK-P ...) ; compiling (DEFUN REFILL-BUFFER/FD ...) ; compiling (DEFMACRO INPUT-AT-LEAST ...) ; compiling (DEFMACRO INPUT-WRAPPER/VARIABLE-WIDTH ...) ; compiling (DEFMACRO INPUT-WRAPPER ...) ; compiling (DEFMACRO DEF-INPUT-ROUTINE/VARIABLE-WIDTH ...) ; compiling (DEFMACRO DEF-INPUT-ROUTINE ...) ; compiling (DEF-INPUT-ROUTINE INPUT-CHARACTER ...) ; compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-8BIT-BYTE ...) ; compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-8BIT-NUMBER ...) ; compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-16BIT-BYTE ...) ; compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-16BIT-BYTE ...) ; compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-32BIT-BYTE ...) ; compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-32BIT-BYTE ...) ; compiling (DEFUN PICK-INPUT-ROUTINE ...) ; compiling (DEFUN STRING-FROM-SAP ...) ; compiling (DEFUN FD-STREAM-READ-N-BYTES ...) ; compiling (DEFUN FD-STREAM-RESYNC ...) ; compiling (DEFUN GET-FD-STREAM-CHARACTER-SIZER ...) ; compiling (DEFUN FD-STREAM-CHARACTER-SIZE ...) ; compiling (DEFUN FD-STREAM-STRING-SIZE ...) ; compiling (DEFUN FIND-EXTERNAL-FORMAT ...) ; compiling (DEFUN VARIABLE-WIDTH-EXTERNAL-FORMAT-P ...) ; compiling (DEFUN BYTES-FOR-CHAR-FUN ...) ; compiling (DEFMACRO DEFINE-EXTERNAL-FORMAT ...) ; compiling (DEFMACRO DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:LATIN-1 :LATIN1 ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fd-stream.lisp ; in: DEFMACRO DEFINE-EXTERNAL-FORMAT ; (MAKE-STRING LENGTH :ELEMENT-TYPE SB!IMPL::ELEMENT-TYPE) ; --> THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; in: DEFINE-EXTERNAL-FORMAT (:LATIN-1 :LATIN1 :ISO-8859-1 :ISO8859-1) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; compiling (DEFINE-EXTERNAL-FORMAT (:ASCII :US-ASCII ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fd-stream.lisp ; in: DEFMACRO DEFINE-EXTERNAL-FORMAT ; (MAKE-STRING LENGTH :ELEMENT-TYPE SB!IMPL::ELEMENT-TYPE) ; --> THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; in: ; DEFINE-EXTERNAL-FORMAT (:ASCII :US-ASCII :ANSI_X3.4-1968 :ISO-646 :ISO-646-US ; ...) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; compiling (LET* (# #) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fd-stream.lisp ; in: DEFINE-EXTERNAL-FORMAT (:EBCDIC-US :IBM-037 :IBM037) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:EBCDIC-US :IBM-037 :IBM037) 1 T ; (IF (>= SB!SYS:BITS 256) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS) ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (AREF SB!IMPL::REVERSE-TABLE SB!SYS:BITS))) ; (AREF SB!IMPL::TABLE SB-XC:BYTE)) ; --> PROGN DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::BYTES-FOR-CHAR/EBCDIC-US ; (LAMBDA (SB-XC:BYTE) ; (DECLARE (IGNORE SB-XC:BYTE)) ; (BLOCK SB!IMPL::BYTES-FOR-CHAR/EBCDIC-US 1))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET BYTES-FOR-CHAR/EBCDIC-US #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET BYTES-FOR-CHAR/EBCDIC-US not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::OUTPUT-BYTES/EBCDIC-US ; (LAMBDA ; (STREAM STRING SB!IMPL::FLUSH-P SB!IMPL::START ; SB!IMPL::END) ; (BLOCK SB!IMPL::OUTPUT-BYTES/EBCDIC-US ; (LET (# #) ; (DECLARE #) ; (WHEN # #) ; (UNLESS # #) ; (DO # # # #) ; (WHEN SB!IMPL::FLUSH-P #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-BYTES/EBCDIC-US #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET OUTPUT-BYTES/EBCDIC-US not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEF-OUTPUT-ROUTINES PROGN PROGN DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::OUTPUT-CHAR-EBCDIC-US-NONE-BUFFERED ; (LAMBDA (STREAM SB-XC:BYTE) ; (BLOCK SB!IMPL::OUTPUT-CHAR-EBCDIC-US-NONE-BUFFERED ; (SB!IMPL::OUTPUT-WRAPPER (STREAM 1 # T) (IF # # #) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-CHAR-EBCDIC-US-NONE-BUFFERED #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET OUTPUT-CHAR-EBCDIC-US-NONE-BUFFERED not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::OUTPUT-CHAR-EBCDIC-US-LINE-BUFFERED ; (LAMBDA (STREAM SB-XC:BYTE) ; (BLOCK SB!IMPL::OUTPUT-CHAR-EBCDIC-US-LINE-BUFFERED ; (SB!IMPL::OUTPUT-WRAPPER (STREAM 1 # T) (IF # # #) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-CHAR-EBCDIC-US-LINE-BUFFERED #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET OUTPUT-CHAR-EBCDIC-US-LINE-BUFFERED not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::OUTPUT-CHAR-EBCDIC-US-FULL-BUFFERED ; (LAMBDA (STREAM SB-XC:BYTE) ; (BLOCK SB!IMPL::OUTPUT-CHAR-EBCDIC-US-FULL-BUFFERED ; (SB!IMPL::OUTPUT-WRAPPER (STREAM 1 # T) (IF # # #) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-CHAR-EBCDIC-US-FULL-BUFFERED #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET OUTPUT-CHAR-EBCDIC-US-FULL-BUFFERED not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; --> PROGN DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::FD-STREAM-READ-N-CHARACTERS/EBCDIC-US ; (LAMBDA ; (STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::REQUESTED SB!IMPL::EOF-ERROR-P ; &AUX (SB!INT:INDEX SB!IMPL::START) ; (SB!IMPL::END (+ SB!IMPL::START SB!IMPL::REQUESTED))) ; (DECLARE (TYPE SB!SYS:FD-STREAM STREAM)) ; (DECLARE ; (TYPE SB!INT:INDEX SB!IMPL::START SB!IMPL::REQUESTED ; SB!INT:INDEX SB!IMPL::END)) ; (DECLARE ; (TYPE (SIMPLE-ARRAY CHARACTER #) SB!IMPL::BUFFER)) ; (BLOCK SB!IMPL::FD-STREAM-READ-N-CHARACTERS/EBCDIC-US ; (LET (#) ; (WHEN SB!IMPL::UNREAD # # # #)) ; (DO () ; (NIL) ; (LET* # ; # ; # ; # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET FD-STREAM-READ-N-CHARACTERS/EBCDIC-US #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET FD-STREAM-READ-N-CHARACTERS/EBCDIC-US not cross-compiled at top ; level: demoting to (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEF-INPUT-ROUTINE PROGN DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::INPUT-CHAR/EBCDIC-US ; (LAMBDA (STREAM SB!IMPL::EOF-ERROR SB!IMPL::EOF-VALUE) ; (BLOCK SB!IMPL::INPUT-CHAR/EBCDIC-US ; (SB!IMPL::INPUT-WRAPPER ; (STREAM 1 SB!IMPL::EOF-ERROR SB!IMPL::EOF-VALUE) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET INPUT-CHAR/EBCDIC-US #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET INPUT-CHAR/EBCDIC-US not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::READ-FROM-C-STRING/EBCDIC-US ; (LAMBDA (SB!IMPL::SAP SB!IMPL::ELEMENT-TYPE) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!IMPL::SAP) ; (TYPE (MEMBER CHARACTER BASE-CHAR) ; SB!IMPL::ELEMENT-TYPE)) ; (BLOCK SB!IMPL::READ-FROM-C-STRING/EBCDIC-US ; (LOCALLY ; (DECLARE #) ; (LET* # ; # ; # ; # ; STRING))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET READ-FROM-C-STRING/EBCDIC-US #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET READ-FROM-C-STRING/EBCDIC-US not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::OUTPUT-TO-C-STRING/EBCDIC-US ; (LAMBDA (STRING) ; (DECLARE (TYPE SIMPLE-STRING STRING)) ; (BLOCK SB!IMPL::OUTPUT-TO-C-STRING/EBCDIC-US ; (LOCALLY ; (DECLARE #) ; (LET* # ; # ; # ; # ; SB!IMPL::BUFFER))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-TO-C-STRING/EBCDIC-US #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET OUTPUT-TO-C-STRING/EBCDIC-US not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; in: DEFMACRO DEFINE-EXTERNAL-FORMAT ; (MAKE-STRING LENGTH :ELEMENT-TYPE SB!IMPL::ELEMENT-TYPE) ; --> THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (LET (# # ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fd-stream.lisp ; in: DEFINE-EXTERNAL-FORMAT (:LATIN-9 :LATIN9 :ISO-8859-15 :ISO8859-15) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:LATIN-9 :LATIN9 :ISO-8859-15 :ISO8859-15) ; 1 T ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (IF (< SB!SYS:BITS 256) ; (IF (= SB!SYS:BITS #) SB!SYS:BITS ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB-XC:BYTE)) ; (IF (= # SB!SYS:BITS) (AREF SB!IMPL::LATIN-9-REVERSE-2 #) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM ; SB-XC:BYTE)))) ; (AREF SB!IMPL::LATIN-9-TABLE SB-XC:BYTE)) ; --> PROGN DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::BYTES-FOR-CHAR/LATIN-9 ; (LAMBDA (SB-XC:BYTE) ; (DECLARE (IGNORE SB-XC:BYTE)) ; (BLOCK SB!IMPL::BYTES-FOR-CHAR/LATIN-9 1))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET BYTES-FOR-CHAR/LATIN-9 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET BYTES-FOR-CHAR/LATIN-9 not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::OUTPUT-BYTES/LATIN-9 ; (LAMBDA ; (STREAM STRING SB!IMPL::FLUSH-P SB!IMPL::START ; SB!IMPL::END) ; (BLOCK SB!IMPL::OUTPUT-BYTES/LATIN-9 ; (LET (# #) ; (DECLARE #) ; (WHEN # #) ; (UNLESS # #) ; (DO # # # #) ; (WHEN SB!IMPL::FLUSH-P #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-BYTES/LATIN-9 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET OUTPUT-BYTES/LATIN-9 not cross-compiled at top level: demoting to ; (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEF-OUTPUT-ROUTINES PROGN PROGN DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::OUTPUT-CHAR-LATIN-9-NONE-BUFFERED ; (LAMBDA (STREAM SB-XC:BYTE) ; (BLOCK SB!IMPL::OUTPUT-CHAR-LATIN-9-NONE-BUFFERED ; (SB!IMPL::OUTPUT-WRAPPER (STREAM 1 # T) (IF # # #) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-CHAR-LATIN-9-NONE-BUFFERED #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET OUTPUT-CHAR-LATIN-9-NONE-BUFFERED not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::OUTPUT-CHAR-LATIN-9-LINE-BUFFERED ; (LAMBDA (STREAM SB-XC:BYTE) ; (BLOCK SB!IMPL::OUTPUT-CHAR-LATIN-9-LINE-BUFFERED ; (SB!IMPL::OUTPUT-WRAPPER (STREAM 1 # T) (IF # # #) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-CHAR-LATIN-9-LINE-BUFFERED #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET OUTPUT-CHAR-LATIN-9-LINE-BUFFERED not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::OUTPUT-CHAR-LATIN-9-FULL-BUFFERED ; (LAMBDA (STREAM SB-XC:BYTE) ; (BLOCK SB!IMPL::OUTPUT-CHAR-LATIN-9-FULL-BUFFERED ; (SB!IMPL::OUTPUT-WRAPPER (STREAM 1 # T) (IF # # #) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-CHAR-LATIN-9-FULL-BUFFERED #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET OUTPUT-CHAR-LATIN-9-FULL-BUFFERED not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; --> PROGN DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::FD-STREAM-READ-N-CHARACTERS/LATIN-9 ; (LAMBDA ; (STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::REQUESTED SB!IMPL::EOF-ERROR-P ; &AUX (SB!INT:INDEX SB!IMPL::START) ; (SB!IMPL::END (+ SB!IMPL::START SB!IMPL::REQUESTED))) ; (DECLARE (TYPE SB!SYS:FD-STREAM STREAM)) ; (DECLARE ; (TYPE SB!INT:INDEX SB!IMPL::START SB!IMPL::REQUESTED ; SB!INT:INDEX SB!IMPL::END)) ; (DECLARE ; (TYPE (SIMPLE-ARRAY CHARACTER #) SB!IMPL::BUFFER)) ; (BLOCK SB!IMPL::FD-STREAM-READ-N-CHARACTERS/LATIN-9 ; (LET (#) ; (WHEN SB!IMPL::UNREAD # # # #)) ; (DO () ; (NIL) ; (LET* # ; # ; # ; # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET FD-STREAM-READ-N-CHARACTERS/LATIN-9 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET FD-STREAM-READ-N-CHARACTERS/LATIN-9 not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; --> PROGN SB!IMPL::DEF-INPUT-ROUTINE PROGN DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::INPUT-CHAR/LATIN-9 ; (LAMBDA (STREAM SB!IMPL::EOF-ERROR SB!IMPL::EOF-VALUE) ; (BLOCK SB!IMPL::INPUT-CHAR/LATIN-9 ; (SB!IMPL::INPUT-WRAPPER ; (STREAM 1 SB!IMPL::EOF-ERROR SB!IMPL::EOF-VALUE) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET INPUT-CHAR/LATIN-9 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET INPUT-CHAR/LATIN-9 not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; --> PROGN DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::READ-FROM-C-STRING/LATIN-9 ; (LAMBDA (SB!IMPL::SAP SB!IMPL::ELEMENT-TYPE) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!IMPL::SAP) ; (TYPE (MEMBER CHARACTER BASE-CHAR) ; SB!IMPL::ELEMENT-TYPE)) ; (BLOCK SB!IMPL::READ-FROM-C-STRING/LATIN-9 ; (LOCALLY ; (DECLARE #) ; (LET* # ; # ; # ; # ; STRING))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET READ-FROM-C-STRING/LATIN-9 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET READ-FROM-C-STRING/LATIN-9 not cross-compiled at top level: demoting ; to (SETF FDEFINITION) ; ==> ; (SB!INT:COLD-FSET SB!IMPL::OUTPUT-TO-C-STRING/LATIN-9 ; (LAMBDA (STRING) ; (DECLARE (TYPE SIMPLE-STRING STRING)) ; (BLOCK SB!IMPL::OUTPUT-TO-C-STRING/LATIN-9 ; (LOCALLY ; (DECLARE #) ; (LET* # ; # ; # ; # ; SB!IMPL::BUFFER))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-TO-C-STRING/LATIN-9 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET OUTPUT-TO-C-STRING/LATIN-9 not cross-compiled at top level: demoting ; to (SETF FDEFINITION) ; (AREF SB!IMPL::LATIN-9-REVERSE-1 (LOGAND SB!SYS:BITS 15)) ; ==> ; SB!IMPL::LATIN-9-REVERSE-1 ; ; note: deleting unreachable code ; (AREF SB!IMPL::LATIN-9-REVERSE-2 (LOGAND SB!SYS:BITS 15)) ; ==> ; SB!IMPL::LATIN-9-REVERSE-2 ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB-XC:BYTE) ; ==> ; STREAM ; ; note: deleting unreachable code ; in: DEFMACRO DEFINE-EXTERNAL-FORMAT ; (MAKE-STRING LENGTH :ELEMENT-TYPE SB!IMPL::ELEMENT-TYPE) ; --> THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fd-stream.lisp ; in: DEFMACRO DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH ; (INCF SB!IMPL::START) ; --> LET* + ; ==> ; SB!IMPL::START ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (MAKE-STRING LENGTH :ELEMENT-TYPE SB!IMPL::ELEMENT-TYPE) ; --> THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) ; (SB-XC:DPB SB-XC:BYTE (SB-XC:BYTE 4 12) ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 6) SB!IMPL::BYTE3)) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 12) ; (SB-XC:DPB SB!IMPL::BYTE3 (SB-XC:BYTE 6 6) SB!IMPL::BYTE4)) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; (SB-XC:DPB SB-XC:BYTE (SB-XC:BYTE 3 18) ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 12) ; (SB-XC:DPB SB!IMPL::BYTE3 (SB-XC:BYTE 6 6) ; SB!IMPL::BYTE4))) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; (SB-XC:DPB SB-XC:BYTE (SB-XC:BYTE 4 12) ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 6) SB!IMPL::BYTE3)) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 12) ; (SB-XC:DPB SB!IMPL::BYTE3 (SB-XC:BYTE 6 6) SB!IMPL::BYTE4)) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; (SB-XC:DPB SB-XC:BYTE (SB-XC:BYTE 3 18) ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 12) ; (SB-XC:DPB SB!IMPL::BYTE3 (SB-XC:BYTE 6 6) ; SB!IMPL::BYTE4))) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 12) ; (SB-XC:DPB SB!IMPL::BYTE3 (SB-XC:BYTE 6 6) SB!IMPL::BYTE4)) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; (SB-XC:DPB SB-XC:BYTE (SB-XC:BYTE 3 18) ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 12) ; (SB-XC:DPB SB!IMPL::BYTE3 (SB-XC:BYTE 6 6) ; SB!IMPL::BYTE4))) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; (SB-XC:DPB SB-XC:BYTE (SB-XC:BYTE 4 12) ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 6) SB!IMPL::BYTE3)) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 12) ; (SB-XC:DPB SB!IMPL::BYTE3 (SB-XC:BYTE 6 6) SB!IMPL::BYTE4)) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; (SB-XC:DPB SB-XC:BYTE (SB-XC:BYTE 3 18) ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 12) ; (SB-XC:DPB SB!IMPL::BYTE3 (SB-XC:BYTE 6 6) ; SB!IMPL::BYTE4))) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; (SB-XC:DPB SB-XC:BYTE (SB-XC:BYTE 4 12) ; (SB-XC:DPB SB!IMPL::BYTE2 (SB-XC:BYTE 6 6) SB!IMPL::BYTE3)) ; --> SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) NIL ; (LET ((SB!SYS:BITS (CHAR-CODE SB-XC:BYTE))) ; (COND ((< SB!SYS:BITS 128) 1) ((< SB!SYS:BITS 2048) 2) ; ((< SB!SYS:BITS 65536) 3) (T 4))) ; (ECASE SB!IMPL::SIZE ; (1 (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS)) ; (2 ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (LOGIOR 192 #) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP #) ; (LOGIOR 128 #))) ; (3 ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (LOGIOR 224 #) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP #) ; (LOGIOR 128 #) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP #) ; (LOGIOR 128 #))) ; (4 ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (LOGIOR 240 #) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP #) ; (LOGIOR 128 #) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP #) ; (LOGIOR 128 #) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP #) ; (LOGIOR 128 #)))) ; (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 # ; # ; #))))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-5876 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX ; (LET (#) ; (COND # # # #))))) ; ; 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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* ; ==> ; (+ ; (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW ; LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...) ; (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) ; (THE SB!INT:INDEX ; (LET # ; #))))) ; ; 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. ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; compiling (DEFUN SET-FD-STREAM-ROUTINES ...) ; compiling (DEFUN FD-STREAM-MISC-ROUTINE ...) ; compiling (DEFUN FD-STREAM-FILE-POSITION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fd-stream.lisp ; in: DEFUN FD-STREAM-FILE-POSITION ; (ERROR "invalid position given to FILE-POSITION: ~S" SB!IMPL::NEWPOS) ; ==> ; "invalid position given to FILE-POSITION: ~S" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN MAKE-FD-STREAM ...) ; compiling (DEFUN PICK-BACKUP-NAME ...) ; compiling (DEFUN ENSURE-ONE-OF ...) ; compiling (DEFUN RENAME-THE-OLD-ONE ...) ; compiling (DEFUN OPEN ...) ; compiling (DEFVAR *TTY*) ; compiling (DEFVAR *STDIN*) ; compiling (DEFVAR *STDOUT*) ; compiling (DEFVAR *STDERR*) ; compiling (DEFUN STREAM-COLD-INIT-OR-RESET ...) ; compiling (DEFUN STREAM-REINIT ...) ; compiling (DEFUN BEEP ...) ; compiling (DEFUN FILE-NAME ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fd-stream.lisp ; 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) ; (CASE 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 #) (NAMESTRING #)) ; (COND (SB!IMPL::OUTPUT # # #) (T #)) ; (UNLESS SB!IMPL::IF-DOES-NOT-EXIST-GIVEN ; (SETF SB!IMPL::IF-DOES-NOT-EXIST #)) ; (SB!IMPL::ENSURE-ONE-OF SB!IMPL::IF-DOES-NOT-EXIST ; '(:ERROR :CREATE NIL) :IF-DOES-NOT-EXIST) ; (IF (EQ SB!IMPL::IF-DOES-NOT-EXIST :CREATE) (SETF SB!IMPL::MASK #)) ; (LET (# # #) ; (WHEN # #) ; (MULTIPLE-VALUE-BIND # # #))))) ; --> PROGN SB!INT:COLD-FSET LET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS ; --> COND IF NOT IF TYPEP LET OR LET IF OR LET IF OR LET IF OR LET IF OR TYPEP ; --> SB!C::%INSTANCE-TYPEP AND IF AND LET 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 EXTERNAL-FORMAT-DECODING-ERROR ; (STREAMP STREAM) ; --> BLOCK TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET 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 EXTERNAL-FORMAT-ENCODING-ERROR ; (STREAMP STREAM) ; --> BLOCK TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET 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: 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::BUFFERING :FULL :TYPE (MEMBER :FULL :LINE :NONE)) ; (SB!IMPL::DUAL-CHANNEL-P NIL) ; (SB!IMPL::CHAR-POS NIL :TYPE (OR SB!INT:INDEX NULL)) ; ...) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!SYS:FD-STREAM)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!SYS:FD-STREAM ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN FD-STREAM-MISC-ROUTINE ; (SB!EXT:CANCEL-FINALIZATION SB!SYS:FD-STREAM) ; ; caught STYLE-WARNING: ; undefined function: CANCEL-FINALIZATION ; 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))) ; ; caught STYLE-WARNING: ; undefined function: FINALIZE ; in: DEFUN FD-STREAM-READ-N-BYTES ; (SB!KERNEL:%BYTE-BLT SB!IMPL::SAP SB!IMPL::HEAD SB!IMPL::BUFFER ; SB!IMPL::THIS-START SB!IMPL::THIS-END) ; --> FLET SB!SYS:WITHOUT-GCING UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; in: DEFUN FILE-NAME ; (SB!INT:UNIX-NAMESTRING SB!IMPL::NEW-NAME NIL) ; ; caught STYLE-WARNING: ; undefined function: UNIX-NAMESTRING ; in: DEFUN OPEN ; (SB!INT:UNIX-NAMESTRING PATHNAME NIL) ; ; caught STYLE-WARNING: ; undefined function: UNIX-NAMESTRING ; (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) ; (CASE 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 #) (NAMESTRING #)) ; (COND (SB!IMPL::OUTPUT # # #) (T #)) ; (UNLESS SB!IMPL::IF-DOES-NOT-EXIST-GIVEN ; (SETF SB!IMPL::IF-DOES-NOT-EXIST #)) ; (SB!IMPL::ENSURE-ONE-OF SB!IMPL::IF-DOES-NOT-EXIST ; '(:ERROR :CREATE NIL) :IF-DOES-NOT-EXIST) ; (IF (EQ SB!IMPL::IF-DOES-NOT-EXIST :CREATE) (SETF SB!IMPL::MASK #)) ; (LET (# # #) ; (WHEN # #) ; (MULTIPLE-VALUE-BIND # # #))))) ; --> PROGN SB!INT:COLD-FSET LET SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS ; --> COND IF NOT IF TYPEP LET OR LET IF OR LET IF OR LET IF OR LET IF OR TYPEP ; --> SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN COND IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN EXTERNAL-FORMAT-DECODING-ERROR ; (STREAMP STREAM) ; --> BLOCK TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN COND IF PROGN SETQ ; --> THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ; (STREAMP STREAM) ; --> BLOCK TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN COND IF PROGN SETQ ; --> THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT ; '#) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; These functions are undefined: ; %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CANCEL-FINALIZATION DEFAULT-EXTERNAL-FORMAT FINALIZE SB!KERNEL::MAYBE-HANDLE-PENDING-GC UNIX-NAMESTRING UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; caught 33 STYLE-WARNING conditions ; printed 30 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/fd-stream.lisp-obj-tmp written ; compilation finished in 0:00:11 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/module.lisp" (written 28 MAY 2006 03:27:23 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *MODULES* ...) ; compiling (DEFVAR *MODULE-PROVIDER-FUNCTIONS* ...) ; compiling (DEFUN PROVIDE ...) ; compiling (DEFVAR *REQUIRING* ...) ; compiling (DEFUN REQUIRE-ERROR ...) ; compiling (DEFUN REQUIRE ...) ; compiling (DEFUN MODULE-PROVIDE-CONTRIB ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/module.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/interr.lisp" (written 21 DEC 2006 03:17:25 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFVAR *INTERNAL-ERRORS* ...) ; compiling (DEFERR UNKNOWN-ERROR ...) ; compiling (DEFERR OBJECT-NOT-FUN-ERROR ...) ; compiling (DEFERR OBJECT-NOT-LIST-ERROR ...) ; compiling (DEFERR OBJECT-NOT-BIGNUM-ERROR ...) ; compiling (DEFERR OBJECT-NOT-RATIO-ERROR ...) ; compiling (DEFERR OBJECT-NOT-SINGLE-FLOAT-ERROR ...) ; compiling (DEFERR OBJECT-NOT-DOUBLE-FLOAT-ERROR ...) ; compiling (DEFERR OBJECT-NOT-SIMPLE-STRING-ERROR ...) ; compiling (DEFERR OBJECT-NOT-FIXNUM-ERROR ...) ; compiling (DEFERR OBJECT-NOT-VECTOR-ERROR ...) ; compiling (DEFERR OBJECT-NOT-STRING-ERROR ...) ; compiling (DEFERR OBJECT-NOT-BASE-STRING-ERROR ...) ; compiling (DEFERR OBJECT-NOT-VECTOR-NIL-ERROR ...) ; compiling (DEFERR OBJECT-NOT-CHARACTER-STRING-ERROR ...) ; compiling (DEFERR OBJECT-NOT-BIT-VECTOR-ERROR ...) ; compiling (DEFERR OBJECT-NOT-ARRAY-ERROR ...) ; compiling (DEFERR OBJECT-NOT-NUMBER-ERROR ...) ; compiling (DEFERR OBJECT-NOT-RATIONAL-ERROR ...) ; compiling (DEFERR OBJECT-NOT-FLOAT-ERROR ...) ; compiling (DEFERR OBJECT-NOT-REAL-ERROR ...) ; compiling (DEFERR OBJECT-NOT-INTEGER-ERROR ...) ; compiling (DEFERR OBJECT-NOT-CONS-ERROR ...) ; compiling (DEFERR OBJECT-NOT-SYMBOL-ERROR ...) ; compiling (DEFERR UNDEFINED-FUN-ERROR ...) ; compiling (DEFERR INVALID-ARG-COUNT-ERROR ...) ; compiling (DEFERR BOGUS-ARG-TO-VALUES-LIST-ERROR ...) ; compiling (DEFERR UNBOUND-SYMBOL-ERROR ...) ; compiling (DEFERR OBJECT-NOT-CHARACTER-ERROR ...) ; compiling (DEFERR OBJECT-NOT-SAP-ERROR ...) ; compiling (DEFERR INVALID-UNWIND-ERROR ...) ; compiling (DEFERR UNSEEN-THROW-TAG-ERROR ...) ; compiling (DEFERR NIL-FUN-RETURNED-ERROR ...) ; compiling (DEFERR NIL-ARRAY-ACCESSED-ERROR ...) ; compiling (DEFERR DIVISION-BY-ZERO-ERROR ...) ; compiling (DEFERR OBJECT-NOT-TYPE-ERROR ...) ; compiling (DEFERR LAYOUT-INVALID-ERROR ...) ; compiling (DEFERR ODD-KEY-ARGS-ERROR ...) ; compiling (DEFERR UNKNOWN-KEY-ARG-ERROR ...) ; compiling (DEFERR INVALID-ARRAY-INDEX-ERROR ...) ; compiling (DEFERR OBJECT-NOT-SIMPLE-ARRAY-ERROR ...) ; compiling (DEFERR OBJECT-NOT-SIGNED-BYTE-32-ERROR ...) ; compiling (DEFERR OBJECT-NOT-UNSIGNED-BYTE-32-ERROR ...) ; compiling (DEFINE-SIMPLE-ARRAY-INTERNAL-ERRORS) ; compiling (DEFERR OBJECT-NOT-COMPLEX-ERROR ...) ; compiling (DEFERR OBJECT-NOT-COMPLEX-RATIONAL-ERROR ...) ; compiling (DEFERR OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR ...) ; compiling (DEFERR OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR ...) ; compiling (DEFERR OBJECT-NOT-WEAK-POINTER-ERROR ...) ; compiling (DEFERR OBJECT-NOT-INSTANCE-ERROR ...) ; compiling (DEFERR OBJECT-NOT-COMPLEX-VECTOR-ERROR ...) ; compiling (DEFVAR *FINDING-NAME* ...) ; compiling (DEFUN FIND-CALLER-NAME-AND-FRAME ...) ; compiling (DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ...) ; compiling (DEFUN INTERNAL-ERROR ...) ; compiling (DEFUN CONTROL-STACK-EXHAUSTED-ERROR ...) ; compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-CONDITION*) ; compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-AVAILABLE-BYTES*) ; compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-REQUESTED-BYTES*) ; compiling (DEFUN HEAP-EXHAUSTED-ERROR ...) ; compiling (DEFUN UNDEFINED-ALIEN-VARIABLE-ERROR ...) ; compiling (DEFUN UNDEFINED-ALIEN-FUNCTION-ERROR ...) ; compiling (DEFINE-ALIEN-VARIABLE CURRENT-MEMORY-FAULT-ADDRESS ...) ; compiling (DEFUN MEMORY-FAULT-ERROR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; (SB!DI::COMPILED-FRAME-P SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::COMPILED-FRAME-P ; (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-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-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-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: DEFERR OBJECT-NOT-LIST-ERROR ; (SB!KERNEL::DEFERR SB!KERNEL:OBJECT-NOT-LIST-ERROR (SB!KERNEL::OBJECT) ; (ERROR 'TYPE-ERROR :DATUM SB!KERNEL::OBJECT :EXPECTED-TYPE 'LIST)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT #:G53 (NTH 0 #:G55) #:G54) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT ; in: DEFERR OBJECT-NOT-FUN-ERROR ; (SB!KERNEL::DEFERR SB!KERNEL:OBJECT-NOT-FUN-ERROR (SB!KERNEL::OBJECT) ; (ERROR 'TYPE-ERROR :DATUM SB!KERNEL::OBJECT :EXPECTED-TYPE 'FUNCTION)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; ==> ; (SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT #:G39 (NTH 0 #:G41) #:G40) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT ; in: DEFERR UNKNOWN-ERROR ; (SB!KERNEL::DEFERR SB!KERNEL:UNKNOWN-ERROR (&REST SB!KERNEL::ARGS) ; (ERROR "unknown error:~{ ~S~})" SB!KERNEL::ARGS)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET MAPCAR LET LAMBDA FUNCTION ; ==> ; (SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT #:G10 SB!KERNEL::SC-OFFSET #:G11) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT ; ; caught STYLE-WARNING: ; 67 more uses of undefined function SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/interr.lisp ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; 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 SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT SB!DI:TOP-FRAME ; ; compilation unit finished ; caught 17 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/interr.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/query.lisp" (written 14 JUL 2005 05:30:38 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN QUERY-READ-CHAR ...) ; compiling (DEFUN QUERY-READ-LINE ...) ; compiling (DEFUN MAYBE-PRINT-QUERY ...) ; compiling (DEFUN CLARIFY-LEGAL-QUERY-INPUT ...) ; compiling (DEFUN Y-OR-N-P ...) ; compiling (DEFUN YES-OR-NO-P ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/query.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sort.lisp" (written 21 DEC 2006 03:17:36 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN SORT-VECTOR ...) ; compiling (DECLAIM (MAYBE-INLINE SORT)) ; compiling (DEFUN SORT ...) ; compiling (DEFUN STABLE-SORT ...) ; compiling (DEFUN LAST-CONS-OF ...) ; compiling (DEFUN MERGE-LISTS* ...) ; compiling (DEFUN STABLE-SORT-LIST ...) ; compiling (DEFVAR *MERGE-SORT-TEMP-VECTOR* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *MERGE-SORT-TEMP-VECTOR*)) ; compiling (DEFUN STABLE-SORT-SIMPLE-VECTOR ...) ; compiling (DEFUN STABLE-SORT-VECTOR ...) ; compiling (DEFUN MERGE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!IMPL::BACKQ-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!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 ; (FIND-CLASS SB!IMPL::RESULT-TYPE NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASS ; 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= ; ; caught STYLE-WARNING: ; These functions are undefined: ; ARRAY-TYPE-DIMENSIONS ARRAY-TYPE-P SB!KERNEL::CONS-TYPE-LENGTH-INFO CONS-TYPE-P CSUBTYPEP FIND-CLASS SB!SEQUENCE:SORT SPECIFIER-TYPE SB!SEQUENCE:STABLE-SORT TYPE-SPECIFIER TYPE= ; ; compilation unit finished ; caught 12 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/sort.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/time.lisp" (written 26 OCT 2006 09:38:52 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (UNSIGNED-BYTE *INTERNAL-EPOCH*)) ; compiling (DEFVAR *INTERNAL-EPOCH* ...) ; compiling (DEFUN TIME-REINIT ...) ; compiling (DEFUN GET-INTERNAL-REAL-TIME ...) ; compiling (DEFUN GET-INTERNAL-RUN-TIME ...) ; compiling (DEFCONSTANT SECONDS-IN-WEEK ...) ; compiling (DEFCONSTANT WEEKS-OFFSET ...) ; compiling (DEFCONSTANT SECONDS-OFFSET ...) ; compiling (DEFCONSTANT MINUTES-PER-DAY ...) ; compiling (DEFCONSTANT QUARTER-DAYS-PER-YEAR ...) ; compiling (DEFCONSTANT QUARTER-DAYS-PER-CENTURY ...) ; compiling (DEFCONSTANT NOVEMBER-17-1858 ...) ; compiling (DEFCONSTANT WEEKDAY-NOVEMBER-17-1858 ...) ; compiling (DEFCONSTANT UNIX-TO-UNIVERSAL-TIME ...) ; compiling (DEFUN GET-UNIVERSAL-TIME ...) ; compiling (DEFUN GET-DECODED-TIME ...) ; compiling (DEFCONSTANT +MAR-1-2000+ ...) ; compiling (DEFCONSTANT +MAR-1-2035+ ...) ; compiling (DEFCONSTANT +MAR-1-1903+ ...) ; compiling (DEFUN YEARS-SINCE-MAR-2000 ...) ; compiling (DEFUN TRUNCATE-TO-UNIX-RANGE ...) ; compiling (DEFUN DECODE-UNIVERSAL-TIME ...) ; compiling (DEFUN PICK-OBVIOUS-YEAR ...) ; compiling (DEFUN LEAP-YEARS-BEFORE ...) ; compiling (DEFVAR *DAYS-BEFORE-MONTH* ...) ; compiling (DEFUN ENCODE-UNIVERSAL-TIME ...) ; compiling (DEFVAR *GC-RUN-TIME* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFMACRO TIME ...) ; compiling (DEFUN TIME-GET-SYS-INFO ...) ; compiling (DEFUN %TIME ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/time.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/timer.lisp" (written 07 SEP 2006 09:49:39 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (INLINE HEAP-PARENT ...)) ; compiling (DEFUN HEAP-PARENT ...) ; compiling (DEFUN HEAP-LEFT ...) ; compiling (DEFUN HEAP-RIGHT ...) ; compiling (DEFUN HEAPIFY ...) ; compiling (DEFUN HEAP-INSERT ...) ; compiling (DEFUN HEAP-MAXIMUM ...) ; compiling (DEFUN HEAP-EXTRACT ...) ; compiling (DEFUN HEAP-EXTRACT-MAXIMUM ...) ; compiling (DEFSTRUCT (PRIORITY-QUEUE # ...) ...) ; compiling (DEFUN MAKE-PRIORITY-QUEUE ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN PRIORITY-QUEUE-MAXIMUM ...) ; compiling (DEFUN PRIORITY-QUEUE-EXTRACT-MAXIMUM ...) ; compiling (DEFUN PRIORITY-QUEUE-INSERT ...) ; compiling (DEFUN PRIORITY-QUEUE-EMPTY-P ...) ; compiling (DEFUN PRIORITY-QUEUE-REMOVE ...) ; compiling (DEFUN MAKE-CANCELLABLE-INTERRUPTOR ...) ; compiling (DEFSTRUCT (TIMER # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN MAKE-TIMER ...) ; compiling (DEFUN TIMER-NAME ...) ; compiling (DEFUN TIMER-SCHEDULED-P ...) ; compiling (DEFVAR *SCHEDULER-LOCK* ...) ; compiling (DEFMACRO WITH-SCHEDULER-LOCK ...) ; compiling (DEFUN UNDER-SCHEDULER-LOCK-P ...) ; compiling (DEFPARAMETER *SCHEDULE* ...) ; compiling (DEFUN PEEK-SCHEDULE ...) ; compiling (DEFUN TIME-LEFT ...) ; compiling (DEFUN DELTA->REAL ...) ; compiling (DEFUN %SCHEDULE-TIMER ...) ; compiling (DEFUN SCHEDULE-TIMER ...) ; compiling (DEFUN UNSCHEDULE-TIMER ...) ; compiling (DEFUN LIST-ALL-TIMERS ...) ; compiling (DEFUN RESCHEDULE-TIMER ...) ; compiling (DEFUN REAL-TIME->SEC-AND-USEC ...) ; compiling (DEFUN SET-SYSTEM-TIMER ...) ; compiling (DEFUN RUN-TIMER ...) ; compiling (DEFUN RUN-EXPIRED-TIMERS ...) ; compiling (DEFMACRO WITH-TIMEOUT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/timer.lisp ; in: DEFSTRUCT TIMER ; (DEFSTRUCT ; (SB!EXT:TIMER (:CONC-NAME SB!IMPL::%TIMER-) ; (:CONSTRUCTOR SB!IMPL::%MAKE-TIMER)) ; "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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!EXT:TIMER)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; in: DEFSTRUCT PRIORITY-QUEUE ; (DEFSTRUCT ; (SB!IMPL::PRIORITY-QUEUE (:CONC-NAME SB!IMPL::%PQUEUE-) ; (:CONSTRUCTOR SB!IMPL::%MAKE-PRIORITY-QUEUE)) ; SB!IMPL::CONTENTS ; SB!IMPL::KEYFUN) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!IMPL::PRIORITY-QUEUE)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; in: DEFSTRUCT TIMER ; (DEFSTRUCT ; (SB!EXT:TIMER (:CONC-NAME SB!IMPL::%TIMER-) ; (:CONSTRUCTOR SB!IMPL::%MAKE-TIMER)) ; "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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!EXT:TIMER ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFSTRUCT PRIORITY-QUEUE ; (DEFSTRUCT ; (SB!IMPL::PRIORITY-QUEUE (:CONC-NAME SB!IMPL::%PQUEUE-) ; (:CONSTRUCTOR SB!IMPL::%MAKE-PRIORITY-QUEUE)) ; SB!IMPL::CONTENTS ; SB!IMPL::KEYFUN) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::PRIORITY-QUEUE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN RUN-TIMER ; (SB!THREAD:INTERRUPT-THREAD SB!IMPL::THREAD FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:INTERRUPT-THREAD ; in: DEFVAR *SCHEDULER-LOCK* ; (SB!THREAD:MAKE-MUTEX :NAME "Scheduler lock") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN MAKE-CANCELLABLE-INTERRUPTOR ; (SB!THREAD:MAKE-MUTEX) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN RUN-TIMER ; (SB!THREAD:MAKE-THREAD FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-THREAD ; ; caught STYLE-WARNING: ; undefined type: SB!THREAD:THREAD ; ; caught STYLE-WARNING: ; undefined type: SB!THREAD:THREAD ; ; caught STYLE-WARNING: ; undefined type: SB!THREAD:THREAD ; ; caught STYLE-WARNING: ; 367 more uses of undefined type SB!THREAD:THREAD ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!THREAD:INTERRUPT-THREAD SB!THREAD:MAKE-MUTEX SB!THREAD:MAKE-THREAD ; ; caught STYLE-WARNING: ; This type is undefined: ; SB!THREAD:THREAD ; ; compilation unit finished ; caught 14 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/timer.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/weak.lisp" (written 14 JUL 2005 05:30:41 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN MAKE-WEAK-POINTER ...) ; compiling (DECLAIM (INLINE WEAK-POINTER-VALUE)) ; compiling (DEFUN WEAK-POINTER-VALUE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/weak.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/final.lisp" (written 14 JUL 2005 05:30:34 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *FINALIZER-STORE* ...) ; compiling (DEFVAR *FINALIZER-STORE-LOCK* ...) ; compiling (DEFUN FINALIZE ...) ; compiling (DEFUN CANCEL-FINALIZATION ...) ; compiling (DEFUN RUN-PENDING-FINALIZERS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/final.lisp ; in: DEFVAR *FINALIZER-STORE-LOCK* ; (SB!THREAD:MAKE-MUTEX :NAME "Finalizer store lock.") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN RUN-PENDING-FINALIZERS ; (SB!SYS:WITHOUT-GCING ; (SB!THREAD:WITH-MUTEX (SB!IMPL::*FINALIZER-STORE-LOCK*) ; (SETF SB!IMPL::*FINALIZER-STORE* ; (DELETE-IF (LAMBDA # #) ; SB!IMPL::*FINALIZER-STORE*)))) ; --> UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; in: DEFUN CANCEL-FINALIZATION ; (SB!SYS:WITHOUT-GCING ; (SB!THREAD:WITH-MUTEX (SB!IMPL::*FINALIZER-STORE-LOCK*) ; (SETF SB!IMPL::*FINALIZER-STORE* ; (DELETE SB!IMPL::OBJECT ; SB!IMPL::*FINALIZER-STORE* :KEY ; (LAMBDA # #))))) ; --> UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; in: DEFUN FINALIZE ; (SB!SYS:WITHOUT-GCING ; (SB!THREAD:WITH-MUTEX (SB!IMPL::*FINALIZER-STORE-LOCK*) ; (PUSH ; (CONS (SB!EXT:MAKE-WEAK-POINTER SB!IMPL::OBJECT) ; FUNCTION) ; SB!IMPL::*FINALIZER-STORE*))) ; --> UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!THREAD:MAKE-MUTEX SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/final.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/setf-funs.lisp" (written 14 JUL 2005 05:30:38 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFINE-SETTERS ("COMMON-LISP") ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/setf-funs.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/stubs.lisp" (written 06 OCT 2006 11:54:13 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF %CALLER-FRAME-AND-PC ...) ; compiling (DEF %CODE-CODE-SIZE) ; compiling (DEF %CODE-DEBUG-INFO) ; compiling (DEF %CODE-ENTRY-POINTS) ; compiling (DEF %FUNCALLABLE-INSTANCE-LAYOUT) ; compiling (DEF %SET-FUNCALLABLE-INSTANCE-LAYOUT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/stubs.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/exhaust.lisp" (written 04 OCT 2005 06:31:26 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFINE-ALIEN-ROUTINE ("protect_control_stack_guard_page" %PROTECT-CONTROL-STACK-GUARD-PAGE) ...) ; compiling (DEFUN PROTECT-CONTROL-STACK-GUARD-PAGE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/exhaust.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/early-c.lisp" (written 13 MAY 2006 07:33:40 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 (DEFCONSTANT-EQX SB-XC:LAMBDA-LIST-KEYWORDS ...) ; 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-NUMBER*) ; compiling (DEFVAR *COUNT-VOP-USAGES*) ; compiling (DEFVAR *CURRENT-PATH*) ; compiling (DEFVAR *CURRENT-COMPONENT*) ; compiling (DEFVAR *DELAYED-IR1-TRANSFORMS*) ; compiling (DEFVAR *HANDLED-CONDITIONS*) ; compiling (DEFVAR *DISABLED-PACKAGE-LOCKS*) ; compiling (DEFVAR *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 *IN-PACK*) ; compiling (DEFVAR *INFO-ENVIRONMENT*) ; compiling (DEFVAR *LEXENV*) ; compiling (DEFVAR *SOURCE-INFO*) ; compiling (DEFVAR *TRACE-TABLE*) ; compiling (DEFVAR *UNDEFINED-WARNINGS*) ; compiling (DEFVAR *WARNINGS-P*) ; compiling (DEFVAR *BIG-COMPILER-LOCK* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-NAME-DEFINED ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-LEXICAL-BINDING ...) ; compiling (DEFVAR *DEBUG-NAME-LEVEL* ...) ; compiling (DEFUN DEBUG-NAME ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/early-c.lisp ; in: DEFVAR *BIG-COMPILER-LOCK* ; (SB!THREAD:MAKE-MUTEX :NAME "big compiler lock") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!THREAD:MAKE-MUTEX ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/early-c.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/policy.lisp" (written 13 MAY 2006 07:33:40 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!TYPE POLICY-QUALITY ...) ; 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 (DECLAIM (TYPE POLICY ...)) ; compiling (DEFVAR *POLICY*) ; compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...) ; compiling (DEFUN POLICY-QUALITY ...) ; compiling (DEFMACRO POLICY ...) ; compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::POLICY-DEPENDENT-QUALITY)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 'SB!C::POLICY-DEPENDENT-QUALITY "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/policy.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/policies.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY MERGE-TAIL-CALLS ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY STACK-ALLOCATE-DYNAMIC-EXTENT ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY STACK-ALLOCATE-VECTOR ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/policies.lisp ; in: DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::LET-CONVERSION ; (IF (<= DEBUG SPEED) 3 0) ; ("off" "maybe" "on" "on")) ; --> 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-TAG-EXISTENCE ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-TAG-EXISTENCE ; (COND ((= SAFETY 0) 0) (T 3)) ; ("no" "maybe" "yes" "yes")) ; --> 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 (<= SPEED SAFETY) ; (<= SPACE SAFETY) ; (<= COMPILATION-SPEED SAFETY)) ; 3) ; (T 2)) ; ("no" "maybe" "fast" "full")) ; --> 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: ; 12 more uses of undefined function %COERCE-TO-POLICY ; ; caught STYLE-WARNING: ; This function is undefined: ; %COERCE-TO-POLICY ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/policies.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/typedefs.lisp" (written 27 APR 2006 04:56:50 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFMACRO !DEF-TYPE-TRANSLATOR ...) ; compiling (DECLAIM (SPECIAL *WILD-TYPE* ...)) ; compiling (DEFVAR *TYPE-RANDOM-STATE*) ; compiling (DEF!STRUCT (CTYPE # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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::ENUMERABLE NIL :READ-ONLY T) ; (SB!KERNEL::HASH-VALUE ; (RANDOM 32768 ; (IF (BOUNDP 'SB!KERNEL::*TYPE-RANDOM-STATE*) ; SB!KERNEL::*TYPE-RANDOM-STATE* ; (SETF SB!KERNEL::*TYPE-RANDOM-STATE* #))) ; :TYPE (AND FIXNUM UNSIGNED-BYTE) :READ-ONLY T) ; (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P NIL :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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:CTYPE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CSUBTYPEP TYPE-SPECIFIER ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/typedefs.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/macros.lisp" (written 11 AUG 2006 09:08:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *WILD-TYPE* ...)) ; compiling (DEFTYPE INLINEP ...) ; compiling (DEFMACRO DEF-IR1-TRANSLATOR ...) ; compiling (DEFMACRO SOURCE-TRANSFORM-LAMBDA ...) ; compiling (DEFMACRO DEFINE-SOURCE-TRANSFORM ...) ; compiling (DEFTYPE ATTRIBUTES ...) ; compiling (DEFUN COMPUTE-ATTRIBUTE-MASK ...) ; 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 WITH-IR1-ENVIRONMENT-FROM-NODE ...) ; compiling (DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::EVENT-INFO)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::EVENT-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 '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 '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: 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 ; in: DEFUN PARSE-DEFTRANSFORM ; (SB!INT:PARSE-LAMBDA-LIST SB!C::LAMBDA-LIST) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!IMPL::ASSIGN-SETF-MACRO AVER-LIVE-COMPONENT GET-SETF-EXPANSION NODE-COMPONENT PARSE-LAMBDA-LIST ; ; compilation unit finished ; caught 10 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/macros.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-macs.lisp" (written 14 JUL 2005 07:35:36 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 (DEFMACRO DEFINE-PRIMITIVE-OBJECT ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFMACRO DEF-REFFER ...) ; compiling (DEFMACRO DEF-SETTER ...) ; compiling (DEFMACRO DEF-ALLOC ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...) ; compiling (DEFSTRUCT MODULAR-CLASS ...) ; compiling (DEFVAR *UNSIGNED-MODULAR-CLASS* ...) ; compiling (DEFVAR *SIGNED-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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::MODULAR-CLASS)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!VM:PRIMITIVE-OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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 ; SB!VM::OPTIONS)) ; (: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 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)) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!VM::PRIM-OBJECT-SLOT)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::MODULAR-CLASS ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!VM:PRIMITIVE-OBJECT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 ; SB!VM::OPTIONS)) ; (: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 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)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!VM::PRIM-OBJECT-SLOT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 1 more use of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/vm-macs.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/sset.lisp" (written 14 JUL 2005 07:57:02 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...) ; compiling (DEFSTRUCT (SSET #) ...) ; compiling (DEFPRINTER (SSET) ...) ; compiling (DEFMACRO DO-SSET-ELEMENTS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SSET-ADJOIN ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/sset.lisp ; in: DEFSTRUCT SSET ; (DEFSTRUCT (SB!ASSEM:SSET (:COPIER NIL)) ; (SB!C::ELEMENTS (LIST NIL) :TYPE CONS)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!ASSEM:SSET)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ASSEM:SSET ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ASSEM:SSET-ELEMENT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/sset.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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 (FROB REOPTIMIZE) ; compiling (FROB FLUSH-P) ; compiling (FROB TYPE-CHECK) ; compiling (FROB DELETE-P) ; compiling (FROB TYPE-ASSERTED) ; compiling (FROB 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 (DEFMACRO CLEANUP-NLX-INFO ...) ; 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-HAS-SOURCE-NAME-P ...) ; compiling (DEFUN LEAF-SOURCE-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 (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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; 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 PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::CBLOCK)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::LVAR)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::CTRAN)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; ; caught STYLE-WARNING: ; 25 more uses of undefined function SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; in: DEF!STRUCT (NODE (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT (SB!C::NODE (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::NODE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::LVAR ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::CTRAN ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 30 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::LAMBDA-VAR IGNORE SB!C::INDIRECT) ; --> 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 (#:WHOLE2797 #:ENVIRONMENT2798) ; (LET* ((SB!C::ENV #:ENVIRONMENT2798)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK SB!C::LAMBDA-VAR-ATTRIBUTEP #)))) ; 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 (#:WHOLE204 #:ENVIRONMENT205) ; (LET* ((SB!C::ENV #:ENVIRONMENT205)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK SB!C::BLOCK-ATTRIBUTEP #)))) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; ; caught STYLE-WARNING: ; 389 more uses of undefined type CLOOP ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ; caught STYLE-WARNING: ; 223 more uses of undefined type FUN-INFO ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/node.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::LAMBDA-VAR IGNORE SB!C::INDIRECT) ; --> 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 ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; ; caught STYLE-WARNING: ; 153 more uses of undefined type IR2-COMPONENT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 &AUX (LEAF-TYPE #) (DERIVED-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!C::EXIT) ; ; caught STYLE-WARNING: ; undefined function: NODE-BLOCK ; 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 ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!IMPL::ASSIGN-SETF-MACRO SB-XC:GET-SETF-EXPANSION LEXENV-POLICY MAKE-LOOP MAKE-SINGLE-VALUE-TYPE NODE-BLOCK SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; These types are undefined: ; CLOOP FUN-INFO IR2-COMPONENT ; ; compilation unit finished ; caught 34 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/node.lisp-obj-tmp written ; compilation finished in 0:00:06 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/vop.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::IR2-LVAR)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::IR2-BLOCK)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C:PRIMITIVE-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; ; caught STYLE-WARNING: ; 15 more uses of undefined function SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::IR2-LVAR ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::IR2-BLOCK ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C:PRIMITIVE-TYPE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 15 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; in: DEFSTRUCT CLOOP ; (SB!C::REQUIRED-ARGUMENT) ; ; caught STYLE-WARNING: ; undefined function: REQUIRED-ARGUMENT ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED GEN-LABEL MAKE-DYNAMIC-STATE-TNS MAKE-STACK-POINTER-TN REQUIRED-ARGUMENT ; ; compilation unit finished ; caught 13 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/vop.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/backend.lisp" (written 07 FEB 2006 03:32:02 AM): ; 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 (DEFVAR *BACKEND-SB-NAMES* ...) ; compiling (DEFVAR *BACKEND-META-SC-NAMES* ...) ; compiling (DEFVAR *BACKEND-META-SB-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-META-SC-NUMBERS* ...) ; compiling (DECLAIM (TYPE SC-VECTOR ...)) ; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-ALIASES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-META-PRIMITIVE-TYPE-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-T-PRIMITIVE-TYPE*) ; compiling (DECLAIM (TYPE PRIMITIVE-TYPE ...)) ; compiling (DEFVAR *BACKEND-PARSED-VOPS* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-INSTRUCTION-FORMATS* ...) ; compiling (DEFVAR *BACKEND-INSTRUCTION-FLAVORS* ...) ; compiling (DEFVAR *BACKEND-SPECIAL-ARG-TYPES* ...) ; 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 # ...)) ; compiling (DEFVAR *BACKEND-SUPPORT-ROUTINES*) ; compiling (DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC ...) ; compiling (DEFPRINTER (VM-SUPPORT-ROUTINES)) ; compiling (DEFMACRO !DEF-VM-SUPPORT-ROUTINE ...) ; compiling (DEFVAR *BACKEND-SUPPORT-ROUTINES* ...) ; compiling (DECLAIM (TYPE VM-SUPPORT-ROUTINES ...)) ; compiling (DEFVAR *BACKEND-SUBFEATURES* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/backend.lisp ; in: DEF-VM-SUPPORT-ROUTINES IMMEDIATE-CONSTANT-SC ; (SB!C::DEF-VM-SUPPORT-ROUTINES SB!C::IMMEDIATE-CONSTANT-SC ; SB!C::LOCATION-PRINT-NAME SB!C::COMBINATION-IMPLEMENTATION-STYLE ; SB!C:PRIMITIVE-TYPE-OF SB!C:PRIMITIVE-TYPE SB!C::MAKE-CALL-OUT-TNS ; SB!C::STANDARD-ARG-LOCATION SB!C::MAKE-RETURN-PC-PASSING-LOCATION ; SB!C::MAKE-OLD-FP-PASSING-LOCATION SB!C::MAKE-OLD-FP-SAVE-LOCATION ; SB!C::MAKE-RETURN-PC-SAVE-LOCATION ...) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::VM-SUPPORT-ROUTINES)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::VM-SUPPORT-ROUTINES ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/backend.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/vmdef.lisp" (written 14 JUL 2005 07:57:02 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 (DEFUN META-SC-OR-LOSE ...) ; compiling (DEFUN META-SB-OR-LOSE ...) ; compiling (DEFUN META-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-GENERIC-VOP ...) ; compiling (DEFUN %EMIT-GENERIC-VOP ...) ; compiling (DEFUN ADJOIN-TEMPLATE ...) ; compiling (DEFUN TEMPLATE-TYPE-SPECIFIER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (#:WHOLE80 #:ENVIRONMENT81) ; (LET* ((SB!C::ENV #:ENVIRONMENT81)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK SB!C::VOP-ATTRIBUTEP #)))) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; --> 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-GENERIC-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!C::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: TARGET-IF-DESIRABLE ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!IMPL::ASSIGN-SETF-MACRO SB-XC:GET-SETF-EXPANSION MAKE-RESTRICTED-TN MAKE-WIRED-TN REFERENCE-TN TARGET-IF-DESIRABLE ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/vmdef.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/backend-parms.lisp" (written 29 DEC 2006 10:09:41 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-SIZE* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/backend-parms.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/globaldb.lisp" (written 06 OCT 2006 11:54:13 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DECLAIM (SPECIAL *UNIVERSAL-TYPE*)) ; compiling (DECLAIM (INLINE GLOBALDB-SXHASHOID)) ; compiling (DEFUN GLOBALDB-SXHASHOID ...) ; compiling (DEFUN PRIMIFY ...) ; compiling (DEF!CONSTANT TYPE-NUMBER-BITS ...) ; compiling (DEFTYPE TYPE-NUMBER ...) ; compiling (DEFSTRUCT (CLASS-INFO # ...) ...) ; compiling (DEFVAR *INFO-TYPES*) ; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; compiling (DEFSTRUCT (TYPE-INFO # ...) ...) ; compiling (DEFVAR *INFO-CLASSES*) ; compiling (DECLAIM (HASH-TABLE *INFO-CLASSES*)) ; compiling (DEFUN FIND-TYPE-INFO ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CLASS-INFO-OR-LOSE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/globaldb.lisp ; in: DEFUN CLASS-INFO-OR-LOSE ; (SB!C::LOOKUP CLASS) ; ==> ; CLASS ; ; note: deleting unreachable code ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN TYPE-INFO-OR-LOSE ...) ; compiling (DEFSTRUCT (INFO-ENV # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFMACRO DO-INFO ...) ; compiling (DEFUN DO-COMPACT-INFO ...) ; compiling (DEFUN DO-VOLATILE-INFO ...) ; compiling (DEF!CONSTANT COMPACT-INFO-ENV-ENTRIES-BITS ...) ; compiling (DEFTYPE COMPACT-INFO-ENTRIES-INDEX ...) ; compiling (DEFTYPE COMPACT-INFO-ENTRY ...) ; compiling (DEFSTRUCT (COMPACT-INFO-ENV # ...) ...) ; compiling (DEF!CONSTANT COMPACT-INFO-ENTRY-TYPE-MASK ...) ; compiling (DEF!CONSTANT COMPACT-INFO-ENTRY-LAST ...) ; compiling (DECLAIM (INLINE COMPACT-INFO-LOOKUP-INDEX)) ; compiling (DEFUN COMPACT-INFO-LOOKUP-INDEX ...) ; compiling (DEFUN COMPACT-INFO-LOOKUP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/globaldb.lisp ; in: DEFUN COMPACT-INFO-LOOKUP-INDEX ; (VALUES NIL NIL) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEF!CONSTANT COMPACT-INFO-ENVIRONMENT-DENSITY ...) ; compiling (DEFUN COMPACT-INFO-ENVIRONMENT ...) ; compiling (DEFSTRUCT (VOLATILE-INFO-ENV # ...) ...) ; compiling (DEFUN VOLATILE-INFO-LOOKUP ...) ; compiling (DECLAIM (INLINE GET-WRITE-INFO-ENV)) ; compiling (DEFUN GET-WRITE-INFO-ENV ...) ; compiling (DEFUN SET-INFO-VALUE ...) ; compiling (DEFUN INFO ...) ; compiling (DEFINE-COMPILER-MACRO INFO ...) ; compiling (DEFUN (SETF INFO) ...) ; compiling (DEFINE-COMPILER-MACRO (SETF INFO) ...) ; compiling (DEF!CONSTANT VOLATILE-INFO-ENVIRONMENT-DENSITY ...) ; compiling (DEFUN MAKE-INFO-ENVIRONMENT ...) ; compiling (DEFUN CLEAR-INFO ...) ; compiling (DEFINE-COMPILER-MACRO CLEAR-INFO ...) ; compiling (DEFUN CLEAR-INFO-VALUE ...) ; compiling (DEFVAR *INFO-ENVIRONMENT*) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (!COLD-INIT-FORMS (SETQ *INFO-ENVIRONMENT* ...) ...) ; compiling (DEFUN GET-INFO-VALUE ...) ; compiling (DEFINE-INFO-CLASS :FUNCTION) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :VARIABLE) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :TYPE) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :TYPED-STRUCTURE) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :DECLARATION) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :ALIEN-TYPE) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :SETF) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :RANDOM-DOCUMENTATION) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-CLASS :SOURCE-LOCATION) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DEFINE-INFO-TYPE :CLASS ...) ; compiling (DECLAIM (FREEZE-TYPE INFO-ENV)) ; compiling (!COLD-INIT-FORMS (/SHOW0 "beginning *INFO-CLASSES* init, calling MAKE-HASH-TABLE") ...) ; compiling (FROB) ; compiling (DEFVAR *SETF-ASSUMED-FBOUNDP*) ; compiling (!COLD-INIT-FORMS (SETF *SETF-ASSUMED-FBOUNDP* ...)) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/globaldb.lisp ; in: DEFSTRUCT COMPACT-INFO-ENV ; (DEFSTRUCT ; (SB!C::COMPACT-INFO-ENV (:INCLUDE SB!C::INFO-ENV) (:PURE :SUBSTRUCTURE) ; (:COPIER NIL)) ; (SB!C::TABLE (SB!INT:MISSING-ARG) :TYPE SIMPLE-VECTOR) ; (SB!INT:INDEX (SB!INT:MISSING-ARG) :TYPE ; (SIMPLE-ARRAY SB!C::COMPACT-INFO-ENTRIES-INDEX (*))) ; (SB!C::ENTRIES (SB!INT:MISSING-ARG) :TYPE SIMPLE-VECTOR) ; (SB!C::ENTRIES-INFO (SB!INT:MISSING-ARG) :TYPE ; (SIMPLE-ARRAY SB!C::COMPACT-INFO-ENTRY (*)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::COMPACT-INFO-ENV)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; in: DEFSTRUCT TYPE-INFO ; (DEFSTRUCT ; (SB!C::TYPE-INFO ; (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT # #))) ; (:COPIER NIL)) ; (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE KEYWORD) ; (CLASS (SB!INT:MISSING-ARG) :TYPE SB!C::CLASS-INFO) ; (NUMBER (SB!INT:MISSING-ARG) :TYPE SB!C::TYPE-NUMBER) ; (TYPE NIL :TYPE T) ; (SB!C::DEFAULT (LAMBDA () (ERROR "type not defined yet")) :TYPE FUNCTION) ; (SB!C::VALIDATE-FUNCTION NIL :TYPE (OR FUNCTION NULL))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::TYPE-INFO)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; in: DEFSTRUCT CLASS-INFO ; (DEFSTRUCT ; (SB!C::CLASS-INFO (:CONSTRUCTOR SB!C::MAKE-CLASS-INFO (SB!C::NAME)) ; (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT # #))) ; (:COPIER NIL)) ; (SB!C::NAME NIL :TYPE KEYWORD :READ-ONLY T) ; (SB!C::TYPES NIL :TYPE LIST)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::CLASS-INFO)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/globaldb.lisp ; in: DEFSTRUCT INFO-ENV ; (DEFSTRUCT (SB!C::INFO-ENV (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE STRING)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::INFO-ENV ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFSTRUCT TYPE-INFO ; (DEFSTRUCT ; (SB!C::TYPE-INFO ; (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT # #))) ; (:COPIER NIL)) ; (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE KEYWORD) ; (CLASS (SB!INT:MISSING-ARG) :TYPE SB!C::CLASS-INFO) ; (NUMBER (SB!INT:MISSING-ARG) :TYPE SB!C::TYPE-NUMBER) ; (TYPE NIL :TYPE T) ; (SB!C::DEFAULT (LAMBDA () (ERROR "type not defined yet")) :TYPE FUNCTION) ; (SB!C::VALIDATE-FUNCTION NIL :TYPE (OR FUNCTION NULL))) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::TYPE-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFSTRUCT CLASS-INFO ; (DEFSTRUCT ; (SB!C::CLASS-INFO (:CONSTRUCTOR SB!C::MAKE-CLASS-INFO (SB!C::NAME)) ; (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT # #))) ; (:COPIER NIL)) ; (SB!C::NAME NIL :TYPE KEYWORD :READ-ONLY T) ; (SB!C::TYPES NIL :TYPE LIST)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::CLASS-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 2 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/globaldb.lisp ; in: DEFINE-INFO-TYPE :CLASS ; (SB!KERNEL:SPECIFIER-TYPE (SB!IMPL::%FUN-TYPE (FDEFINITION SB!C::NAME))) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SPECIFIER-TYPE ; ; compilation unit finished ; caught 10 STYLE-WARNING conditions ; printed 3 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/globaldb.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/info-functions.lisp" (written 11 AUG 2006 02:37:19 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!INT:COLD-FSET SB!INT:FUN-NAME-INLINE-EXPANSION ; (LAMBDA (SB!C::FUN-NAME) ; (BLOCK SB!INT:FUN-NAME-INLINE-EXPANSION ; (LET (#) ; (IF # # SB!INT:INFO))))) ; ; 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/info-functions.lisp ; in: DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION) ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR ; (:SYMBOL SB!C::NAME "setting the compiler-macro-function of ~A") ; (SETF (SB!INT:INFO :FUNCTION :COMPILER-MACRO-FUNCTION SB!C::NAME) FUNCTION) ; FUNCTION) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!C::NAME ; "setting the compiler-macro-function of ~A") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN FDOCUMENTATION ; (CLASS-NAME SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: CLASS-NAME ; in: DEFUN UNDEFINE-FUN-NAME ; (SB!C::FROB :INFO) ; --> UNLESS COND IF NOT IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (#:VALUE115) (#:FOUNDP116) &REST #:G117) ; (DECLARE (IGNORE #:G117)) ; (DECLARE (TYPE (OR SB!C::FUN-INFO NULL) #:VALUE115)) ; (VALUES #:VALUE115 #:FOUNDP116)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ; caught STYLE-WARNING: ; 114 more uses of undefined type FUN-INFO ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/info-functions.lisp ; in: DEFUN UNDEFINE-FUN-NAME ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN FDOCUMENTATION ; (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 #:G649 'STRUCTURE-CLASS) ; ; caught STYLE-WARNING: ; undefined type: STRUCTURE-CLASS ; ; caught STYLE-WARNING: ; undefined type: STRUCTURE-CLASS ; ; caught STYLE-WARNING: ; undefined type: STRUCTURE-CLASS ; ; caught STYLE-WARNING: ; 17 more uses of undefined type STRUCTURE-CLASS ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CLASS-NAME SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; These types are undefined: ; FUN-INFO STRUCTURE-CLASS ; ; compilation unit finished ; caught 13 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/info-functions.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/force-delayed-defbangconstants.lisp" (written 19 MAY 2002 02:55:31 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defmacro.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN %EXPANDER-FOR-DEFMACRO ...) ; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...) ; compiling (DEF NIL ...) ; compiling (DEFMACRO SB-XC:DEFMACRO ...) ; compiling (DEF!MACRO DEFMACRO-MUNDANELY ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/defmacro.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/force-delayed-defbangmacros.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/late-macros.lisp" (written 14 JUL 2005 07:57:00 PM): ; compiling (IN-PACKAGE "SB!C") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/late-macros.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/meta-vmdef.lisp" (written 01 DEC 2005 04:16:01 AM): ; 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 (DEFUN META-PRIMITIVE-TYPE-OR-LOSE ...) ; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE ...) ; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS ...) ; compiling (DEFPARAMETER *PRIMITIVE-TYPE-SLOT-ALIST* ...) ; compiling (DEFMACRO PRIMITIVE-TYPE-VOP ...) ; compiling (DEFUN META-SC-ALLOWED-BY-PRIMITIVE-TYPE ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/meta-vmdef.lisp ; in: DEFUN COMPUTE-TEMPORARIES-DESCRIPTION ; (SB!KERNEL:MAKE-SPECIALIZABLE-ARRAY (LENGTH SB!C::TEMPS) :ELEMENT-TYPE ; SB!C::ELEMENT-TYPE) ; --> BLOCK APPLY MULTIPLE-VALUE-CALL FUNCALL ; ==> ; (SB!C::%FUNCALL FUNCTION #:G991 #:G992 #:G993) ; ; note: The second argument (in keyword position) is not a constant. ; compiling (DEFUN COMPUTE-REF-ORDERING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/meta-vmdef.lisp ; in: DEFUN COMPUTE-REF-ORDERING ; (SB!KERNEL:MAKE-SPECIALIZABLE-ARRAY (LENGTH SB!C::SORTED) :ELEMENT-TYPE ; SB!C::OE-TYPE) ; --> BLOCK APPLY MULTIPLE-VALUE-CALL FUNCALL ; ==> ; (SB!C::%FUNCALL FUNCTION #:G1182 #:G1183 #:G1184) ; ; note: The second argument (in keyword position) is not a constant. ; 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 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::OPERAND-PARSE)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::VOP-PARSE)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::OPERAND-PARSE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::VOP-PARSE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/meta-vmdef.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/vm.lisp" (written 07 FEB 2006 02:35:25 AM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!CONSTANT NUMBER-STACK-DISPLACEMENT ...) ; compiling (DEFVAR *REGISTER-NAMES* ...) ; compiling (DEFREG ZERO ...) ; compiling (DEFREG NSP ...) ; compiling (DEFREG RTOC ...) ; compiling (DEFREG NL0 ...) ; compiling (DEFREG NL1 ...) ; compiling (DEFREG NL2 ...) ; compiling (DEFREG NL3 ...) ; compiling (DEFREG NL4 ...) ; compiling (DEFREG NL5 ...) ; compiling (DEFREG NL6 ...) ; compiling (DEFREG FDEFN ...) ; compiling (DEFREG NARGS ...) ; compiling (DEFREG NFP ...) ; compiling (DEFREG CFUNC ...) ; compiling (DEFREG BSP ...) ; compiling (DEFREG CFP ...) ; compiling (DEFREG CSP ...) ; compiling (DEFREG ALLOC ...) ; compiling (DEFREG NULL ...) ; compiling (DEFREG CODE ...) ; compiling (DEFREG CNAME ...) ; compiling (DEFREG LEXENV ...) ; compiling (DEFREG OCFP ...) ; compiling (DEFREG LRA ...) ; compiling (DEFREG A0 ...) ; compiling (DEFREG A1 ...) ; compiling (DEFREG A2 ...) ; compiling (DEFREG A3 ...) ; compiling (DEFREG L0 ...) ; compiling (DEFREG L1 ...) ; compiling (DEFREG L2 ...) ; compiling (DEFREG LIP ...) ; compiling (DEFREGSET NON-DESCRIPTOR-REGS ...) ; compiling (DEFREGSET DESCRIPTOR-REGS ...) ; compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...) ; compiling (DEFPARAMETER REGISTER-ARG-NAMES ...) ; compiling (DEFINE-STORAGE-BASE REGISTERS ...) ; compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...) ; compiling (DEFINE-STORAGE-BASE CONTROL-STACK ...) ; compiling (DEFINE-STORAGE-BASE NON-DESCRIPTOR-STACK ...) ; compiling (DEFINE-STORAGE-BASE CONSTANT ...) ; compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...) ; compiling (DEFMACRO DEFINE-STORAGE-CLASSES ...) ; compiling (DEF!CONSTANT KLUDGE-NONDETERMINISTIC-CATCH-BLOCK-SIZE ...) ; compiling (DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...) ; compiling (DEFREGTN ZERO ...) ; compiling (DEFREGTN LIP ...) ; compiling (DEFREGTN NULL ...) ; compiling (DEFREGTN CODE ...) ; compiling (DEFREGTN ALLOC ...) ; compiling (DEFREGTN NARGS ...) ; compiling (DEFREGTN BSP ...) ; compiling (DEFREGTN CSP ...) ; compiling (DEFREGTN CFP ...) ; compiling (DEFREGTN OCFP ...) ; compiling (DEFREGTN NSP ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC ...) ; compiling (DEF!CONSTANT REGISTER-ARG-SCN ...) ; compiling (DEF!CONSTANT IMMEDIATE-ARG-SCN ...) ; compiling (DEF!CONSTANT CONTROL-STACK-ARG-SCN ...) ; compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT NFP-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...) ; compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...) ; compiling (EXPORT (QUOTE SINGLE-VALUE-RETURN-BYTE-OFFSET)) ; compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE LOCATION-PRINT-NAME ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE COMBINATION-IMPLEMENTATION-STYLE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/vm.lisp ; in: !DEF-VM-SUPPORT-ROUTINE COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::COMBINATION-FUN-SOURCE-NAME SB!VM::NODE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::COMBINATION-FUN-SOURCE-NAME ; (SB!KERNEL:SPECIFIER-TYPE ; (SB!IMPL::BACKQ-LIST 'FUNCTION SB!VM::ARGS SB!VM::RESULT)) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: !DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC ; (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: STATIC-SYMBOL-P ; in: !DEF-VM-SUPPORT-ROUTINE COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::VALID-FUN-USE SB!VM::NODE ; (SB!KERNEL:SPECIFIER-TYPE ; (SB!IMPL::BACKQ-LIST 'FUNCTION SB!VM::ARGS ; SB!VM::RESULT))) ; ; caught STYLE-WARNING: ; undefined function: SB!C::VALID-FUN-USE ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!C::COMBINATION-FUN-SOURCE-NAME SPECIFIER-TYPE STATIC-SYMBOL-P SB!C::VALID-FUN-USE ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/vm.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-type.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 (DEFSTRUCT (NEGATION-TYPE # ...) ...) ; compiling (!DEFINE-TYPE-CLASS NEGATION) ; compiling (DEFSTRUCT (ARGS-TYPE # ...) ...) ; compiling (DEFUN CANONICALIZE-ARGS-TYPE-ARGS ...) ; compiling (DEFUN ARGS-TYPES ...) ; compiling (DEFSTRUCT (VALUES-TYPE # ...)) ; compiling (DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS ...) ...) ; compiling (DEFUN MAKE-VALUES-TYPE ...) ; compiling (!DEFINE-TYPE-CLASS VALUES) ; compiling (DEFSTRUCT (FUN-TYPE # ...) ...) ; 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 (DEFUN MAKE-NUMERIC-TYPE ...) ; compiling (DEFUN MODIFIED-NUMERIC-TYPE ...) ; compiling (DEFSTRUCT (CHARACTER-SET-TYPE # ...) ...) ; compiling (DEFUN MAKE-CHARACTER-SET-TYPE ...) ; compiling (DEFSTRUCT (ARRAY-TYPE # ...) ...) ; compiling (DEFINE-CACHED-SYNONYM MAKE-ARRAY-TYPE) ; compiling (DEFSTRUCT (MEMBER-TYPE # ...) ...) ; compiling (DEFUN MAKE-MEMBER-TYPE ...) ; compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...) ; compiling (DEFSTRUCT (UNION-TYPE # ...)) ; compiling (DEFINE-CACHED-SYNONYM MAKE-UNION-TYPE) ; compiling (DEFSTRUCT (INTERSECTION-TYPE # ...)) ; compiling (DEFUN TYPE-*-TO-T ...) ; compiling (DEFSTRUCT (CONS-TYPE # ...) ...) ; compiling (DEFUN MAKE-CONS-TYPE ...) ; compiling (DEFUN CONS-TYPE-LENGTH-INFO ...) ; compiling (DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ...) ...) ; compiling (DEFUN SPECIFIER-TYPE ...) ; compiling (DEFUN SINGLE-VALUE-SPECIFIER-TYPE ...) ; compiling (DEFUN TYPE-EXPAND ...) ; compiling (DEFUN %NOTE-TYPE-DEFINED ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-TYPE-COLD-INIT) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL:NEGATION-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; in: DEFSTRUCT UNKNOWN-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNKNOWN-TYPE (:INCLUDE SB!KERNEL:HAIRY-TYPE) (:COPIER NIL))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL:UNKNOWN-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-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)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (SB!KERNEL::SPECIFIER NIL :TYPE T)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL:HAIRY-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; ; caught STYLE-WARNING: ; 11 more uses of undefined function %MAKE-INSTANCE-WITH-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:NEGATION-TYPE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFSTRUCT UNKNOWN-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNKNOWN-TYPE (:INCLUDE SB!KERNEL:HAIRY-TYPE) (:COPIER NIL))) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:UNKNOWN-TYPE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (SB!KERNEL::SPECIFIER NIL :TYPE T)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:HAIRY-TYPE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 13 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-type.lisp ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:CSUBTYPEP CDR (SB!KERNEL:SPECIFIER-TYPE 'NULL)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN 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 ; in: DEFUN MAKE-VALUES-TYPE ; (SB!KERNEL:MAKE-SHORT-VALUES-TYPE SB!KERNEL::REQUIRED) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SHORT-VALUES-TYPE ; in: DEFUN ARGS-TYPES ; (SB!INT:PARSE-LAMBDA-LIST-LIKE-THING SB!KERNEL::LAMBDA-LIST-LIKE-THING) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST-LIKE-THING ; 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)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET IF RANDOM REM ; ==> ; (SB!KERNEL:RANDOM-CHUNK (OR SB!C::STATE *RANDOM-STATE*)) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; in: DEFSTRUCT UNKNOWN-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNKNOWN-TYPE (:INCLUDE SB!KERNEL:HAIRY-TYPE) (:COPIER NIL))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET IF RANDOM REM ; ==> ; (SB!KERNEL:RANDOM-CHUNK (OR SB!C::STATE *RANDOM-STATE*)) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; 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)) ; (SB!KERNEL::ENUMERABLE T) (SB!KERNEL::MIGHT-CONTAIN-OTHER-TYPES-P T)) ; (:COPIER NIL)) ; (SB!KERNEL::SPECIFIER NIL :TYPE T)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET IF RANDOM REM ; ==> ; (SB!KERNEL:RANDOM-CHUNK (OR SB!C::STATE *RANDOM-STATE*)) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; ; caught STYLE-WARNING: ; 11 more uses of undefined function RANDOM-CHUNK ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-type.lisp ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR) ; ; caught STYLE-WARNING: ; undefined function: TYPE-INTERSECTION ; (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 TYPE-*-TO-T ; (SB!KERNEL:TYPE= TYPE SB!KERNEL:*WILD-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; caught STYLE-WARNING: ; These functions are undefined: ; %MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CSUBTYPEP KEY-INFO-NAME MAKE-KEY-INFO MAKE-SHORT-VALUES-TYPE PARSE-LAMBDA-LIST-LIKE-THING RANDOM-CHUNK TYPE-INTERSECTION TYPE/= TYPE= ; ; compilation unit finished ; caught 21 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-type.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/class.lisp" (written 21 DEC 2006 03:17:23 AM): ; 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-MAX ...) ; compiling (DEFVAR *!INITIAL-LAYOUTS*) ; compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*) ; compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...) ...) ; compiling (DEF!STRUCT (LAYOUT #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN LAYOUT-PROPER-NAME ...) ; compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LENGTH ...) ; compiling (DECLAIM (INLINE LAYOUT-CLOS-HASH)) ; compiling (DEFUN LAYOUT-CLOS-HASH ...) ; compiling (DECLAIM (INLINE #)) ; compiling (DEFUN (SETF LAYOUT-CLOS-HASH) ...) ; 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 (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 (DEF!STRUCT (CLASSOID-CELL # ...) ...) ; compiling (DEFUN FIND-CLASSOID-CELL ...) ; compiling (DEFUN FIND-CLASSOID ...) ; compiling (DEFUN (SETF FIND-CLASSOID) ...) ; compiling (DEFUN INSURED-FIND-CLASSOID ...) ; compiling (DEFUN CLASSOID-PROPER-NAME ...) ; 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 (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-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 (/SHOW0 "setting *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 (/SHOW0 "about to set *BUILT-IN-CLASS-CODES*") ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/class.lisp ; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ; (SB!KERNEL::%LAYOUT-INVALID-ERROR SB!KERNEL::OBJECT SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: %LAYOUT-INVALID-ERROR ; in: ; DEF!STRUCT (BUILT-IN-CLASSOID (:INCLUDE CLASSOID) ; (:CONSTRUCTOR MAKE-BUILT-IN-CLASSOID)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:BUILT-IN-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID) ; (:CONSTRUCTOR SB!KERNEL::MAKE-BUILT-IN-CLASSOID)) ; (SB!KERNEL::TRANSLATION NIL :TYPE ; (OR SB!KERNEL:CTYPE (MEMBER NIL :INITIALIZING)))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL:BUILT-IN-CLASSOID)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL::UNDEFINED-CLASSOID)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; 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-0 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-1 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-2 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-3 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-4 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-5 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-6 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-7 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID) ; (SB!KERNEL::INVALID :UNINITIALIZED :TYPE ; (OR CONS (MEMBER NIL T :UNINITIALIZED))) ; ...) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL:LAYOUT)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; ; caught STYLE-WARNING: ; 4 more uses of undefined function %MAKE-INSTANCE-WITH-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/class.lisp ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL::UNDEFINED-CLASSOID ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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-0 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-1 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-2 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-3 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-4 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-5 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-6 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL::CLOS-HASH-7 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!INT:INDEX) ; (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID) ; (SB!KERNEL::INVALID :UNINITIALIZED :TYPE ; (OR CONS (MEMBER NIL T :UNINITIALIZED))) ; ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:LAYOUT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:CLASSOID ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 5 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/class.lisp ; in: DEFUN ENSURE-CLASSOID-VALID ; (SB!MOP:CLASS-FINALIZED-P CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-FINALIZED-P ; (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: !DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-INTERSECTION2) ; #'SB!KERNEL::DELEGATE-COMPLEX-INTERSECTION2 ; ; caught STYLE-WARNING: ; undefined function: DELEGATE-COMPLEX-INTERSECTION2 ; in: DEFUN ENSURE-CLASSOID-VALID ; (SB!MOP:FINALIZE-INHERITANCE CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:FINALIZE-INHERITANCE ; (SB!PCL::FORCE-CACHE-FLUSHES CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::FORCE-CACHE-FLUSHES ; in: ; DEF!STRUCT (BUILT-IN-CLASSOID (:INCLUDE CLASSOID) ; (:CONSTRUCTOR MAKE-BUILT-IN-CLASSOID)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:BUILT-IN-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID) ; (:CONSTRUCTOR SB!KERNEL::MAKE-BUILT-IN-CLASSOID)) ; (SB!KERNEL::TRANSLATION NIL :TYPE ; (OR SB!KERNEL:CTYPE (MEMBER NIL :INITIALIZING)))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET IF RANDOM REM ; ==> ; (SB!KERNEL:RANDOM-CHUNK (OR SB!C::STATE *RANDOM-STATE*)) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; 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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> (LAMBDA (SB!KERNEL::NEW-VALUE SB!KERNEL:INSTANCE) (LET ((#:ONCE-ONLY-829 SB!KERNEL::NEW-VALUE)) (LET ((#:ONCE-ONLY-830 SB!KERNEL:INSTANCE)) (SB!KERNEL:%INSTANCE-SET (THE SB!KERNEL::UNDEFINED-CLASSOID #:ONCE-ONLY-830) 3 (THE (AND FIXNUM UNSIGNED-BYTE) #:ONCE-ONLY-829))))) ; --> RANDOM REM ; ==> ; (SB!KERNEL:RANDOM-CHUNK (OR SB!C::STATE *RANDOM-STATE*)) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; in: DEFUN RANDOM-LAYOUT-CLOS-HASH ; (RANDOM SB!KERNEL:LAYOUT-CLOS-HASH-MAX ; (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)))) ; --> REM ; ==> ; (SB!KERNEL:RANDOM-CHUNK (OR SB!C::STATE *RANDOM-STATE*)) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; ; caught STYLE-WARNING: ; 3 more uses of undefined function RANDOM-CHUNK ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/class.lisp ; in: !DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-INTERSECTION2) ; (SB!KERNEL:TYPE-INTERSECTION2 (SB!KERNEL:SPECIFIER-TYPE 'VECTOR) ; SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: TYPE-INTERSECTION2 ; 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-1590) ; ; caught STYLE-WARNING: ; undefined function: TYPE-UNION ; ; caught STYLE-WARNING: ; These functions are undefined: ; %LAYOUT-INVALID-ERROR %MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!MOP:CLASS-FINALIZED-P SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P DELEGATE-COMPLEX-INTERSECTION2 SB!MOP:FINALIZE-INHERITANCE SB!PCL::FORCE-CACHE-FLUSHES RANDOM-CHUNK TYPE-INTERSECTION2 TYPE-UNION ; ; compilation unit finished ; caught 21 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/class.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/condition.lisp" (written 20 SEP 2006 07:05:03 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN FILE-POSITION-OR-NIL-FOR-ERROR ...) ; compiling (/SHOW0 "condition.lisp 20") ; compiling (/SHOW0 "condition.lisp 24") ; compiling (DEF!STRUCT (CONDITION-CLASSOID # ...) ...) ; compiling (/SHOW0 "condition.lisp 49") ; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS CONDITION ...) ; compiling (DEFUN MAKE-CONDITION-OBJECT ...) ; compiling (DEFSTRUCT (CONDITION-SLOT #) ...) ; compiling (/SHOW0 "condition.lisp 103") ; compiling (LET (#) ...) ; compiling (/SHOW0 "condition.lisp 103") ; compiling (SETF (CONDITION-CLASSOID-REPORT #) ...) ; compiling (DEFUN FIND-CONDITION-LAYOUT ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFVAR *EMPTY-CONDITION-SLOT* ...) ; compiling (DEFUN FIND-SLOT-DEFAULT ...) ; compiling (DEFUN FIND-CONDITION-CLASS-SLOT ...) ; compiling (DEFUN CONDITION-WRITER-FUNCTION ...) ; compiling (DEFUN CONDITION-READER-FUNCTION ...) ; compiling (DEFUN MAKE-CONDITION ...) ; compiling (DEFUN %COMPILER-DEFINE-CONDITION ...) ; compiling (DEFUN COMPUTE-EFFECTIVE-SLOTS ...) ; compiling (DECLAIM (NOTINLINE INSTALL-CONDITION-SLOT-READER ...)) ; compiling (DEFUN INSTALL-CONDITION-SLOT-READER ...) ; compiling (DEFUN INSTALL-CONDITION-SLOT-WRITER ...) ; compiling (DEFVAR *DEFINE-CONDITION-HOOKS* ...) ; compiling (DEFUN %DEFINE-CONDITION ...) ; compiling (DEFMACRO DEFINE-CONDITION ...) ; compiling (DEFUN DESCRIBE-CONDITION ...) ; compiling (DEFINE-CONDITION SERIOUS-CONDITION ...) ; compiling (DEFINE-CONDITION ERROR ...) ; compiling (DEFINE-CONDITION WARNING ...) ; compiling (DEFINE-CONDITION STYLE-WARNING ...) ; compiling (DEFUN SIMPLE-CONDITION-PRINTER ...) ; compiling (DEFINE-CONDITION SIMPLE-CONDITION ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for SIMPLE-CONDITION-FORMAT-ARGUMENTS does not match old FTYPE proclamation ; # ; ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for SIMPLE-CONDITION-FORMAT-CONTROL does not match old FTYPE proclamation ; # ; compiling (DEFINE-CONDITION SIMPLE-WARNING ...) ; compiling (DEFINE-CONDITION SIMPLE-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...) ; compiling (DEFINE-CONDITION STORAGE-CONDITION ...) ; compiling (DEFINE-CONDITION TYPE-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-TYPE-ERROR ...) ; compiling (DEFINE-CONDITION PROGRAM-ERROR ...) ; compiling (DEFINE-CONDITION PARSE-ERROR ...) ; compiling (DEFINE-CONDITION CONTROL-ERROR ...) ; compiling (DEFINE-CONDITION STREAM-ERROR ...) ; compiling (DEFINE-CONDITION END-OF-FILE ...) ; compiling (DEFINE-CONDITION FILE-ERROR ...) ; compiling (DEFINE-CONDITION PACKAGE-ERROR ...) ; compiling (DEFINE-CONDITION CELL-ERROR ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for CELL-ERROR-NAME does not match old FTYPE proclamation ; # ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFINE-CONDITION UNBOUND-VARIABLE ...) ; compiling (DEFINE-CONDITION UNDEFINED-FUNCTION ...) ; compiling (DEFINE-CONDITION SPECIAL-FORM-FUNCTION ...) ; compiling (DEFINE-CONDITION ARITHMETIC-ERROR ...) ; compiling (DEFINE-CONDITION DIVISION-BY-ZERO ...) ; compiling (DEFINE-CONDITION FLOATING-POINT-OVERFLOW ...) ; compiling (DEFINE-CONDITION FLOATING-POINT-UNDERFLOW ...) ; compiling (DEFINE-CONDITION FLOATING-POINT-INEXACT ...) ; compiling (DEFINE-CONDITION FLOATING-POINT-INVALID-OPERATION ...) ; compiling (DEFINE-CONDITION PRINT-NOT-READABLE ...) ; compiling (DEFINE-CONDITION READER-ERROR ...) ; compiling (DEFINE-CONDITION BUG ...) ; compiling (DEFINE-CONDITION SIMPLE-STORAGE-CONDITION ...) ; compiling (DEFINE-CONDITION UNSUPPORTED-OPERATOR ...) ; compiling (DEFUN PRINT-REFERENCE ...) ; compiling (DEFINE-CONDITION REFERENCE-CONDITION ...) ; compiling (DEFVAR *PRINT-CONDITION-REFERENCES* ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFINE-CONDITION DUPLICATE-DEFINITION ...) ; compiling (DEFINE-CONDITION CONSTANT-MODIFIED ...) ; compiling (DEFINE-CONDITION PACKAGE-AT-VARIANCE ...) ; compiling (DEFINE-CONDITION DEFCONSTANT-UNEQL ...) ; compiling (DEFINE-CONDITION ARRAY-INITIAL-ELEMENT-MISMATCH ...) ; compiling (DEFINE-CONDITION DISPLACED-TO-ARRAY-TOO-SMALL-ERROR ...) ; compiling (DEFINE-CONDITION TYPE-WARNING ...) ; compiling (DEFINE-CONDITION LOCAL-ARGUMENT-MISMATCH ...) ; compiling (DEFINE-CONDITION FORMAT-ARGS-MISMATCH ...) ; compiling (DEFINE-CONDITION FORMAT-TOO-FEW-ARGS-WARNING ...) ; compiling (DEFINE-CONDITION FORMAT-TOO-MANY-ARGS-WARNING ...) ; compiling (DEFINE-CONDITION EXTENSION-FAILURE ...) ; compiling (DEFINE-CONDITION STRUCTURE-INITARG-NOT-KEYWORD ...) ; compiling (DEFINE-CONDITION PACKAGE-LOCK-VIOLATION ...) ; compiling (DEFINE-CONDITION PACKAGE-LOCKED-ERROR ...) ; compiling (DEFINE-CONDITION SYMBOL-PACKAGE-LOCKED-ERROR ...) ; compiling (DEFINE-CONDITION UNDEFINED-ALIEN-ERROR ...) ; compiling (DEFINE-CONDITION UNDEFINED-ALIEN-VARIABLE-ERROR ...) ; compiling (DEFINE-CONDITION UNDEFINED-ALIEN-FUNCTION-ERROR ...) ; compiling (DEFINE-CONDITION ENCAPSULATED-CONDITION ...) ; compiling (DEFINE-CONDITION VALUES-TYPE-ERROR ...) ; compiling (DEFINE-CONDITION FLOATING-POINT-EXCEPTION ...) ; compiling (DEFINE-CONDITION INDEX-TOO-LARGE-ERROR ...) ; compiling (DEFINE-CONDITION BOUNDING-INDICES-BAD-ERROR ...) ; compiling (DEFINE-CONDITION NIL-ARRAY-ACCESSED-ERROR ...) ; compiling (DEFINE-CONDITION IO-TIMEOUT ...) ; compiling (DEFINE-CONDITION NAMESTRING-PARSE-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-PACKAGE-ERROR ...) ; compiling (DEFINE-CONDITION READER-PACKAGE-ERROR ...) ; compiling (DEFINE-CONDITION READER-EOF-ERROR ...) ; compiling (DEFINE-CONDITION READER-IMPOSSIBLE-NUMBER-ERROR ...) ; compiling (DEFINE-CONDITION TIMEOUT ...) ; compiling (DEFINE-CONDITION DECLARATION-TYPE-CONFLICT-ERROR ...) ; compiling (DEFINE-CONDITION STEP-CONDITION ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFINE-CONDITION STEP-FORM-CONDITION ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFINE-CONDITION STEP-RESULT-CONDITION ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFINE-CONDITION STEP-VALUES-CONDITION ...) ; compiling (DEFINE-CONDITION STEP-FINISHED-CONDITION ...) ; compiling (DEFINE-CONDITION ABORT-FAILURE ...) ; compiling (DEFUN ABORT ...) ; compiling (DEFUN MUFFLE-WARNING ...) ; compiling (DEFINE-NIL-RETURNING-RESTART CONTINUE ...) ; compiling (DEFINE-NIL-RETURNING-RESTART STORE-VALUE ...) ; compiling (DEFINE-NIL-RETURNING-RESTART USE-VALUE ...) ; compiling (DEF STEP-CONTINUE ...) ; compiling (DEF STEP-NEXT ...) ; compiling (DEF STEP-INTO ...) ; compiling (/SHOW0 "condition.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (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 DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL::CONDITION-SLOT)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; 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::DEFAULT-INITARGS NIL :TYPE LIST) (SB!KERNEL::CPL NIL :TYPE LIST) ; (SB!KERNEL::HAIRY-SLOTS NIL :TYPE LIST)) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL::CONDITION-CLASSOID)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; in: DEFUN %COMPILER-DEFINE-CONDITION ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR ; (:SYMBOL SB!KERNEL::NAME "defining ~A as a condition") ; (SB-XC:PROCLAIM ; (SB!IMPL::BACKQ-LIST* 'FTYPE '(FUNCTION (T) T) SB!KERNEL::ALL-READERS)) ; (SB-XC:PROCLAIM ; (SB!IMPL::BACKQ-LIST* 'FTYPE '(FUNCTION (T T) T) SB!KERNEL::ALL-WRITERS)) ; (MULTIPLE-VALUE-BIND ; (CLASS SB!KERNEL::OLD-LAYOUT) ; (SB!KERNEL:INSURED-FIND-CLASSOID SB!KERNEL::NAME ; #'SB!KERNEL:CONDITION-CLASSOID-P ; #'SB!KERNEL::MAKE-CONDITION-CLASSOID) ; (SETF (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT) CLASS) ; (SETF (SB!KERNEL:CLASSOID-DIRECT-SUPERCLASSES CLASS) ; (MAPCAR #'SB!KERNEL:FIND-CLASSOID SB!KERNEL::DIRECT-SUPERS)) ; (COND ; ((NOT SB!KERNEL::OLD-LAYOUT) ; (SB!KERNEL:REGISTER-LAYOUT SB!KERNEL:LAYOUT)) ; ((NOT SB!KERNEL:*TYPE-SYSTEM-INITIALIZED*) (SETF # CLASS) ; (SETQ SB!KERNEL:LAYOUT SB!KERNEL::OLD-LAYOUT) (UNLESS # #)) ; ((SB!KERNEL:REDEFINE-LAYOUT-WARNING "current" SB!KERNEL::OLD-LAYOUT "new" ; # # # #) ; (SB!KERNEL:REGISTER-LAYOUT SB!KERNEL:LAYOUT :INVALIDATE T)) ; ((NOT #) (SB!KERNEL:REGISTER-LAYOUT SB!KERNEL:LAYOUT))) ; (SETF (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT) ; (LOCALLY (DECLARE #) (SB!KERNEL:LAYOUT-INFO #))) ; (SETF (SB!KERNEL:FIND-CLASSOID SB!KERNEL::NAME) CLASS) ; (SETF (SB!KERNEL::CONDITION-CLASSOID-CPL CLASS) ; (REMOVE-IF-NOT #'SB!KERNEL:CONDITION-CLASSOID-P ; (SB!KERNEL:STD-COMPUTE-CLASS-PRECEDENCE-LIST ; CLASS))))) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!KERNEL::NAME ; "defining ~A as a condition") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 (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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL::CONDITION-SLOT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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::DEFAULT-INITARGS NIL :TYPE LIST) (SB!KERNEL::CPL NIL :TYPE LIST) ; (SB!KERNEL::HAIRY-SLOTS 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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL::CONDITION-CLASSOID ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 1 more use of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/condition.lisp ; in: DEFUN MAKE-CONDITION ; (TYPECASE TYPE ; (SB!KERNEL::CONDITION-CLASSOID TYPE) ; (CLASS ; (RETURN-FROM MAKE-CONDITION (APPLY #'MAKE-INSTANCE TYPE SB!KERNEL::ARGS))) ; (SB!KERNEL:CLASSOID ; (ERROR 'SIMPLE-TYPE-ERROR :DATUM TYPE :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 ; "Bad type argument:~% ~S" :FORMAT-ARGUMENTS (LIST TYPE)))) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G774 'CLASS) ; ; caught STYLE-WARNING: ; undefined type: CLASS ; ; caught STYLE-WARNING: ; undefined type: CLASS ; ; caught STYLE-WARNING: ; undefined type: CLASS ; ; caught STYLE-WARNING: ; 11 more uses of undefined type CLASS ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/condition.lisp ; in: DEFMACRO DEFINE-CONDITION ; (SB!INT:CONSTANT-FORM-VALUE SB!KERNEL::INITFORM) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-FORM-VALUE ; in: DEFUN %DEFINE-CONDITION ; (SB!C:WITH-SOURCE-LOCATION (SB!KERNEL::SOURCE-LOCATION) ; (SETF (SB!KERNEL::LAYOUT-SOURCE-LOCATION ; SB!KERNEL:LAYOUT) ; SB!KERNEL::SOURCE-LOCATION)) ; --> WHEN COND IF PROGN IF PUSH LET* LAMBDA FUNCTION LET ; ==> ; (SB!C::MAKE-DEFINITION-SOURCE-LOCATION :NAMESTRING ; (CAR SB!KERNEL::SOURCE-LOCATION) ; :TOPLEVEL-FORM-NUMBER ; (CDR SB!KERNEL::SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!C::MAKE-DEFINITION-SOURCE-LOCATION ; in: DEFUN MAKE-CONDITION ; #'MAKE-INSTANCE ; ; caught STYLE-WARNING: ; undefined function: MAKE-INSTANCE ; 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::DEFAULT-INITARGS NIL :TYPE LIST) (SB!KERNEL::CPL NIL :TYPE LIST) ; (SB!KERNEL::HAIRY-SLOTS NIL :TYPE LIST)) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET IF RANDOM REM ; ==> ; (SB!KERNEL:RANDOM-CHUNK (OR SB!C::STATE *RANDOM-STATE*)) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; in: DEFINE-CONDITION UNDEFINED-ALIEN-ERROR ; (SLOT-BOUNDP CONDITION 'SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: SLOT-BOUNDP ; ; caught STYLE-WARNING: ; These functions are undefined: ; %COMPILER-SET-UP-LAYOUT %MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CONSTANT-FORM-VALUE SB!C::MAKE-DEFINITION-SOURCE-LOCATION MAKE-INSTANCE RANDOM-CHUNK SLOT-BOUNDP ; ; caught STYLE-WARNING: ; This type is undefined: ; CLASS ; ; compilation unit finished ; caught 21 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/condition.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-array.lisp" (written 14 JUL 2005 07:35:36 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFSTRUCT (SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES # ...) ...) ; compiling (DEFPARAMETER *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...) ; compiling (DEFVAR SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ...) ; compiling (DEFUN !VM-TYPE-COLD-INIT ...) ; compiling (DEFVAR *SIMPLE-ARRAY-PRIMITIVE-TYPES* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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) &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::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!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT ; SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 'SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/vm-array.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/primtype.lisp" (written 14 SEP 2006 10:10:44 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 ...) (UNSIGNED-BYTE-32 SIGNED-BYTE-32 FIXNUM UNSIGNED-BYTE-31 POSITIVE-FIXNUM) ; compiling (!DEF-PRIMITIVE-TYPE-ALIAS UNSIGNED-NUM ...) ; compiling (!DEF-PRIMITIVE-TYPE-ALIAS SIGNED-NUM ...) ; compiling (!DEF-PRIMITIVE-TYPE-ALIAS UNTAGGED-NUM ...) ; 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 (!DEF-VM-SUPPORT-ROUTINE PRIMITIVE-TYPE-OF ...) ; compiling (/SHOW0 "primtype.lisp 188") ; compiling (!DEF-VM-SUPPORT-ROUTINE PRIMITIVE-TYPE ...) ; compiling (/SHOW0 "primtype.lisp 191"); in: LAMBDA NIL ; '64 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-64 ; ; note: deleting unreachable code ; 'SB-KERNEL:CASE-FAILURE ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 3 notes ; in: LAMBDA NIL ; '64 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-63 ; ; note: deleting unreachable code ; 'SB-KERNEL:CASE-FAILURE ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 3 notes ; in: LAMBDA NIL ; '64 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-64 ; ; note: deleting unreachable code ; 'SB-KERNEL:CASE-FAILURE ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 3 notes ; in: LAMBDA NIL ; '64 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-63 ; ; note: deleting unreachable code ; 'SB-KERNEL:CASE-FAILURE ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 3 notes ; compiling (DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ; (LAMBDA (X) (LOGAND (TYPE-HASH-VALUE X) 511)) ; :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 ; 'SB!VM::UNSIGNED-BYTE-63 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-64 ; ; note: deleting unreachable code ; compiling (/SHOW0 "primtype.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ; (LAMBDA (X) (LOGAND (TYPE-HASH-VALUE X) 511)) ; :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= ; ; caught STYLE-WARNING: ; These functions are undefined: ; CSUBTYPEP TYPE-SPECIFIER TYPE= ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 8 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/primtype.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/parse-lambda-list.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/parse-lambda-list.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-alieneval.lisp" (written 18 JAN 2006 11:28:28 AM): ; 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 (DEF!MACRO DEF-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 ...); ; caught STYLE-WARNING: ; redefining ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR in DEFUN ; 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 ALIEN-TYPE-= ...) ; compiling (DEFUN ALIEN-SUBTYPE-P ...) ; compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...) ; compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...) ; compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...) ; 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 :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 ...); ; caught STYLE-WARNING: ; redefining ALIEN-SIGNED-TYPE-TRANSLATOR in DEFUN ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ...); ; caught STYLE-WARNING: ; redefining ALIEN-INTEGER-TYPE-TRANSLATOR in DEFUN ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ...); ; caught STYLE-WARNING: ; redefining ALIEN-UNSIGNED-TYPE-TRANSLATOR in DEFUN ; 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 :NATURALIZE-GEN) ...) ; 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 ...); ; caught STYLE-WARNING: ; redefining ALIEN-BOOLEAN-TYPE-TRANSLATOR in DEFUN ; 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 ...); ; caught STYLE-WARNING: ; redefining ALIEN-ENUM-TYPE-TRANSLATOR in DEFUN ; 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 ...); ; caught STYLE-WARNING: ; redefining ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR in DEFUN ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (DOUBLE-FLOAT :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ...); ; caught STYLE-WARNING: ; redefining ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR in DEFUN ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (POINTER :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR * ...); ; caught STYLE-WARNING: ; redefining ALIEN-*-TYPE-TRANSLATOR in DEFUN ; 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN) ; (ERROR "can't deposit aliens of type ~S (unknown size)" TYPE) ; ==> ; "can't deposit aliens of type ~S (unknown size)" ; ; note: deleting unreachable code ; compiling (DEFINE-ALIEN-TYPE-CLASS (ARRAY :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ...); ; caught STYLE-WARNING: ; redefining ALIEN-ARRAY-TYPE-TRANSLATOR in DEFUN ; 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 ...); ; caught STYLE-WARNING: ; redefining ALIEN-STRUCT-TYPE-TRANSLATOR in DEFUN ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNION ...); ; caught STYLE-WARNING: ; redefining ALIEN-UNION-TYPE-TRANSLATOR in DEFUN ; compiling (DEFUN PARSE-ALIEN-RECORD-TYPE ...) ; compiling (DEFUN PARSE-ALIEN-RECORD-FIELDS ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ; 'SB!ALIEN::??? ; ; note: deleting unreachable code ; compiling (DEFUN RECORD-FIELDS-MATCH-P ...) ; compiling (DEFVAR *ALIEN-TYPE-MATCHES* ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (FUN :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ...); ; caught STYLE-WARNING: ; redefining ALIEN-FUNCTION-TYPE-TRANSLATOR in DEFUN ; 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 ...); ; caught STYLE-WARNING: ; redefining ALIEN-VALUES-TYPE-TRANSLATOR in DEFUN ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT ; SB!ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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!SYS:BITS SB!ALIEN::ALIGNMENT &AUX ; (SB!ALIEN::ALIGNMENT #)))) ; (CLASS 'SB!ALIEN::ROOT :TYPE SYMBOL) ; (SB!SYS:BITS NIL :TYPE (OR NULL UNSIGNED-BYTE)) ; (SB!ALIEN::ALIGNMENT NIL :TYPE (OR NULL UNSIGNED-BYTE))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!ALIEN-INTERNALS:ALIEN-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; in: DEFSTRUCT ALIEN-TYPE-CLASS ; (DEFSTRUCT (SB!ALIEN::ALIEN-TYPE-CLASS (:COPIER NIL)) ; (SB!ALIEN::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)) ; (SB!ALIEN::DEPORT-GEN NIL :TYPE (OR NULL FUNCTION)) ; ...) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!ALIEN::ALIEN-TYPE-CLASS)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; ; caught STYLE-WARNING: ; 16 more uses of undefined function SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 'SB!ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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!SYS:BITS SB!ALIEN::ALIGNMENT &AUX ; (SB!ALIEN::ALIGNMENT #)))) ; (CLASS 'SB!ALIEN::ROOT :TYPE SYMBOL) ; (SB!SYS:BITS NIL :TYPE (OR NULL UNSIGNED-BYTE)) ; (SB!ALIEN::ALIGNMENT NIL :TYPE (OR NULL UNSIGNED-BYTE))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ALIEN-INTERNALS:ALIEN-TYPE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFSTRUCT ALIEN-TYPE-CLASS ; (DEFSTRUCT (SB!ALIEN::ALIEN-TYPE-CLASS (:COPIER NIL)) ; (SB!ALIEN::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)) ; (SB!ALIEN::DEPORT-GEN 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 BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ALIEN::ALIEN-TYPE-CLASS ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 16 more uses of undefined function SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 23 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/host-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-c-call.lisp" (written 06 SEP 2006 09:27:10 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 ...); ; caught STYLE-WARNING: ; redefining ALIEN-C-STRING-TYPE-TRANSLATOR in DEFUN ; compiling (DEFUN C-STRING-EXTERNAL-FORMAT ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP) ...) ; compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-c-call.lisp ; in: DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ; 'SB!ALIEN::%NATURALIZE-C-STRING ; ; note: deleting unreachable code ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ...) ; compiling (/SHOW0 "host-c-call.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!SYS:POINTER :INCLUDE-ARGS (SB!ALIEN::TO)) ; (SB!ALIEN::EXTERNAL-FORMAT :DEFAULT :TYPE KEYWORD) ; (SB!ALIEN::ELEMENT-TYPE 'CHARACTER :TYPE (MEMBER CHARACTER BASE-CHAR))) ; --> PROGN SB!INT:DEF!STRUCT PROGN DEFSTRUCT PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!ALIEN::ALIEN-C-STRING-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN SB!INT:DEF!STRUCT PROGN DEFSTRUCT PROGN ; --> SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ALIEN::ALIEN-C-STRING-TYPE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-NULL-LEXENV ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!KERNEL:MAKE-NULL-LEXENV ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/host-c-call.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/compiler-deftype.lisp" (written 29 JUN 2004 09:51:00 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (/SHOW0 "compiler-deftype.lisp 14") ; compiling (DEFUN %COMPILER-DEFTYPE ...) ; compiling (/SHOW0 "compiler-deftype.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/compiler-deftype.lisp ; in: DEFUN %COMPILER-DEFTYPE ; (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 BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!IMPL::NAME ; "defining ~A as a type specifier") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (SB!KERNEL:UNDEFINE-STRUCTURE ; (SB!KERNEL:LAYOUT-INFO ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME)))) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINE-STRUCTURE ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED UNDEFINE-STRUCTURE ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/compiler-deftype.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-type.lisp" (written 21 DEC 2006 03:17:31 AM): ; 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 !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 (!COLD-INIT-FORMS (SETQ *UNPARSE-FUN-TYPE-SIMPLIFY* ...)) ; 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 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 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 (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 (!COLD-INIT-FORMS (MACROLET # ...) ...) ; 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 (!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 (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 (!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 (!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 :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 :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 (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT) ; compiling (/SHOW0 "late-type.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL:KEY-INFO)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:KEY-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 ARRAY ; (SB!KERNEL::SPECIALIZE-ARRAY-TYPE ; (SB!KERNEL:MAKE-ARRAY-TYPE :DIMENSIONS ; (SB!KERNEL::CANONICAL-ARRAY-DIMENSIONS ; SB!KERNEL::DIMENSIONS) ; :COMPLEXP :MAYBE :ELEMENT-TYPE ; (IF (EQ SB!KERNEL::ELEMENT-TYPE '*) ; SB!KERNEL:*WILD-TYPE* ; (SB!KERNEL:SPECIFIER-TYPE ; SB!KERNEL::ELEMENT-TYPE)))) ; ; caught STYLE-WARNING: ; undefined function: SPECIALIZE-ARRAY-TYPE ; in: !DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2) ; (SB!KERNEL::SPECIALIZE-ARRAY-TYPE (SB!KERNEL::INTERSECT)) ; ; caught STYLE-WARNING: ; undefined function: SPECIALIZE-ARRAY-TYPE ; ; caught STYLE-WARNING: ; These functions are undefined: ; %MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED FLOAT-FORMAT-NAME SPECIALIZE-ARRAY-TYPE ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/late-type.lisp-obj-tmp written ; compilation finished in 0:00:14 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/deftypes-for-target.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "deftypes-for-target.lisp 14") ; 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 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") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/deftypes-for-target.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/knownfun.lisp" (written 06 JUN 2006 03:42:51 AM): ; 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 (/SHOW0 "knownfun.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 T NIL))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::TRANSFORM)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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::TEMPLATES NIL :TYPE LIST) ; (SB!C::PREDICATE-TYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!C::FUN-INFO)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; 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 T NIL))) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::TRANSFORM ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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::TEMPLATES NIL :TYPE LIST) ; (SB!C::PREDICATE-TYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL))) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::FUN-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: !DEF-BOOLEAN-ATTRIBUTE IR1 ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::IR1 SB!C:CALL SB!C:UNSAFE SB!C:UNWIND ; SB!C:ANY 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 (#:WHOLE19 #:ENVIRONMENT20) ; (LET* ((SB!C::ENV #:ENVIRONMENT20)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK SB!C::IR1-ATTRIBUTEP #)))) ; 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!IMPL::BACKQ-LIST* 'VECTOR 'CHARACTER (WHEN SB!C::SIZE SB!C::SIZE))) ; ; 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: ; 2 more uses of undefined function CONSTANT-LVAR-P ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/knownfun.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE IR1 ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::IR1 SB!C:CALL SB!C:UNSAFE SB!C:UNWIND ; SB!C:ANY 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: ; 1 more use of undefined function LVAR-TYPE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: ; 1 more use of undefined function LVAR-VALUE ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!IMPL::ASSIGN-SETF-MACRO CAREFUL-SPECIFIER-TYPE CONSTANT-LVAR-P SB-XC:GET-SETF-EXPANSION LVAR-TYPE LVAR-VALUE ; ; compilation unit finished ; caught 21 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/knownfun.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/constantp.lisp" (written 06 MAR 2006 05:48:11 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFVAR *SPECIAL-FORM-CONSTANTP-FUNS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (!COLD-INIT-FORMS (SETF *SPECIAL-FORM-CONSTANTP-FUNS* ...)) ; compiling (DEFVAR *SPECIAL-FORM-CONSTANT-FORM-VALUE-FUNS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (!COLD-INIT-FORMS (SETF *SPECIAL-FORM-CONSTANT-FORM-VALUE-FUNS* ...)) ; compiling (DEFVAR *SPECIAL-CONSTANT-VARIABLES*) ; compiling (!COLD-INIT-FORMS (SETF *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 (!COLD-INIT-FORMS (DEFCONSTANTP QUOTE ...) ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CONSTANTP-COLD-INIT) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/constantp.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fun-info-funs.lisp" (written 14 JUL 2005 07:52:38 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN %DEF-REFFER ...) ; compiling (DEFUN %DEF-SETTER ...) ; compiling (DEFUN %DEF-ALLOC ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fun-info-funs.lisp ; 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-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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-VARIABLE-ALLOCATION ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/fun-info-funs.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-type.lisp" (written 09 JAN 2006 10:46:14 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEF!TYPE SB!VM:WORD ...) ; compiling (SETF (INFO :TYPE ...) ...) ; compiling (SB-XC:DEFTYPE LONG-FLOAT ...) ; compiling (SETF (INFO :TYPE ...) ...) ; compiling (SB-XC:DEFTYPE SHORT-FLOAT ...) ; compiling (SB-XC:DEFTYPE BIT-INDEX ...) ; 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 UNBOXED-ARRAY ...) ; compiling (SB-XC:DEFTYPE SIMPLE-UNBOXED-ARRAY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FLOAT-FORMAT-NAME ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SPECIALIZE-ARRAY-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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/vm-type.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/proclaim.lisp" (written 14 APR 2006 06:57:57 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 (DEFUN CANONIZED-DECL-SPEC ...) ; compiling (DEFVAR *QUEUED-PROCLAIMS*) ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (!COLD-INIT-FORMS (SETF *QUEUED-PROCLAIMS* ...)) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-PROCLAIM-COLD-INIT) ; compiling (DEFUN SB-XC:PROCLAIM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/proclaim.lisp ; in: DEFUN SB-XC:PROCLAIM ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR ; (:SYMBOL SB!C::NAME "globally declaring ~A special")) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!C::NAME ; "globally declaring ~A special") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN CANONIZED-DECL-SPEC ; (TYPEP SB!C::ID 'CLASS) ; ; caught STYLE-WARNING: ; undefined type: CLASS ; ; caught STYLE-WARNING: ; undefined type: CLASS ; ; caught STYLE-WARNING: ; undefined type: CLASS ; ; caught STYLE-WARNING: ; 2 more uses of undefined type CLASS ; ; caught STYLE-WARNING: ; This function is undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This type is undefined: ; CLASS ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/proclaim.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/class-init.lisp" (written 14 JUL 2005 05:30:13 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") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/class-init.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/typecheckfuns.lisp" (written 09 JAN 2006 10:46:14 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; compiling (DEFVAR *COMMON-TYPESPECS*) ; compiling (DEFUN CTYPE-IS-COMMON-TYPECHECKFUN-TYPE-P ...) ; compiling (DEFUN TYPECHECK-FAILURE ...) ; compiling (DEFVAR *TYPECHECKFUNS*) ; compiling (DEFMACRO MEMOIZED-TYPECHECKFUN-FORM ...) ; compiling (DEFUN !TYPECHECKFUNS-COLD-INIT ...) ; compiling (DEFUN INTERPRETED-TYPECHECKFUN ...) ; compiling (DEFUN %STRUCTURE-OBJECT-TYPECHECKFUN ...) ; compiling (DEFUN STRUCTURE-OBJECT-TYPECHECKFUN ...) ; compiling (DEFUN GENERAL-TYPECHECKFUN ...) ; compiling (DEFUN CTYPE-NEEDS-TO-BE-INTERPRETED-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN TYPESPEC-TYPECHECKFUN ...) ; compiling (DEFINE-COMPILER-MACRO TYPESPEC-TYPECHECKFUN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/typecheckfuns.lisp ; in: DEFUN %STRUCTURE-OBJECT-TYPECHECKFUN ; (SB!KERNEL::COMPILER-LAYOUT-OR-LOSE SB!KERNEL::TYPESPEC) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-LAYOUT-OR-LOSE ; (SB!KERNEL::TYPEP-TO-LAYOUT SB!KERNEL::ARG SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: TYPEP-TO-LAYOUT ; ; caught STYLE-WARNING: ; These functions are undefined: ; COMPILER-LAYOUT-OR-LOSE TYPEP-TO-LAYOUT ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/typecheckfuns.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defstruct.lisp" (written 20 SEP 2006 07:18:19 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "code/defstruct.lisp 15") ; compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...) ; compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ...) ; compiling (SB-XC:DEFMACRO COMPILE-TIME-FIND-LAYOUT ...) ; compiling (DEF!STRUCT (DEFSTRUCT-DESCRIPTION # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN DD-CLASS-P ...) ; compiling (DEFUN DD-DECLARABLE-TYPE ...) ; compiling (DEFUN DD-LAYOUT-OR-LOSE ...) ; compiling (DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN DD-LISP-TYPE ...) ; compiling (DEFSTRUCT RAW-SLOT-DATA ...) ; compiling (DEFVAR *RAW-SLOT-DATA-LIST* ...) ; compiling (DEFUN CLASS-METHOD-DEFINITIONS ...) ; compiling (DEFMACRO !EXPANDER-FOR-DEFSTRUCT ...) ; compiling (SB-XC:DEFMACRO DEFSTRUCT ...) ; compiling (DEFUN ACCESSOR-INHERITED-DATA ...) ; compiling (DEFUN TYPED-PREDICATE-DEFINITIONS ...) ; compiling (DEFUN TYPED-COPIER-DEFINITIONS ...) ; compiling (DEFUN TYPED-ACCESSOR-DEFINITIONS ...) ; compiling (DEFUN REQUIRE-NO-PRINT-OPTIONS-SO-FAR ...) ; compiling (DEFUN PARSE-1-DD-OPTION ...) ; compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ...) ; 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-ACCESSOR-TRANSFORMS ...) ; compiling (DEFUN SLOT-SETTER-LAMBDA-FORM ...) ; compiling (DEFUN %COMPILER-SET-UP-LAYOUT ...) ; compiling (DEFUN %COMPILER-DEFSTRUCT ...) ; compiling (DEFUN COMPARE-SLOTS ...) ; compiling (DEFUN REDEFINE-STRUCTURE-WARNING ...) ; compiling (DEFUN %REDEFINE-DEFSTRUCT ...) ; compiling (DEFUN ENSURE-STRUCTURE-CLASS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 UNDEFINE-STRUCTURE ...) ; 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 MAKE-DD-WITH-ALTERNATE-METACLASS ...) ; 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 (/SHOW0 "code/defstruct.lisp end of file") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defstruct.lisp ; in: DEFSTRUCT RAW-SLOT-DATA ; (DEFSTRUCT SB!KERNEL::RAW-SLOT-DATA ; (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::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)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL::RAW-SLOT-DATA)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; 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) 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!VM:WORD)) ; (SB!KERNEL::READ-ONLY NIL :TYPE (MEMBER T NIL))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT ; SB!KERNEL:DEFSTRUCT-SLOT-DESCRIPTION)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; in: ; DEF!STRUCT (DEFSTRUCT-DESCRIPTION (:CONC-NAME DD-) ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:PURE T) ; (:CONSTRUCTOR MAKE-DEFSTRUCT-DESCRIPTION ; (NAME &AUX (CONC-NAME #) (COPIER-NAME #) (PREDICATE-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 &AUX (SB!KERNEL::CONC-NAME #) (SB!KERNEL::COPIER-NAME #) ; (SB!KERNEL::PREDICATE-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 SYMBOL NULL)) ; (SB!KERNEL::DEFAULT-CONSTRUCTOR NIL :TYPE (OR SYMBOL NULL)) ; (SB!KERNEL::CONSTRUCTORS NIL :TYPE LIST) ; (SB!KERNEL::COPIER-NAME NIL :TYPE (OR SYMBOL NULL)) ; (SB!KERNEL::PREDICATE-NAME NIL :TYPE (OR SYMBOL NULL)) ; (SB!KERNEL::INCLUDE NIL :TYPE LIST) ; (SB!KERNEL::ALTERNATE-METACLASS NIL :TYPE LIST) ; (SB!KERNEL::SLOTS NIL :TYPE LIST) ...) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT ; (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!KERNEL:DEFSTRUCT-DESCRIPTION)) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE-WITH-LAYOUT ; in: DEFUN %DEFSTRUCT ; (SB!KERNEL::%TARGET-DEFSTRUCT SB!KERNEL::DD SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFSTRUCT RAW-SLOT-DATA ; (DEFSTRUCT SB!KERNEL::RAW-SLOT-DATA ; (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::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)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL::RAW-SLOT-DATA ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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) 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!VM:WORD)) ; (SB!KERNEL::READ-ONLY NIL :TYPE (MEMBER T NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 'SB!KERNEL:DEFSTRUCT-SLOT-DESCRIPTION "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: ; DEF!STRUCT (DEFSTRUCT-DESCRIPTION (:CONC-NAME DD-) ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:PURE T) ; (:CONSTRUCTOR MAKE-DEFSTRUCT-DESCRIPTION ; (NAME &AUX (CONC-NAME #) (COPIER-NAME #) (PREDICATE-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 &AUX (SB!KERNEL::CONC-NAME #) (SB!KERNEL::COPIER-NAME #) ; (SB!KERNEL::PREDICATE-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 SYMBOL NULL)) ; (SB!KERNEL::DEFAULT-CONSTRUCTOR NIL :TYPE (OR SYMBOL NULL)) ; (SB!KERNEL::CONSTRUCTORS NIL :TYPE LIST) ; (SB!KERNEL::COPIER-NAME NIL :TYPE (OR SYMBOL NULL)) ; (SB!KERNEL::PREDICATE-NAME NIL :TYPE (OR SYMBOL NULL)) ; (SB!KERNEL::INCLUDE NIL :TYPE LIST) ; (SB!KERNEL::ALTERNATE-METACLASS NIL :TYPE LIST) ; (SB!KERNEL::SLOTS 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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 'SB!KERNEL:DEFSTRUCT-DESCRIPTION "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN %REDEFINE-DEFSTRUCT ; (RESTART-CASE ; (ERROR ; "~@" ; 'STRUCTURE-OBJECT SB!KERNEL::NAME) ; (CONTINUE NIL :REPORT ; (LAMBDA (SB!KERNEL::S) ; (FORMAT SB!KERNEL::S ; "~@" ; SB!KERNEL::NAME)) ; (SB!KERNEL:REGISTER-LAYOUT SB!KERNEL::NEW-LAYOUT)) ; (SB!KERNEL::RECKLESSLY-CONTINUE NIL :REPORT ; (LAMBDA (SB!KERNEL::S) ; (FORMAT SB!KERNEL::S "~@" ; SB!KERNEL::NAME)) ; (SB!KERNEL:REGISTER-LAYOUT SB!KERNEL::NEW-LAYOUT :INVALIDATE NIL ; :DESTRUCT-LAYOUT SB!KERNEL::OLD-LAYOUT)) ; (SB!KERNEL::CLOBBER-IT NIL :REPORT ; "(deprecated synonym for RECKLESSLY-CONTINUE)" ; (SB!KERNEL:REGISTER-LAYOUT SB!KERNEL::NEW-LAYOUT :INVALIDATE NIL ; :DESTRUCT-LAYOUT SB!KERNEL::OLD-LAYOUT))) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION ; "~@" ; (LIST 'STRUCTURE-OBJECT SB!KERNEL::NAME) 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; in: DEFUN %DEFSTRUCT ; (SB!C:WITH-SOURCE-LOCATION (SB!KERNEL::SOURCE-LOCATION) ; (SETF (SB!KERNEL::LAYOUT-SOURCE-LOCATION ; SB!KERNEL:LAYOUT) ; SB!KERNEL::SOURCE-LOCATION)) ; --> WHEN COND IF PROGN IF PUSH LET* LAMBDA FUNCTION LET ; ==> ; (SB!C::MAKE-DEFINITION-SOURCE-LOCATION :NAMESTRING ; (CAR SB!KERNEL::SOURCE-LOCATION) ; :TOPLEVEL-FORM-NUMBER ; (CDR SB!KERNEL::SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!C::MAKE-DEFINITION-SOURCE-LOCATION ; ; caught STYLE-WARNING: ; These functions are undefined: ; %MAKE-INSTANCE-WITH-LAYOUT %TARGET-DEFSTRUCT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED COERCE-TO-CONDITION SB!C::MAKE-DEFINITION-SOURCE-LOCATION ; ; compilation unit finished ; caught 10 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/defstruct.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-defstruct.lisp" (written 06 OCT 2006 11:54:13 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "target-defstruct.lisp 12") ; compiling (DEFUN %MAKE-INSTANCE ...) ; compiling (DEFUN %INSTANCE-LENGTH ...) ; compiling (DEFUN %INSTANCE-REF ...) ; compiling (DEFUN %INSTANCE-SET ...) ; compiling (DEFUN %RAW-INSTANCE-REF/WORD ...) ; compiling (DEFUN %RAW-INSTANCE-SET/WORD ...) ; compiling (DEFUN %RAW-INSTANCE-REF/SINGLE ...) ; compiling (DEFUN %RAW-INSTANCE-SET/SINGLE ...) ; compiling (DEFUN %RAW-INSTANCE-REF/DOUBLE ...) ; compiling (DEFUN %RAW-INSTANCE-SET/DOUBLE ...) ; compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...) ; compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...) ; compiling (DEFUN %INSTANCE-LAYOUT ...) ; compiling (DEFUN %SET-INSTANCE-LAYOUT ...) ; compiling (DEFUN %MAKE-FUNCALLABLE-INSTANCE ...) ; compiling (DEFUN FUNCALLABLE-INSTANCE-P ...) ; compiling (DEFUN %FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFUN %SET-FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFUN FUNCALLABLE-INSTANCE-FUN ...) ; compiling (DEFUN (SETF FUNCALLABLE-INSTANCE-FUN) ...) ; compiling (DEFUN %MAKE-INSTANCE-WITH-LAYOUT ...) ; compiling (DEFVAR *DEFSTRUCT-HOOKS* ...) ; compiling (DEFUN PROTECT-CL ...) ; compiling (DEFUN %TARGET-DEFSTRUCT ...) ; compiling (DEFUN SLOT-ACCESSOR-FUNS ...) ; compiling (DEFUN COPY-STRUCTURE ...) ; compiling (DEFUN %DEFAULT-STRUCTURE-PRETTY-PRINT ...) ; compiling (DEFUN %DEFAULT-STRUCTURE-UGLY-PRINT ...) ; compiling (DEFUN DEFAULT-STRUCTURE-PRINT ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DECLAIM (INLINE TYPEP-TO-LAYOUT)) ; compiling (DEFUN TYPEP-TO-LAYOUT ...) ; compiling (DEFMACRO %CHECK-STRUCTURE-TYPE-FROM-NAME ...) ; compiling (DEFMACRO %CHECK-STRUCTURE-TYPE-FROM-DD ...) ; compiling (DEFUN %CHECK-STRUCTURE-TYPE-FROM-LAYOUT ...) ; compiling (/SHOW0 "target-defstruct.lisp end of file") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-defstruct.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/alien-type.lisp" (written 14 JUL 2005 05:30:12 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:ALIEN-TYPE-TYPE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: !DEF-TYPE-TRANSLATOR ALIEN ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: MAKE-NULL-LEXENV ; 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)) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET ; --> (LAMBDA (SB!KERNEL::NEW-VALUE SB!KERNEL:INSTANCE) (LET ((#:ONCE-ONLY-11 SB!KERNEL::NEW-VALUE)) (LET ((#:ONCE-ONLY-12 SB!KERNEL:INSTANCE)) (SB!KERNEL:%INSTANCE-SET (THE SB!KERNEL:ALIEN-TYPE-TYPE #:ONCE-ONLY-12) 3 (THE (AND FIXNUM UNSIGNED-BYTE) #:ONCE-ONLY-11))))) ; --> RANDOM REM ; ==> ; (SB!KERNEL:RANDOM-CHUNK (OR SB!C::STATE *RANDOM-STATE*)) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED MAKE-NULL-LEXENV RANDOM-CHUNK ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/alien-type.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/force-delayed-defbangstructs.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-full-eval.lisp" (written 14 SEP 2006 10:10:44 PM): ; compiling (IN-PACKAGE "SB!EVAL") ; compiling (DEFPARAMETER *EVAL-LEVEL* ...) ; compiling (DEFPARAMETER *EVAL-CALLS* ...) ; compiling (DEFPARAMETER *EVAL-VERBOSE* ...) ; compiling (DEFUN !FULL-EVAL-COLD-INIT ...) ; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...) ; compiling (DEFUN MAKE-INTERPRETED-FUNCTION ...) ; compiling (DEFUN INTERPRETED-FUNCTION-P ...) ; compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-full-eval.lisp ; in: DEFUN MAKE-INTERPRETED-FUNCTION ; (SB!EVAL::INTERPRETED-APPLY FUNCTION SB!EVAL::ARGS) ; ; caught STYLE-WARNING: ; undefined function: INTERPRETED-APPLY ; ; caught STYLE-WARNING: ; This function is undefined: ; INTERPRETED-APPLY ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-full-eval.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/typep.lisp" (written 08 AUG 2006 09:14:22 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN TYPEP ...) ; compiling (DEFUN %TYPEP ...) ; compiling (DEFUN %%TYPEP ...) ; compiling (DEFUN CLASSOID-CELL-TYPEP ...) ; compiling (DEFUN CLASSOID-TYPEP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/typep.lisp ; in: DEFUN CLASSOID-TYPEP ; (< SB!KERNEL::I 2) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; (+ SB!KERNEL::I 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. ; ; compilation unit finished ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/typep.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/compiler-error.lisp" (written 14 JUL 2005 07:52:37 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (DECLAIM (FTYPE # ...)); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for COMPILER-WARN does not match old FTYPE proclamation ; # ; ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for COMPILER-STYLE-WARN does not match old FTYPE proclamation ; # ; compiling (DEFUN COMPILER-WARN ...) ; compiling (DEFUN COMPILER-STYLE-WARN ...) ; compiling (DEFUN MAKE-COMPILER-ERROR-FORM ...) ; compiling (DEFINE-CONDITION FATAL-COMPILER-ERROR ...) ; compiling (DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; COERCE-TO-CONDITION ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/compiler-error.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-deftypes-for-target.lisp" (written 14 SEP 2006 10:10:44 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/late-deftypes-for-target.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/type-init.lisp" (written 14 JUL 2005 05:30:40 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 (/SHOW0 "done with type-init.lisp") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/type-init.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fixup-type.lisp" (written 14 JUL 2005 07:52:38 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) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/fixup-type.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/package.lisp" (written 28 JUL 2006 02:26:23 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!TYPE HASH-VECTOR ...) ; compiling (DEF!STRUCT (PACKAGE-HASHTABLE # ...) ...) ; compiling (DEF!STRUCT (SB-XC:PACKAGE # ...) ...) ; compiling (DEFMACRO-MUNDANELY DO-SYMBOLS ...) ; compiling (DEFMACRO-MUNDANELY DO-EXTERNAL-SYMBOLS ...) ; compiling (DEFMACRO-MUNDANELY DO-ALL-SYMBOLS ...) ; compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-ITERATOR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/package.lisp ; in: ; DEF!STRUCT (SB-XC:PACKAGE (:CONSTRUCTOR INTERNAL-MAKE-PACKAGE) ; (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL))) ; (:PREDICATE SB-XC:PACKAGEP)) ; (SB!INT:DEF!STRUCT ; (SB-XC:PACKAGE (:CONSTRUCTOR SB!IMPL::INTERNAL-MAKE-PACKAGE) ; (: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 (LIST NIL) :TYPE LIST) ; (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST) ; (SB!IMPL::INTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::EXTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE ; SB!IMPL::PACKAGE-HASHTABLE) ; (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ; (SB!IMPL::DOC-STRING NIL :TYPE (OR SIMPLE-STRING NULL)) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB-XC:PACKAGE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: ; DEF!STRUCT (PACKAGE-HASHTABLE ; (:CONSTRUCTOR %MAKE-PACKAGE-HASHTABLE ; (TABLE HASH SIZE &AUX (FREE SIZE))) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!IMPL::PACKAGE-HASHTABLE ; (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE-HASHTABLE ; (SB!IMPL::TABLE SB!IMPL::HASH SB!IMPL::SIZE &AUX ; (SB!IMPL::FREE SB!IMPL::SIZE))) ; (:COPIER NIL)) ; (SB!IMPL::TABLE (SB!INT:MISSING-ARG) :TYPE SIMPLE-VECTOR) ; (SB!IMPL::HASH (SB!INT:MISSING-ARG) :TYPE SB!IMPL::HASH-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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::PACKAGE-HASHTABLE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This function is undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/package.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/random.lisp" (written 14 JUL 2005 05:30:38 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEF!CONSTANT RANDOM-CHUNK-LENGTH ...) ; compiling (DEF!CONSTANT RANDOM-INTEGER-OVERLAP ...) ; compiling (DEF!CONSTANT RANDOM-INTEGER-EXTRA-BITS ...) ; compiling (DEF!CONSTANT RANDOM-FIXNUM-MAX ...) ; compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/random.lisp ; in: ; SB-XC:DEFSTRUCT (RANDOM-STATE (:CONSTRUCTOR %MAKE-RANDOM-STATE) (:COPIER NIL)) ; (SB-XC:DEFSTRUCT ; (RANDOM-STATE (:CONSTRUCTOR SB!KERNEL::%MAKE-RANDOM-STATE) (:COPIER NIL)) ; (SB!KERNEL::STATE (SB!KERNEL::INIT-RANDOM-STATE) :TYPE ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (627)))) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'RANDOM-STATE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (SB!KERNEL::INIT-RANDOM-STATE) ; ; caught STYLE-WARNING: ; undefined function: INIT-RANDOM-STATE ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED INIT-RANDOM-STATE ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/random.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/hash-table.lisp" (written 15 SEP 2006 03:39:45 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for HASH-TABLE-REHASH-SIZE does not match old FTYPE proclamation ; # ; ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for HASH-TABLE-REHASH-THRESHOLD does not match old FTYPE proclamation ; # ; compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...) ; compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/hash-table.lisp ; in: SB-XC:DEFSTRUCT (HASH-TABLE (:CONSTRUCTOR %MAKE-HASH-TABLE)) ; (SB-XC:DEFSTRUCT (HASH-TABLE (:CONSTRUCTOR SB!IMPL::%MAKE-HASH-TABLE)) ; (SB!IMPL::TEST (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY ; T) ; (SB!IMPL::TEST-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION ; :READ-ONLY T) ; (SB!IMPL::HASH-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION ; :READ-ONLY T) ; (SB!IMPL::REHASH-SIZE (SB!INT:MISSING-ARG) :TYPE ; (OR SB!INT:INDEX (SINGLE-FLOAT (1.0))) :READ-ONLY T) ; (SB!IMPL::REHASH-THRESHOLD (SB!INT:MISSING-ARG) :TYPE ; (SINGLE-FLOAT (0.0) 1.0) :READ-ONLY T) ; (SB!IMPL::REHASH-TRIGGER (SB!INT:MISSING-ARG) :TYPE ; SB!INT:INDEX) ; (SB!IMPL::NUMBER-ENTRIES 0 :TYPE SB!INT:INDEX) ; (SB!IMPL::TABLE (SB!INT:MISSING-ARG) :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 BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'HASH-TABLE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (SB!THREAD::MAKE-SPINLOCK) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::MAKE-SPINLOCK ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!THREAD::MAKE-SPINLOCK ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/hash-table.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/readtable.lisp" (written 14 JUL 2005 05:30:38 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 # ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/readtable.lisp ; in: ; SB-XC:DEFSTRUCT (READTABLE (:CONC-NAME NIL) (:PREDICATE READTABLEP) ; (:COPIER NIL)) ; (SB-XC:DEFSTRUCT ; (READTABLE (:CONC-NAME 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) ; (SB!IMPL::CHARACTER-ATTRIBUTE-HASH-TABLE (MAKE-HASH-TABLE) :TYPE HASH-TABLE) ; (SB!IMPL::CHARACTER-MACRO-ARRAY ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :INITIAL-ELEMENT ; #'SB!IMPL::UNDEFINED-MACRO-CHAR) ; :TYPE (SIMPLE-VECTOR 128)) ; (SB!IMPL::CHARACTER-MACRO-HASH-TABLE (MAKE-HASH-TABLE) :TYPE HASH-TABLE) ; (SB!IMPL::DISPATCH-TABLES NIL :TYPE LIST) ; (READTABLE-CASE :UPCASE :TYPE (MEMBER :UPCASE :DOWNCASE :PRESERVE :INVERT))) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'READTABLE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; #'SB!IMPL::UNDEFINED-MACRO-CHAR ; ; caught STYLE-WARNING: ; undefined function: UNDEFINED-MACRO-CHAR ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED UNDEFINED-MACRO-CHAR ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/readtable.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pathname.lisp" (written 26 OCT 2006 05:07:54 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!STRUCT (HOST #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!STRUCT (LOGICAL-HOST # ...) ...) ; 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 # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/pathname.lisp ; in: DEF!STRUCT (PATTERN (:CONSTRUCTOR MAKE-PATTERN (PIECES))) ; (SB!INT:DEF!STRUCT ; (SB!IMPL::PATTERN (:CONSTRUCTOR SB!IMPL::MAKE-PATTERN (SB!IMPL::PIECES))) ; (SB!IMPL::PIECES 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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::PATTERN ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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!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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:LOGICAL-HOST ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:HOST ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 2 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED PARSE-LOGICAL-NAMESTRING UNPARSE-ENOUGH-NAMESTRING UNPARSE-LOGICAL-DIRECTORY UNPARSE-LOGICAL-FILE UNPARSE-LOGICAL-NAMESTRING ; ; compilation unit finished ; caught 10 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/pathname.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/host-pprint.lisp" (written 04 FEB 2004 09:16:24 PM): ; compiling (IN-PACKAGE "SB!PRETTY") ; compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 'SB!PRETTY:PPRINT-DISPATCH-TABLE "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This function is undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/host-pprint.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/lexenv.lisp" (written 09 JUN 2006 09:59:44 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (INLINE INTERNAL-MAKE-LEXENV)) ; compiling (DEF!STRUCT (LEXENV # ...) ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/lexenv.lisp ; 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::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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:LEXENV ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This function is undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/lexenv.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fndb.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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 (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 (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 (GET-SETF-METHOD GET-SETF-METHOD-MULTIPLE-VALUE) ...) ; 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::GET2 ...) ; 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 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 ZEROP ...) ; compiling (DEFKNOWN (PLUSP MINUSP) ...) ; compiling (DEFKNOWN (ODDP EVENP) ...) ; compiling (DEFKNOWN (= /=) ...) ; compiling (DEFKNOWN (< > ...) ...) ; compiling (DEFKNOWN (MAX MIN) ...) ; compiling (DEFKNOWN + ...) ; 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 (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 (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 RANDOM-STATE-P ...) ; compiling (DEFKNOWN (STANDARD-CHAR-P GRAPHIC-CHAR-P ...) ...) ; compiling (DEFKNOWN DIGIT-CHAR-P ...) ; compiling (DEFKNOWN (CHAR= CHAR/= ...) ...) ; 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 (MAP %MAP) ...) ; compiling (DEFKNOWN %MAP-TO-LIST-ARITY-1 ...) ; compiling (DEFKNOWN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...) ; compiling (DEFKNOWN %MAP-TO-NIL-ON-SIMPLE-VECTOR ...) ; compiling (DEFKNOWN %MAP-TO-NIL-ON-VECTOR ...) ; compiling (DEFKNOWN %MAP-TO-NIL-ON-SEQUENCE ...) ; 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 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 ...) ; compiling (DEFKNOWN NTHCDR ...) ; compiling (DEFKNOWN LAST ...) ; compiling (DEFKNOWN SB!IMPL::LAST1 ...) ; compiling (DEFKNOWN LIST ...) ; compiling (DEFKNOWN LIST* ...) ; compiling (DEFKNOWN MAKE-LIST ...) ; compiling (DEFKNOWN APPEND ...) ; compiling (DEFKNOWN COPY-LIST ...) ; compiling (DEFKNOWN COPY-ALIST ...) ; compiling (DEFKNOWN COPY-TREE ...) ; compiling (DEFKNOWN REVAPPEND ...) ; compiling (DEFKNOWN NCONC ...) ; compiling (DEFKNOWN SB!IMPL::NCONC2 ...) ; 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::GETHASH2 ...) ; 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 MAKE-ARRAY ...) ; 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 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 (OUTPUT-STREAM-P INPUT-STREAM-P) ...) ; compiling (DEFKNOWN CLOSE ...) ; 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-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 WRITE ...) ; compiling (DEFKNOWN (PRIN1 PRINT ...) ...) ; compiling (DEFKNOWN WRITE-TO-STRING ...) ; compiling (DEFKNOWN (PRIN1-TO-STRING PRINC-TO-STRING) ...) ; 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 (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 (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 CELL-ERROR-NAME ...) ; compiling (DEFKNOWN ERROR ...) ; compiling (DEFKNOWN CERROR ...) ; compiling (DEFKNOWN INVALID-METHOD-ERROR ...) ; compiling (DEFKNOWN METHOD-COMBINATION-ERROR ...) ; compiling (DEFKNOWN SIGNAL ...) ; compiling (DEFKNOWN SIMPLE-CONDITION-FORMAT-CONTROL ...) ; compiling (DEFKNOWN SIMPLE-CONDITION-FORMAT-ARGUMENTS ...) ; 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 BUG ...) ; compiling (DEFKNOWN COMPILE ...) ; compiling (DEFKNOWN COMPILE-FILE ...) ; compiling (DEFKNOWN DISASSEMBLE ...) ; compiling (DEFKNOWN FDOCUMENTATION ...) ; compiling (DEFKNOWN DESCRIBE ...) ; 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 (LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION) ...) ; compiling (DEFKNOWN (MACHINE-TYPE MACHINE-VERSION ...) ...) ; compiling (DEFKNOWN IDENTITY ...) ; compiling (DEFKNOWN CONSTANTLY ...) ; compiling (DEFKNOWN COMPLEMENT ...) ; compiling (DEFKNOWN GET-BYTES-CONSED ...) ; compiling (DEFKNOWN MASK-SIGNED-FIELD ...) ; compiling (DEFKNOWN INCF-PCOUNTER ...) ; compiling (DEFKNOWN PCOUNTER->INTEGER ...) ; compiling (DEFKNOWN %INCF-PCOUNTER-OR-FIXNUM ...) ; compiling (DEFKNOWN PCOUNTER-OR-FIXNUM->INTEGER ...) ; compiling (DEFKNOWN %TYPEP ...) ; compiling (DEFKNOWN %INSTANCE-TYPEP ...) ; 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-ARG-VALUES ...) ; compiling (DEFKNOWN %VERIFY-ARG-COUNT ...) ; 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 %ALLOCATE-CLOSURES ...) ; compiling (DEFKNOWN %TYPE-CHECK-ERROR ...) ; compiling (DEFKNOWN %COMPILE-TIME-TYPE-ERROR ...) ; 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-SET ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFKNOWN %CALLER-FRAME-AND-PC ...) ; compiling (DEFKNOWN %WITH-ARRAY-DATA ...) ; compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...) ; compiling (DEFKNOWN %COERCE-NAME-TO-FUN ...) ; compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...) ; compiling (DEFKNOWN FAILED-%WITH-ARRAY-DATA ...) ; 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 %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; compiling (DEFKNOWN SB!IMPL::SIGNAL-BOUNDING-INDICES-BAD-ERROR ...) ; compiling (DEFKNOWN ARG-COUNT-ERROR ...) ; compiling (DEFKNOWN %ASET ...) ; compiling (DEFKNOWN %SET-ROW-MAJOR-AREF ...) ; compiling (DEFKNOWN (%RPLACA %RPLACD) ...) ; compiling (DEFKNOWN %PUT ...) ; compiling (DEFKNOWN %SETELT ...) ; compiling (DEFKNOWN %SVSET ...) ; compiling (DEFKNOWN %BITSET ...) ; compiling (DEFKNOWN %SBITSET ...) ; compiling (DEFKNOWN %CHARSET ...) ; compiling (DEFKNOWN %SCHARSET ...) ; compiling (DEFKNOWN %SET-SYMBOL-VALUE ...) ; compiling (DEFKNOWN (SETF SYMBOL-FUNCTION) ...) ; compiling (DEFKNOWN %SET-SYMBOL-PLIST ...) ; compiling (DEFKNOWN (SETF FDOCUMENTATION) ...) ; compiling (DEFKNOWN %SETNTH ...) ; compiling (DEFKNOWN %SET-FILL-POINTER ...) ; compiling (DEFKNOWN SB!VM::PUSH-WORD-ON-C-STACK ...) ; compiling (DEFKNOWN SB!VM::POP-WORDS-FROM-C-STACK ...) ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/fndb.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-fndb.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...) ; compiling (DEFKNOWN %SP-STRING-COMPARE ...) ; compiling (DEFKNOWN %SXHASH-SIMPLE-STRING ...) ; compiling (DEFKNOWN %SXHASH-SIMPLE-SUBSTRING ...) ; compiling (DEFKNOWN SYMBOL-HASH ...) ; compiling (DEFKNOWN %SET-SYMBOL-HASH ...) ; 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 %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-BITS ...) ; compiling (DEFKNOWN (%SET-RAW-BITS) ...) ; 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 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 MERGE-BITS ...) ; 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-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 %FLOOR ...) ; 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 MUTATOR-SELF ...) ; compiling (DEFKNOWN %DATA-VECTOR-AND-INDEX ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/objdef.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-PRIMITIVE-OBJECT (CONS :LOWTAG ...) ...) ; 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 (AVER (= KLUDGE-NONDETERMINISTIC-CATCH-BLOCK-SIZE ...)) ; 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 :LOWTAG ...) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/objdef.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/interr.lisp" (written 14 JUL 2005 07:35:35 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN ERROR-NUMBER-OR-LOSE ...) ; compiling (DEFINE-INTERNAL-ERRORS (UNKNOWN "unknown system lossage") ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/interr.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/bit-util.lisp" (written 14 JUL 2005 07:52:37 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/bit-util.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/early-assem.lisp" (written 14 JUL 2004 09:29:51 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/early-assem.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/core.lisp" (written 14 JUL 2005 07:35:35 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/core.lisp ; 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 BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::CORE-OBJECT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN FIX-CORE-SOURCE-INFO ; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO) ; ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED DEBUG-SOURCE-FOR-INFO FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/core.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/thread.lisp" (written 03 JUN 2006 09:26:52 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEF!STRUCT MUTEX ...) ; compiling (DEF!STRUCT SPINLOCK ...) ; compiling (SB-XC:DEFMACRO WITH-MUTEX ...) ; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/thread.lisp ; in: DEF!STRUCT SPINLOCK ; (SB!INT:DEF!STRUCT SB!THREAD::SPINLOCK "Spinlock type." ; (SB!THREAD::NAME NIL :TYPE (OR NULL SIMPLE-STRING)) ; (SB!THREAD::VALUE 0)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!THREAD::SPINLOCK ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEF!STRUCT MUTEX ; (SB!INT:DEF!STRUCT SB!THREAD:MUTEX "Mutex type." ; (SB!THREAD::NAME NIL :TYPE (OR NULL SIMPLE-STRING)) ; (SB!THREAD::VALUE NIL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!THREAD:MUTEX ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/thread.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/load.lisp" (written 13 MAY 2006 06:20:03 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFUN LOAD-FRESH-LINE ...) ; compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...) ; 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 *FREE-FOP-TABLES* ...) ; compiling (DEFVAR *CURRENT-FOP-TABLE*) ; compiling (DECLAIM (SIMPLE-VECTOR *CURRENT-FOP-TABLE*)) ; compiling (DEFVAR *CURRENT-FOP-TABLE-SIZE*) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *CURRENT-FOP-TABLE-INDEX*) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFUN GROW-FOP-TABLE ...) ; compiling (DEFMACRO PUSH-FOP-TABLE ...) ; compiling (DEFVAR *FOP-STACK*) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFMACRO WITH-FOP-STACK ...) ; compiling (DEFMACRO %CALL-WITH-POPPED-ARGS ...) ; 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 CHECK-FASL-HEADER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 *FASL-SYMBOL-BUFFER*) ; compiling (DECLAIM (SIMPLE-STRING *FASL-SYMBOL-BUFFER*)) ; compiling (DEFUN LOAD-FASL-GROUP ...) ; compiling (DEFUN LOAD-AS-FASL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; READ-STRING-AS-BYTES ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/load.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/linkage-table.lisp" (written 14 JUL 2005 05:30:35 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *FOREIGN-LOCK*) ; compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-JMP ...) ; compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-REF ...) ; compiling (DEFVAR *LINKAGE-INFO* ...) ; compiling (DEFSTRUCT LINKAGE-INFO ...) ; compiling (DEFUN WRITE-LINKAGE-TABLE-ENTRY ...) ; compiling (DEFUN LINK-FOREIGN-SYMBOL ...) ; compiling (DEFUN ENSURE-FOREIGN-SYMBOL-LINKAGE ...) ; compiling (DEFUN UPDATE-LINKAGE-TABLE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/linkage-table.lisp ; in: DEFSTRUCT LINKAGE-INFO ; (DEFSTRUCT SB!IMPL::LINKAGE-INFO SB!IMPL::DATAP SB!IMPL::ADDRESS) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::LINKAGE-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/linkage-table.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/foreign-load.lisp" (written 21 DEC 2005 01:00:49 PM): ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (DEFVAR *FOREIGN-LOCK* ...) ; compiling (DEFINE-UNSUPPORTED-FUN LOAD-FOREIGN ...) ; compiling (DEFINE-UNSUPPORTED-FUN LOAD-1-FOREIGN ...) ; compiling (DEFINE-ALIEN-ROUTINE DLOPEN ...) ; compiling (DEFINE-ALIEN-ROUTINE DLCLOSE ...) ; compiling (DEFINE-ALIEN-ROUTINE DLERROR ...) ; compiling (DEFINE-ALIEN-ROUTINE DLSYM ...) ; compiling (DEFINE-ALIEN-VARIABLE UNDEFINED-ALIEN-ADDRESS ...) ; compiling (DEFVAR *RUNTIME-DLHANDLE*) ; compiling (DEFVAR *SHARED-OBJECTS*) ; compiling (DEFSTRUCT SHARED-OBJECT ...) ; compiling (DEFUN DLOPEN-OR-LOSE ...) ; compiling (DEFUN DLCLOSE-OR-LOSE ...) ; compiling (DEFUN LOAD-SHARED-OBJECT ...) ; compiling (DEFUN TRY-REOPEN-SHARED-OBJECT ...) ; compiling (DEFUN REOPEN-SHARED-OBJECTS ...) ; compiling (DEFUN CLOSE-SHARED-OBJECTS ...) ; compiling (DEFUN FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ...) ; compiling (LET (# #) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/foreign-load.lisp ; in: DEFUN ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (DEFUN SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (SYMBOL &OPTIONAL SB!ALIEN::DATAP) ; "Returns the address of the foreign symbol as an integer. On linkage-table ; ports if the symbols isn't found a special guard address is returned instead, ; accesses to which will result in an UNDEFINED-ALIEN-ERROR. On other ports an ; error is immediately signalled if the symbol isn't found. The returned address ; is never in the linkage-table." ; (DECLARE (IGNORABLE SB!ALIEN::DATAP)) ; (LET ((SB!ALIEN:ADDR (SB!SYS:FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SYMBOL))) ; (COND ; ((NOT SB!ALIEN:ADDR) (SB!INT:STYLE-WARN "Undefined alien: ~S" SYMBOL) ; (SETF # T) (REMHASH SYMBOL SB!ALIEN::SYMBOLS) ; (IF SB!ALIEN::DATAP SB!ALIEN::UNDEFINED-ALIEN-ADDRESS #)) ; (SB!ALIEN:ADDR (SETF # T) (REMHASH SYMBOL SB!ALIEN::UNDEFINEDS) ; SB!ALIEN:ADDR)))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (LAMBDA (SYMBOL &OPTIONAL SB!ALIEN::DATAP) ; (DECLARE (IGNORABLE SB!ALIEN::DATAP)) ; (BLOCK SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (LET (#) ; (COND # #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS not cross-compiled at top ; level: demoting to (SETF FDEFINITION) ; in: DEFUN UNDEFINED-FOREIGN-SYMBOLS-P ; (DEFUN SB!SYS:UNDEFINED-FOREIGN-SYMBOLS-P () ; (PLUSP (HASH-TABLE-COUNT SB!ALIEN::UNDEFINEDS))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!SYS:UNDEFINED-FOREIGN-SYMBOLS-P ; (LAMBDA () ; (BLOCK SB!SYS:UNDEFINED-FOREIGN-SYMBOLS-P ; (PLUSP (HASH-TABLE-COUNT SB!ALIEN::UNDEFINEDS))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET UNDEFINED-FOREIGN-SYMBOLS-P #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET UNDEFINED-FOREIGN-SYMBOLS-P not cross-compiled at top level: demoting ; to (SETF FDEFINITION) ; in: DEFUN DYNAMIC-FOREIGN-SYMBOLS-P ; (DEFUN SB!SYS:DYNAMIC-FOREIGN-SYMBOLS-P () ; (PLUSP (HASH-TABLE-COUNT SB!ALIEN::SYMBOLS))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!SYS:DYNAMIC-FOREIGN-SYMBOLS-P ; (LAMBDA () ; (BLOCK SB!SYS:DYNAMIC-FOREIGN-SYMBOLS-P ; (PLUSP (HASH-TABLE-COUNT SB!ALIEN::SYMBOLS))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET DYNAMIC-FOREIGN-SYMBOLS-P #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET DYNAMIC-FOREIGN-SYMBOLS-P not cross-compiled at top level: demoting ; to (SETF FDEFINITION) ; in: DEFUN LIST-DYNAMIC-FOREIGN-SYMBOLS ; (DEFUN SB!SYS:LIST-DYNAMIC-FOREIGN-SYMBOLS () ; (LOOP SB!ALIEN::FOR SYMBOL SB!ALIEN::BEING SB!ALIEN::EACH ; SB!ALIEN::HASH-KEY SB!ALIEN::IN SB!ALIEN::SYMBOLS SB!INT:COLLECT ; SYMBOL)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!SYS:LIST-DYNAMIC-FOREIGN-SYMBOLS ; (LAMBDA () ; (BLOCK SB!SYS:LIST-DYNAMIC-FOREIGN-SYMBOLS ; (LOOP SB!ALIEN::FOR SYMBOL SB!ALIEN::BEING ; SB!ALIEN::EACH SB!ALIEN::HASH-KEY SB!ALIEN::IN ; SB!ALIEN::SYMBOLS SB!INT:COLLECT SYMBOL)))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET LIST-DYNAMIC-FOREIGN-SYMBOLS #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET LIST-DYNAMIC-FOREIGN-SYMBOLS not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; in: DEFSTRUCT SHARED-OBJECT ; (DEFSTRUCT SB!ALIEN::SHARED-OBJECT SB!ALIEN::FILE SB!ALIEN::SAP) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ALIEN::SHARED-OBJECT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (SB!SYS:EXTERN-ALIEN-NAME SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: EXTERN-ALIEN-NAME ; in: DEFUN TRY-REOPEN-SHARED-OBJECT ; (SB!INT:UNIX-NAMESTRING PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: UNIX-NAMESTRING ; in: DEFUN LOAD-SHARED-OBJECT ; (SB!INT:UNIX-NAMESTRING SB!ALIEN::FILE) ; ; caught STYLE-WARNING: ; undefined function: UNIX-NAMESTRING ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED EXTERN-ALIEN-NAME UNIX-NAMESTRING ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/foreign-load.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/foreign.lisp" (written 28 NOV 2006 01:34:05 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 ...) ; compiling (DEFUN FOREIGN-REINIT ...) ; compiling (DEFUN FOREIGN-DEINIT ...) ; compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL)) ; compiling (DEFUN SAP-FOREIGN-SYMBOL ...) ; compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*) ; compiling (DEFUN !FOREIGN-COLD-INIT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/foreign.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFVAR *SKIP-UNTIL* ...) ; compiling (DEFMACRO DEFINE-FOP ...) ; compiling (DEFUN %DEFINE-FOP ...) ; compiling (DEFMACRO DEFINE-CLONED-FOPS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN READ-STRING-AS-BYTES ...) ; compiling (DEFUN READ-STRING-AS-WORDS ...) ; compiling (DEFINE-FOP (FOP-NOP4 137 ...) ...) ; compiling (DEFINE-FOP (FOP-NOP 0 ...)) ; compiling (DEFINE-FOP (FOP-POP 1 ...) ...) ; compiling (DEFINE-FOP (FOP-PUSH 2) ...) ; compiling (DEFINE-FOP (FOP-BYTE-PUSH 3) ...) ; compiling (DEFINE-FOP (FOP-EMPTY-LIST 4) ...) ; compiling (DEFINE-FOP (FOP-TRUTH 5) ...) ; compiling (DEFINE-FOP (FOP-MISC-TRAP 66) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-CHARACTER 68) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-STRUCT 48) ...) ; compiling (DEFINE-FOP (FOP-LAYOUT 45) ...) ; compiling (DEFINE-FOP (FOP-END-GROUP 64 ...) ...) ; compiling (DEFINE-FOP (FOP-NORMAL-LOAD 81 ...)) ; compiling (DEFINE-FOP (FOP-MAYBE-COLD-LOAD 82 ...)) ; compiling (DEFINE-FOP (FOP-VERIFY-TABLE-SIZE 62 ...) ...) ; compiling (DEFINE-FOP (FOP-VERIFY-EMPTY-STACK 63 ...) ...) ; compiling (FROB FOP-LISP-SYMBOL-SAVE ...) ; compiling (FROB FOP-LISP-SMALL-SYMBOL-SAVE ...) ; compiling (FROB FOP-KEYWORD-SYMBOL-SAVE ...) ; compiling (FROB FOP-KEYWORD-SMALL-SYMBOL-SAVE ...) ; compiling (FROB FOP-SYMBOL-IN-PACKAGE-SAVE ...) ; compiling (FROB FOP-SMALL-SYMBOL-IN-PACKAGE-SAVE ...) ; compiling (FROB FOP-SYMBOL-IN-BYTE-PACKAGE-SAVE ...) ; compiling (FROB FOP-SMALL-SYMBOL-IN-BYTE-PACKAGE-SAVE ...) ; compiling (DEFINE-CLONED-FOPS (FOP-UNINTERNED-SYMBOL-SAVE 12) ...) ; compiling (DEFINE-FOP (FOP-PACKAGE 14) ...) ; compiling (DEFUN LOAD-S-INTEGER ...) ; compiling (DEFINE-CLONED-FOPS (FOP-INTEGER 33) ...) ; compiling (DEFINE-FOP (FOP-WORD-INTEGER 35) ...) ; compiling (DEFINE-FOP (FOP-BYTE-INTEGER 36) ...) ; compiling (DEFINE-FOP (FOP-RATIO 70) ...) ; compiling (DEFINE-FOP (FOP-COMPLEX 71) ...) ; compiling (DEFINE-COMPLEX-FOP FOP-COMPLEX-SINGLE-FLOAT ...) ; compiling (DEFINE-COMPLEX-FOP FOP-COMPLEX-DOUBLE-FLOAT ...) ; compiling (DEFINE-FLOAT-FOP FOP-SINGLE-FLOAT ...) ; compiling (DEFINE-FLOAT-FOP FOP-DOUBLE-FLOAT ...) ; compiling (DEFINE-FOP (FOP-LIST 15) ...) ; compiling (DEFINE-FOP (FOP-LIST* 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-CLONED-FOPS (FOP-BASE-STRING 37) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-CHARACTER-STRING 161) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-VECTOR 39) ...) ; compiling (DEFINE-FOP (FOP-ARRAY 83) ...) ; compiling (DEFINE-FOP (FOP-SINGLE-FLOAT-VECTOR 84) ...) ; compiling (DEFINE-FOP (FOP-DOUBLE-FLOAT-VECTOR 85) ...) ; compiling (DEFINE-FOP (FOP-COMPLEX-SINGLE-FLOAT-VECTOR 86) ...) ; compiling (DEFINE-FOP (FOP-COMPLEX-DOUBLE-FLOAT-VECTOR 87) ...) ; compiling (DEFINE-FOP (FOP-INT-VECTOR 43) ...) ; compiling (DEFINE-FOP (FOP-SIGNED-INT-VECTOR 50) ...) ; compiling (DEFINE-FOP (FOP-EVAL 53) ...) ; compiling (DEFINE-FOP (FOP-EVAL-FOR-EFFECT 54 ...) ...) ; compiling (DEFINE-FOP (FOP-FUNCALL 55) ...) ; compiling (DEFINE-FOP (FOP-FUNCALL-FOR-EFFECT 56 ...) ...) ; compiling (DEFINE-FOP (FOP-RPLACA 200 ...) ...) ; compiling (DEFINE-FOP (FOP-RPLACD 201 ...) ...) ; compiling (DEFINE-FOP (FOP-SVSET 202 ...) ...) ; compiling (DEFINE-FOP (FOP-STRUCTSET 204 ...) ...) ; compiling (DEFINE-FOP (FOP-NTHCDR 203) ...) ; compiling (DEFINE-FOP (FOP-CODE 58 ...) ...) ; compiling (DEFINE-FOP (FOP-SMALL-CODE 59 ...) ...) ; compiling (DEFINE-FOP (FOP-FDEFINITION 60) ...) ; compiling (DEFINE-FOP (FOP-SANCTIFY-FOR-EXECUTION 61) ...) ; compiling (DEFINE-FOP (FOP-FSET 74 ...) ...) ; compiling (DEFINE-CLONED-FOPS (FOP-ALTER-CODE 140 ...) ...) ; compiling (DEFINE-FOP (FOP-FUN-ENTRY 142) ...) ; compiling (DEFINE-FOP (FOP-ASSEMBLER-CODE 144) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-ASSEMBLER-CODE 144) ; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-ASSEMBLER-CODE 144) ; (ERROR "cannot load assembler code except at cold load")) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!FASL::WITH-FOP-STACK LET ; --> MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN (ERROR "cannot load assembler code except at cold load")) ; #:FOP-STACK-7051) ; ; note: The first argument never returns a value. ; compiling (DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145) ; (SB!FASL::DEFINE-FOP (SB!FASL::FOP-ASSEMBLER-ROUTINE 145) ; (ERROR "cannot load assembler code except at cold load")) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!FASL::WITH-FOP-STACK LET ; --> MACROLET ; ==> ; (VECTOR-PUSH-EXTEND ; (PROGN (ERROR "cannot load assembler code except at cold load")) ; #:FOP-STACK-7065) ; ; note: The first argument never returns a value. ; compiling (DEFINE-FOP (FOP-FOREIGN-FIXUP 147) ...) ; compiling (DEFINE-FOP (FOP-ASSEMBLER-FIXUP 148) ...) ; compiling (DEFINE-FOP (FOP-CODE-OBJECT-FIXUP 149) ...) ; compiling (DEFINE-FOP (FOP-FOREIGN-DATAREF-FIXUP 150) ...) ; compiling (DEFINE-FOP (FOP-SKIP 151 ...) ...) ; compiling (DEFINE-FOP (FOP-SKIP-IF-FALSE 152 ...) ...) ; compiling (DEFINE-FOP (FOP-DROP-IF-SKIPPING 153 ...) ...) ; compiling (DEFINE-FOP (FOP-PUSH-NIL-IF-SKIPPING 154 ...) ...) ; compiling (DEFINE-FOP (FOP-MAYBE-STOP-SKIPPING 155 ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: ; MACROLET ((FROB (NAME CODE NAME-SIZE PACKAGE) ; (LET (# # #) ; (SB!IMPL::BACKQ-LIST 'DEFINE-FOP # #)))) ; (SB!FASL::FROB SB!FASL::FOP-KEYWORD-SYMBOL-SAVE 77 4 SB!INT:*KEYWORD-PACKAGE*) ; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> SB!FASL::WITH-FOP-STACK LET MACROLET VECTOR-PUSH-EXTEND PROGN ; --> SB!INT:PREPARE-FOR-FAST-READ-BYTE LET* LET LET SB!FASL::PUSH-FOP-TABLE ; --> LET SETF SB!KERNEL:%SVSET SB!KERNEL:%ASET SB!EXT:WITHOUT-PACKAGE-LOCKS ; --> LET ; ==> ; (SB!INT:INTERN* #:G1218 #:G1217 #:G1216) ; ; caught STYLE-WARNING: ; undefined function: INTERN* ; (SB!FASL::FROB SB!FASL::FOP-LISP-SMALL-SYMBOL-SAVE 76 1 SB!INT:*CL-PACKAGE*) ; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> SB!FASL::WITH-FOP-STACK LET MACROLET VECTOR-PUSH-EXTEND PROGN ; --> SB!INT:PREPARE-FOR-FAST-READ-BYTE LET* LET LET SB!FASL::PUSH-FOP-TABLE ; --> LET SETF SB!KERNEL:%SVSET SB!KERNEL:%ASET SB!EXT:WITHOUT-PACKAGE-LOCKS ; --> LET ; ==> ; (SB!INT:INTERN* #:G1134 #:G1133 #:G1132) ; ; caught STYLE-WARNING: ; undefined function: INTERN* ; (SB!FASL::FROB SB!FASL::FOP-LISP-SYMBOL-SAVE 75 4 SB!INT:*CL-PACKAGE*) ; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> SB!FASL::WITH-FOP-STACK LET MACROLET VECTOR-PUSH-EXTEND PROGN ; --> SB!INT:PREPARE-FOR-FAST-READ-BYTE LET* LET LET SB!FASL::PUSH-FOP-TABLE ; --> LET SETF SB!KERNEL:%SVSET SB!KERNEL:%ASET SB!EXT:WITHOUT-PACKAGE-LOCKS ; --> LET ; ==> ; (SB!INT:INTERN* #:G1005 #:G1004 #:G1003) ; ; caught STYLE-WARNING: ; undefined function: INTERN* ; ; caught STYLE-WARNING: ; 5 more uses of undefined function INTERN* ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/fop.lisp ; in: DEFINE-FOP (FOP-SMALL-CODE 59 :STACKP NIL) ; (SB!FASL::LOAD-CODE (SB!FASL::READ-BYTE-ARG) (SB!FASL::READ-HALFWORD-ARG)) ; ; caught STYLE-WARNING: ; undefined function: LOAD-CODE ; in: DEFINE-FOP (FOP-CODE 58 :STACKP NIL) ; (SB!FASL::LOAD-CODE (SB!FASL::READ-WORD-ARG) (SB!FASL::READ-WORD-ARG)) ; ; caught STYLE-WARNING: ; undefined function: LOAD-CODE ; in: DEFINE-FOP (FOP-SANCTIFY-FOR-EXECUTION 61) ; (SB!VM:SANCTIFY-FOR-EXECUTION SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:SANCTIFY-FOR-EXECUTION ; ; caught STYLE-WARNING: ; These functions are undefined: ; INTERN* LOAD-CODE SB!VM:SANCTIFY-FOR-EXECUTION ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/fop.lisp-obj-tmp written ; compilation finished in 0:00:09 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ctype.lisp" (written 14 APR 2006 06:57:57 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 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ctype.lisp ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::ASSERT-LVAR-TYPE SB!C::ARG TYPE 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: DEFSTRUCT APPROXIMATE-KEY-INFO ; (DEFSTRUCT (SB!C::APPROXIMATE-KEY-INFO (:COPIER NIL)) ; (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE KEYWORD) ; (POSITION (SB!INT:MISSING-ARG) :TYPE (INTEGER 0 536870911)) ; (SB!C::TYPES NIL :TYPE LIST) ; (SB!C::ALLOWP NIL :TYPE (MEMBER T NIL))) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::APPROXIMATE-KEY-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFSTRUCT APPROXIMATE-FUN-TYPE ; (DEFSTRUCT (SB!C::APPROXIMATE-FUN-TYPE (:COPIER NIL)) ; (SB!C::MIN-ARGS SB-XC:CALL-ARGUMENTS-LIMIT :TYPE (INTEGER 0 536870911)) ; (SB!C::MAX-ARGS 0 :TYPE (INTEGER 0 536870911)) ; (SB!C::TYPES NIL :TYPE LIST) ; (SB!C::KEYS NIL :TYPE LIST)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::APPROXIMATE-FUN-TYPE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C:CALL (SB!KERNEL:FUN-TYPE-RETURNS TYPE)) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C::REF (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE 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 ASSERT-DEFINITION-TYPE ; (SB!C::LVAR-DERIVED-TYPE (SB!C::RETURN-RESULT RETURN)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-DERIVED-TYPE ; in: DEFUN CHECK-CATCH-TAG-TYPE ; (SB!C::LVAR-SOURCE SB!C::TAG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-SOURCE ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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::K) ; ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ctype.lisp ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::MAIN-ENTRY SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: MAIN-ENTRY ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-LVAR-TYPE ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CONSTANT-LVAR-P DERIVE-NODE-TYPE IMMEDIATELY-USED-P IR2-CONVERT-FULL-CALL LVAR-DERIVED-TYPE LVAR-SOURCE LVAR-TYPE LVAR-VALUE MAIN-ENTRY ; ; compilation unit finished ; caught 23 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ctype.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/disassem.lisp" (written 04 NOV 2005 12:18:10 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 TEXT-WIDTH ...)) ; 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 ...) ; 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 ...) ; compiling (DEFUN DCHUNK-MAKE-FIELD ...) ; compiling (DEFMACRO MAKE-DCHUNK ...) ; compiling (DEFUN SAP-REF-DCHUNK ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; 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 GEN-FORMAT-DEF-FORM ...) ; compiling (DEFUN MODIFY-OR-ADD-ARG ...) ; compiling (DEFUN GEN-ARG-ACCESS-MACRO-DEF-FORM ...) ; 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 (DEFUN GEN-ARG-TYPE-DEF-FORM ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!DISASSEM::INST-SPACE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!DISASSEM:INSTRUCTION ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFSTRUCT FUN-CACHE ; (DEFSTRUCT (SB!DISASSEM::FUN-CACHE (:COPIER NIL)) ; (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 BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!DISASSEM::FUN-CACHE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 8 more uses of undefined function SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; ; caught STYLE-WARNING: ; 124 more uses of undefined type SEGMENT ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED READ-SUFFIX SEG-VIRTUAL-LOCATION ; ; caught STYLE-WARNING: ; This type is undefined: ; SEGMENT ; ; compilation unit finished ; caught 13 STYLE-WARNING conditions ; printed 3 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/disassem.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assem.lisp" (written 11 AUG 2006 09:08:39 AM): ; 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 # ...) ...) ; 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 # ...)) ; 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 (DEFMACRO %%CURRENT-SEGMENT%% ...) ; compiling (DEFVAR **CURRENT-SEGMENT**) ; compiling (DEFMACRO %%CURRENT-VOP%% ...) ; compiling (DEFVAR **CURRENT-VOP** ...) ; compiling (DEF!MACRO ASSEMBLE ...) ; compiling (DEFMACRO INST ...) ; compiling (DEFMACRO EMIT-LABEL ...) ; compiling (DEFMACRO EMIT-POSTIT ...) ; compiling (DEFMACRO ALIGN ...) ; compiling (DEFUN LABEL-POSITION ...) ; compiling (DEFUN APPEND-SEGMENT ...) ; compiling (DEFUN FINALIZE-SEGMENT ...) ; compiling (DEFUN ON-SEGMENT-CONTENTS-VECTORLY ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assem.lisp ; in: DEF!STRUCT (ANNOTATION (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT (SB!ASSEM::ANNOTATION (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!INT:INDEX 0 :TYPE SB!INT:INDEX) ; (SB!ASSEM::POSN NIL :TYPE (OR SB!INT:INDEX NULL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ASSEM::ANNOTATION ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: ; DEF!STRUCT (INSTRUCTION (:INCLUDE SSET-ELEMENT) (:CONC-NAME INST-) ; (:CONSTRUCTOR MAKE-INSTRUCTION (NUMBER EMITTER ATTRIBUTES DELAY)) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!ASSEM::INSTRUCTION (:INCLUDE SB!ASSEM:SSET-ELEMENT) ; (:CONC-NAME SB!ASSEM::INST-) ; (:CONSTRUCTOR SB!ASSEM::MAKE-INSTRUCTION ; (NUMBER SB!ASSEM::EMITTER SB!ASSEM::ATTRIBUTES SB!INT:DELAY)) ; (:COPIER NIL)) ; (SB!ASSEM::EMITTER (SB!INT:MISSING-ARG) :TYPE (OR NULL FUNCTION)) ; (SB!ASSEM::ATTRIBUTES (SB!ASSEM::INSTRUCTION-ATTRIBUTES) :TYPE ; SB!C:ATTRIBUTES) ; (SB!INT:DELAY 0 :TYPE (AND FIXNUM UNSIGNED-BYTE)) ; (SB!ASSEM::DEPTH NIL :TYPE (OR NULL (AND FIXNUM UNSIGNED-BYTE))) ; (SB!ASSEM::READ-DEPENDENCIES (SB!ASSEM:MAKE-SSET) :TYPE SB!ASSEM:SSET) ; (SB!ASSEM::WRITE-DEPENDENCIES (SB!ASSEM:MAKE-SSET) :TYPE SB!ASSEM:SSET) ; (SB!ASSEM::WRITE-DEPENDENTS (SB!ASSEM:MAKE-SSET) :TYPE SB!ASSEM:SSET) ; (SB!ASSEM::READ-DEPENDENTS (SB!ASSEM:MAKE-SSET) :TYPE SB!ASSEM:SSET)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ASSEM::INSTRUCTION ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFSTRUCT SEGMENT ; (DEFSTRUCT (SB!ASSEM:SEGMENT (:COPIER NIL)) ; (SB!ASSEM::NAME "unnamed" :TYPE SIMPLE-STRING) ; (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 BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ASSEM:SEGMENT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 5 more uses of undefined function SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (#:WHOLE484 #:ENVIRONMENT485) ; (LET* ((SB!C::ENV #:ENVIRONMENT485)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK SB!ASSEM::INSTRUCTION-ATTRIBUTEP ; #)))) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; --> 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!IMPL::ASSIGN-SETF-MACRO SB-XC:GET-SETF-EXPANSION ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/assem.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/trace-table.lisp" (written 19 MAY 2002 02:55:32 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN TRACE-TABLE-ENTRY ...) ; compiling (DEF!CONSTANT TT-BITS-PER-STATE ...) ; compiling (DEF!CONSTANT TT-BYTES-PER-ENTRY ...) ; compiling (DEF!CONSTANT TT-BITS-PER-ENTRY ...) ; compiling (DEF!CONSTANT TT-BITS-PER-OFFSET ...) ; compiling (DEF!CONSTANT TT-MAX-OFFSET ...) ; compiling (DEFTYPE TT-STATE ...) ; compiling (DEFTYPE TT-ENTRY ...) ; compiling (DEFTYPE TT-OFFSET ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PACK-TRACE-TABLE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/trace-table.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/dump.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFSTRUCT (FASL-OUTPUT # ...) ...) ; compiling (DEFSTRUCT (CIRCULARITY #) ...) ; compiling (DEFVAR *CIRCULARITIES-DETECTED*) ; compiling (DEFVAR *COLD-LOAD-DUMP* ...) ; 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 (DEFMACRO DUMP-FOP ...) ; 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 FASL-DUMP-COLD-LOAD-FORM ...) ; compiling (DEFUN FASL-WRITE-STRING ...) ; 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 ...) ; 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 OCTET-SWAP ...) ; compiling (DEFUN DUMP-I-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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/dump.lisp ; 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 BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!FASL::CIRCULARITY ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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::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) ; (SB!FASL::VALID-STRUCTURES (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 BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!FASL:FASL-OUTPUT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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-VECTOR ; (SB!FASL::DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION ; SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR ; (SB!FASL::DUMP-COMPLEX-SINGLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION ; SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-COMPLEX-SINGLE-FLOAT-VECTOR ; (SB!FASL::DUMP-DOUBLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-DOUBLE-FLOAT-VECTOR ; 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-I-VECTOR ; (SB!FASL::DUMP-RAW-BYTES SB!FASL::VEC SB!SYS:BYTES 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-PACKAGE ; (SB!FASL::DUMP-SIMPLE-CHARACTER-STRING ; (COERCE (PACKAGE-NAME SB!FASL::PKG) '(SIMPLE-ARRAY CHARACTER (*))) ; SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-SIMPLE-CHARACTER-STRING ; in: DEFUN DUMP-VECTOR ; (SB!FASL::DUMP-SINGLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-SINGLE-FLOAT-VECTOR ; 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!INT:FORMAT-UNIVERSAL-TIME NIL (GET-UNIVERSAL-TIME)) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-UNIVERSAL-TIME ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!C::DEBUG-INFO-FOR-COMPONENT SB!C::DEBUG-SOURCE-FOR-INFO DUMP-CHARACTERS-OF-STRING DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR DUMP-COMPLEX-SINGLE-FLOAT-VECTOR DUMP-DOUBLE-FLOAT-VECTOR DUMP-MULTI-DIM-ARRAY DUMP-RAW-BYTES DUMP-SIMPLE-CHARACTER-STRING DUMP-SINGLE-FLOAT-VECTOR FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION FORMAT-UNIVERSAL-TIME ; ; compilation unit finished ; caught 20 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/dump.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/main.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *CONSTANTS* ...)) ; compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-FUNCTION* ...) ; compiling (DEFVAR *CHECK-CONSISTENCY* ...) ; compiling (DEFVAR *ALL-COMPONENTS*) ; 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 *FOPCOMPILE-LABEL-COUNTER*) ; compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...) ; compiling (DEFVAR *SOURCE-PLIST* ...) ; compiling (DEFUN %WITH-COMPILATION-UNIT ...) ; compiling (DEFUN FUN-NAME-RESERVED-BY-ANSI-P ...) ; compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...) ; 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 CLEAR-STUFF ...) ; compiling (DEFUN DESCRIBE-COMPONENT ...) ; compiling (DEFUN DESCRIBE-IR2-COMPONENT ...) ; compiling (DEF!STRUCT (FILE-INFO #) ...) ; compiling (DEF!STRUCT (SOURCE-INFO # ...) ...) ; compiling (DEFUN MAKE-FILE-SOURCE-INFO ...) ; compiling (DEFUN MAKE-LISP-SOURCE-INFO ...) ; compiling (DEFUN MAKE-STREAM-SOURCE-INFO ...) ; compiling (DEFUN READ-FOR-COMPILE-FILE ...) ; compiling (DEFUN GET-SOURCE-STREAM ...) ; compiling (DEFUN CLOSE-SOURCE-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 PROCESS-TOPLEVEL-COLD-FSET ...) ; compiling (DEFUN NOTE-TOP-LEVEL-FORM ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 DOLIST BLOCK LET IF ; --> SB!IMPL::SIGNAL-BOUNDING-INDICES-BAD-ERROR ; ==> ; SB!C::START ; ; note: deleting unreachable code ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: ; DEF!STRUCT (SOURCE-INFO ; (:PRINT-OBJECT (LAMBDA (S STREAM) (PRINT-UNREADABLE-OBJECT #))) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::SOURCE-INFO ; (:PRINT-OBJECT (LAMBDA (SB!C::S STREAM) (PRINT-UNREADABLE-OBJECT #))) ; (:COPIER NIL)) ; (SB!C::START-TIME (GET-UNIVERSAL-TIME) :TYPE UNSIGNED-BYTE) ; (SB!C::FILE-INFO NIL :TYPE (OR SB!C::FILE-INFO NULL)) ; (STREAM NIL :TYPE (OR STREAM NULL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::SOURCE-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEF!STRUCT (FILE-INFO (:COPIER NIL)) ; (SB!INT:DEF!STRUCT (SB!C::FILE-INFO (:COPIER NIL)) ; (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE ; (OR PATHNAME (MEMBER :LISP :STREAM))) ; (SB!C::EXTERNAL-FORMAT NIL) ; (SB!C::UNTRUENAME NIL :TYPE (OR PATHNAME NULL)) ; (SB!C::WRITE-DATE NIL :TYPE (OR UNSIGNED-BYTE NULL)) ; (SB!C::SOURCE-ROOT 0 :TYPE UNSIGNED-BYTE) ; (SB!C::FORMS (MAKE-ARRAY 10 :FILL-POINTER 0 :ADJUSTABLE T) ; :TYPE (VECTOR T)) ; (SB!C::POSITIONS ; (MAKE-ARRAY 10 :FILL-POINTER 0 :ADJUSTABLE T) :TYPE ; (VECTOR T))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::FILE-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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-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 #:G1382 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; ; caught STYLE-WARNING: ; 61 more uses of undefined type COMPILER-ERROR-CONTEXT ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!C::CLEAR-STUFF) ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET ((SB!C::OBJECT SB!C::*COMPILE-OBJECT*)) ; (ETYPECASE SB!C::OBJECT ; (SB!FASL:FASL-OUTPUT #) ; (SB!C::CORE-OBJECT #) ; (NULL))) ; NIL)) ; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS ; ==> ; #'SB!C::COMPILER-ERROR-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-HANDLER ; in: DEFUN COMPILE-LOAD-TIME-STUFF ; (SB!C::WITH-IR1-NAMESPACE ; (LET* ((SB!C:*LEXENV* (SB!KERNEL:MAKE-NULL-LEXENV)) ; (LAMBDA ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* ; SB!C::FOR-VALUE))) ; (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T) ; LAMBDA)) ; --> LET HANDLER-BIND LET 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: ; 5 more uses of undefined function COMPILER-MUMBLE ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/main.lisp ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL (SB!C::CLEAR-STUFF) ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET ((SB!C::OBJECT SB!C::*COMPILE-OBJECT*)) ; (ETYPECASE SB!C::OBJECT ; (SB!FASL:FASL-OUTPUT #) ; (SB!C::CORE-OBJECT #) ; (NULL))) ; NIL)) ; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS ; ==> ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; in: DEFUN COMPILE-LOAD-TIME-STUFF ; (SB!C::WITH-IR1-NAMESPACE ; (LET* ((SB!C:*LEXENV* (SB!KERNEL:MAKE-NULL-LEXENV)) ; (LAMBDA ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* ; SB!C::FOR-VALUE))) ; (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T) ; LAMBDA)) ; --> LET HANDLER-BIND LET 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!C::CLEAR-STUFF) ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET ((SB!C::OBJECT SB!C::*COMPILE-OBJECT*)) ; (ETYPECASE SB!C::OBJECT ; (SB!FASL:FASL-OUTPUT #) ; (SB!C::CORE-OBJECT #) ; (NULL))) ; NIL)) ; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS ; ==> ; #'SB!C::COMPILER-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARNING-HANDLER ; in: DEFUN COMPILE-LOAD-TIME-STUFF ; (SB!C::WITH-IR1-NAMESPACE ; (LET* ((SB!C:*LEXENV* (SB!KERNEL:MAKE-NULL-LEXENV)) ; (LAMBDA ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* ; SB!C::FOR-VALUE))) ; (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T) ; LAMBDA)) ; --> LET HANDLER-BIND LET 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 PROCESS-TOPLEVEL-FORM => DEFAULT-PROCESSOR (FORM) ; (SB!INT:EVAL-IN-LEXENV SB!KERNEL:FORM SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: EVAL-IN-LEXENV ; in: DEFUN PROCESS-TOPLEVEL-COLD-FSET ; (SB!FASL:FASL-DUMP-COLD-FSET SB!C::NAME ; (SB!C::%COMPILE SB!C::LAMBDA-EXPRESSION ; SB!C::*COMPILE-OBJECT* :NAME ; SB!C::NAME :PATH SB!C::PATH) ; SB!C::*COMPILE-OBJECT*) ; ; caught STYLE-WARNING: ; undefined function: FASL-DUMP-COLD-FSET ; 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-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-IDX) ; ; caught STYLE-WARNING: ; undefined function: FIND-SOURCE-PATHS ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::FOPCOMPILABLE-P SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILABLE-P ; (SB!C::FOPCOMPILE SB!KERNEL:FORM SB!C::PATH NIL) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILE ; 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 %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::LOCALL-FUN) ; :SOURCE-NAME (OR SB!C::NAME 'SB!C::.ANONYMOUS.) ; :DEBUG-NAME SB!C::DEBUG-NAME) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA ; #'SB!C::IR1-CONVERT-LAMBDALIKE ; ; 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) ; ; 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 ; 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 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::TRACE-TABLE 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 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 ; 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::LOCALL-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 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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!C::PACK SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: 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 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 ; (SB!C::STACK-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: STACK-ANALYZE ; ; caught STYLE-WARNING: ; These functions are undefined: ; %EVENT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 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-IN-LEXENV FASL-DUMP-COLD-FSET FIND-DFO FIND-DOMINATORS FIND-INITIAL-DFO FIND-SOURCE-PATHS FOPCOMPILABLE-P FOPCOMPILE FORMAT-UNIVERSAL-TIME FUNCALL-IN-MACROLET-LEXENV FUNCALL-IN-SYMBOL-MACROLET-LEXENV GENERATE-CODE GENERATE-TYPE-CHECKS GTN-ANALYZE INIT-ASSEMBLER IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDALIKE IR1-FINALIZE IR1-OPTIMIZE IR1-TOPLEVEL IR2-CONVERT LABEL-ID LAMBDA-COMPONENT LIFETIME-ANALYZE LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE LOCALL-ANALYZE-COMPONENT LOOP-ANALYZE LTN-ANALYZE MAKE-CORE-COMPONENT MAKE-EMPTY-COMPONENT MAKE-LEXENV SB-XC:MAKE-LOAD-FORM MAKE-XEP-LAMBDA-EXPRESSION MERGE-TOPLEVEL-LAMBDAS NODE-COMPONENT NOTE-UNDEFINED-REFERENCE PACK PHYSENV-ANALYZE PRE-PACK-TN-STATS PRE-PHYSENV-ANALYZE-TOPLEVEL PRINT-ALL-BLOCKS PRINT-IR2-BLOCKS PROCESS-DECLS RECORD-COMPONENT-XREFS REPLACE-TOPLEVEL-XEPS RETRY-DELAYED-IR1-TRANSFORMS SELECT-REPRESENTATIONS STACK-ANALYZE ; ; caught STYLE-WARNING: ; This type is undefined: ; COMPILER-ERROR-CONTEXT ; ; compilation unit finished ; caught 95 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/main.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/xref.lisp" (written 05 DEC 2006 04:35:57 AM): ; 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 PACK-XREF-DATA ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; (SB!C::NODE-HOME-LAMBDA SB!C::REF) ; ; caught STYLE-WARNING: ; undefined function: NODE-HOME-LAMBDA ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; BLOCK-HOME-LAMBDA NODE-HOME-LAMBDA SOURCE-PATH-ORIGINAL-SOURCE ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/xref.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/source-location.lisp" (written 06 NOV 2005 08:40:31 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION #) ...) ; compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...) ; compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...) ; compiling (/SHOW0 "/Processing source location thunks") ; compiling (DOLIST (FUN *SOURCE-LOCATION-THUNKS*) ...) ; compiling (MAKUNBOUND (QUOTE *SOURCE-LOCATION-THUNKS*)) ; compiling (/SHOW0 "/Done with source location thunks") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/source-location.lisp ; in: ; DEF!STRUCT (DEFINITION-SOURCE-LOCATION ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!INT:DEF!STRUCT ; (SB!C:DEFINITION-SOURCE-LOCATION ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)) ; (NAMESTRING ; (WHEN (AND (BOUNDP 'SB!C::*SOURCE-INFO*) SB!C::*SOURCE-INFO*) ; (SB!C::MAKE-FILE-INFO-NAMESTRING *COMPILE-FILE-PATHNAME* ; (SB!C::SOURCE-INFO-FILE-INFO ; SB!C::*SOURCE-INFO*))) ; :TYPE (OR STRING NULL)) ; (SB!C::TOPLEVEL-FORM-NUMBER ; (WHEN (BOUNDP 'SB!C::*CURRENT-PATH*) ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*)) ; :TYPE (OR FIXNUM NULL)) ; (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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 'SB!C:DEFINITION-SOURCE-LOCATION "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SOURCE-PATH-TLF-NUMBER ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/source-location.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target-main.lisp" (written 13 SEP 2006 04:59:33 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN GET-LAMBDA-TO-COMPILE ...) ; compiling (DEFUN ACTUALLY-COMPILE ...) ; compiling (DEFUN COMPILE-IN-LEXENV ...) ; compiling (DEFUN COMPILE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target-main.lisp ; in: DEFUN ACTUALLY-COMPILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (LET* ((SB!INT:*INFO-ENVIRONMENT* ; SB!INT:*INFO-ENVIRONMENT*) ; (SB!KERNEL:FORM #) ; (SB!C::*SOURCE-INFO* #) ; (SB!C::*TOPLEVEL-LAMBDAS* NIL) ; (SB!C::*BLOCK-COMPILE* NIL) ; (SB!C::*ALLOW-INSTRUMENTING* NIL) ; (SB!C::*COMPILER-ERROR-BAILOUT* #) ; (SB!C::*CURRENT-PATH* NIL) ; (SB!C::*LAST-SOURCE-CONTEXT* NIL) ; (SB!C::*LAST-ORIGINAL-SOURCE* NIL) ; (SB!C::*LAST-SOURCE-FORM* NIL) ; (SB!C::*LAST-FORMAT-STRING* NIL) ; ...) ; (HANDLER-BIND (#) (SB!C::CLEAR-STUFF) ; (SB!C::FIND-SOURCE-PATHS ; SB!KERNEL:FORM 0) ; (SB!C::%COMPILE SB!KERNEL:FORM ; # :NAME ; SB!C::NAME ; :PATH '#))))) ; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS ; ==> ; #'SB!C::COMPILER-ERROR-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-HANDLER ; (SB!C::COMPILER-MUMBLE "~2&fatal error, aborting compilation~%") ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (LET* ((SB!INT:*INFO-ENVIRONMENT* ; SB!INT:*INFO-ENVIRONMENT*) ; (SB!KERNEL:FORM #) ; (SB!C::*SOURCE-INFO* #) ; (SB!C::*TOPLEVEL-LAMBDAS* NIL) ; (SB!C::*BLOCK-COMPILE* NIL) ; (SB!C::*ALLOW-INSTRUMENTING* NIL) ; (SB!C::*COMPILER-ERROR-BAILOUT* #) ; (SB!C::*CURRENT-PATH* NIL) ; (SB!C::*LAST-SOURCE-CONTEXT* NIL) ; (SB!C::*LAST-ORIGINAL-SOURCE* NIL) ; (SB!C::*LAST-SOURCE-FORM* NIL) ; (SB!C::*LAST-FORMAT-STRING* NIL) ; ...) ; (HANDLER-BIND (#) (SB!C::CLEAR-STUFF) ; (SB!C::FIND-SOURCE-PATHS ; SB!KERNEL:FORM 0) ; (SB!C::%COMPILE SB!KERNEL:FORM ; # :NAME ; SB!C::NAME ; :PATH '#))))) ; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND LET CONS LIST CONS ; ==> ; #'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 0) ; ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; COMPILER-ERROR-HANDLER COMPILER-MUMBLE COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER FIND-SOURCE-PATHS SB!EVAL:PREPARE-FOR-COMPILE ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target-main.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1tran.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*)) ; compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*)) ; compiling (DEFVAR *SOURCE-PATHS*) ; 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 (DEFUN FIND-GLOBAL-FUN ...) ; compiling (DEFUN INVALID-FREE-FUN-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-FREE-FUN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-LEXICALLY-APPARENT-FUN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-FREE-VAR ...) ; compiling (DEF!CONSTANT LIST-TO-HASH-TABLE-THRESHOLD ...) ; 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 USE-LVAR ...) ; compiling (DECLAIM (INLINE USE-CONTINUATION)) ; compiling (DEFUN USE-CONTINUATION ...) ; compiling (DEFUN IR1-TOPLEVEL ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *CURRENT-FORM-NUMBER*) ; 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 IR1-CONVERT-VAR ...) ; compiling (DEFUN FIND-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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 STEP-FORM-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-CONVERT-COMBINATION ...) ; compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...) ; compiling (DEFUN IR1-CONVERT-SRCTRAN ...) ; 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-DX-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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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-FUNCTIONAL-LIVE-P SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: ASSURE-FUNCTIONAL-LIVE-P ; 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!IMPL::BACKQ-CONS 'VALUES SB!C::TYPES))) ; ; 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-CONSTANT ; (DEFUN SB!C::REFERENCE-CONSTANT ; (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE) ; (DECLARE (TYPE SB!C::CTRAN SB!C::START SB!C::NEXT) ; (TYPE (OR SB!C::LVAR NULL) SB!C::RESULT) (INLINE SB!C::FIND-CONSTANT)) ; (SB!C::IR1-ERROR-BAILOUT (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE) ; (WHEN (SB!C::PRODUCING-FASL-FILE) ; (SB!C::MAYBE-EMIT-MAKE-LOAD-FORMS SB!C::VALUE)) ; (LET* ((SB!C::LEAF #) (SB!C::RES #)) ; (PUSH SB!C::RES (SB!C::LEAF-REFS SB!C::LEAF)) ; (SB!C::LINK-NODE-TO-PREVIOUS-CTRAN SB!C::RES SB!C::START) ; (SB!C::USE-CONTINUATION SB!C::RES SB!C::NEXT SB!C::RESULT))) ; (VALUES)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!C::REFERENCE-CONSTANT ; (LAMBDA (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE) ; (DECLARE (TYPE SB!C::CTRAN SB!C::START SB!C::NEXT) ; (TYPE (OR SB!C::LVAR NULL) SB!C::RESULT) ; (INLINE SB!C::FIND-CONSTANT)) ; (BLOCK SB!C::REFERENCE-CONSTANT ; (SB!C::IR1-ERROR-BAILOUT ; (SB!C::START SB!C::NEXT SB!C::RESULT SB!C::VALUE) ; (WHEN # #) ; (LET* # ; # ; # ; #)) ; (VALUES)))) ; ; caught STYLE-WARNING: ; undefined function: FIND-CONSTANT ; in: DEFUN IR1-CONVERT-COMMON-FUNCTOID ; (SB!C::IR1-CONVERT-LAMBDA SB!C::OP :DEBUG-NAME ; (SB!C::DEBUG-NAME 'SB!C::INLINE-LAMBDA SB!C::OP)) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA ; 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 REFERENCE-LEAF ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN MAYBE-REANALYZE-FUNCTIONAL ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN INVALID-FREE-FUN-P ; (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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 USE-LVAR ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ; (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE T) ; ; caught STYLE-WARNING: ; undefined function: VALIDATE-CALL-TYPE ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSURE-FUNCTIONAL-LIVE-P COMPILER-SPECIFIER-TYPE COMPILER-VALUES-SPECIFIER-TYPE CTRAN-HOME-LAMBDA-OR-NULL FIND-CONSTANT IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDA-BODY LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE REOPTIMIZE-LVAR VALIDATE-CALL-TYPE ; ; compilation unit finished ; caught 24 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ir1tran.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1tran-lambda.lisp" (written 17 SEP 2006 03:26:42 AM): ; 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 IR1-CONVERT-LAMBDALIKE ...) ; compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...) ; compiling (DEFUN GET-DEFINED-FUN ...) ; compiling (DEFUN ASSERT-NEW-DEFINITION ...) ; compiling (DEFUN IR1-CONVERT-INLINE-EXPANSION ...) ; compiling (DEFUN %COMPILER-DEFUN ...) ; compiling (DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1tran-lambda.lisp ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF ; ; compilation unit finished ; caught 12 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1-translators.lisp" (written 26 OCT 2006 12:37:57 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF-IR1-TRANSLATOR PROGN ...) ; compiling (DEF-IR1-TRANSLATOR IF ...) ; compiling (DEF-IR1-TRANSLATOR BLOCK ...) ; compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR RETURN-FROM ; (SB!C:DEF-IR1-TRANSLATOR RETURN-FROM ; ((SB!C::NAME &OPTIONAL SB!C::VALUE) SB!C::START ; SB!C::NEXT SB!C::RESULT) ; "RETURN-FROM block-name value-form ; ; Evaluate the VALUE-FORM, returning its values from the lexically enclosing ; block BLOCK-NAME. This is constrained to be used only within the dynamic ; extent of the block." ; (DECLARE (IGNORE SB!C::RESULT)) ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; (LET* ((SB!C::FOUND (OR # #)) ; (SB!C::EXIT-CTRAN (SECOND SB!C::FOUND)) ; (SB!C::VALUE-CTRAN (SB!C::MAKE-CTRAN)) ; (SB!C::VALUE-LVAR (SB!C::MAKE-LVAR)) ; (SB!C::ENTRY (FIRST SB!C::FOUND)) ; (SB!C::EXIT ; (SB!C::MAKE-EXIT :ENTRY SB!C::ENTRY :VALUE ; SB!C::VALUE-LVAR))) ; (WHEN (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN) ; (THROW 'SB!C::LOCALL-ALREADY-LET-CONVERTED ; SB!C::EXIT-CTRAN)) ; (PUSH SB!C::EXIT (SB!C::ENTRY-EXITS SB!C::ENTRY)) ; (SETF (SB!C::LVAR-DEST SB!C::VALUE-LVAR) ; SB!C::EXIT) ; (SB!C::IR1-CONVERT SB!C::START SB!C::VALUE-CTRAN ; SB!C::VALUE-LVAR SB!C::VALUE) ; (SB!C::LINK-NODE-TO-PREVIOUS-CTRAN SB!C::EXIT ; SB!C::VALUE-CTRAN) ; (LET ((SB!C::HOME-LAMBDA #)) ; (WHEN SB!C::HOME-LAMBDA (PUSH SB!C::ENTRY #))) ; (SB!C::USE-CONTINUATION SB!C::EXIT ; SB!C::EXIT-CTRAN ; (THIRD SB!C::FOUND)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* ; ==> ; (LET* ((SB!C::NAME (CAR (CDR #:WHOLE-VAR-177))) ; (SB!C::VALUE (IF (NOT #) (CAR #) NIL))) ; (DECLARE (IGNORE SB!C::RESULT)) ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; (LET* ((SB!C::FOUND (OR # #)) ; (SB!C::EXIT-CTRAN (SECOND SB!C::FOUND)) ; (SB!C::VALUE-CTRAN (SB!C::MAKE-CTRAN)) ; (SB!C::VALUE-LVAR (SB!C::MAKE-LVAR)) ; (SB!C::ENTRY (FIRST SB!C::FOUND)) ; (SB!C::EXIT ; (SB!C::MAKE-EXIT :ENTRY SB!C::ENTRY :VALUE SB!C::VALUE-LVAR))) ; (WHEN (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN) ; (THROW 'SB!C::LOCALL-ALREADY-LET-CONVERTED SB!C::EXIT-CTRAN)) ; (PUSH SB!C::EXIT (SB!C::ENTRY-EXITS SB!C::ENTRY)) ; (SETF (SB!C::LVAR-DEST SB!C::VALUE-LVAR) SB!C::EXIT) ; (SB!C::IR1-CONVERT SB!C::START SB!C::VALUE-CTRAN SB!C::VALUE-LVAR ; SB!C::VALUE) ; (SB!C::LINK-NODE-TO-PREVIOUS-CTRAN SB!C::EXIT SB!C::VALUE-CTRAN) ; (LET ((SB!C::HOME-LAMBDA #)) ; (WHEN SB!C::HOME-LAMBDA (PUSH SB!C::ENTRY #))) ; (SB!C::USE-CONTINUATION SB!C::EXIT SB!C::EXIT-CTRAN (THIRD SB!C::FOUND)))) ; ; caught STYLE-WARNING: ; declaring unknown variable RESULT to be ignored ; 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-LAMBDALIKE ...) ; compiling (DEFUN FUN-NAME-LEAF ...) ; compiling (DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ...) ; compiling (DEFMACRO WITH-FUN-NAME-LEAF ...) ; compiling (DEF-IR1-TRANSLATOR FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 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 (DEFTRANSFORM FUNCALL ...) ; compiling (DEF-IR1-TRANSLATOR %FUNCALL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR %FUNCALL ; (SECOND FUNCTION) ; --> CADR CAR CDR ; ==> ; FUNCTION ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...) ; compiling (DEFTRANSFORM %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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR TRULY-THE ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; in: DEFUN THE-IN-POLICY ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR TRULY-THE ; (SB!C::DERIVE-NODE-TYPE SB!C::USE TYPE) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; (SB!C::FIND-USES SB!C::RESULT) ; ; caught STYLE-WARNING: ; undefined function: FIND-USES ; in: DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ; (SB!C:DEFTRANSFORM SB!KERNEL:%COERCE-CALLABLE-TO-FUN ; ((SB!C::THING) (FUNCTION) *) ; "optimize away possible call to FDEFINITION at runtime" ; 'SB!C::THING) ; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET UNLESS COND 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!IMPL::BACKQ-LIST 'LAMBDA ; (SB!IMPL::BACKQ-CONS 'FUNCTION ; SB!C::ARG-NAMES) ; (SB!IMPL::BACKQ-LIST* ; 'SB!C::%FUNCALL ; (IF # 'FUNCTION '#) ; SB!C::ARG-NAMES)))) ; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET UNLESS COND IF PROGN ; ==> ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; 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: DEFTRANSFORM FUNCALL ; (SB!C::LVAR-TYPE FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; COMPILER-VALUES-SPECIFIER-TYPE CTRAN-DELETED-P CTRAN-HOME-LAMBDA-OR-NULL CTRAN-STARTS-BLOCK DERIVE-NODE-TYPE FIND-USES GIVE-UP-IR1-TRANSFORM LINK-BLOCKS LVAR-TYPE MAKE-CAST MAKE-LEXENV MAKE-RESTRICTED-LEXENV NODE-DEST START-BLOCK SUBSTITUTE-LEAF ; ; compilation unit finished ; caught 29 STYLE-WARNING conditions ; printed 4 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ir1-translators.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1util.lisp" (written 13 SEP 2006 04:59:33 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NODE-ENCLOSING-CLEANUP ...) ; compiling (DEFUN INSERT-CLEANUP-CODE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-USES ...) ; compiling (DEFUN PRINCIPAL-LVAR-USE ...) ; 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 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)) ; compiling (DEFUN NODE-BLOCK ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NODE-COMPONENT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NODE-PHYSENV ...) ; compiling (DECLAIM (INLINE NODE-DEST)) ; compiling (DEFUN NODE-DEST ...) ; compiling (DECLAIM (INLINE NODE-STACK-ALLOCATE-P)) ; compiling (DEFUN NODE-STACK-ALLOCATE-P ...) ; 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 NODE-SOURCE-FORM ...) ; compiling (DEFUN LVAR-SOURCE ...) ; compiling (DECLAIM (INLINE LVAR-USE)) ; compiling (DEFUN LVAR-USE ...) ; compiling (DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P)) ; 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 DELETE-REF ...) ; 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 (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 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 COMBINATION-FUN-SOURCE-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 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 CHANGE-REF-LEAF ; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::VLTYPE) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN NOTE-BLOCK-DELETION ; (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 EXTRACT-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: DEFFROB (BASIC CAREFUL COMPILER TRANSFORM) ; #'SB!C::GIVE-UP-IR1-TRANSFORM ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN EXTRACT-FUN-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; 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 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-DEST ; (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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; 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 ; ; compilation unit finished ; caught 28 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ir1util.lisp-obj-tmp written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1report.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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 (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 (DEFMACRO 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1report.lisp ; in: DEFUN MAYBE-COMPILER-NOTIFY ; (DEFUN SB!C:MAYBE-COMPILER-NOTIFY (&REST REST) ; (IF (BOUNDP 'SB!C:*LEXENV*) (APPLY #'SB!C:COMPILER-NOTIFY REST) ; (SB!C::WITH-CONDITION (CONDITION (CAR REST) (CDR REST)) ; (LET (#) ; (PPRINT-LOGICAL-BLOCK # # #) ; (FRESH-LINE STREAM))))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!C:MAYBE-COMPILER-NOTIFY ; (LAMBDA (&REST REST) ; (BLOCK SB!C:MAYBE-COMPILER-NOTIFY ; (IF (BOUNDP 'SB!C:*LEXENV*) ; (APPLY #'SB!C:COMPILER-NOTIFY REST) ; (SB!C::WITH-CONDITION # #))))) ; ; caught STYLE-WARNING: ; The definition has zero fixed args, but proclamation has one. ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::COMPILER-ERROR-CONTEXT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN MAYBE-COMPILER-NOTIFY ; (SB!C::WITH-CONDITION (CONDITION (CAR REST) (CDR REST)) ; (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 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 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 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 function: COERCE-TO-CONDITION ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED COERCE-TO-CONDITION ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ir1report.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1opt.lisp" (written 02 OCT 2006 12:34:30 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN CONSTANT-LVAR-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LVAR-VALUE ...) ; compiling (DECLAIM (INLINE LVAR-DERIVED-TYPE)) ; compiling (DEFUN LVAR-DERIVED-TYPE ...) ; compiling (DEFUN %LVAR-DERIVED-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LVAR-TYPE ...) ; 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)) ; compiling (DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ...) ; compiling (DECLAIM (INLINE REOPTIMIZE-COMPONENT)) ; 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 IR1-OPTIMIZE-IF ...) ; compiling (DEFUN CONVERT-IF-IF ...) ; compiling (DEFUN MAYBE-DELETE-EXIT ...) ; compiling (DEFUN CHECK-IMPORTANT-RESULT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-OPTIMIZE-COMBINATION ...) ; 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 IR1-OPTIMIZE-CAST ...) ; compiling (DEFTRANSFORM MAKE-SYMBOL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; CONVERT-CALL-IF-POSSIBLE LOCALL-ANALYZE-COMPONENT MAYBE-CONVERT-TAIL-LOCAL-CALL MAYBE-LET-CONVERT MERGE-TAIL-SETS PROPAGATE-TO-ARGS REOPTIMIZE-CALL ; ; compilation unit finished ; caught 12 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ir1opt.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/loop.lisp" (written 14 JUL 2005 07:57:00 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/loop.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir1final.lisp" (written 14 JUL 2005 07:56:59 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ir1final.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/array-tran.lisp" (written 19 NOV 2006 04:38:44 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP ...) ; compiling (DEFUN EXTRACT-UPGRADED-ELEMENT-TYPE ...) ; compiling (DEFUN EXTRACT-DECLARED-ELEMENT-TYPE ...) ; compiling (DEFUN ASSERT-NEW-VALUE-TYPE ...) ; compiling (DEFUN ASSERT-ARRAY-COMPLEX ...) ; compiling (DEFUN UNSUPPLIED-OR-NIL ...) ; compiling (DEFUN ASSERT-ARRAY-RANK ...) ; compiling (DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (AREF DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%ASET DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (HAIRY-DATA-VECTOR-REF DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (DATA-VECTOR-REF DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (DATA-VECTOR-SET DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (HAIRY-DATA-VECTOR-SET DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA 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 (DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (FILL-POINTER DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%SET-FILL-POINTER DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (VECTOR-PUSH DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (VECTOR-PUSH-EXTEND DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (VECTOR-POP DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM VECTOR ...) ; compiling (DEFTRANSFORM MAKE-STRING ...) ; compiling (DEFTRANSFORM MAKE-ARRAY ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/array-tran.lisp ; in: DEFTRANSFORM MAKE-ARRAY ; (SB!C::GIVE-UP-IR1-TRANSFORM "ELEMENT-TYPE not found in *SAETP*: ~S" ; SB!C::ELTYPE) ; ==> ; "ELEMENT-TYPE not found in *SAETP*: ~S" ; ; note: deleting unreachable code ; 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 (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 (DEFTRANSFORM %WITH-ARRAY-DATA ...) ; compiling (DEFINE-BIT-FROB SBIT ...) ; compiling (DEFINE-BIT-FROB BIT ...) ; compiling (DEFINE-FROB SVREF ...) ; compiling (DEFINE-FROB SCHAR ...) ; compiling (DEFINE-FROB CHAR ...) ; compiling (DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX ...) ; compiling (DEFTRANSFORM AREF ...) ; compiling (DEFTRANSFORM %ASET ...) ; 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) ...); ; compilation unit finished ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/array-tran.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/seqtran.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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 MEMBER) ; compiling (DEF MEMQ) ; compiling (DEF DELETE ...) ; compiling (DEF ASSOC ...) ; compiling (DEF MEMBER ...) ; compiling (DEFTRANSFORM DELETE-IF ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEFUN LVAR-FUN-IS ...) ; compiling (DEFUN CONSTANT-VALUE-OR-LOSE ...) ; compiling (DEF STRING< ...) ; compiling (DEF STRING> ...) ; compiling (DEF STRING<= ...) ; compiling (DEF STRING>= ...) ; compiling (DEF STRING= ...) ; compiling (DEF STRING/= ...) ; compiling (DEF STRING<* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/seqtran.lisp ; in: DEF (NAME LESSP EQUALP) ; 'SB!INT:INDEX ; ; note: deleting unreachable code ; 'CHAR> ; ; note: deleting unreachable code ; 'SB!C::END1 ; ; note: deleting unreachable code ; compiling (DEF STRING<=* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/seqtran.lisp ; in: DEF (NAME LESSP EQUALP) ; 'SB!INT:INDEX ; ; note: deleting unreachable code ; 'CHAR> ; ; note: deleting unreachable code ; compiling (DEF STRING>* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/seqtran.lisp ; in: DEF (NAME LESSP EQUALP) ; 'SB!INT:INDEX ; ; note: deleting unreachable code ; 'CHAR< ; ; note: deleting unreachable code ; 'SB!C::END1 ; ; note: deleting unreachable code ; compiling (DEF STRING>=* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/seqtran.lisp ; in: DEF (NAME LESSP EQUALP) ; 'SB!INT:INDEX ; ; note: deleting unreachable code ; 'CHAR< ; ; note: deleting unreachable code ; compiling (DEF STRING=* ...) ; compiling (DEF STRING/=* ...) ; compiling (DEF!CONSTANT VECTOR-DATA-BIT-OFFSET ...) ; compiling (DEFINE-REPLACE-TRANSFORMS) ; compiling (DEFINE-SUBSEQ-TRANSFORMS) ; compiling (DEFINE-COPY-SEQ-TRANSFORMS) ; compiling (DEFTRANSFORM SEARCH ...) ; compiling (DEFOPTIMIZER (CAR DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (CDR DERIVE-TYPE) ...) ; compiling (DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF ...) ; 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 (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 ...); ; compilation unit finished ; printed 10 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/seqtran.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/typetran.lisp" (written 21 DEC 2006 03:17:39 AM): ; 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 (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...) ; compiling (!DEFINE-STANDARD-TYPE-PREDICATES) ; compiling (DEFINE-SOURCE-TRANSFORM ATOM ...) ; compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...) ; 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 (DEFINE-SOURCE-TRANSFORM TYPEP ...) ; compiling (DEFOPTIMIZER (COERCE OPTIMIZER) ...) ; compiling (DEFTRANSFORM COERCE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/typetran.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-typetran.lisp" (written 09 JAN 2006 10:46:14 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-BYTE-29-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-SIGNED-BYTE-30-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-T-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 (DEFINE-TYPE-PREDICATE %STANDARD-CHAR-P ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/float-tran.lisp" (written 07 APR 2006 05:20:57 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 (DEFTRANSFORM RANDOM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/float-tran.lisp ; in: DEFTRANSFORM RANDOM ; 'SB!KERNEL:BIG-RANDOM-CHUNK ; ; note: deleting unreachable code ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/float-tran.lisp ; in: DEFTRANSFORM SCALE-FLOAT ; (SB!C::LVAR-TYPE SB!C::EX) ; ; note: deleting unreachable code ; '(COERCE (SB!KERNEL:%SCALBN (COERCE SB!C::F 'DOUBLE-FLOAT) SB!C::EX) ; 'SINGLE-FLOAT) ; ; note: deleting unreachable code ; compiling (DEFTRANSFORM SCALE-FLOAT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/float-tran.lisp ; in: DEFTRANSFORM SCALE-FLOAT ; (SB!C::LVAR-TYPE SB!C::EX) ; ; note: deleting unreachable code ; '(SB!KERNEL:%SCALBN SB!C::F SB!C::EX) ; ; note: deleting unreachable code ; compiling (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (SCALE-SINGLE-FLOAT DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (SCALE-DOUBLE-FLOAT DERIVE-TYPE) ...) ; compiling (FROB %SINGLE-FLOAT ...) ; compiling (FROB %DOUBLE-FLOAT ...) ; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...) ; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...) ; compiling (DOLIST (X #) ...) ; compiling (DOLIST (X #) ...) ; compiling (FROB <) ; compiling (FROB >) ; compiling (FROB =) ; 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 (DEFUN COMPLEX-FLOAT-TYPE ...) ; compiling (DEFUN FLOAT-OR-COMPLEX-FLOAT-TYPE ...) ; compiling (DEFUN DOMAIN-SUBTYPEP ...) ; compiling (DEFUN ELFUN-DERIVE-TYPE-SIMPLE ...) ; compiling (FROB EXP ...) ; compiling (FROB SINH ...) ; compiling (FROB TANH ...) ; compiling (FROB ASINH ...) ; compiling (FROB ASIN ...) ; compiling (FROB ACOS ...) ; compiling (FROB ACOSH ...) ; compiling (FROB ATANH ...) ; compiling (FROB SQRT ...) ; compiling (DEFUN SAFE-EXPT ...) ; compiling (DEFUN INTERVAL-EXPT-> ...) ; compiling (DEFUN INTERVAL-EXPT-< ...) ; compiling (DEFUN INTERVAL-EXPT ...) ; compiling (DEFUN FIXUP-INTERVAL-EXPT ...) ; compiling (DEFUN MERGED-INTERVAL-EXPT ...) ; compiling (DEFUN EXPT-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (EXPT DERIVE-TYPE) ...) ; compiling (DEFUN LOG-DERIVE-TYPE-AUX-1 ...) ; compiling (DEFUN LOG-DERIVE-TYPE-AUX-2 ...) ; compiling (DEFOPTIMIZER (LOG DERIVE-TYPE) ...) ; compiling (DEFUN ATAN-DERIVE-TYPE-AUX-1 ...) ; compiling (DEFUN ATAN-DERIVE-TYPE-AUX-2 ...) ; compiling (DEFOPTIMIZER (ATAN DERIVE-TYPE) ...) ; compiling (DEFUN COSH-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (COSH DERIVE-TYPE) ...) ; compiling (DEFUN PHASE-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (PHASE DERIVE-TYPE) ...) ; 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 (DEFOPTIMIZER (COMPLEX DERIVE-TYPE) ...) ; compiling (FROB SINGLE-FLOAT) ; compiling (FROB DOUBLE-FLOAT) ; compiling (DEFUN TRIG-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (SIN DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (COS DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (TAN DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (CONJUGATE DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (CIS DERIVE-TYPE) ...) ; compiling (DEFINE-FROBS TRUNCATE ...) ; compiling (DEFINE-FROBS ROUND ...) ; compiling (DEFTRANSFORM TRUNCATE ...) ; compiling (DEFTRANSFORM FLOOR ...) ; compiling (DEFTRANSFORM CEILING ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...) ; compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...) ; compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...) ; compiling (DEF SINGLE-FLOAT ...) ; compiling (DEF DOUBLE-FLOAT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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::FCN (IF SB!C::INCREASINGP SB!C::HIGH SB!C::LOW)) ; ; 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!INT:COLD-FSET 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)) ; ; 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!INT:COLD-FSET 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)) ; ; caught STYLE-WARNING: ; undefined function: BOUND-FUNC ; ; caught STYLE-WARNING: ; 2 more uses of undefined function BOUND-FUNC ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 FCN 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!INT:COLD-FSET BLOCK LET LET LET ; ==> ; (SB!C::ONE-ARG-DERIVE-TYPE #:G1593 ; (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!INT:COLD-FSET BLOCK LET LET ; --> LET ; ==> ; (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!INT:COLD-FSET BLOCK LET LET ; --> LET ; ==> ; (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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; /-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 ; ; compilation unit finished ; caught 42 STYLE-WARNING conditions ; printed 5 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/float-tran.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/saptran.lisp" (written 28 MAY 2006 03:35:44 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...) ; compiling (DEFKNOWN (SAP< SAP<= ...) ...) ; compiling (DEFKNOWN SAP+ ...) ; compiling (DEFKNOWN SAP- ...) ; compiling (DEFKNOWN SAP-INT ...) ; compiling (DEFKNOWN INT-SAP ...) ; compiling (DEFKNOWN SAP-REF-8 ...) ; compiling (DEFKNOWN %SET-SAP-REF-8 ...) ; compiling (DEFKNOWN SAP-REF-16 ...) ; compiling (DEFKNOWN %SET-SAP-REF-16 ...) ; compiling (DEFKNOWN SAP-REF-32 ...) ; compiling (DEFKNOWN %SET-SAP-REF-32 ...) ; compiling (DEFKNOWN SAP-REF-64 ...) ; compiling (DEFKNOWN %SET-SAP-REF-64 ...) ; compiling (DEFKNOWN SAP-REF-WORD ...) ; compiling (DEFKNOWN %SET-SAP-REF-WORD ...) ; compiling (DEFKNOWN SIGNED-SAP-REF-8 ...) ; compiling (DEFKNOWN %SET-SIGNED-SAP-REF-8 ...) ; compiling (DEFKNOWN SIGNED-SAP-REF-16 ...) ; compiling (DEFKNOWN %SET-SIGNED-SAP-REF-16 ...) ; compiling (DEFKNOWN SIGNED-SAP-REF-32 ...) ; compiling (DEFKNOWN %SET-SIGNED-SAP-REF-32 ...) ; compiling (DEFKNOWN SIGNED-SAP-REF-64 ...) ; compiling (DEFKNOWN %SET-SIGNED-SAP-REF-64 ...) ; compiling (DEFKNOWN SIGNED-SAP-REF-WORD ...) ; compiling (DEFKNOWN %SET-SIGNED-SAP-REF-WORD ...) ; compiling (DEFKNOWN SAP-REF-SAP ...) ; compiling (DEFKNOWN %SET-SAP-REF-SAP ...) ; compiling (DEFKNOWN SAP-REF-SINGLE ...) ; compiling (DEFKNOWN SAP-REF-DOUBLE ...) ; compiling (DEFKNOWN %SET-SAP-REF-SINGLE ...) ; compiling (DEFKNOWN %SET-SAP-REF-DOUBLE ...) ; 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-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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/saptran.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/srctran.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-SOURCE-TRANSFORM NOT ...) ; compiling (DEFINE-SOURCE-TRANSFORM NULL ...) ; compiling (DEFINE-SOURCE-TRANSFORM ENDP ...) ; compiling (DEFINE-SOURCE-TRANSFORM IDENTITY ...) ; compiling (DEFINE-SOURCE-TRANSFORM VALUES ...) ; compiling (DEFINE-SOURCE-TRANSFORM CONSTANTLY ...) ; compiling (DEFTRANSFORM COMPLEMENT ...) ; 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 FIRST ...) ; compiling (DEFINE-SOURCE-TRANSFORM REST ...) ; 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 (DEFINE-SOURCE-TRANSFORM LIST* ...) ; compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...) ; compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...) ; compiling (DEFINE-SOURCE-TRANSFORM NTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM 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 (DEFFROB FLOOR) ; compiling (DEFFROB CEILING) ; 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 ...) ; compiling (DEFMACRO SAFELY-BINOP ...) ; compiling (DEFMACRO BOUND-BINOP ...) ; 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 ...) ; compiling (DEFUN INTERVAL-SUB ...) ; compiling (DEFUN INTERVAL-MUL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFUN INTERVAL-DIV ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFUN INTERVAL-FUNC ...) ; 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 (DEFUN MAKE-CANONICAL-UNION-TYPE ...) ; compiling (DEFUN CONVERT-MEMBER-TYPE ...) ; compiling (DEFUN ONE-ARG-DERIVE-TYPE ...) ; compiling (DEFUN TWO-ARG-DERIVE-TYPE ...) ; compiling (DEFUN +-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (+ DERIVE-TYPE) ...) ; compiling (DEFUN --DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (- DERIVE-TYPE) ...) ; compiling (DEFUN *-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (* DERIVE-TYPE) ...) ; compiling (DEFUN /-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (/ DERIVE-TYPE) ...) ; compiling (DEFUN ASH-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (ASH DERIVE-TYPE) ...) ; compiling (DEFUN LOGNOT-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (LOGNOT DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%NEGATE DERIVE-TYPE) ...) ; compiling (DEFUN ABS-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (ABS DERIVE-TYPE) ...) ; compiling (DEFUN REM-RESULT-TYPE ...) ; compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT ...) ; compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM ...) ; compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT-AUX ...) ; compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM-AUX ...) ; compiling (DEFOPTIMIZER (TRUNCATE DERIVE-TYPE) ...) ; compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT ...) ; compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT-AUX ...) ; compiling (DEFOPTIMIZER (FTRUNCATE DERIVE-TYPE) ...) ; compiling (DEFUN %UNARY-TRUNCATE-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (%UNARY-TRUNCATE DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%UNARY-FTRUNCATE DERIVE-TYPE) ...) ; compiling (DEF FLOOR ...) ; compiling (DEF CEILING ...) ; compiling (DEF FFLOOR ...) ; compiling (DEF FCEILING ...) ; compiling (DEFUN FLOOR-QUOTIENT-BOUND ...) ; compiling (DEFUN FLOOR-REM-BOUND ...) ; compiling (DEFUN CEILING-QUOTIENT-BOUND ...) ; compiling (DEFUN CEILING-REM-BOUND ...) ; compiling (DEFUN TRUNCATE-QUOTIENT-BOUND ...) ; compiling (DEFUN TRUNCATE-REM-BOUND ...) ; compiling (DEFUN NUMERIC-RANGE-INFO ...) ; compiling (DEFUN INTEGER-TRUNCATE-DERIVE-TYPE ...) ; compiling (DEFUN RANDOM-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (RANDOM DERIVE-TYPE) ...) ; compiling (DEFUN INTEGER-TYPE-LENGTH ...) ; compiling (DEFUN LOGAND-DERIVE-UNSIGNED-LOW-BOUND ...) ; compiling (DEFUN LOGAND-DERIVE-UNSIGNED-HIGH-BOUND ...) ; compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...) ; compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-LOW-BOUND ...) ; compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-HIGH-BOUND ...) ; compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...) ; compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-LOW-BOUND ...) ; compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-HIGH-BOUND ...) ; 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) ...) ; compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ISQRT 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 MAKE-MODULAR-FUN-TYPE-DERIVER ...) ; compiling (DEFUN CUT-TO-WIDTH ...) ; compiling (DEFOPTIMIZER (LOGAND OPTIMIZER) ...) ; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER) ...) ; compiling (DEFTRANSFORM COMMUTATIVE-ARG-SWAP ...) ; compiling (DOLIST (X #) ...) ; compiling (DEFTRANSFORM BOOLE ...) ; compiling (DEFTRANSFORM * ...) ; compiling (FLET (#) ...) ; compiling (DEFTRANSFORM MOD ...) ; compiling (DEFTRANSFORM TRUNCATE ...) ; compiling (DEFTRANSFORM REM ...) ; compiling (DEF ASH ...) ; compiling (DEF LOGAND ...) ; compiling (DEF LOGAND ...) ; compiling (DEF LOGIOR ...) ; compiling (DEF LOGIOR ...) ; compiling (DEF LOGXOR ...) ; compiling (DEF LOGXOR ...) ; compiling (DEFTRANSFORM LOGAND ...) ; compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...) ; compiling (DEFTRANSFORM - ...) ; compiling (DEFTRANSFORM * ...) ; compiling (DEFUN NOT-MORE-CONTAGIOUS ...) ; compiling (DEFTRANSFORM + ...) ; compiling (DEFTRANSFORM - ...) ; compiling (DEF * ...) ; compiling (DEF / ...) ; compiling (DEF EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEF ASH) ; compiling (DEF /) ; compiling (DEF TRUNCATE) ; compiling (DEF ROUND) ; compiling (DEF FLOOR) ; compiling (DEF CEILING) ; compiling (DEFTRANSFORM 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 (DEFTRANSFORM EQL ...) ; compiling (DEFTRANSFORM EQUAL ...) ; compiling (DEFTRANSFORM = ...) ; compiling (DEFUN NUMERIC-TYPE-OR-LOSE ...) ; compiling (DEF < ...) ; compiling (DEF > ...) ; compiling (DEF <= ...) ; compiling (DEF >= ...) ; compiling (DEFUN IR1-TRANSFORM-CHAR< ...) ; compiling (DEFTRANSFORM CHAR< ...) ; compiling (DEFTRANSFORM CHAR> ...) ; compiling (DECLAIM (FTYPE # ...)) ; 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 (DECLAIM (FTYPE # ...)) ; compiling (DEFUN ASSOCIATE-ARGS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/srctran.lisp ; in: DEFUN ASSOCIATE-ARGS ; (DEFUN SB!C::ASSOCIATE-ARGS (FUNCTION SB!C::FIRST-ARG SB!C::MORE-ARGS) ; (LET ((SB!C::NEXT (REST SB!C::MORE-ARGS)) ; (SB!C::ARG (FIRST SB!C::MORE-ARGS))) ; (IF (NULL SB!C::NEXT) ; (SB!IMPL::BACKQ-LIST FUNCTION SB!C::FIRST-ARG SB!C::ARG) ; (SB!C::ASSOCIATE-ARGS FUNCTION ; (SB!IMPL::BACKQ-LIST FUNCTION SB!C::FIRST-ARG ; SB!C::ARG) ; SB!C::NEXT)))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!C::ASSOCIATE-ARGS ; (LAMBDA (FUNCTION SB!C::FIRST-ARG SB!C::MORE-ARGS) ; (BLOCK SB!C::ASSOCIATE-ARGS ; (LET (# #) ; (IF # # #))))) ; ; note: type assertion too complex to check: ; (VALUES &OPTIONAL LIST &REST T). ; compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/srctran.lisp ; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE ; (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (FUNCTION SB!C::ARGS SB!C::INVERSE) ; (CASE (LENGTH SB!C::ARGS) ; ((0 2) (VALUES NIL T)) ; (1 (SB!IMPL::BACKQ-APPEND SB!C::INVERSE (SB!IMPL::BACKQ-LIST #))) ; (T (SB!C::ASSOCIATE-ARGS FUNCTION (FIRST SB!C::ARGS) (REST SB!C::ARGS))))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (LAMBDA (FUNCTION SB!C::ARGS SB!C::INVERSE) ; (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (CASE (LENGTH SB!C::ARGS) (# #) (1 #) (T #))))) ; ; note: type assertion too complex to check: ; (VALUES LIST &OPTIONAL (MEMBER T NIL)). ; compiling (DEFINE-SOURCE-TRANSFORM - ...) ; compiling (DEFINE-SOURCE-TRANSFORM / ...) ; compiling (DEFINE-SOURCE-TRANSFORM APPLY ...) ; compiling (DEFUN CHECK-FORMAT-ARGS ...) ; compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...) ; compiling (DEFTRANSFORM FORMAT ...) ; compiling (DEFTRANSFORM FORMAT ...) ; compiling (DEFTRANSFORM FORMAT ...) ; compiling (DEFTRANSFORM PATHNAME ...) ; compiling (DEFTRANSFORM PATHNAME ...) ; compiling (DEF ERROR) ; compiling (DEF WARN) ; 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 POLICY-QUALITY ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: DEFSTRUCT INTERVAL ; (DEFSTRUCT (SB!C::INTERVAL (:CONSTRUCTOR SB!C::%MAKE-INTERVAL) (:COPIER NIL)) ; SB!C::LOW ; SB!C::HIGH) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::INTERVAL ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!FORMAT:%COMPILER-WALK-FORMAT-STRING ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 4 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/srctran.lisp-obj-tmp written ; compilation finished in 0:00:10 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-tran.lisp" (written 13 SEP 2006 04:59:33 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 %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 (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFTRANSFORM DATA-VECTOR-SET ...) ; 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 (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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/vm-tran.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/locall.lisp" (written 28 MAY 2006 05:16:09 AM): ; 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 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 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 MAYBE-LET-CONVERT ...) ; compiling (DEFUN ONLY-HARMLESS-CLEANUPS ...) ; compiling (DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL ...) ; compiling (DEFUN MAYBE-CONVERT-TO-ASSIGNMENT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/locall.lisp ; in: DEFUN INSERT-LET-BODY ; (SB!C::JOIN-COMPONENTS SB!C:COMPONENT SB!C::CLAMBDA-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: JOIN-COMPONENTS ; ; caught STYLE-WARNING: ; This function is undefined: ; JOIN-COMPONENTS ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/locall.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/dfo.lisp" (written 14 JUL 2005 07:52:38 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/dfo.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/checkgen.lisp" (written 14 JUL 2005 07:52:37 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FUN-GUESSED-COST ...) ; compiling (DEFUN TYPE-TEST-COST ...) ; 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 (DEFUN MAKE-TYPE-CHECK-FORM ...) ; compiling (DEFUN CONVERT-TYPE-CHECK ...) ; compiling (DEFUN CAST-CHECK-USES ...) ; compiling (DEFUN GENERATE-TYPE-CHECKS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/checkgen.lisp ; in: DEFUN MAYBE-NEGATE-CHECK ; #'SB!C::TYPE-CHECK-TEMPLATE ; ; 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 ; ; caught STYLE-WARNING: ; This function is undefined: ; TYPE-CHECK-TEMPLATE ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/checkgen.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/constraint.lisp" (written 28 MAR 2006 10:59:07 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFTYPE CONSTRAINT-Y ...) ; compiling (DEFSTRUCT (CONSTRAINT # ...) ...) ; compiling (DEFVAR *CONSTRAINT-NUMBER*) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFUN FIND-CONSTRAINT ...) ; compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...) ; compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR)) ; compiling (DEFUN OK-REF-LAMBDA-VAR ...) ; compiling (DEFUN OK-LVAR-LAMBDA-VAR ...) ; compiling (DEFMACRO DO-EQL-VARS ...) ; compiling (DEFUN ADD-TEST-CONSTRAINT ...) ; compiling (DEFUN ADD-COMPLEMENT-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 CONSTRAIN-REF-TYPE ...) ; compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...) ; compiling (DEFUN INHERIT-CONSTRAINTS ...) ; compiling (DEFUN ADD-EQL-VAR-VAR-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 CONSTRAIN-NODE ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/constraint.lisp ; in: DEFSTRUCT CONSTRAINT ; (DEFSTRUCT ; (SB!C::CONSTRAINT (:INCLUDE SB!ASSEM:SSET-ELEMENT) ; (:CONSTRUCTOR SB!C::MAKE-CONSTRAINT ; (NUMBER SB!C::KIND SB!C::X SB!C::Y SB!C::NOT-P)) ; (:COPIER NIL)) ; (SB!C::KIND NIL :TYPE (MEMBER TYPEP < > EQL)) ; (SB!C::X NIL :TYPE SB!C::LAMBDA-VAR) ; (SB!C::Y NIL :TYPE SB!C::CONSTRAINT-Y) ; (SB!C::NOT-P NIL :TYPE BOOLEAN)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::CONSTRAINT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This function is undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/constraint.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/physenvanal.lisp" (written 11 SEP 2005 08:27:43 AM): ; 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 (DECLAIM (INLINE SHOULD-EXIT-CHECK-TAG-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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/physenvanal.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/tn.lisp" (written 14 JUL 2005 07:57:02 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 DROP-THRU-P ...) ; compiling (DEFUN INSERT-VOP-SEQUENCE ...) ; compiling (DEFUN DELETE-VOP ...) ; compiling (DEFUN MAKE-N-TNS ...) ; compiling (DEFUN LOCATION= ...) ; compiling (DEFUN TN-VALUE ...) ; compiling (DEFUN FORCE-TN-TO-STACK ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/tn.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/life.lisp" (written 20 SEP 2006 03:50:40 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN ADD-GLOBAL-CONFLICT ...) ; compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...) ; compiling (DEFUN RESET-CURRENT-CONFLICT ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; note: deleting unreachable code ; compiling (DEFEVENT COALESCE-MORE-LTN-NUMBERS ...) ; compiling (DEFUN LIFETIME-PRE-PASS ...) ; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICT ...) ; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS ...) ; compiling (DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS ...) ; compiling (DEFUN CONVERT-TO-ENVIRONMENT-TN ...) ; compiling (DEFUN PROPAGATE-LIVE-TNS ...) ; 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 LIFETIME-ANALYZE ...) ; compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...) ; compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...) ; compiling (DEFUN TNS-CONFLICT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; ADD-TO-EMIT-ORDER ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/life.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/debug-info.lisp" (written 18 SEP 2006 09:09:13 PM): ; compiling (IN-PACKAGE "SB!C") ; 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 (DEFCONSTANT-EQX COMPILED-DEBUG-BLOCK-NSUCC-BYTE ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-BLOCK-ELSEWHERE-P ...) ; compiling (DEFCONSTANT-EQX COMPILED-CODE-LOCATION-KIND-BYTE ...) ; compiling (DEFPARAMETER *COMPILED-CODE-LOCATION-KINDS* ...) ; compiling (DEF!STRUCT (DEBUG-FUN #)) ; compiling (DEF!STRUCT (COMPILED-DEBUG-FUN # ...) ...) ; compiling (DEF!STRUCT (DEBUG-SOURCE #) ...) ; compiling (DEF!STRUCT DEBUG-INFO ...) ; compiling (DEF!STRUCT (COMPILED-DEBUG-INFO # ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/debug-info.lisp ; in: DEF!STRUCT (DEBUG-SOURCE (:PURE T)) ; (SB!INT:DEF!STRUCT (SB!C::DEBUG-SOURCE (:PURE T)) ; (SB!C::FROM (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :FILE :LISP)) ; (SB!C::NAME NIL) ; (SB!C::CREATED NIL :TYPE (OR UNSIGNED-BYTE NULL)) ; (SB!C::COMPILED (SB!INT:MISSING-ARG) :TYPE UNSIGNED-BYTE) ; (SB!C::SOURCE-ROOT 0 :TYPE SB!INT:INDEX) ; (SB!C::START-POSITIONS NIL :TYPE ; (OR (SIMPLE-ARRAY * (*)) NULL)) ; #'NIL (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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::DEBUG-SOURCE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::COMPILED-DEBUG-FUN ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::DEBUG-FUN ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; 2 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This function is undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/debug-info.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/debug-dump.lisp" (written 18 SEP 2006 09:09:13 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 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 DUMP-BLOCK-SUCCESSORS ...) ; compiling (DEFUN COMPUTE-DEBUG-BLOCKS ...) ; compiling (DEFUN DEBUG-SOURCE-FOR-INFO ...) ; compiling (DEFUN COERCE-TO-SMALLEST-ELTYPE ...) ; compiling (DEFUN TN-SC-OFFSET ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/debug-dump.lisp ; in: DEFSTRUCT LOCATION-INFO ; (DEFSTRUCT ; (SB!C::LOCATION-INFO ; (:CONSTRUCTOR SB!C::MAKE-LOCATION-INFO ; (SB!C::KIND SB!ASSEM:LABEL SB!C::VOP)) ; (:COPIER NIL)) ; (SB!C::KIND NIL :TYPE SB!C::LOCATION-KIND) ; (SB!ASSEM:LABEL NIL :TYPE (OR SB!ASSEM:LABEL SB!INT:INDEX NULL)) ; (SB!C::VOP NIL :TYPE SB!C::VOP)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::LOCATION-INFO ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN COMPUTE-DEBUG-BLOCKS ; (SB!C::LABEL-ELSEWHERE-P (SB!C::LOCATION-INFO-LABEL SB!C::LOC)) ; ; caught STYLE-WARNING: ; undefined function: LABEL-ELSEWHERE-P ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED LABEL-ELSEWHERE-P ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/debug-dump.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/utils.lisp" (written 14 JUL 2005 07:35:36 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN FIXNUMIZE ...) ; compiling (DEFUN STATIC-SYMBOL-P ...) ; compiling (DEFUN STATIC-SYMBOL-OFFSET ...) ; compiling (DEFUN OFFSET-STATIC-SYMBOL ...) ; compiling (DEFUN STATIC-FUN-OFFSET ...) ; compiling (DEFVAR *ADJUSTABLE-VECTORS* ...) ; compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/utils.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fopcompile.lisp" (written 29 OCT 2006 07:44:45 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; SB-XC:MAKE-LOAD-FORM ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/fopcompile.lisp-obj-tmp written ; compilation finished in 0:00:01 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/assembly/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/assembly/assemfile.lisp" (written 22 AUG 2006 04:48:56 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-VOP ...) ; compiling (DEF!MACRO DEFINE-ASSEMBLY-ROUTINE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/assembly/assemfile.lisp ; in: DEFSTRUCT REG-SPEC ; (DEFSTRUCT (SB!C::REG-SPEC (:COPIER NIL)) ; (SB!C::KIND :TEMP :TYPE (MEMBER :ARG :TEMP :RES)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (SB!C::TEMP NIL :TYPE SYMBOL) ; (SB!C::SCS NIL :TYPE (OR LIST SYMBOL)) ; (SB!C::OFFSET NIL)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::REG-SPEC ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFUN ASSEMBLE-FILE ; (SB!C::INIT-ASSEMBLER) ; ; caught STYLE-WARNING: ; undefined function: INIT-ASSEMBLER ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED INIT-ASSEMBLER ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/assembly/assemfile.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/late-vmdef.lisp" (written 14 JUL 2005 07:57:00 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NOTE-THIS-LOCATION ...) ; compiling (DEFUN NOTE-NEXT-INSTRUCTION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/late-vmdef.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/fixup.lisp" (written 14 JUL 2005 07:52:38 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFSTRUCT (FIXUP # ...) ...) ; compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...) ; compiling (DEFVAR *FIXUP-NOTES*) ; compiling (DEFUN NOTE-FIXUP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::FIXUP-NOTE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; 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 SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C:FIXUP ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This function is undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/fixup.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp" (written 21 FEB 2006 10:59:32 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN REG-TN-ENCODING ...) ; compiling (DEFUN FP-REG-TN-ENCODING ...) ; compiling (DEFVAR *DISASSEM-USE-LISP-REG-NAMES* ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE LOCATION-NUMBER ...) ; compiling (DEFPARAMETER REG-SYMBOLS ...) ; compiling (DEFUN MAYBE-ADD-NOTES ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...); ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF ; compiling (DEFPARAMETER FLOAT-REG-SYMBOLS ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE FP-REG ...); ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF ; compiling (DEFPARAMETER BO-KIND-NAMES ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE BO-FIELD ...) ; compiling (DEFUN VALID-BO-ENCODING ...); ; caught STYLE-WARNING: ; redefining VALID-BO-ENCODING in DEFUN ; compiling (DEFPARAMETER CR-BIT-NAMES ...) ; compiling (DEFPARAMETER CR-BIT-INVERSE-NAMES ...) ; compiling (DEFPARAMETER CR-FIELD-NAMES ...) ; compiling (DEFUN VALID-CR-BIT-ENCODING ...) ; compiling (DEFUN VALID-CR-FIELD-ENCODING ...) ; compiling (DEFUN VALID-BI-ENCODING ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE BI-FIELD ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE CRF ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE RELATIVE-LABEL ...) ; compiling (DEFPARAMETER TRAP-VALUES-ALIST ...) ; compiling (DEFUN VALID-TCOND-ENCODING ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE TO-FIELD ...) ; compiling (DEFUN SNARF-ERROR-JUNK ...) ; compiling (DEFUN EMIT-CONDITIONAL-BRANCH ...) ; compiling (DEFUN EMIT-I-FORM-BRANCH ...) ; compiling (DEFPARAMETER *SPR-NUMBERS-ALIST* ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SPR ...) ; compiling (DEFPARAMETER JUMP-PRINTER ...); ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-SHORT ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-I-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-B-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-SC-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-D-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-X-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-XFX-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-XFL-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-XO-FORM-INST ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-A-FORM-INST ...) ; compiling (DEFUN UNIMP-CONTROL ...) ; compiling (DEFINE-INSTRUCTION UNIMP ...) ; compiling (DEFINE-INSTRUCTION TWI ...) ; compiling (DEFINE-D-SI-INSTRUCTION MULLI ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFINE-D-SI-INSTRUCTION (NAME OP &KEY (FIXUP NIL) (COST 1) ...) ; (SB!C:FIXUP-OFFSET SB!VM::SI) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; SB!VM::SI ; ; note: deleting unreachable code ; (SETQ SB!VM::SI (OR (SB!C:FIXUP-OFFSET SB!VM::SI) 0)) ; ; note: deleting unreachable code ; compiling (DEFINE-D-SI-INSTRUCTION SUBFIC ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFINE-D-SI-INSTRUCTION (NAME OP &KEY (FIXUP NIL) (COST 1) ...) ; (SB!C:FIXUP-OFFSET SB!VM::SI) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; SB!VM::SI ; ; note: deleting unreachable code ; (SETQ SB!VM::SI (OR (SB!C:FIXUP-OFFSET SB!VM::SI) 0)) ; ; note: deleting unreachable code ; compiling (DEFINE-INSTRUCTION CMPLWI ...) ; compiling (DEFINE-INSTRUCTION CMPWI ...) ; compiling (DEFINE-D-SI-INSTRUCTION ADDIC ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFINE-D-SI-INSTRUCTION (NAME OP &KEY (FIXUP NIL) (COST 1) ...) ; (SB!C:FIXUP-OFFSET SB!VM::SI) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; SB!VM::SI ; ; note: deleting unreachable code ; (SETQ SB!VM::SI (OR (SB!C:FIXUP-OFFSET SB!VM::SI) 0)) ; ; note: deleting unreachable code ; compiling (DEFINE-D-SI-INSTRUCTION ADDIC. ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFINE-D-SI-INSTRUCTION (NAME OP &KEY (FIXUP NIL) (COST 1) ...) ; (SB!C:FIXUP-OFFSET SB!VM::SI) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; SB!VM::SI ; ; note: deleting unreachable code ; (SETQ SB!VM::SI (OR (SB!C:FIXUP-OFFSET SB!VM::SI) 0)) ; ; note: deleting unreachable code ; compiling (DEFINE-D-SI-INSTRUCTION ADDI ...) ; compiling (DEFINE-D-SI-INSTRUCTION ADDIS ...) ; compiling (DEFINE-INSTRUCTION BC ...) ; compiling (DEFINE-INSTRUCTION BCL ...) ; compiling (DEFINE-INSTRUCTION BCA ...) ; compiling (DEFINE-INSTRUCTION BCLA ...) ; compiling (DEFINE-INSTRUCTION BU ...) ; compiling (DEFINE-INSTRUCTION BT ...) ; compiling (DEFINE-INSTRUCTION BF ...) ; compiling (DEFINE-INSTRUCTION B? ...) ; compiling (DEFINE-INSTRUCTION SC ...) ; compiling (DEFINE-INSTRUCTION B ...) ; compiling (DEFINE-INSTRUCTION BA ...) ; compiling (DEFINE-INSTRUCTION BL ...) ; compiling (DEFINE-INSTRUCTION BLA ...) ; compiling (DEFINE-INSTRUCTION BLR ...) ; compiling (DEFINE-INSTRUCTION BCLR ...) ; compiling (DEFINE-INSTRUCTION BCLRL ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRNOR ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRANDC ...) ; compiling (DEFINE-INSTRUCTION ISYNC ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRXOR ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRNAND ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRAND ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CREQV ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CRORC ...) ; compiling (DEFINE-CRBIT-INSTRUCTION CROR ...) ; compiling (DEFINE-INSTRUCTION BCCTR ...) ; compiling (DEFINE-INSTRUCTION BCCTRL ...) ; compiling (DEFINE-INSTRUCTION BCTR ...) ; compiling (DEFINE-INSTRUCTION BCTRL ...) ; compiling (DEFINE-INSTRUCTION RLWIMI ...) ; compiling (DEFINE-INSTRUCTION RLWIMI. ...) ; compiling (DEFINE-INSTRUCTION RLWINM ...) ; compiling (DEFINE-INSTRUCTION RLWINM. ...) ; compiling (DEFINE-INSTRUCTION RLWNM ...) ; compiling (DEFINE-INSTRUCTION RLWNM. ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION ORI ...) ; compiling (DEFINE-INSTRUCTION NOP ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION ORIS ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION XORI ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION XORIS ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION ANDI. ...) ; compiling (DEFINE-D-RS-UI-INSTRUCTION ANDIS. ...) ; compiling (DEFINE-INSTRUCTION CMPW ...) ; compiling (DEFINE-INSTRUCTION TW ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS SUBFC ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS ADDC ...) ; compiling (DEFINE-2-XO-OE-INSTRUCTIONS MULHWU ...) ; compiling (DEFINE-INSTRUCTION MFCR ...) ; compiling (DEFINE-X-INSTRUCTION LWARX ...) ; compiling (DEFINE-X-INSTRUCTION LWZX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS SLW ...) ; compiling (DEFINE-2-X-10-INSTRUCTIONS CNTLZW ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS AND ...) ; compiling (DEFINE-INSTRUCTION CMPLW ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS SUBF ...) ; compiling (DEFINE-X-INSTRUCTION LWZUX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS ANDC ...) ; compiling (DEFINE-2-XO-OE-INSTRUCTIONS MULHW ...) ; compiling (DEFINE-X-INSTRUCTION LBZX ...) ; compiling (DEFINE-4-XO-A-INSTRUCTIONS NEG ...) ; compiling (DEFINE-X-INSTRUCTION LBZUX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS NOR ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS SUBFE ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBE ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBE. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBEO ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBEO. ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS ADDE ...) ; compiling (DEFINE-INSTRUCTION MTCRF ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STWCX. ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STWX ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STWUX ...) ; compiling (DEFINE-4-XO-A-INSTRUCTIONS SUBFZE ...) ; compiling (DEFINE-4-XO-A-INSTRUCTIONS ADDZE ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STBX ...) ; compiling (DEFINE-4-XO-A-INSTRUCTIONS SUBFME ...) ; compiling (DEFINE-4-XO-A-INSTRUCTIONS ADDME ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS MULLW ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STBUX ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS ADD ...) ; compiling (DEFINE-X-INSTRUCTION LHZX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS EQV ...) ; compiling (DEFINE-X-INSTRUCTION LHZUX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS XOR ...) ; compiling (DEFINE-INSTRUCTION MFMQ ...) ; compiling (DEFINE-INSTRUCTION MFXER ...) ; compiling (DEFINE-INSTRUCTION MFLR ...) ; compiling (DEFINE-INSTRUCTION MFCTR ...) ; compiling (DEFINE-X-INSTRUCTION LHAX ...) ; compiling (DEFINE-X-INSTRUCTION LHAUX ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STHX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS ORC ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STHUX ...) ; compiling (DEFINE-INSTRUCTION OR ...) ; compiling (DEFINE-INSTRUCTION OR. ...) ; compiling (DEFINE-INSTRUCTION-MACRO MR ...) ; compiling (DEFINE-INSTRUCTION-MACRO MR. ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS DIVWU ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS DIV ...) ; compiling (DEFINE-INSTRUCTION MTMQ ...) ; compiling (DEFINE-INSTRUCTION MTXER ...) ; compiling (DEFINE-INSTRUCTION MTLR ...) ; compiling (DEFINE-INSTRUCTION MTCTR ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS NAND ...) ; compiling (DEFINE-4-XO-INSTRUCTIONS DIVW ...) ; compiling (DEFINE-INSTRUCTION MCRXR ...) ; compiling (DEFINE-INSTRUCTION LSWX ...) ; compiling (DEFINE-X-INSTRUCTION LWBRX ...) ; compiling (DEFINE-X-20-INSTRUCTION LFSX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS SRW ...) ; compiling (DEFINE-X-20-INSTRUCTION LFSUX ...) ; compiling (DEFINE-INSTRUCTION LSWI ...) ; compiling (DEFINE-INSTRUCTION SYNC ...) ; compiling (DEFINE-X-20-INSTRUCTION LFDX ...) ; compiling (DEFINE-X-20-INSTRUCTION LFDUX ...) ; compiling (DEFINE-INSTRUCTION STSWX ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STWBRX ...) ; compiling (DEFINE-X-23-ST-INSTRUCTION STFSX ...) ; compiling (DEFINE-X-23-ST-INSTRUCTION STFSUX ...) ; compiling (DEFINE-INSTRUCTION STSWI ...) ; compiling (DEFINE-X-23-ST-INSTRUCTION STFDX ...) ; compiling (DEFINE-X-23-ST-INSTRUCTION STFDUX ...) ; compiling (DEFINE-X-INSTRUCTION LHBRX ...) ; compiling (DEFINE-2-X-5-INSTRUCTIONS SRAW ...) ; compiling (DEFINE-INSTRUCTION SRAWI ...) ; compiling (DEFINE-INSTRUCTION SRAWI. ...) ; compiling (DEFINE-INSTRUCTION EIEIO ...) ; compiling (DEFINE-X-5-ST-INSTRUCTION STHBRX ...) ; compiling (DEFINE-2-X-10-INSTRUCTIONS EXTSB ...) ; compiling (DEFINE-2-X-10-INSTRUCTIONS EXTSH ...) ; compiling (DEFINE-INSTRUCTION LWZ ...) ; compiling (DEFINE-D-INSTRUCTION LWZU ...) ; compiling (DEFINE-D-INSTRUCTION LBZ ...) ; compiling (DEFINE-D-INSTRUCTION LBZU ...) ; compiling (DEFINE-D-RS-INSTRUCTION STW ...) ; compiling (DEFINE-D-RS-INSTRUCTION STWU ...) ; compiling (DEFINE-D-RS-INSTRUCTION STB ...) ; compiling (DEFINE-D-RS-INSTRUCTION STBU ...) ; compiling (DEFINE-D-INSTRUCTION LHZ ...) ; compiling (DEFINE-D-INSTRUCTION LHZU ...) ; compiling (DEFINE-D-INSTRUCTION LHA ...) ; compiling (DEFINE-D-INSTRUCTION LHAU ...) ; compiling (DEFINE-D-RS-INSTRUCTION STH ...) ; compiling (DEFINE-D-RS-INSTRUCTION STHU ...) ; compiling (DEFINE-D-INSTRUCTION LMW ...) ; compiling (DEFINE-D-RS-INSTRUCTION STMW ...) ; compiling (DEFINE-D-FRT-INSTRUCTION LFS ...) ; compiling (DEFINE-D-FRT-INSTRUCTION LFSU ...) ; compiling (DEFINE-D-FRT-INSTRUCTION LFD ...) ; compiling (DEFINE-D-FRT-INSTRUCTION LFDU ...) ; compiling (DEFINE-D-FRS-INSTRUCTION STFS ...) ; compiling (DEFINE-D-FRS-INSTRUCTION STFSU ...) ; compiling (DEFINE-D-FRS-INSTRUCTION STFD ...) ; compiling (DEFINE-D-FRS-INSTRUCTION STFDU ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FDIVS ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FSUBS ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FADDS ...) ; compiling (DEFINE-2-A-TAC-INSTRUCTIONS FMULS ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FMSUBS ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FMADDS ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FNMSUBS ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FNMADDS ...) ; compiling (DEFINE-INSTRUCTION FCMPU ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FRSP ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FCTIW ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FCTIWZ ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FDIV ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FSUB ...) ; compiling (DEFINE-2-A-TAB-INSTRUCTIONS FADD ...) ; compiling (DEFINE-2-A-TAC-INSTRUCTIONS FMUL ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FMSUB ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FMADD ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FNMSUB ...) ; compiling (DEFINE-2-A-INSTRUCTIONS FNMADD ...) ; compiling (DEFINE-INSTRUCTION FCMPO ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FNEG ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FMR ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FNABS ...) ; compiling (DEFINE-2-X-21-INSTRUCTIONS FABS ...) ; compiling (DEFINE-INSTRUCTION MFFS ...) ; compiling (DEFINE-INSTRUCTION MFFS. ...) ; compiling (DEFINE-INSTRUCTION MTFSF ...) ; compiling (DEFINE-INSTRUCTION MTFSF. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBIS ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUB ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUB. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBO ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBO. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBIC ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBIC. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBC ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBC. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBCO ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBCO. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SUBI ...) ; compiling (DEFINE-INSTRUCTION-MACRO LI ...) ; compiling (DEFINE-INSTRUCTION-MACRO LIS ...) ; compiling (DEFINE-INSTRUCTION-MACRO NOT ...) ; compiling (DEFINE-INSTRUCTION-MACRO NOT. ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE EMIT-NOP ...) ; compiling (DEFINE-INSTRUCTION-MACRO EXTLWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO EXTLWI. ...) ; compiling (DEFINE-INSTRUCTION-MACRO EXTRWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO EXTRWI. ...) ; compiling (DEFINE-INSTRUCTION-MACRO SRWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO SRWI. ...) ; compiling (DEFINE-INSTRUCTION-MACRO CLRLWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO CLRLWI. ...) ; compiling (DEFINE-INSTRUCTION-MACRO CLRRWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO CLRRWI. ...) ; compiling (DEFINE-INSTRUCTION-MACRO INSLW ...) ; compiling (DEFINE-INSTRUCTION-MACRO INSLW. ...) ; compiling (DEFINE-INSTRUCTION-MACRO ROTLW ...) ; compiling (DEFINE-INSTRUCTION-MACRO ROTLW. ...) ; compiling (DEFINE-INSTRUCTION-MACRO ROTLWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO ROTRWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO SLWI ...) ; compiling (DEFINE-INSTRUCTION-MACRO SLWI. ...) ; compiling (DEFINE-POSITIVE-CONDITIONAL-BRANCHES BEQ ...) ; compiling (DEFINE-POSITIVE-CONDITIONAL-BRANCHES BLT ...) ; compiling (DEFINE-POSITIVE-CONDITIONAL-BRANCHES BGT ...) ; compiling (DEFINE-POSITIVE-CONDITIONAL-BRANCHES BSO ...) ; compiling (DEFINE-POSITIVE-CONDITIONAL-BRANCHES BUN ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BNE ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BNL ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BGE ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BNG ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BLE ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BNS ...) ; compiling (DEFINE-NEGATIVE-CONDITIONAL-BRANCHES BNU ...) ; compiling (DEFINE-INSTRUCTION-MACRO J ...) ; compiling (DEFINE-INSTRUCTION-MACRO BLRL ...) ; compiling (DEFUN %LR ...) ; compiling (DEFINE-INSTRUCTION-MACRO LR ...) ; compiling (DEFINE-INSTRUCTION WORD ...) ; compiling (DEFINE-INSTRUCTION SHORT ...) ; compiling (DEFINE-INSTRUCTION BYTE ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-HEADER-OBJECT ...) ; compiling (DEFUN EMIT-HEADER-DATA ...) ; compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...) ; compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...) ; compiling (DEFUN EMIT-COMPUTE-INST ...) ; compiling (DEFINE-INSTRUCTION COMPUTE-CODE-FROM-LIP ...) ; compiling (DEFINE-INSTRUCTION COMPUTE-CODE-FROM-LRA ...) ; compiling (DEFINE-INSTRUCTION COMPUTE-LRA-FROM-CODE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFINE-INSTRUCTION COMPUTE-CODE-FROM-LRA ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFINE-INSTRUCTION COMPUTE-CODE-FROM-LIP ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFUN EMIT-HEADER-DATA ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; ; caught STYLE-WARNING: ; 1 more use of undefined function COMPONENT-HEADER-LENGTH ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/insts.lisp ; in: DEFUN UNIMP-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: DEFPARAMETER JUMP-PRINTER ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!ALIEN:ADDR T SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; in: SB!DISASSEM:DEFINE-ARG-TYPE FP-REG ; (SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF SB!VM::VALUE ; 'SB!VM::FLOAT-REGISTERS SB!VM::REGNAME SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF ; in: SB!DISASSEM:DEFINE-ARG-TYPE REG ; (SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF SB!VM::VALUE 'SB!VM::REGISTERS ; SB!VM::REGNAME SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF ; in: DEFUN MAYBE-ADD-NOTES ; (SB!DISASSEM:MAYBE-NOTE-NIL-INDEXED-OBJECT ; (SB-XC:LDB (SB-XC:BYTE 16 0) SB!ASSEM:INST) SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-NIL-INDEXED-OBJECT ; in: DEFUN UNIMP-CONTROL ; (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:NOTE ; in: DEFUN MAYBE-ADD-NOTES ; (SB!DISASSEM:NOTE-CODE-CONSTANT (SB-XC:LDB (SB-XC:BYTE 16 0) SB!ASSEM:INST) ; SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:NOTE-CODE-CONSTANT ; (SB!DISASSEM::SAP-REF-INT (SB!DISASSEM:DSTATE-SEGMENT-SAP SB!VM::DSTATE) ; (SB!DISASSEM:DSTATE-CUR-OFFS SB!VM::DSTATE) SB!VM:N-WORD-BYTES ; (SB!DISASSEM::DSTATE-BYTE-ORDER SB!VM::DSTATE)) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM::SAP-REF-INT ; ; caught STYLE-WARNING: ; These functions are undefined: ; COMPONENT-HEADER-LENGTH SB!DISASSEM:HANDLE-BREAK-ARGS SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!DISASSEM:MAYBE-NOTE-ASSOCIATED-STORAGE-REF SB!DISASSEM:MAYBE-NOTE-NIL-INDEXED-OBJECT SB!DISASSEM:NOTE SB!DISASSEM:NOTE-CODE-CONSTANT SB!DISASSEM::SAP-REF-INT ; ; compilation unit finished ; caught 20 STYLE-WARNING conditions ; printed 8 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/insts.lisp-obj-tmp written ; compilation finished in 0:00:26 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/macros.lisp" (written 02 NOV 2006 03:35:13 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFMACRO MOVE ...) ; compiling (DEF LOADW ...) ; compiling (DEF STOREW ...) ; compiling (DEFMACRO LOAD-SYMBOL ...) ; compiling (FROB VALUE) ; compiling (FROB FUNCTION) ; compiling (DEFMACRO LOAD-TYPE ...) ; compiling (DEFMACRO LISP-JUMP ...) ; compiling (DEFMACRO LISP-RETURN ...) ; compiling (DEFMACRO EMIT-RETURN-PC ...) ; compiling (DEFMACRO LOAD-STACK-TN ...) ; compiling (DEFMACRO STORE-STACK-TN ...) ; compiling (DEFMACRO MAYBE-LOAD-STACK-TN ...) ; compiling (DEFMACRO ALLOCATION ...) ; compiling (DEFMACRO WITH-FIXED-ALLOCATION ...) ; compiling (DEFUN ALIGN-CSP ...) ; compiling (DEFUN EMIT-ERROR-BREAK ...); ; caught STYLE-WARNING: ; redefining EMIT-ERROR-BREAK in DEFUN ; compiling (DEFMACRO ERROR-CALL ...) ; compiling (DEFMACRO CERROR-CALL ...) ; compiling (DEFMACRO GENERATE-ERROR-CODE ...) ; compiling (DEFMACRO GENERATE-CERROR-CODE ...) ; compiling (DEFMACRO PSEUDO-ATOMIC ...) ; compiling (DEFMACRO WITH-PINNED-OBJECTS ...); ; compilation unit finished ; caught 1 STYLE-WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/macros.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/early-type-vops.lisp" (written 14 JUL 2005 07:35:35 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...) ; compiling (DEFUN CANONICALIZE-HEADERS ...) ; compiling (DEFMACRO TEST-TYPE ...); in: LAMBDA NIL ; (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 ; ==> ; SB!VM::HEADERS ; ; note: deleting unreachable code ; 'SB!VM::%TEST-FIXNUM-IMMEDIATE-AND-HEADERS ; ; note: deleting unreachable code ; 'SB!VM::%TEST-FIXNUM-AND-IMMEDIATE ; ; note: deleting unreachable code ; 'SB!VM::%TEST-IMMEDIATE-AND-HEADERS ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 5 notes ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/early-type-vops.lisp ; in: DEFMACRO TEST-TYPE ; (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 ; ==> ; SB!VM::HEADERS ; ; note: deleting unreachable code ; 'SB!VM::%TEST-FIXNUM-IMMEDIATE-AND-HEADERS ; ; note: deleting unreachable code ; 'SB!VM::%TEST-FIXNUM-AND-IMMEDIATE ; ; note: deleting unreachable code ; 'SB!VM::%TEST-IMMEDIATE-AND-HEADERS ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 6 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj-tmp written ; compilation finished in 0:00:00 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/assembly/target/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/assembly/target/support.lisp" (written 02 NOV 2006 03:35:12 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEF-VM-SUPPORT-ROUTINE GENERATE-CALL-SEQUENCE ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE GENERATE-RETURN-SEQUENCE ...) ; compiling (DEFUN RETURN-MACHINE-ADDRESS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/assembly/target/support.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/move.lisp" (written 21 FEB 2006 10:59:32 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 (LOAD-NUMBER-STACK 5) ...) ; compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...) ; compiling (DEFINE-MOVE-FUN (STORE-NUMBER-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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/move.lisp ; in: DEFINE-MOVE-FUN (STORE-NUMBER-STACK 5) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-MOVE-FUN (LOAD-NUMBER-STACK 5) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/move.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/float.lisp" (written 04 JAN 2006 02:52:29 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 1) ...) ; compiling (DEFINE-MOVE-FUN (STORE-SINGLE 1) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...) ; compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...) ; compiling (FROB SINGLE-MOVE ...) ; compiling (FROB DOUBLE-MOVE ...) ; compiling (DEFINE-VOP (MOVE-FROM-FLOAT) ...) ; compiling (FROB MOVE-FROM-SINGLE ...) ; compiling (FROB MOVE-FROM-DOUBLE ...) ; compiling (FROB MOVE-TO-SINGLE ...) ; compiling (FROB MOVE-TO-DOUBLE ...) ; compiling (FROB MOVE-SINGLE-FLOAT-ARG ...) ; compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...) ; 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 4) ...) ; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 4) ...) ; compiling (DEFINE-VOP (COMPLEX-SINGLE-MOVE) ...) ; compiling (DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE ...) ; compiling (DEFINE-VOP (COMPLEX-DOUBLE-MOVE) ...) ; compiling (DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE ...) ; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...) ; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...) ; compiling (DEFINE-VOP (MOVE-TO-COMPLEX-SINGLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-SINGLE ...) ; compiling (DEFINE-VOP (MOVE-TO-COMPLEX-DOUBLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-COMPLEX-DOUBLE ...) ; compiling (DEFINE-VOP (MOVE-COMPLEX-SINGLE-FLOAT-ARG) ...) ; compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-SINGLE-FLOAT-ARG ...) ; compiling (DEFINE-VOP (MOVE-COMPLEX-DOUBLE-FLOAT-ARG) ...) ; compiling (DEFINE-MOVE-VOP MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...) ; compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; compiling (DEFINE-VOP (FLOAT-OP) ...) ; compiling (FROB SINGLE-FLOAT-OP ...) ; compiling (FROB DOUBLE-FLOAT-OP ...) ; 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-COMPARE) ...) ; compiling (FROB SINGLE-FLOAT-COMPARE ...) ; compiling (FROB DOUBLE-FLOAT-COMPARE ...) ; compiling (FROB < ...) ; compiling (FROB > ...) ; compiling (FROB = ...) ; 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 ...) ; compiling (FROB %UNARY-TRUNCATE ...) ; compiling (FROB %UNARY-ROUND ...) ; compiling (FROB %UNARY-ROUND ...) ; compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT) ...) ; 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 (DEFINE-VOP (FLOATING-POINT-MODES) ...) ; compiling (DEFINE-VOP (SET-FLOATING-POINT-MODES) ...) ; compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (COMPLEX-SINGLE-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-SINGLE-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (COMPLEX-DOUBLE-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-DOUBLE-FLOAT-VALUE) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/float.lisp ; in: DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-MOVE-FUN (STORE-SINGLE 1) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-MOVE-FUN (LOAD-SINGLE 1) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; 24 more uses of undefined function CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/float.lisp-obj-tmp written ; compilation finished in 0:00:08 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/sap.lisp" (written 14 JUL 2005 07:48:33 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) ...) ; 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+-C) ...) ; compiling (DEFINE-VOP (POINTER-) ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-8 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-8 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-16 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-16 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-32 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SIGNED-SAP-REF-32 ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SAP ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-SINGLE ...) ; compiling (DEF-SYSTEM-REF-AND-SET SAP-REF-DOUBLE ...) ; compiling (DEFINE-VOP (VECTOR-SAP) ...) ; compiling (DEFTRANSFORM SAP-REF-64 ...) ; compiling (DEFTRANSFORM SIGNED-SAP-REF-64 ...) ; compiling (DEFTRANSFORM %SET-SAP-REF-64 ...) ; compiling (DEFTRANSFORM %SET-SIGNED-SAP-REF-64 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/sap.lisp-obj-tmp written ; compilation finished in 0:00:06 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/system.lisp" (written 26 JUL 2005 07:51:44 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 (MAKE-FIXNUM) ...) ; compiling (DEFINE-VOP (MAKE-OTHER-IMMEDIATE-TYPE) ...) ; compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...) ; compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...) ; compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...) ; compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...) ; compiling (DEFINE-VOP (COMPUTE-FUN) ...) ; compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...) ; compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...) ; compiling (DEFINE-VOP (HALT) ...) ; compiling (DEFINE-VOP (COUNT-ME) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/system.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/char.lisp" (written 14 JUL 2005 07:48:32 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) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/char.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/memory.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (CELL-REF) ...) ; compiling (DEFINE-VOP (CELL-SET) ...) ; compiling (DEFINE-VOP (SLOT-REF) ...) ; compiling (DEFINE-VOP (SLOT-SET) ...) ; compiling (DEFMACRO DEFINE-INDEXER ...) ; compiling (DEFINE-INDEXER WORD-INDEX-REF ...) ; compiling (DEFINE-INDEXER WORD-INDEX-SET ...) ; compiling (DEFINE-INDEXER HALFWORD-INDEX-REF ...) ; compiling (DEFINE-INDEXER SIGNED-HALFWORD-INDEX-REF ...) ; compiling (DEFINE-INDEXER HALFWORD-INDEX-SET ...) ; compiling (DEFINE-INDEXER BYTE-INDEX-REF ...) ; compiling (DEFINE-INDEXER SIGNED-BYTE-INDEX-REF ...) ; compiling (DEFINE-INDEXER BYTE-INDEX-SET ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/memory.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/static-fn.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (STATIC-FUN-TEMPLATE) ...) ; compiling (DEFUN STATIC-FUN-TEMPLATE-NAME ...); ; caught STYLE-WARNING: ; redefining STATIC-FUN-TEMPLATE-NAME in DEFUN ; compiling (DEFUN MOVES ...); ; caught STYLE-WARNING: ; redefining MOVES in DEFUN ; compiling (DEFUN STATIC-FUN-TEMPLATE-VOP ...); ; caught STYLE-WARNING: ; redefining STATIC-FUN-TEMPLATE-VOP in DEFUN ; compiling (FROB 0 ...) ; compiling (FROB 1 ...) ; compiling (FROB 2 ...) ; compiling (FROB 3 ...) ; compiling (FROB 4 ...) ; compiling (DEFMACRO DEFINE-STATIC-FUN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/static-fn.lisp ; in: DEFUN STATIC-FUN-TEMPLATE-VOP ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; 2 more uses of undefined function CURRENT-NFP-TN ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/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 LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 SB!VM::MOVE-TEMP ; SB!VM::TEMP SB!VM::LRA-LABEL) ; ; 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 LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 SB!VM::MOVE-TEMP ; SB!VM::TEMP SB!VM::LRA-LABEL) ; ; 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 LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 SB!VM::MOVE-TEMP ; SB!VM::TEMP SB!VM::LRA-LABEL) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-UNKNOWN-VALUES ; ; caught STYLE-WARNING: ; 2 more uses of undefined function DEFAULT-UNKNOWN-VALUES ; ; caught STYLE-WARNING: ; These functions are undefined: ; CURRENT-NFP-TN DEFAULT-UNKNOWN-VALUES ; ; compilation unit finished ; caught 12 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/static-fn.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/arith.lisp" (written 06 JUN 2006 03:42:51 AM): ; 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-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-FIXNUM-BINOP30-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-FIXNUM-LOGOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-FIXNUM-LOGOP30-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP32-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-SIGNED-BINOP32-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-UNSIGNED-LOGOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-UNSIGNED-LOGOP32-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-SIGNED-LOGOP32-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-SIGNED-LOGOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFMACRO !DEFINE-VAR-BINOP ...) ; compiling (DEFMACRO !DEFINE-CONST-BINOP ...) ; compiling (DEFMACRO !DEFINE-CONST-LOGOP ...) ; compiling (!DEFINE-VAR-BINOP + ...) ; compiling (!DEFINE-VAR-BINOP - ...) ; compiling (!DEFINE-VAR-BINOP LOGAND ...) ; compiling (!DEFINE-VAR-BINOP LOGANDC1 ...) ; compiling (!DEFINE-VAR-BINOP LOGANDC2 ...) ; compiling (!DEFINE-VAR-BINOP LOGIOR ...) ; compiling (!DEFINE-VAR-BINOP LOGORC1 ...) ; compiling (!DEFINE-VAR-BINOP LOGORC2 ...) ; compiling (!DEFINE-VAR-BINOP LOGXOR ...) ; compiling (!DEFINE-VAR-BINOP LOGEQV ...) ; compiling (!DEFINE-VAR-BINOP LOGNAND ...) ; compiling (!DEFINE-VAR-BINOP LOGNOR ...) ; compiling (!DEFINE-CONST-BINOP + ...) ; compiling (!DEFINE-CONST-BINOP - ...) ; compiling (!DEFINE-CONST-LOGOP LOGAND ...) ; compiling (!DEFINE-CONST-LOGOP LOGIOR ...) ; compiling (!DEFINE-CONST-LOGOP LOGXOR ...) ; compiling (DEFINE-VOP (+/FIXNUM FAST-+/FIXNUM=>FIXNUM) ...); ; caught WARNING: ; Result R to VOP +/FIXNUM ; has SC restriction DESCRIPTOR-REG which is not allowed by the operand type: ; (:OR POSITIVE-FIXNUM FIXNUM) ; compiling (DEFINE-VOP (-/FIXNUM FAST--/FIXNUM=>FIXNUM) ...); ; caught WARNING: ; Result R to VOP -/FIXNUM ; has SC restriction DESCRIPTOR-REG which is not allowed by the operand type: ; (:OR POSITIVE-FIXNUM FIXNUM) ; compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP) ...) ; compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP-C) ...) ; compiling (DEFINE-VOP (FAST-*-BIGC/FIXNUM=>FIXNUM FAST-FIXNUM-BINOP-C) ...) ; compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SIGNED-BINOP) ...) ; compiling (DEFINE-VOP (FAST-*-C/SIGNED=>SIGNED FAST-SIGNED-BINOP-C) ...) ; compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-UNSIGNED-BINOP) ...) ; compiling (DEFINE-VOP (FAST-*-C/UNSIGNED=>UNSIGNED FAST-UNSIGNED-BINOP-C) ...) ; compiling (DEF FAST-ASH-LEFT/FIXNUM=>FIXNUM ...) ; compiling (DEF FAST-ASH-LEFT/SIGNED=>SIGNED ...) ; compiling (DEF FAST-ASH-LEFT/UNSIGNED=>UNSIGNED ...) ; compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED) ...) ; compiling (DEFINE-VOP (SIGNED-BYTE-32-LEN) ...) ; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-LEN) ...) ; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-COUNT) ...) ; compiling (DEFKNOWN %%LDB ...) ; compiling (DEFUN %%LDB ...) ; compiling (DEFINE-VOP (LDB-C/FIXNUM) ...) ; compiling (DEFINE-VOP (LDB-C/SIGNED) ...) ; compiling (DEFINE-VOP (LDB-C/UNSIGNED) ...) ; compiling (DEFINE-MODULAR-FUN LOGNOT-MOD32 ...) ; compiling (DEFINE-VOP (LOGNOT-MOD32/UNSIGNED=>UNSIGNED) ...) ; 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-MODULAR-BACKEND + ...) ; compiling (DEFINE-MODULAR-BACKEND - ...) ; compiling (DEFINE-MODULAR-BACKEND * ...) ; compiling (DEFINE-MODULAR-BACKEND LOGXOR ...) ; compiling (DEFINE-MODULAR-BACKEND LOGEQV) ; compiling (DEFINE-MODULAR-BACKEND LOGNAND) ; compiling (DEFINE-MODULAR-BACKEND LOGNOR) ; compiling (DEFINE-MODULAR-BACKEND LOGANDC1) ; compiling (DEFINE-MODULAR-BACKEND LOGANDC2) ; compiling (DEFINE-MODULAR-BACKEND LOGORC1) ; compiling (DEFINE-MODULAR-BACKEND LOGORC2) ; 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-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF-/FIXNUM FAST-CONDITIONAL/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-IF->-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-IF->/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF->-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF->/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF->-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...) ; 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) ...); ; caught WARNING: ; Argument X to VOP FAST-EQL/FIXNUM ; has SC restriction DESCRIPTOR-REG which is not allowed by the operand type: ; (:OR POSITIVE-FIXNUM FIXNUM) ; compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...); ; caught WARNING: ; Argument X to VOP FAST-EQL-C/FIXNUM ; has SC restriction DESCRIPTOR-REG which is not allowed by the operand type: ; (:OR POSITIVE-FIXNUM FIXNUM) ; compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...) ; compiling (DEFINE-VOP (MERGE-BITS) ...) ; 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 (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...) ; compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...) ; compiling (DEFINE-VOP (BIGNUM-REF WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (BIGNUM-SET WORD-INDEX-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 (BIGNUM-LOGNOT LOGNOT-MOD32/UNSIGNED=>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-LSHR DIGIT-ASHR) ...) ; compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-+ ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-- ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-* ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-< ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-<= ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-> ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG->= ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-= ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-/= ...) ; compiling (DEFINE-STATIC-FUN %NEGATE ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-EQV ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFTRANSFORM * ...); ; compilation unit finished ; caught 4 WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/arith.lisp-obj-tmp written ; compilation finished in 0:00:15 WARNING: ignoring FAILURE-P return value from compilation of "src/compiler/target/arith.lisp" ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/subprim.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (LENGTH/LIST) ...) ; compiling (DEFINE-STATIC-FUN LENGTH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/subprim.lisp ; in: DEFINE-VOP (LENGTH/LIST) ; (SB!VM::TEST-TYPE SB!VM::PTR SB!VM::NOT-LIST T (SB!VM:LIST-POINTER-LOWTAG) ; :TEMP SB!VM::TEMP) ; ==> ; (SB!VM::%TEST-LOWTAG SB!VM::PTR SB!VM::NOT-LIST T 3 :TEMP SB!VM::TEMP) ; ; caught STYLE-WARNING: ; undefined function: %TEST-LOWTAG ; ; caught STYLE-WARNING: ; This function is undefined: ; %TEST-LOWTAG ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/subprim.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/debug.lisp" (written 14 JUL 2005 07:48:33 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 (WRITE-CONTROL-STACK) ...) ; compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...) ; compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...) ; compiling (DEFINE-VOP (CODE-FROM-FUN CODE-FROM-MUMBLE) ...) ; compiling (DEFINE-VOP (MAKE-LISP-OBJ) ...) ; compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...) ; compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/debug.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/early-aliencomp.lisp" (written 16 JAN 2006 02:45:46 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %ALIEN-FUNCALL ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/early-aliencomp.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/c-call.lisp" (written 28 NOV 2006 01:34:16 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFCONSTANT +STACK-ALIGNMENT-BYTES+ ...) ; compiling (DEFUN MY-MAKE-WIRED-TN ...) ; compiling (DEFSTRUCT ARG-STATE ...) ; compiling (DEFUN INT-ARG ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...) ; compiling (DEFSTRUCT RESULT-STATE ...) ; compiling (DEFUN RESULT-REG-OFFSET ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-CALL-OUT-TNS ...) ; compiling (DEFTRANSFORM %ALIEN-FUNCALL ...) ; compiling (DEFINE-VOP (FOREIGN-SYMBOL-SAP) ...) ; compiling (DEFINE-VOP (FOREIGN-SYMBOL-DATAREF-SAP) ...) ; compiling (DEFINE-VOP (CALL-OUT) ...) ; compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...) ; compiling (DEFINE-VOP (DEALLOC-NUMBER-STACK-SPACE) ...) ; compiling (DEFUN ALIEN-CALLBACK-ACCESSOR-FORM ...) ; compiling (DEFCONSTANT N-FOREIGN-LINKAGE-AREA-BYTES ...) ; compiling (DEFUN ALIEN-CALLBACK-ASSEMBLER-WRAPPER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/c-call.lisp ; in: DEFSTRUCT RESULT-STATE ; (DEFSTRUCT SB!VM::RESULT-STATE (SB!VM::NUM-RESULTS 0)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!VM::RESULT-STATE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFSTRUCT ARG-STATE ; (DEFSTRUCT SB!VM::ARG-STATE ; (SB!VM::GPR-ARGS 0) ; (SB!VM::FPR-ARGS 0) ; (SB!VM::STACK-FRAME-SIZE 2)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!VM::ARG-STATE ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; in: DEFINE-VOP (CALL-OUT) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; These functions are undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CURRENT-NFP-TN ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/c-call.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/cell.lisp" (written 06 OCT 2006 12:44:20 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (SLOT) ...) ; compiling (DEFINE-VOP (SET-SLOT) ...) ; compiling (DEFINE-VOP (SET CELL-SET) ...) ; compiling (DEFINE-VOP (CHECKED-CELL-REF) ...) ; compiling (DEFINE-VOP (SYMBOL-VALUE CHECKED-CELL-REF) ...) ; compiling (DEFINE-VOP (BOUNDP-FROB) ...) ; compiling (DEFINE-VOP (BOUNDP BOUNDP-FROB) ...) ; compiling (DEFINE-VOP (FAST-SYMBOL-VALUE CELL-REF) ...) ; 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-VOP (CLOSURE-INDEX-REF WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (FUNCALLABLE-INSTANCE-INFO WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (SET-FUNCALLABLE-INSTANCE-INFO WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...) ; compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...) ; compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...) ; compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...) ; compiling (DEFINE-VOP (INSTANCE-LENGTH) ...) ; compiling (DEFINE-VOP (INSTANCE-INDEX-REF WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (INSTANCE-INDEX-SET WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (CODE-HEADER-REF WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (CODE-HEADER-SET WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-DOUBLE) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/cell.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/values.lisp" (written 14 JUL 2005 07:48:33 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/values.lisp ; in: DEFINE-VOP (VALUES-LIST) ; (SB!VM::TEST-TYPE LIST LOOP NIL (SB!VM:LIST-POINTER-LOWTAG) :TEMP ; SB!VM::NDESCR) ; ==> ; (SB!VM::%TEST-LOWTAG LIST LOOP NIL 3 :TEMP SB!VM::NDESCR) ; ; caught STYLE-WARNING: ; undefined function: %TEST-LOWTAG ; ; caught STYLE-WARNING: ; This function is undefined: ; %TEST-LOWTAG ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/values.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/alloc.lisp" (written 06 OCT 2006 11:54:15 AM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...) ; compiling (DEFINE-VOP (LIST-OR-LIST*) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/alloc.lisp ; in: DEFINE-VOP (LIST-OR-LIST*) ; (SB!VM::ALLOCATION SB!VM::RES SB!VM::ALLOC SB!VM:LIST-POINTER-LOWTAG :TEMP-TN ; SB!VM::ALLOC-TEMP :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF COND IF PROGN SB!C:MOVE LET ; ==> ; SB!VM::ALLOC-TEMP ; ; note: deleting unreachable code ; --> LET COND IF COND IF PROGN SB!C:MOVE LET LET ; ==> ; SB!VM::ALLOC ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...) ; compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...) ; compiling (DEFINE-VOP (ALLOCATE-CODE-OBJECT) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/alloc.lisp ; in: DEFINE-VOP (ALLOCATE-CODE-OBJECT) ; (SB!VM::ALLOCATION SB!VM::RESULT SB!VM::SIZE SB!VM:OTHER-POINTER-LOWTAG ; :TEMP-TN SB!VM::NDESCR :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::%LR ; ==> ; SB!VM::NDESCR ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (MAKE-FDEFN) ...) ; compiling (DEFINE-VOP (MAKE-CLOSURE) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/alloc.lisp ; in: DEFINE-VOP (MAKE-CLOSURE) ; (SB!VM::ALLOCATION SB!VM::RESULT (SB!VM:PAD-DATA-BLOCK SB!VM::SIZE) ; SB!VM:FUN-POINTER-LOWTAG :TEMP-TN SB!VM::TEMP :FLAG-TN ; SB!VM::PA-FLAG) ; --> LET COND IF COND IF PROGN SB!C:MOVE LET ; ==> ; SB!VM::TEMP ; ; note: deleting unreachable code ; (SB!VM:PAD-DATA-BLOCK SB!VM::SIZE) ; --> LOGANDC2 + ASH ; ==> ; SB!VM::SIZE ; ; note: deleting unreachable code ; 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/alloc.lisp ; in: DEFINE-VOP (VAR-ALLOC) ; (SB!VM::ALLOCATION SB!VM::RESULT SB!SYS:BYTES SB!VM::LOWTAG :TEMP-TN ; SB!VM::TEMP :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::%LR ; ==> ; SB!VM::TEMP ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 6 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/alloc.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/call.lisp" (written 02 NOV 2006 03:35:13 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEF-VM-SUPPORT-ROUTINE STANDARD-ARG-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-PASSING-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-OLD-FP-PASSING-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-OLD-FP-SAVE-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-RETURN-PC-SAVE-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-ARG-COUNT-LOCATION ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-NFP-TN ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-STACK-POINTER-TN ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-NUMBER-STACK-POINTER-TN ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-UNKNOWN-VALUES-LOCATIONS ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE SELECT-COMPONENT-FORMAT ...) ; compiling (DEFUN BYTES-NEEDED-FOR-NON-DESCRIPTOR-STACK-FRAME ...) ; compiling (DEFINE-VOP (CURRENT-FP) ...) ; compiling (DEFINE-VOP (COMPUTE-OLD-NFP) ...) ; compiling (DEFINE-VOP (XEP-ALLOCATE-FRAME) ...) ; 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 (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 (DEFMACRO DEFINE-FULL-CALL ...) ; 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-ENVIRONMENT) ...) ; compiling (DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT) ...) ; compiling (DEFINE-VOP (COPY-MORE-ARG) ...) ; compiling (DEFINE-VOP (MORE-ARG WORD-INDEX-REF) ...) ; compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...) ; compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/call.lisp ; in: DEFINE-VOP (LISTIFY-REST-ARGS) ; (SB!VM::ALLOCATION SB!VM::RESULT SB!VM::TEMP SB!VM:LIST-POINTER-LOWTAG ; :TEMP-TN SB!VM::DST :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::%LR ; ==> ; SB!VM::DST ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...) ; compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...) ; compiling (FROB ARG-COUNT-ERROR ...) ; compiling (FROB TYPE-CHECK-ERROR ...) ; compiling (FROB LAYOUT-INVALID-ERROR ...) ; compiling (FROB ODD-KEY-ARGS-ERROR ...) ; compiling (FROB UNKNOWN-KEY-ARG-ERROR ...) ; compiling (FROB NIL-FUN-RETURNED-ERROR ...) ; compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/call.lisp ; in: DEFINE-VOP (KNOWN-CALL-LOCAL) ; (SB!C:CALLEE-NFP-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-NFP-TN ; in: DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ; (SB!C:CALLEE-NFP-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-NFP-TN ; in: DEFINE-VOP (CALL-LOCAL) ; (SB!C:CALLEE-NFP-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-NFP-TN ; in: DEFINE-VOP (KNOWN-CALL-LOCAL) ; (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-RETURN-PC-TN ; in: DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ; (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-RETURN-PC-TN ; in: DEFINE-VOP (CALL-LOCAL) ; (SB!C:CALLEE-RETURN-PC-TN SB!VM::CALLEE) ; ; caught STYLE-WARNING: ; undefined function: CALLEE-RETURN-PC-TN ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-VOP (XEP-ALLOCATE-FRAME) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-VOP (COMPUTE-OLD-NFP) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; 15 more uses of undefined function CURRENT-NFP-TN ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/call.lisp ; in: DEFINE-VOP (ALLOCATE-FRAME) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::CONTROL-STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFINE-VOP (XEP-ALLOCATE-FRAME) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::CONTROL-STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFUN BYTES-NEEDED-FOR-NON-DESCRIPTOR-STACK-FRAME ; (SB!C:SB-ALLOCATED-SIZE 'SB!C:NON-DESCRIPTOR-STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; ; caught STYLE-WARNING: ; These functions are undefined: ; CALLEE-NFP-TN CALLEE-RETURN-PC-TN CURRENT-NFP-TN SB-ALLOCATED-SIZE ; ; compilation unit finished ; caught 14 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/call.lisp-obj-tmp written ; compilation finished in 0:00:06 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/nlx.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-NLX-SP-TN ...) ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-NLX-ENTRY-ARG-START-LOCATION ...) ; 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) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/nlx.lisp ; in: DEFINE-VOP (RESTORE-DYNAMIC-STATE) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: DEFINE-VOP (SAVE-DYNAMIC-STATE) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/nlx.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/late-nlx.lisp" (written 14 JUL 2005 07:35:35 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-DYNAMIC-STATE-TNS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/late-nlx.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/show.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (PRINT) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/show.lisp ; in: DEFINE-VOP (PRINT) ; (SB!C:CURRENT-NFP-TN SB!VM::VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/show.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/array.lisp" (written 04 JUN 2006 03:25:07 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/array.lisp ; in: DEFINE-VOP (MAKE-ARRAY-HEADER) ; (SB!VM::ALLOCATION SB!VM::HEADER SB!VM::NDESCR SB!VM:OTHER-POINTER-LOWTAG ; :TEMP-TN SB!VM::GC-TEMP :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::%LR ; ==> ; SB!VM::GC-TEMP ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (%ARRAY-DIMENSION WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (%SET-ARRAY-DIMENSION WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...) ; compiling (DEFINE-VOP (CHECK-BOUND) ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-VECTOR ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-29 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-30 ...) ; compiling (DEF-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...) ; 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 (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (RAW-BITS WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (SET-RAW-BITS WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (VECTOR-RAW-BITS WORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (SET-VECTOR-RAW-BITS WORD-INDEX-SET) ...) ; compiling (DEFINE-VOP (GET-VECTOR-SUBTYPE GET-HEADER-DATA)) ; compiling (DEFINE-VOP (SET-VECTOR-SUBTYPE SET-HEADER-DATA)) ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SIGNED-BYTE-8 SIGNED-BYTE-INDEX-REF) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SIGNED-BYTE-8 BYTE-INDEX-SET) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-SIGNED-BYTE-16 SIGNED-HALFWORD-INDEX-REF) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-SIGNED-BYTE-16 HALFWORD-INDEX-SET) ...); ; compilation unit finished ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/array.lisp-obj-tmp written ; compilation finished in 0:00:08 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/array.lisp" (written 14 JUL 2005 07:35:35 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-NIL) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/array.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/pred.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (BRANCH) ...) ; compiling (DEFINE-VOP (IF-EQ) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/pred.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/type-vops.lisp" (written 14 JUL 2005 07:48:33 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN %TEST-FIXNUM ...) ; compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...) ; compiling (DEFUN %TEST-IMMEDIATE ...) ; compiling (DEFUN %TEST-LOWTAG ...) ; compiling (DEFUN %TEST-HEADERS ...) ; compiling (DEFINE-VOP (CHECK-TYPE) ...) ; compiling (DEFINE-VOP (TYPE-PREDICATE) ...) ; compiling (DEFUN COST-TO-TEST-TYPES ...) ; compiling (DEFMACRO !DEFINE-TYPE-VOPS ...) ; 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 (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) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/type-vops.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/late-type-vops.lisp" (written 03 JUN 2006 09:26:52 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 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 (!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 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj-tmp written ; compilation finished in 0:00:15 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/assembly/ creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/assembly/target/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assembly/target/assem-rtns.lisp" (written 02 NOV 2006 03:35:12 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/assembly/target/assem-rtns.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assembly/target/array.lisp" (written 21 FEB 2006 10:59:31 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-ASSEMBLY-ROUTINE (ALLOCATE-VECTOR # ...) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/assembly/target/array.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assembly/target/arith.lisp" (written 21 FEB 2006 10:59:31 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-+ # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-- # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-* # ...) ...) ; compiling (FROB UNSIGNED-* ...) ; compiling (FROB SIGNED-* ...) ; compiling (FROB FIXNUM-* ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (POSITIVE-FIXNUM-TRUNCATE # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (FIXNUM-TRUNCATE # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (SIGNED-TRUNCATE # ...) ...) ; compiling (DEFINE-COND-ASSEM-RTN GENERIC-< ...) ; compiling (DEFINE-COND-ASSEM-RTN GENERIC-<= ...) ; compiling (DEFINE-COND-ASSEM-RTN GENERIC-> ...) ; compiling (DEFINE-COND-ASSEM-RTN GENERIC->= ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-EQL # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-= # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-/= # ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assembly/target/arith.lisp ; in: ; DEFINE-ASSEMBLY-ROUTINE (GENERIC-* (:COST 50) (:RETURN-STYLE :FULL-CALL) ; (:TRANSLATE *) (:POLICY :SAFE) ...) ; (SB!C:DEFINE-ASSEMBLY-ROUTINE ; (SB!VM::GENERIC-* (:COST 50) (:RETURN-STYLE :FULL-CALL) (:TRANSLATE *) ; (:POLICY :SAFE) (:SAVE-P T)) ; ((:ARG SB!VM::X (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:ARG SB!VM::Y (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A1-OFFSET) ; (:RES SB!VM::RES (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:TEMP SB!VM::TEMP SB!VM::NON-DESCRIPTOR-REG SB!VM::NL0-OFFSET) ; (:TEMP SB!VM::LO SB!VM::NON-DESCRIPTOR-REG SB!VM::NL1-OFFSET) ; (:TEMP SB!VM::HI SB!VM::NON-DESCRIPTOR-REG SB!VM::NL2-OFFSET) ; (:TEMP SB!VM::PA-FLAG SB!VM::NON-DESCRIPTOR-REG SB!VM::NL3-OFFSET) ; (:TEMP SB!VM::LIP SB!VM::INTERIOR-REG SB!VM::LIP-OFFSET) ; (:TEMP SB!KERNEL:LRA SB!VM::DESCRIPTOR-REG SB!VM::LRA-OFFSET) ; (:TEMP SB!VM::NARGS SB!VM::ANY-REG SB!VM::NARGS-OFFSET) ; (:TEMP SB!VM::OCFP SB!VM::ANY-REG SB!VM::OCFP-OFFSET)) ; (SB!ASSEM:INST SB!VM::MTXER SB!VM::ZERO-TN) ; (SB!ASSEM:INST OR SB!VM::TEMP SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::ANDI. SB!VM::TEMP SB!VM::TEMP 3) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::TEMP SB!VM::X 2) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::NARGS SB!VM::Y 2) ; (SB!ASSEM:INST SB!VM::BNE SB!VM::DO-STATIC-FUN) ; (SB!ASSEM:INST SB!VM::MULLWO. SB!VM::LO SB!VM::NARGS SB!VM::TEMP) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::HI SB!VM::LO 31) ; (SB!ASSEM:INST SB!VM::BNS SB!VM::ONE-WORD-ANSWER) ...) ; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* ; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET ; ==> ; (SB!C:CURRENT-NFP-TN #:VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: ; DEFINE-ASSEMBLY-ROUTINE (GENERIC-- (:COST 10) (:RETURN-STYLE :FULL-CALL) ; (:TRANSLATE -) (:POLICY :SAFE) ...) ; (SB!C:DEFINE-ASSEMBLY-ROUTINE ; (SB!VM::GENERIC-- (:COST 10) (:RETURN-STYLE :FULL-CALL) (:TRANSLATE -) ; (:POLICY :SAFE) (:SAVE-P T)) ; ((:ARG SB!VM::X (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:ARG SB!VM::Y (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A1-OFFSET) ; (:RES SB!VM::RES (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:TEMP SB!VM::TEMP SB!VM::NON-DESCRIPTOR-REG SB!VM::NL0-OFFSET) ; (:TEMP SB!VM::TEMP2 SB!VM::NON-DESCRIPTOR-REG SB!VM::NL1-OFFSET) ; (:TEMP SB!VM::FLAG SB!VM::NON-DESCRIPTOR-REG SB!VM::NL3-OFFSET) ; (:TEMP SB!VM::LIP SB!VM::INTERIOR-REG SB!VM::LIP-OFFSET) ; (:TEMP SB!KERNEL:LRA SB!VM::DESCRIPTOR-REG SB!VM::LRA-OFFSET) ; (:TEMP SB!VM::NARGS SB!VM::ANY-REG SB!VM::NARGS-OFFSET) ; (:TEMP SB!VM::OCFP SB!VM::ANY-REG SB!VM::OCFP-OFFSET)) ; (SB!ASSEM:INST SB!VM::MTXER SB!VM::ZERO-TN) ; (SB!ASSEM:INST OR SB!VM::TEMP SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::ANDI. SB!VM::TEMP SB!VM::TEMP 3) ; (SB!ASSEM:INST SB!VM::BNE SB!VM::DO-STATIC-FUN) ; (SB!ASSEM:INST SB!VM::SUBO. SB!VM::TEMP SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::BNS SB!VM::DONE) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::TEMP SB!VM::X 2) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::TEMP2 SB!VM::Y 2) ; (SB!ASSEM:INST SB!VM::SUB SB!VM::TEMP2 SB!VM::TEMP SB!VM::TEMP2) ...) ; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* ; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET ; ==> ; (SB!C:CURRENT-NFP-TN #:VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; in: ; DEFINE-ASSEMBLY-ROUTINE (GENERIC-+ (:COST 10) (:RETURN-STYLE :FULL-CALL) ; (:TRANSLATE +) (:POLICY :SAFE) ...) ; (SB!C:DEFINE-ASSEMBLY-ROUTINE ; (SB!VM::GENERIC-+ (:COST 10) (:RETURN-STYLE :FULL-CALL) (:TRANSLATE +) ; (:POLICY :SAFE) (:SAVE-P T)) ; ((:ARG SB!VM::X (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:ARG SB!VM::Y (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A1-OFFSET) ; (:RES SB!VM::RES (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::A0-OFFSET) ; (:TEMP SB!VM::TEMP SB!VM::NON-DESCRIPTOR-REG SB!VM::NL0-OFFSET) ; (:TEMP SB!VM::TEMP2 SB!VM::NON-DESCRIPTOR-REG SB!VM::NL1-OFFSET) ; (:TEMP SB!VM::FLAG SB!VM::NON-DESCRIPTOR-REG SB!VM::NL3-OFFSET) ; (:TEMP SB!KERNEL:LRA SB!VM::DESCRIPTOR-REG SB!VM::LRA-OFFSET) ; (:TEMP SB!VM::NARGS SB!VM::ANY-REG SB!VM::NARGS-OFFSET) ; (:TEMP SB!VM::LIP SB!VM::INTERIOR-REG SB!VM::LIP-OFFSET) ; (:TEMP SB!VM::OCFP SB!VM::ANY-REG SB!VM::OCFP-OFFSET)) ; (SB!ASSEM:INST SB!VM::MTXER SB!VM::ZERO-TN) ; (SB!ASSEM:INST OR SB!VM::TEMP SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::ANDI. SB!VM::TEMP SB!VM::TEMP 3) ; (SB!ASSEM:INST SB!VM::BNE SB!VM::DO-STATIC-FUN) ; (SB!ASSEM:INST SB!VM::ADDO. SB!VM::TEMP SB!VM::X SB!VM::Y) ; (SB!ASSEM:INST SB!VM::BNS SB!VM::DONE) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::TEMP SB!VM::X 2) ; (SB!ASSEM:INST SB!VM::SRAWI SB!VM::TEMP2 SB!VM::Y 2) ; (SB!ASSEM:INST SB!VM::ADD SB!VM::TEMP2 SB!VM::TEMP2 SB!VM::TEMP) ...) ; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* ; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET ; ==> ; (SB!C:CURRENT-NFP-TN #:VOP) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; 7 more uses of undefined function CURRENT-NFP-TN ; ; caught STYLE-WARNING: ; This function is undefined: ; CURRENT-NFP-TN ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/assembly/target/arith.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/assembly/target/alloc.lisp" (written 18 MAR 2002 05:56:12 PM): ; compiling (IN-PACKAGE "SB!VM") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/assembly/target/alloc.lisp-obj-tmp written ; compilation finished in 0:00:00 RETURN-MULTIPLE assembled TAIL-CALL-VARIABLE assembled UNWIND assembled THROW assembled ; in: LAMBDA NIL ; (SB!VM::ALLOCATION VECTOR SB!VM::NDESCR SB!VM:OTHER-POINTER-LOWTAG :TEMP-TN ; SB!VM::TEMP :FLAG-TN SB!VM::PA-FLAG) ; --> LET COND IF PROGN SB!ASSEM:INST SB!VM::%LR ; ==> ; SB!VM::TEMP ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ALLOCATE-VECTOR assembled GENERIC-+ assembled GENERIC-- assembled GENERIC-* assembled UNSIGNED-* assembled SIGNED-* assembled FIXNUM-* assembled POSITIVE-FIXNUM-TRUNCATE assembled FIXNUM-TRUNCATE assembled SIGNED-TRUNCATE assembled GENERIC-< assembled GENERIC-<= assembled GENERIC-> assembled GENERIC->= assembled GENERIC-EQL assembled GENERIC-= assembled GENERIC-/= assembled ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/pseudo-vops.lisp" (written 21 OCT 2000 12:30:34 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...) ; compiling (DEFINE-VOP (MOVE-OPERAND) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/pseudo-vops.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/aliencomp.lisp" (written 06 MAR 2006 10:00:01 AM): ; 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 EXTRACT-ALIEN-VALUE ...) ; compiling (DEFKNOWN DEPOSIT-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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (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 (DEFTRANSFORM DISPOSE-LOCAL-ALIEN ...) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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::EMIT-MOVE SB!C:CALL BLOCK (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG) ; SB!C::TEMP-TN) ; ; caught STYLE-WARNING: ; undefined function: EMIT-MOVE ; (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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; ANNOTATE-ORDINARY-LVAR EMIT-MOVE LVAR-TN MOVE-LVAR-RESULT ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/aliencomp.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ltv.lisp" (written 14 JUL 2005 07:57:00 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; MOVE-LVAR-RESULT ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ltv.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/gtn.lisp" (written 14 JUL 2005 07:56:59 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN GTN-ANALYZE ...) ; compiling (DEFUN ASSIGN-LAMBDA-VAR-TNS ...) ; compiling (DEFUN ASSIGN-IR2-PHYSENV ...) ; compiling (DEFUN HAS-FULL-CALL-USE ...) ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/gtn.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ltn.lisp" (written 14 JUL 2005 07:57:00 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NODE-LTN-POLICY ...) ; compiling (DEFUN LTN-POLICY-SAFE-P ...) ; compiling (DECLAIM (INLINE LVAR-PTYPE)) ; compiling (DEFUN LVAR-PTYPE ...) ; compiling (DEFUN LEGAL-IMMEDIATE-CONSTANT-P ...) ; 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 (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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ltn.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/stack.lisp" (written 14 JUL 2005 07:57:02 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 UPDATE-UVL-LIVE-SETS ...) ; compiling (DEFUN ORDER-BLOCK-UVL-SETS ...) ; compiling (DEFUN ORDER-UVL-SETS ...) ; compiling (DEFUN DISCARD-UNUSED-VALUES ...) ; compiling (DEFUN FIND-PUSHING-BLOCKS ...) ; compiling (DEFUN STACK-ANALYZE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/stack.lisp ; in: DEFUN DISCARD-UNUSED-VALUES ; (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 ; ; caught STYLE-WARNING: ; This function is undefined: ; ADD-TO-EMIT-ORDER ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/stack.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/control.lisp" (written 14 JUL 2005 07:52:37 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/control.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/entry.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN ENTRY-ANALYZE ...) ; compiling (DEFUN COMPUTE-ENTRY-INFO ...) ; compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/entry.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/ir2tran.lisp" (written 06 OCT 2006 11:54:13 AM): ; 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 ...) ; compiling (DEFUN CONSTANT-TN ...) ; compiling (DEFUN LEAF-TN ...) ; compiling (DEFUN EMIT-CONSTANT ...) ; compiling (DEFUN IR2-CONVERT-REF ...) ; compiling (DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA ...) ; compiling (DEFUN IR2-CONVERT-CLOSURE ...) ; 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 (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 (DEFUN PONDER-FULL-CALL ...) ; compiling (DEFUN IR2-CONVERT-FULL-CALL ...) ; compiling (DEFUN INIT-XEP-ENVIRONMENT ...) ; compiling (DEFUN IR2-CONVERT-BIND ...) ; compiling (DEFUN IR2-CONVERT-RETURN ...) ; compiling (DEFOPTIMIZER (%CALLER-FRAME-AND-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 (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 (DEFUN IR2-CONVERT ...) ; compiling (DEFUN FINISH-IR2-BLOCK ...) ; compiling (DEFUN IR2-CONVERT-BLOCK ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/ir2tran.lisp-obj-tmp written ; compilation finished in 0:00:07 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/vm-ir2tran.lisp" (written 06 OCT 2006 11:54:15 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...) ; compiling (DEFUN EMIT-INITS ...) ; compiling (DEFUN EMIT-FIXED-ALLOC ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/copyprop.lisp" (written 14 JUL 2005 07:52:37 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/copyprop.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/represent.lisp" (written 14 JUL 2005 07:57:01 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN GET-OPERAND-INFO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; 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 ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/represent.lisp ; in: DEFUN NOTE-IF-NUMBER-STACK ; (SB!C:TN-SC SB!C:TN) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; SB!C:TN ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 6 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/represent.lisp-obj-tmp written ; compilation finished in 0:00:06 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/pack.lisp" (written 17 SEP 2005 08:43:33 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *PACK-ASSIGN-COSTS* ...) ; compiling (DEFVAR *PACK-OPTIMIZE-SAVES* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN OFFSET-CONFLICTS-IN-SB ...) ; 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 (DEFUN ASSIGN-TN-COSTS ...) ; compiling (DEFUN ASSIGN-TN-DEPTHS ...) ; compiling (DEFVAR *LIVE-BLOCK*) ; compiling (DEFVAR *LIVE-VOP*) ; compiling (DEFVAR *REPACK-BLOCKS*) ; compiling (DECLAIM (TYPE # ...)) ; 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: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/pack.lisp ; in: DEFUN UNPACK-FOR-LOAD-TN ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!C::VICTIM SB!C::NORMAL-TNS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!C::CONF SB!C::NORMAL-TNS) ; ; note: deleting unreachable code ; ; 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 (DEFUN FIND-OK-TARGET-OFFSET ...) ; compiling (DEFUN SELECT-LOCATION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/pack.lisp ; in: DEFUN SELECT-LOCATION ; (MEMBER SB!C::OFFSET (SB!C::SC-RESERVE-LOCATIONS SB!C:SC)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN ORIGINAL-TN ...) ; compiling (DEFUN PACK-TN ...) ; compiling (DEFUN PACK-WIRED-TN ...) ; compiling (DEFEVENT REPACK-BLOCK ...) ; compiling (DEFUN CLEAN-UP-PACK-STRUCTURES ...) ; compiling (DEFUN PACK ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; PRINT-TN-GUTS ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 8 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/pack.lisp-obj-tmp written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/codegen.lisp" (written 14 JUL 2005 07:52:37 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 *TRACE-TABLE-INFO*) ; compiling (DEFVAR *CODE-SEGMENT* ...) ; compiling (DEFVAR *ELSEWHERE* ...) ; compiling (DEFVAR *ELSEWHERE-LABEL* ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/codegen.lisp ; in: DEFUN TRACE-INSTRUCTION ; (SB!C::PRINT-VOP SB!C::VOP) ; ; caught STYLE-WARNING: ; undefined function: PRINT-VOP ; ; caught STYLE-WARNING: ; This function is undefined: ; PRINT-VOP ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/codegen.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/debug.lisp" (written 14 JUL 2005 07:52:38 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-CONTINUATION ...) ; 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 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/debug.lisp ; in: DEFUN PRINT-CONTINUATION ; (DEFUN SB!C::PRINT-CONTINUATION (SB!C::CONT) ; (DECLARE (TYPE SB!C::CONTINUATION SB!C::CONT)) ; (FORMAT T " c~D" (SB!C::CONT-NUM SB!C::CONT)) ; (VALUES)) ; --> PROGN SB!INT:COLD-FSET LOCALLY ; ==> ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::CONT) {5125BA61}> ; #:G1867) ; ; caught STYLE-WARNING: ; undefined type: CONTINUATION ; ; caught STYLE-WARNING: ; undefined type: CONTINUATION ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!C::PRINT-CONTINUATION ; (LAMBDA (SB!C::CONT) ; (DECLARE (TYPE SB!C::CONTINUATION SB!C::CONT)) ; (BLOCK SB!C::PRINT-CONTINUATION ; (FORMAT T " c~D" (SB!C::CONT-NUM SB!C::CONT)) ; (VALUES)))) ; ; caught STYLE-WARNING: ; undefined type: CONTINUATION ; ; caught STYLE-WARNING: ; 7 more uses of undefined type CONTINUATION ; ; caught STYLE-WARNING: ; This type is undefined: ; CONTINUATION ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/debug.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/format-time.lisp" (written 14 JUL 2005 05:30:35 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/format-time.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/error.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 HEAP-EXHAUSTED-ERROR ...) ; compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/error.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/macroexpand.lisp" (written 07 OCT 2005 05:57:09 AM): ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/macroexpand.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-extensions.lisp" (written 22 AUG 2006 04:48:56 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN LIST-WITH-LENGTH-P ...) ; compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-extensions.lisp ; in: DEFSTRUCT UNPRINTABLE-OBJECT ; (DEFSTRUCT ; (SB!IMPL::UNPRINTABLE-OBJECT ; (:CONSTRUCTOR SB!INT:MAKE-UNPRINTABLE-OBJECT (STRING)) ; (:PRINT-OBJECT ; (LAMBDA (SB!IMPL::X SB!IMPL::S) (PRINT-UNREADABLE-OBJECT # #))) ; (:COPIER NIL)) ; STRING) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN ; ==> ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::UNPRINTABLE-OBJECT ; "defining ~A as a structure") ; ; caught STYLE-WARNING: ; undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; caught STYLE-WARNING: ; This function is undefined: ; ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/late-extensions.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/generic/target-core.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN MAKE-FUN-ENTRY ...) ; compiling (DEFUN MAKE-CORE-COMPONENT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; (SB!SYS:WITHOUT-GCING ; (LET* ((SB!C::2COMP (SB!C:COMPONENT-INFO SB!C:COMPONENT)) ; (SB!C::CONSTANTS (SB!C:IR2-COMPONENT-CONSTANTS SB!C::2COMP)) ; (SB!C::TRACE-TABLE (SB!C:PACK-TRACE-TABLE SB!C::TRACE-TABLE)) ; (SB!C::TRACE-TABLE-LEN (LENGTH SB!C::TRACE-TABLE)) ; (SB!C::TRACE-TABLE-BITS ; (* SB!C::TRACE-TABLE-LEN SB!C::TT-BITS-PER-ENTRY)) ; (SB!C::TOTAL-LENGTH (+ LENGTH #)) ; (SB!C::BOX-NUM (- # SB!VM:CODE-TRACE-TABLE-OFFSET-SLOT)) ; (SB!C::CODE-OBJ ; (SB!SYS:%PRIMITIVE SB!C:ALLOCATE-CODE-OBJECT SB!C::BOX-NUM ; SB!C::TOTAL-LENGTH)) ; (SB!C::FILL-PTR (SB!KERNEL:CODE-INSTRUCTIONS SB!C::CODE-OBJ))) ; (DECLARE (TYPE SB!INT:INDEX SB!C::BOX-NUM SB!C::TOTAL-LENGTH)) ; (SB!ASSEM:ON-SEGMENT-CONTENTS-VECTORLY SB!ASSEM:SEGMENT ; (LAMBDA (SB!C::V) ; (DECLARE #) ; (SB!KERNEL:COPY-BYTE-VECTOR-TO-SYSTEM-AREA ; SB!C::V SB!C::FILL-PTR) ; (SETF SB!C::FILL-PTR #))) ; (SB!C::DO-CORE-FIXUPS SB!C::CODE-OBJ SB!C::FIXUP-NOTES) ; (DOLIST (SB!C::ENTRY (SB!C::IR2-COMPONENT-ENTRIES SB!C::2COMP)) ; (SB!C::MAKE-FUN-ENTRY SB!C::ENTRY SB!C::CODE-OBJ SB!C::OBJECT)) ; (SB!VM:SANCTIFY-FOR-EXECUTION SB!C::CODE-OBJ) ; (LET ((SB!INT:INFO #)) ; (PUSH SB!INT:INFO (SB!C::CORE-OBJECT-DEBUG-INFO SB!C::OBJECT)) ; (SETF (SB!KERNEL:%CODE-DEBUG-INFO SB!C::CODE-OBJ) SB!INT:INFO)) ; (SETF (SB!KERNEL:CODE-HEADER-REF SB!C::CODE-OBJ ; SB!VM:CODE-TRACE-TABLE-OFFSET-SLOT) ; LENGTH) ; (SB!KERNEL:COPY-UB16-TO-SYSTEM-AREA SB!C::TRACE-TABLE 0 SB!C::FILL-PTR 0 ; SB!C::TRACE-TABLE-LEN) ; (DO ((SB!INT:INDEX SB!VM:CODE-CONSTANTS-OFFSET #)) ; ((>= SB!INT:INDEX #)) ; (LET (#) ; (ETYPECASE SB!C::CONST # # #))))) ; --> UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; (SB!VM:SANCTIFY-FOR-EXECUTION SB!C::CODE-OBJ) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:SANCTIFY-FOR-EXECUTION ; ; caught STYLE-WARNING: ; These functions are undefined: ; COPY-BYTE-VECTOR-TO-SYSTEM-AREA SB!KERNEL::MAYBE-HANDLE-PENDING-GC SB!VM:SANCTIFY-FOR-EXECUTION ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/generic/target-core.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/eval.lisp" (written 13 SEP 2006 04:59:32 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN %SIMPLE-EVAL ...) ; compiling (DEFUN SIMPLE-EVAL-PROGN-BODY ...) ; compiling (DEFUN SIMPLE-EVAL-LOCALLY ...) ; compiling (DEFINE-CONDITION EVAL-ERROR ...) ; compiling (DEFUN EVAL-ERROR ...) ; compiling (DEFUN SIMPLE-EVAL-IN-LEXENV ...) ; compiling (DEFUN EVAL-IN-LEXENV ...) ; compiling (DEFUN EVAL ...) ; compiling (DEFUN APPLY ...) ; compiling (DEFUN FUNCALL ...) ; compiling (DEFUN VALUES ...) ; compiling (DEFUN VALUES-LIST ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!EVAL:EVAL-IN-NATIVE-ENVIRONMENT ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/eval.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-sap.lisp" (written 14 JUL 2005 05:30:40 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN SAP< ...) ; compiling (DEFUN SAP<= ...) ; compiling (DEFUN SAP= ...) ; compiling (DEFUN SAP>= ...) ; compiling (DEFUN SAP> ...) ; compiling (DEFUN SAP+ ...) ; compiling (DEFUN SAP- ...) ; compiling (DEFUN SAP-INT ...) ; compiling (DEFUN INT-SAP ...) ; compiling (DEFUN SAP-REF-8 ...) ; compiling (DEFUN SAP-REF-16 ...) ; compiling (DEFUN SAP-REF-32 ...) ; compiling (DEFUN SAP-REF-64 ...) ; compiling (DEFUN SAP-REF-WORD ...) ; compiling (DEFUN SAP-REF-SAP ...) ; compiling (DEFUN SAP-REF-SINGLE ...) ; compiling (DEFUN SAP-REF-DOUBLE ...) ; compiling (DEFUN SIGNED-SAP-REF-8 ...) ; compiling (DEFUN SIGNED-SAP-REF-16 ...) ; compiling (DEFUN SIGNED-SAP-REF-32 ...) ; compiling (DEFUN SIGNED-SAP-REF-64 ...) ; compiling (DEFUN SIGNED-SAP-REF-WORD ...) ; compiling (DEFUN %SET-SAP-REF-8 ...) ; compiling (DEFUN %SET-SAP-REF-16 ...) ; compiling (DEFUN %SET-SAP-REF-32 ...) ; compiling (DEFUN %SET-SAP-REF-64 ...) ; compiling (DEFUN %SET-SAP-REF-WORD ...) ; compiling (DEFUN %SET-SIGNED-SAP-REF-8 ...) ; compiling (DEFUN %SET-SIGNED-SAP-REF-16 ...) ; compiling (DEFUN %SET-SIGNED-SAP-REF-32 ...) ; compiling (DEFUN %SET-SIGNED-SAP-REF-64 ...) ; compiling (DEFUN %SET-SIGNED-SAP-REF-WORD ...) ; compiling (DEFUN %SET-SAP-REF-SAP ...) ; compiling (DEFUN %SET-SAP-REF-SINGLE ...) ; compiling (DEFUN %SET-SAP-REF-DOUBLE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-sap.lisp ; in: DEFUN INT-SAP ; (SB!SYS:INT-SAP SB!ALIEN:INT) ; ==> ; SB!ALIEN:INT ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; (DEFUN SB!SYS:INT-SAP (SB!ALIEN:INT) ; (DECLARE (TYPE SB!SYS:SAP-INT SB!ALIEN:INT)) ; (SB!SYS:INT-SAP SB!ALIEN:INT)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!SYS:INT-SAP ; (LAMBDA (SB!ALIEN:INT) ; (DECLARE (TYPE SB!SYS:SAP-INT SB!ALIEN:INT)) ; (BLOCK SB!SYS:INT-SAP (SB!SYS:INT-SAP SB!ALIEN:INT)))) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; 1 more use of undefined type SAP-INT ; ; caught STYLE-WARNING: ; This type is undefined: ; SAP-INT ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-sap.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-package.lisp" (written 13 SEP 2006 10:37:28 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (!COLD-INIT-FORMS (/SHOW0 "entering !PACKAGE-COLD-INIT")) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFCONSTANT PACKAGE-REHASH-THRESHOLD ...) ; compiling (DEFUN MAKE-OR-REMAKE-PACKAGE-HASHTABLE ...) ; compiling (DEFUN PACKAGE-LOCKED-P ...) ; compiling (DEFUN LOCK-PACKAGE ...) ; compiling (DEFUN UNLOCK-PACKAGE ...) ; compiling (DEFUN PACKAGE-IMPLEMENTED-BY-LIST ...) ; compiling (DEFUN PACKAGE-IMPLEMENTS-LIST ...) ; compiling (DEFUN ADD-IMPLEMENTATION-PACKAGE ...) ; compiling (DEFUN REMOVE-IMPLEMENTATION-PACKAGE ...) ; compiling (DEFMACRO WITH-UNLOCKED-PACKAGES ...) ; compiling (DEFUN PACKAGE-LOCK-VIOLATION ...) ; compiling (DEFUN PACKAGE-LOCK-VIOLATION-P ...) ; compiling (DEFUN DISABLED-PACKAGE-LOCKS ...) ; compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...) ; compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF PACKAGE-NICKNAMES ...) ; compiling (DEF PACKAGE-USE-LIST ...) ; compiling (DEF PACKAGE-USED-BY-LIST ...) ; compiling (DEF PACKAGE-SHADOWING-SYMBOLS ...) ; compiling (DEFUN %PACKAGE-HASHTABLE-SYMBOL-COUNT ...) ; compiling (DEFUN PACKAGE-INTERNAL-SYMBOL-COUNT ...) ; compiling (DEFUN PACKAGE-EXTERNAL-SYMBOL-COUNT ...) ; compiling (DEFVAR *PACKAGE* ...) ; compiling (DEFVAR *PACKAGE-NAMES*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (!COLD-INIT-FORMS (SETF *PACKAGE-NAMES* ...)) ; compiling (DEFVAR *IN-PACKAGE-INIT*) ; compiling (DEFVAR *!DEFERRED-USE-PACKAGES*) ; compiling (!COLD-INIT-FORMS (SETF *!DEFERRED-USE-PACKAGES* ...)) ; compiling (DEFINE-CONDITION BOOTSTRAP-PACKAGE-NOT-FOUND ...) ; compiling (DEFUN DEBOOTSTRAP-PACKAGE ...) ; compiling (DEFUN FIND-PACKAGE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-package.lisp ; in: DEFUN FIND-PACKAGE ; 'TYPE-ERROR ; ; note: deleting unreachable code ; '(OR CHARACTER PACKAGE STRING SYMBOL) ; ; note: deleting unreachable code ; compiling (DEFUN PACKAGE-LISTIFY ...) ; compiling (DEFUN PACKAGE-NAMIFY ...) ; compiling (DEFUN PACKAGE-NAME ...) ; compiling (DEFMACRO ENTRY-HASH ...) ; compiling (DEFUN ADD-SYMBOL ...) ; compiling (DEFMACRO WITH-SYMBOL ...) ; compiling (DEFUN NUKE-SYMBOL ...) ; compiling (DEFUN ENTER-NEW-NICKNAMES ...) ; compiling (DEFUN MAKE-PACKAGE ...) ; compiling (DEFUN RENAME-PACKAGE ...) ; compiling (DEFUN DELETE-PACKAGE ...) ; compiling (DEFUN LIST-ALL-PACKAGES ...) ; compiling (DEFUN INTERN ...) ; compiling (DEFUN FIND-SYMBOL ...) ; compiling (DEFUN INTERN* ...) ; compiling (DEFUN FIND-SYMBOL* ...) ; compiling (DEFUN FIND-EXTERNAL-SYMBOL ...) ; compiling (DEFINE-CONDITION NAME-CONFLICT ...) ; compiling (DEFUN NAME-CONFLICT ...) ; compiling (DEFUN UNINTERN ...) ; compiling (DEFUN SYMBOL-LISTIFY ...) ; compiling (DEFUN STRING-LISTIFY ...) ; compiling (DEFUN MOBY-UNINTERN ...) ; compiling (DEFUN EXPORT ...) ; compiling (DEFUN UNEXPORT ...) ; compiling (DEFUN IMPORT ...) ; compiling (DEFUN SHADOWING-IMPORT ...) ; compiling (DEFUN SHADOW ...) ; compiling (DEFUN USE-PACKAGE ...) ; compiling (DEFUN UNUSE-PACKAGE ...) ; compiling (DEFUN FIND-ALL-SYMBOLS ...) ; compiling (DEFUN BRIEFLY-DESCRIBE-SYMBOL ...) ; compiling (DEFUN APROPOS-LIST ...) ; compiling (DEFUN APROPOS ...) ; compiling (DEFVAR *!INITIAL-SYMBOLS*) ; compiling (!COLD-INIT-FORMS (SETQ *IN-PACKAGE-INIT* ...) ...) ; compiling (!COLD-INIT-FORMS (/SHOW0 "done with !PACKAGE-COLD-INIT")) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !PACKAGE-COLD-INIT); ; compilation unit finished ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-package.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-random.lisp" (written 14 JUL 2005 05:30:40 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN INIT-RANDOM-STATE ...) ; compiling (DEFVAR *RANDOM-STATE*) ; compiling (DEFUN !RANDOM-COLD-INIT ...) ; compiling (DEFUN MAKE-RANDOM-STATE ...) ; compiling (DECLAIM (INLINE RANDOM-CHUNK)) ; compiling (DEFCONSTANT MT19937-N ...) ; compiling (DEFCONSTANT MT19937-M ...) ; compiling (DEFCONSTANT MT19937-UPPER-MASK ...) ; compiling (DEFCONSTANT MT19937-LOWER-MASK ...) ; compiling (DEFCONSTANT MT19937-B ...) ; compiling (DEFCONSTANT MT19937-C ...) ; compiling (DEFUN RANDOM-MT19937-UPDATE ...) ; compiling (DEFUN RANDOM-CHUNK ...) ; compiling (DECLAIM (INLINE BIG-RANDOM-CHUNK)) ; compiling (DEFUN BIG-RANDOM-CHUNK ...) ; compiling (DECLAIM (INLINE %RANDOM-SINGLE-FLOAT ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %RANDOM-SINGLE-FLOAT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %RANDOM-DOUBLE-FLOAT ...) ; compiling (DEFUN %RANDOM-INTEGER ...) ; compiling (DEFUN RANDOM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-random.lisp ; in: DEFUN RANDOM ; 'SIMPLE-TYPE-ERROR ; ; note: deleting unreachable code ; (ERROR 'SIMPLE-TYPE-ERROR :EXPECTED-TYPE '(OR (INTEGER 1) (FLOAT (0))) :DATUM ; SB!KERNEL::ARG :FORMAT-CONTROL ; "~@" ; :FORMAT-ARGUMENTS (LIST SB!KERNEL::ARG)) ; ==> ; "~@" ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-random.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-hash-table.lisp" (written 15 SEP 2006 03:39:45 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO WITH-SPINLOCK-AND-WITHOUT-GCING ...) ; compiling (DEFCONSTANT MAX-HASH ...) ; compiling (DEFTYPE HASH ...) ; compiling (DECLAIM (INLINE POINTER-HASH)) ; compiling (DEFUN POINTER-HASH ...) ; compiling (DECLAIM (INLINE EQ-HASH)) ; compiling (DEFUN EQ-HASH ...) ; compiling (DECLAIM (INLINE EQUAL-HASH)) ; compiling (DEFUN EQUAL-HASH ...) ; compiling (DECLAIM (INLINE EQL-HASH)) ; compiling (DEFUN EQL-HASH ...) ; compiling (DEFUN EQUALP-HASH ...) ; compiling (DEFUN ALMOST-PRIMIFY ...) ; compiling (DEFVAR *HASH-TABLE-TESTS* ...) ; compiling (DEFUN DEFINE-HASH-TABLE-TEST ...) ; compiling (DEFCONSTANT +MIN-HASH-TABLE-SIZE+ ...) ; compiling (DEFCONSTANT +MIN-HASH-TABLE-REHASH-THRESHOLD+ ...) ; compiling (DEFUN MAKE-HASH-TABLE ...) ; compiling (DEFUN HASH-TABLE-COUNT ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFUN HASH-TABLE-SIZE ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFUN REHASH ...) ; compiling (DEFUN REHASH-WITHOUT-GROWING ...) ; compiling (DEFUN FLUSH-NEEDING-REHASH ...) ; compiling (DEFUN GETHASH ...) ; compiling (DEFUN GETHASH2 ...) ; compiling (DEFUN GETHASH3 ...) ; compiling (DEFUN (SETF GETHASH) ...) ; compiling (DEFUN %PUTHASH ...) ; compiling (DEFUN REMHASH ...) ; compiling (DEFUN CLRHASH ...) ; compiling (DECLAIM (INLINE MAPHASH)) ; compiling (DEFUN MAPHASH ...) ; compiling (DEFUN %HASH-TABLE-CTOR-ARGS ...) ; compiling (DEFUN %HASH-TABLE-ALIST ...) ; compiling (DEFUN %STUFF-HASH-TABLE ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-hash-table.lisp ; in: DEFMACRO WITH-SPINLOCK-AND-WITHOUT-GCING ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-hash-table.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/reader.lisp" (written 05 APR 2006 08:08:40 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *READ-DEFAULT-FLOAT-FORMAT* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *READTABLE*) ; compiling (DECLAIM (TYPE READTABLE ...)) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFVAR *STANDARD-READTABLE*) ; compiling (DEFVAR *OLD-PACKAGE* ...) ; compiling (DECLAIM (SPECIAL *PACKAGE* ...)) ; compiling (DEFUN READER-EOF-ERROR ...) ; compiling (DEFUN %READER-ERROR ...) ; compiling (DEFMACRO GET-CAT-ENTRY ...) ; compiling (DEFUN SET-CAT-ENTRY ...) ; compiling (DEFUN GET-COERCED-CMT-ENTRY ...) ; compiling (DEFUN SET-CMT-ENTRY ...) ; compiling (DEFUN UNDEFINED-MACRO-CHAR ...) ; compiling (DEFMACRO TEST-ATTRIBUTE ...) ; compiling (DECLAIM (INLINE WHITESPACE[1]P ...)) ; compiling (DEFUN WHITESPACE[1]P ...) ; compiling (DEFUN WHITESPACE[2]P ...) ; compiling (DEFMACRO CONSTITUENTP ...) ; compiling (DEFMACRO TERMINATING-MACROP ...) ; compiling (DEFMACRO SINGLE-ESCAPE-P ...) ; compiling (DEFMACRO MULTIPLE-ESCAPE-P ...) ; compiling (DEFMACRO TOKEN-DELIMITERP ...) ; compiling (DEFVAR *CONSTITUENT-TRAIT-TABLE*) ; compiling (DECLAIM (TYPE ATTRIBUTE-TABLE ...)) ; compiling (DEFUN !SET-CONSTITUENT-TRAIT ...) ; compiling (DEFUN !COLD-INIT-CONSTITUENT-TRAIT-TABLE ...) ; compiling (DEFMACRO GET-CONSTITUENT-TRAIT ...) ; compiling (DEFUN SHALLOW-REPLACE/EQL-HASH-TABLE ...) ; compiling (DEFUN COPY-READTABLE ...) ; compiling (DEFUN SET-SYNTAX-FROM-CHAR ...) ; compiling (DEFUN SET-MACRO-CHARACTER ...) ; compiling (DEFUN GET-MACRO-CHARACTER ...) ; compiling (DEFMACRO EOFP ...) ; compiling (DEFUN FLUSH-WHITESPACE ...) ; compiling (DEFUN !COLD-INIT-STANDARD-READTABLE ...) ; compiling (DEFVAR *READ-BUFFER*) ; compiling (DEFVAR *READ-BUFFER-LENGTH*) ; compiling (DEFVAR *INCH-PTR*) ; compiling (DEFVAR *OUCH-PTR*) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFMACRO RESET-READ-BUFFER ...) ; compiling (DEFMACRO OUCH-READ-BUFFER ...) ; compiling (DEFMACRO OUCH-UNREAD-BUFFER ...) ; compiling (DEFUN GROW-READ-BUFFER ...) ; compiling (DEFUN INCHPEEK-READ-BUFFER ...) ; compiling (DEFUN INCH-READ-BUFFER ...) ; compiling (DEFMACRO UNREAD-BUFFER ...) ; compiling (DEFUN READ-UNWIND-READ-BUFFER ...) ; compiling (DEFUN READ-BUFFER-TO-STRING ...) ; compiling (DEFMACRO WITH-READER ...) ; compiling (DEFVAR *SHARP-EQUAL-ALIST* ...) ; compiling (DECLAIM (SPECIAL *STANDARD-INPUT*)) ; compiling (DEFUN READ-PRESERVING-WHITESPACE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/reader.lisp ; in: DEFUN READ-PRESERVING-WHITESPACE ; (LET ((SB!IMPL::*SHARP-EQUAL-ALIST* NIL)) ; (READ-PRESERVING-WHITESPACE STREAM SB!IMPL::EOF-ERROR-P SB!IMPL::EOF-VALUE ; T)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN READ-MAYBE-NOTHING ...) ; compiling (DEFUN READ ...) ; compiling (DEFUN READ-DELIMITED-LIST ...) ; compiling (DEFUN READ-QUOTE ...) ; compiling (DEFUN READ-COMMENT ...) ; compiling (DEFUN READ-LIST ...) ; compiling (DEFUN READ-AFTER-DOT ...) ; compiling (DEFUN READ-STRING ...) ; compiling (DEFUN READ-RIGHT-PAREN ...) ; compiling (DEFUN INTERNAL-READ-EXTENDED-TOKEN ...) ; compiling (DEFMACRO CHAR-CLASS ...) ; compiling (DEFMACRO CHAR-CLASS2 ...) ; compiling (DEFMACRO CHAR-CLASS3 ...) ; compiling (DEFVAR *READ-SUPPRESS* ...) ; compiling (DEFVAR *READ-BASE* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFUN CASIFY-READ-BUFFER ...) ; compiling (DEFUN READ-TOKEN ...) ; compiling (DEFUN READ-EXTENDED-TOKEN ...) ; compiling (DEFUN READ-EXTENDED-TOKEN-ESCAPED ...) ; compiling (DEFMACRO DIGIT* ...) ; compiling (DEFMACRO EXPONENT-LETTERP ...) ; compiling (DEFVAR *INTEGER-READER-SAFE-DIGITS* ...) ; compiling (DEFVAR *INTEGER-READER-BASE-POWER* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *INTEGER-READER-SAFE-DIGITS* ...)) ; compiling (DEFUN MAKE-INTEGER ...) ; compiling (DEFUN MAKE-FLOAT ...) ; compiling (DEFUN MAKE-FLOAT-AUX ...) ; compiling (DEFUN MAKE-RATIO ...) ; compiling (DEFUN MAKE-CHAR-DISPATCH-TABLE ...) ; compiling (DEFUN DISPATCH-CHAR-ERROR ...) ; compiling (DEFUN MAKE-DISPATCH-MACRO-CHARACTER ...) ; compiling (DEFUN SET-DISPATCH-MACRO-CHARACTER ...) ; compiling (DEFUN GET-DISPATCH-MACRO-CHARACTER ...) ; compiling (DEFUN READ-DISPATCH-CHAR ...) ; compiling (DEFUN READ-FROM-STRING ...) ; compiling (DEFUN PARSE-INTEGER ...) ; compiling (DEFUN !READER-COLD-INIT ...) ; compiling (DEF!METHOD PRINT-OBJECT ...); ; compilation unit finished ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/reader.lisp-obj-tmp written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-stream.lisp" (written 10 AUG 2005 08:57:33 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (SB-XC:DEFMACRO GENERALIZED-PEEKING-MECHANISM ...) ; compiling (DECLAIM (INLINE ANSI-STREAM-PEEK-CHAR)) ; compiling (DEFUN ANSI-STREAM-PEEK-CHAR ...) ; compiling (DEFUN PEEK-CHAR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-stream.lisp ; in: DEFUN PEEK-CHAR ; (SB!GRAY:STREAM-UNREAD-CHAR STREAM CHAR) ; ==> ; STREAM ; ; note: deleting unreachable code ; in: SB-XC:DEFMACRO GENERALIZED-PEEKING-MECHANISM ; (SB!INT:BUG "Impossible case reached in PEEK-CHAR") ; ==> ; "Impossible case reached in PEEK-CHAR" ; ; note: deleting unreachable code ; in: DEFUN PEEK-CHAR ; (SB!GRAY:STREAM-PEEK-CHAR STREAM) ; ==> ; STREAM ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; in: SB-XC:DEFMACRO GENERALIZED-PEEKING-MECHANISM ; (SB!INT:BUG "Impossible case reached in PEEK-CHAR") ; ==> ; "Impossible case reached in PEEK-CHAR" ; ; note: deleting unreachable code ; compiling (DEFUN ECHO-MISC ...); ; compilation unit finished ; printed 5 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-stream.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-pathname.lisp" (written 19 NOV 2006 04:27:13 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (FREEZE-TYPE LOGICAL-PATHNAME ...)) ; compiling (DEF!STRUCT (UNIX-HOST # ...)) ; compiling (DEFVAR *UNIX-HOST* ...) ; compiling (DEFUN MAKE-UNIX-HOST-LOAD-FORM ...) ; compiling (DEF!STRUCT (WIN32-HOST # ...)) ; compiling (DEFPARAMETER *WIN32-HOST* ...) ; compiling (DEFUN MAKE-WIN32-HOST-LOAD-FORM ...) ; compiling (DEFVAR *PHYSICAL-HOST* ...) ; compiling (DEFUN MAKE-TRIVIAL-DEFAULT-PATHNAME ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; compiling (DEFUN %MAKE-MAYBE-LOGICAL-PATHNAME ...) ; compiling (DEFVAR *LOGICAL-HOSTS* ...) ; compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN PATTERN= ...) ; compiling (DEFUN PATTERN-MATCHES ...) ; compiling (DEFUN DIRECTORY-COMPONENTS-MATCH ...) ; compiling (DEFUN COMPONENTS-MATCH ...) ; compiling (DEFUN COMPARE-COMPONENT ...) ; compiling (DEFUN PATHNAME= ...) ; compiling (DEFMACRO WITH-PATHNAME ...) ; compiling (DEFMACRO WITH-NATIVE-PATHNAME ...) ; compiling (DEFMACRO WITH-HOST ...) ; compiling (DEFUN FIND-HOST ...) ; compiling (DEFUN PATHNAME ...) ; compiling (DEFUN NATIVE-PATHNAME ...) ; compiling (DEFUN MAYBE-DIDDLE-CASE ...) ; compiling (DEFUN MERGE-DIRECTORIES ...) ; compiling (DEFUN MERGE-PATHNAMES ...) ; compiling (DEFUN IMPORT-DIRECTORY ...) ; compiling (DEFUN MAKE-PATHNAME ...) ; compiling (DEFUN PATHNAME-HOST ...) ; compiling (DEFUN PATHNAME-DEVICE ...) ; compiling (DEFUN PATHNAME-DIRECTORY ...) ; compiling (DEFUN PATHNAME-NAME ...) ; compiling (DEFUN PATHNAME-TYPE ...) ; compiling (DEFUN PATHNAME-VERSION ...) ; compiling (DEFUN PARSEABLE-LOGICAL-NAMESTRING-P ...) ; compiling (DEFUN %PARSE-NAMESTRING ...) ; compiling (DEFUN EXTRACT-LOGICAL-HOST-PREFIX ...) ; compiling (DEFUN PARSE-NAMESTRING ...) ; compiling (DEFUN %PARSE-NATIVE-NAMESTRING ...) ; compiling (DEFUN PARSE-NATIVE-NAMESTRING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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) ; "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." ; (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!INT:COLD-FSET ; ==> ; (THE ; # ; (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 536870911)) &REST ...). ; compiling (DEFUN NAMESTRING ...) ; compiling (DEFUN NATIVE-NAMESTRING ...) ; compiling (DEFUN HOST-NAMESTRING ...) ; compiling (DEFUN DIRECTORY-NAMESTRING ...) ; compiling (DEFUN FILE-NAMESTRING ...) ; compiling (DEFUN ENOUGH-NAMESTRING ...) ; compiling (DEFUN WILD-PATHNAME-P ...) ; compiling (DEFUN PATHNAME-MATCH-P ...) ; compiling (DEFUN SUBSTITUTE-INTO ...) ; compiling (DEFUN DIDNT-MATCH-ERROR ...) ; compiling (DEFUN TRANSLATE-COMPONENT ...) ; compiling (DEFUN COMPUTE-DIRECTORY-SUBSTITUTIONS ...) ; compiling (DEFUN TRANSLATE-DIRECTORIES ...) ; compiling (DEFUN TRANSLATE-PATHNAME ...) ; compiling (DEFUN SIMPLIFY-NAMESTRING ...) ; compiling (DEFUN LOGICAL-WORD-OR-LOSE ...) ; compiling (DEFUN FIND-LOGICAL-HOST ...) ; compiling (DEFUN INTERN-LOGICAL-HOST ...) ; compiling (DEFUN MAYBE-MAKE-LOGICAL-PATTERN ...) ; compiling (DEFUN LOGICAL-CHUNKIFY ...) ; compiling (DEFUN PARSE-LOGICAL-NAMESTRING ...) ; compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS*) ; compiling (DEFUN LOGICAL-PATHNAME ...) ; compiling (DEFUN UNPARSE-LOGICAL-DIRECTORY ...) ; compiling (DEFUN UNPARSE-LOGICAL-PIECE ...) ; compiling (DEFUN UNPARSE-LOGICAL-FILE ...) ; compiling (DEFUN UNPARSE-ENOUGH-NAMESTRING ...) ; compiling (DEFUN UNPARSE-LOGICAL-NAMESTRING ...) ; compiling (DEFUN CANONICALIZE-LOGICAL-PATHNAME-TRANSLATIONS ...) ; compiling (DEFUN LOGICAL-PATHNAME-TRANSLATIONS ...) ; compiling (DEFUN (SETF LOGICAL-PATHNAME-TRANSLATIONS) ...) ; compiling (DEFUN TRANSLATE-LOGICAL-PATHNAME ...) ; compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS* ...) ; compiling (DEFUN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-pathname.lisp ; in: ; DEF!STRUCT (UNIX-HOST (:MAKE-LOAD-FORM-FUN MAKE-UNIX-HOST-LOAD-FORM) ; (:INCLUDE HOST (PARSE #'PARSE-UNIX-NAMESTRING) ; (PARSE-NATIVE #'PARSE-NATIVE-UNIX-NAMESTRING) ; (UNPARSE #'UNPARSE-UNIX-NAMESTRING) ...)) ; #'SB!IMPL::PARSE-NATIVE-UNIX-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: PARSE-NATIVE-UNIX-NAMESTRING ; in: ; DEF!STRUCT (WIN32-HOST (:MAKE-LOAD-FORM-FUN MAKE-WIN32-HOST-LOAD-FORM) ; (:INCLUDE HOST (PARSE #'PARSE-WIN32-NAMESTRING) ; (PARSE-NATIVE #'PARSE-NATIVE-WIN32-NAMESTRING) ; (UNPARSE #'UNPARSE-WIN32-NAMESTRING) ...)) ; #'SB!IMPL::PARSE-NATIVE-WIN32-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: PARSE-NATIVE-WIN32-NAMESTRING ; in: ; DEF!STRUCT (UNIX-HOST (:MAKE-LOAD-FORM-FUN MAKE-UNIX-HOST-LOAD-FORM) ; (:INCLUDE HOST (PARSE #'PARSE-UNIX-NAMESTRING) ; (PARSE-NATIVE #'PARSE-NATIVE-UNIX-NAMESTRING) ; (UNPARSE #'UNPARSE-UNIX-NAMESTRING) ...)) ; #'SB!IMPL::PARSE-UNIX-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: PARSE-UNIX-NAMESTRING ; in: ; DEF!STRUCT (WIN32-HOST (:MAKE-LOAD-FORM-FUN MAKE-WIN32-HOST-LOAD-FORM) ; (:INCLUDE HOST (PARSE #'PARSE-WIN32-NAMESTRING) ; (PARSE-NATIVE #'PARSE-NATIVE-WIN32-NAMESTRING) ; (UNPARSE #'UNPARSE-WIN32-NAMESTRING) ...)) ; #'SB!IMPL::PARSE-WIN32-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: PARSE-WIN32-NAMESTRING ; in: ; DEF!STRUCT (UNIX-HOST (:MAKE-LOAD-FORM-FUN MAKE-UNIX-HOST-LOAD-FORM) ; (:INCLUDE HOST (PARSE #'PARSE-UNIX-NAMESTRING) ; (PARSE-NATIVE #'PARSE-NATIVE-UNIX-NAMESTRING) ; (UNPARSE #'UNPARSE-UNIX-NAMESTRING) ...)) ; #'SB!IMPL::SIMPLIFY-UNIX-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: SIMPLIFY-UNIX-NAMESTRING ; in: ; DEF!STRUCT (WIN32-HOST (:MAKE-LOAD-FORM-FUN MAKE-WIN32-HOST-LOAD-FORM) ; (:INCLUDE HOST (PARSE #'PARSE-WIN32-NAMESTRING) ; (PARSE-NATIVE #'PARSE-NATIVE-WIN32-NAMESTRING) ; (UNPARSE #'UNPARSE-WIN32-NAMESTRING) ...)) ; #'SB!IMPL::SIMPLIFY-WIN32-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: SIMPLIFY-WIN32-NAMESTRING ; in: ; DEF!STRUCT (UNIX-HOST (:MAKE-LOAD-FORM-FUN MAKE-UNIX-HOST-LOAD-FORM) ; (:INCLUDE HOST (PARSE #'PARSE-UNIX-NAMESTRING) ; (PARSE-NATIVE #'PARSE-NATIVE-UNIX-NAMESTRING) ; (UNPARSE #'UNPARSE-UNIX-NAMESTRING) ...)) ; #'SB!IMPL::UNPARSE-NATIVE-UNIX-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-NATIVE-UNIX-NAMESTRING ; in: ; DEF!STRUCT (WIN32-HOST (:MAKE-LOAD-FORM-FUN MAKE-WIN32-HOST-LOAD-FORM) ; (:INCLUDE HOST (PARSE #'PARSE-WIN32-NAMESTRING) ; (PARSE-NATIVE #'PARSE-NATIVE-WIN32-NAMESTRING) ; (UNPARSE #'UNPARSE-WIN32-NAMESTRING) ...)) ; #'SB!IMPL::UNPARSE-NATIVE-WIN32-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-NATIVE-WIN32-NAMESTRING ; in: ; DEF!STRUCT (UNIX-HOST (:MAKE-LOAD-FORM-FUN MAKE-UNIX-HOST-LOAD-FORM) ; (:INCLUDE HOST (PARSE #'PARSE-UNIX-NAMESTRING) ; (PARSE-NATIVE #'PARSE-NATIVE-UNIX-NAMESTRING) ; (UNPARSE #'UNPARSE-UNIX-NAMESTRING) ...)) ; #'SB!IMPL::UNPARSE-UNIX-DIRECTORY ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-UNIX-DIRECTORY ; #'SB!IMPL::UNPARSE-UNIX-ENOUGH ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-UNIX-ENOUGH ; #'SB!IMPL::UNPARSE-UNIX-FILE ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-UNIX-FILE ; #'SB!IMPL::UNPARSE-UNIX-HOST ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-UNIX-HOST ; #'SB!IMPL::UNPARSE-UNIX-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-UNIX-NAMESTRING ; in: ; DEF!STRUCT (WIN32-HOST (:MAKE-LOAD-FORM-FUN MAKE-WIN32-HOST-LOAD-FORM) ; (:INCLUDE HOST (PARSE #'PARSE-WIN32-NAMESTRING) ; (PARSE-NATIVE #'PARSE-NATIVE-WIN32-NAMESTRING) ; (UNPARSE #'UNPARSE-WIN32-NAMESTRING) ...)) ; #'SB!IMPL::UNPARSE-WIN32-DIRECTORY ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-WIN32-DIRECTORY ; #'SB!IMPL::UNPARSE-WIN32-ENOUGH ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-WIN32-ENOUGH ; #'SB!IMPL::UNPARSE-WIN32-FILE ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-WIN32-FILE ; #'SB!IMPL::UNPARSE-WIN32-HOST ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-WIN32-HOST ; #'SB!IMPL::UNPARSE-WIN32-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-WIN32-NAMESTRING ; ; caught STYLE-WARNING: ; These functions are undefined: ; PARSE-NATIVE-UNIX-NAMESTRING PARSE-NATIVE-WIN32-NAMESTRING PARSE-UNIX-NAMESTRING PARSE-WIN32-NAMESTRING SIMPLIFY-UNIX-NAMESTRING SIMPLIFY-WIN32-NAMESTRING UNPARSE-NATIVE-UNIX-NAMESTRING UNPARSE-NATIVE-WIN32-NAMESTRING UNPARSE-UNIX-DIRECTORY UNPARSE-UNIX-ENOUGH UNPARSE-UNIX-FILE UNPARSE-UNIX-HOST UNPARSE-UNIX-NAMESTRING UNPARSE-WIN32-DIRECTORY UNPARSE-WIN32-ENOUGH UNPARSE-WIN32-FILE UNPARSE-WIN32-HOST UNPARSE-WIN32-NAMESTRING ; ; compilation unit finished ; caught 19 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-pathname.lisp-obj-tmp written ; compilation finished in 0:00:06 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/unix-pathname.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN SPLIT-AT-SLASHES ...) ; compiling (DEFUN PARSE-UNIX-NAMESTRING ...) ; compiling (DEFUN PARSE-NATIVE-UNIX-NAMESTRING ...) ; compiling (/SHOW0 "filesys.lisp 300") ; compiling (DEFUN UNPARSE-UNIX-HOST ...) ; compiling (DEFUN UNPARSE-UNIX-PIECE ...) ; compiling (DEFUN UNPARSE-UNIX-DIRECTORY-LIST ...) ; compiling (DEFUN UNPARSE-UNIX-DIRECTORY ...) ; compiling (DEFUN UNPARSE-UNIX-FILE ...) ; compiling (/SHOW0 "filesys.lisp 406") ; compiling (DEFUN UNPARSE-UNIX-NAMESTRING ...) ; compiling (DEFUN UNPARSE-NATIVE-UNIX-NAMESTRING ...) ; compiling (DEFUN UNPARSE-UNIX-ENOUGH ...) ; compiling (DEFUN SIMPLIFY-UNIX-NAMESTRING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; EXTRACT-NAME-TYPE-AND-VERSION MAYBE-MAKE-PATTERN ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/unix-pathname.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/win32-pathname.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN EXTRACT-DEVICE ...) ; compiling (DEFUN SPLIT-AT-SLASHES-AND-BACKSLASHES ...) ; compiling (DEFUN PARSE-WIN32-NAMESTRING ...) ; compiling (DEFUN PARSE-NATIVE-WIN32-NAMESTRING ...) ; compiling (DEFUN UNPARSE-WIN32-HOST ...) ; compiling (DEFUN UNPARSE-WIN32-DEVICE ...) ; compiling (DEFUN UNPARSE-WIN32-PIECE ...) ; compiling (DEFUN UNPARSE-WIN32-DIRECTORY-LIST ...) ; compiling (DEFUN UNPARSE-WIN32-DIRECTORY ...) ; compiling (DEFUN UNPARSE-WIN32-FILE ...) ; compiling (DEFUN UNPARSE-WIN32-NAMESTRING ...) ; compiling (DEFUN UNPARSE-NATIVE-WIN32-NAMESTRING ...) ; compiling (DEFUN UNPARSE-WIN32-ENOUGH ...) ; compiling (DEFUN SIMPLIFY-WIN32-NAMESTRING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/win32-pathname.lisp ; in: DEFUN PARSE-WIN32-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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; EXTRACT-NAME-TYPE-AND-VERSION MAYBE-MAKE-PATTERN ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/win32-pathname.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/filesys.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN REMOVE-BACKSLASHES ...) ; compiling (DEFVAR *IGNORE-WILDCARDS* ...) ; compiling (/SHOW0 "filesys.lisp 86") ; compiling (DEFUN MAYBE-MAKE-PATTERN ...) ; compiling (/SHOW0 "filesys.lisp 160") ; compiling (DEFUN EXTRACT-NAME-TYPE-AND-VERSION ...) ; compiling (/SHOW0 "filesys.lisp 200") ; compiling (DEFUN DIRECTORY-LISPY-FILENAMES ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/filesys.lisp ; in: DEFUN DIRECTORY-LISPY-FILENAMES ; (SB!INT:C-STRINGS->STRING-LIST SB!IMPL::ADLF) ; --> SB!IMPL::ADLF 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 ; compiling (/SHOW0 "filesys.lisp 498") ; compiling (DEFMACRO !ENUMERATE-MATCHES ...) ; compiling (/SHOW0 "filesys.lisp 500") ; compiling (DEFUN %ENUMERATE-MATCHES ...) ; compiling (DEFUN %ENUMERATE-DIRECTORIES ...) ; compiling (DEFUN %ENUMERATE-FILES ...) ; compiling (/NOSHOW0 "filesys.lisp 603") ; compiling (DEFUN QUICK-INTEGER-TO-STRING ...) ; compiling (DEFUN EMPTY-RELATIVE-PATHNAME-SPEC-P ...) ; compiling (DEFUN UNIX-NAMESTRING ...) ; compiling (DEFUN TRUENAME ...) ; compiling (DEFUN PROBE-FILE ...) ; compiling (/SHOW0 "filesys.lisp 700") ; compiling (DEFUN RENAME-FILE ...) ; compiling (DEFUN DELETE-FILE ...) ; compiling (DEFUN ENSURE-TRAILING-SLASH ...) ; compiling (DEFUN SBCL-HOMEDIR-PATHNAME ...) ; compiling (DEFUN USER-HOMEDIR-PATHNAME ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/filesys.lisp ; in: DEFUN USER-HOMEDIR-PATHNAME ; (DEFUN USER-HOMEDIR-PATHNAME (&OPTIONAL SB!KERNEL:HOST) ; "Return the home directory of the user as a pathname. If the HOME ; environment variable has been specified, the directory it designates ; is returned; otherwise obtains the home directory from the operating ; system." ; (DECLARE (IGNORE SB!KERNEL:HOST)) ; (LET ((SB!IMPL::ENV-HOME (SB!EXT:POSIX-GETENV "HOME"))) ; (SB!EXT:PARSE-NATIVE-NAMESTRING ; (SB!IMPL::ENSURE-TRAILING-SLASH (IF # SB!IMPL::ENV-HOME #))))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET USER-HOMEDIR-PATHNAME ; (LAMBDA (&OPTIONAL SB!KERNEL:HOST) ; (DECLARE (IGNORE SB!KERNEL:HOST)) ; (BLOCK USER-HOMEDIR-PATHNAME ; (LET (#) ; (SB!EXT:PARSE-NATIVE-NAMESTRING #))))) ; ; note: type assertion too complex to check: ; (VALUES PATHNAME &OPTIONAL). ; compiling (DEFUN FILE-WRITE-DATE ...) ; compiling (DEFUN FILE-AUTHOR ...) ; compiling (/SHOW0 "filesys.lisp 800") ; compiling (DEFUN PATHNAME-INTERSECTIONS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFUN INTERSECT-DIRECTORY-HELPER ...) ; compiling (DEFUN DIRECTORY ...) ; compiling (/SHOW0 "filesys.lisp 899") ; compiling (DEFUN PATHNAME-ORDER ...) ; compiling (DEFUN ENSURE-DIRECTORIES-EXIST ...) ; compiling (/SHOW0 "filesys.lisp 1000"); ; compilation unit finished ; printed 4 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/filesys.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/save.lisp" (written 30 OCT 2006 11:15:04 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFINE-ALIEN-ROUTINE "save" ...) ; compiling (DEFINE-ALIEN-ROUTINE "gc_and_save" ...) ; compiling (DEFVAR SB!VM::*RESTART-LISP-FUNCTION*) ; compiling (DEFUN SAVE-LISP-AND-DIE ...) ; compiling (DEFUN DEINIT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/save.lisp ; in: DEFUN SAVE-LISP-AND-DIE ; (SB!KERNEL::COMPACT-ENVIRONMENT-AUX "Auxiliary" 200) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::COMPACT-ENVIRONMENT-AUX ; in: DEFUN DEINIT ; (SB!KERNEL:DEBUG-DEINIT) ; ; caught STYLE-WARNING: ; undefined function: DEBUG-DEINIT ; (SB!THREAD:LIST-ALL-THREADS) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:LIST-ALL-THREADS ; in: DEFUN SAVE-LISP-AND-DIE ; (SB!SYS:WITHOUT-GCING ; (SB!IMPL::SAVE (SB!INT:UNIX-NAMESTRING SB!IMPL::CORE-FILE-NAME NIL) ; (SB!KERNEL:GET-LISP-OBJ-ADDRESS #'SB!IMPL::RESTART-LISP) ; (IF SB!IMPL::EXECUTABLE 1 0))) ; --> UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; in: DEFUN DEINIT ; (SB!KERNEL:PROFILE-DEINIT) ; ; caught STYLE-WARNING: ; undefined function: PROFILE-DEINIT ; in: DEFUN SAVE-LISP-AND-DIE ; (SB!EXT:PURIFY :ROOT-STRUCTURES SB!IMPL::ROOT-STRUCTURES :ENVIRONMENT-NAME ; SB!IMPL::ENVIRONMENT-NAME) ; ; caught STYLE-WARNING: ; undefined function: PURIFY ; (SB!IMPL::REINIT) ; ; caught STYLE-WARNING: ; undefined function: REINIT ; (SB!IMPL::HANDLING-END-OF-THE-WORLD (SB!IMPL::REINIT) ; (FUNCALL SB!IMPL::TOPLEVEL)) ; --> LET ; ==> ; (SB!THREAD::TERMINATE-SESSION) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::TERMINATE-SESSION ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!KERNEL::COMPACT-ENVIRONMENT-AUX DEBUG-DEINIT SB!THREAD:LIST-ALL-THREADS SB!KERNEL::MAYBE-HANDLE-PENDING-GC PROFILE-DEINIT PURIFY REINIT SB!THREAD::TERMINATE-SESSION ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/save.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sharpm.lisp" (written 14 JUN 2006 02:52:06 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (SPECIAL *READ-SUPPRESS* ...)) ; compiling (DEFUN IGNORE-NUMARG ...) ; compiling (DEFUN SHARP-LEFT-PAREN ...) ; compiling (DEFUN SHARP-STAR ...) ; compiling (DEFUN SHARP-A ...) ; compiling (DEFUN SHARP-S ...) ; compiling (DEFUN SHARP-B ...) ; compiling (DEFUN SHARP-C ...) ; compiling (DEFUN SHARP-O ...) ; compiling (DEFUN SHARP-R ...) ; compiling (DEFUN SHARP-X ...) ; compiling (DEFVAR *SHARP-EQUAL-CIRCLE-TABLE*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFUN CIRCLE-SUBST ...) ; compiling (DEFVAR *SHARP-SHARP-ALIST* ...) ; compiling (DEFUN SHARP-EQUAL ...) ; compiling (DEFUN SHARP-SHARP ...) ; compiling (FLET (#) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sharpm.lisp ; in: DEFUN SHARP-PLUS ; (DEFUN SB!IMPL::SHARP-PLUS (STREAM SB!IMPL::SUB-CHAR SB!IMPL::NUMARG) ; (SB!IMPL::IGNORE-NUMARG SB!IMPL::SUB-CHAR SB!IMPL::NUMARG) ; (SB!IMPL::GUTS STREAM NIL)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::SHARP-PLUS ; (LAMBDA (STREAM SB!IMPL::SUB-CHAR SB!IMPL::NUMARG) ; (BLOCK SB!IMPL::SHARP-PLUS ; (SB!IMPL::IGNORE-NUMARG SB!IMPL::SUB-CHAR ; SB!IMPL::NUMARG) ; (SB!IMPL::GUTS STREAM NIL)))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET SHARP-PLUS #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET SHARP-PLUS not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; in: DEFUN SHARP-MINUS ; (DEFUN SB!IMPL::SHARP-MINUS (STREAM SB!IMPL::SUB-CHAR SB!IMPL::NUMARG) ; (SB!IMPL::IGNORE-NUMARG SB!IMPL::SUB-CHAR SB!IMPL::NUMARG) ; (SB!IMPL::GUTS STREAM T)) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::SHARP-MINUS ; (LAMBDA (STREAM SB!IMPL::SUB-CHAR SB!IMPL::NUMARG) ; (BLOCK SB!IMPL::SHARP-MINUS ; (SB!IMPL::IGNORE-NUMARG SB!IMPL::SUB-CHAR ; SB!IMPL::NUMARG) ; (SB!IMPL::GUTS STREAM T)))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET SHARP-MINUS #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET SHARP-MINUS not cross-compiled at top level: demoting to (SETF ; FDEFINITION) ; compiling (DEFUN SHARP-P ...) ; compiling (DEFUN SHARP-BACKSLASH ...) ; compiling (DEFUN SHARP-VERTICAL-BAR ...) ; compiling (DEFUN SHARP-QUOTE ...) ; compiling (DEFUN SHARP-COLON ...) ; compiling (DEFVAR *READ-EVAL* ...) ; compiling (DEFUN SHARP-DOT ...) ; compiling (DEFUN SHARP-ILLEGAL ...) ; compiling (DEFUN !SHARPM-COLD-INIT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sharpm.lisp ; in: DEFUN CIRCLE-SUBST ; (TYPEP SB!IMPL::TREE '(OR CONS (ARRAY T) STRUCTURE-OBJECT STANDARD-OBJECT)) ; --> LET OR LET IF OR LET IF OR LET IF OR ; ==> ; (TYPEP #:ONCE-ONLY-245 'STANDARD-OBJECT) ; ; caught STYLE-WARNING: ; undefined type: STANDARD-OBJECT ; ; caught STYLE-WARNING: ; undefined type: STANDARD-OBJECT ; ; caught STYLE-WARNING: ; undefined type: STANDARD-OBJECT ; ; caught STYLE-WARNING: ; 37 more uses of undefined type STANDARD-OBJECT ; ; caught STYLE-WARNING: ; This type is undefined: ; STANDARD-OBJECT ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/sharpm.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/alloc.lisp" (written 14 JUL 2005 05:30:12 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DECLAIM (INLINE STORE-WORD)) ; compiling (DEFUN STORE-WORD ...) ; compiling (DEFUN ALLOCATE-STATIC-VECTOR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/alloc.lisp ; in: DEFUN ALLOCATE-STATIC-VECTOR ; (SB!SYS:WITHOUT-GCING ; (LET* ((SB!SYS:POINTER SB!VM:*STATIC-SPACE-FREE-POINTER*) ; (SB!VM::FREE (* SB!SYS:POINTER SB!VM:N-WORD-BYTES)) ; (VECTOR (LOGIOR SB!VM::FREE SB!VM:OTHER-POINTER-LOWTAG)) ; (SB!VM::NWORDS (LOGANDC2 # SB!VM:LOWTAG-MASK)) ; (SB!VM::NEW-POINTER ; (+ SB!VM:*STATIC-SPACE-FREE-POINTER* SB!VM::NWORDS)) ; (SB!VM::NEW-FREE (* SB!VM::NEW-POINTER SB!VM:N-WORD-BYTES))) ; (UNLESS (> SB!VM:STATIC-SPACE-END SB!VM::NEW-FREE) ; (ERROR 'SB!INT:SIMPLE-STORAGE-CONDITION :FORMAT-CONTROL ; "Not enough memory left in static space to ~ ; allocate vector.")) ; (SB!VM::STORE-WORD SB!VM::WIDETAG VECTOR 0 SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STORE-WORD (ASH LENGTH SB!VM:WORD-SHIFT) VECTOR ; SB!VM:VECTOR-LENGTH-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STORE-WORD 0 SB!VM::NEW-FREE) ; (PROG1 (SB!KERNEL:MAKE-LISP-OBJ VECTOR) ; (SETF SB!VM:*STATIC-SPACE-FREE-POINTER* SB!VM::NEW-POINTER)))) ; --> UNWIND-PROTECT FLET BLOCK ; ==> ; (SB!KERNEL::MAYBE-HANDLE-PENDING-GC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!KERNEL::MAYBE-HANDLE-PENDING-GC ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/alloc.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-step.lisp" (written 18 SEP 2006 09:09:13 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-step.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-thread.lisp" (written 28 NOV 2006 01:34:07 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (SETF (SB!KERNEL:FDOCUMENTATION # ...) ...) ; compiling (DEFSTRUCT (THREAD #) ...) ; compiling (SETF (SB!KERNEL:FDOCUMENTATION # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN THREAD-ALIVE-P ...) ; compiling (DEFVAR *ALL-THREADS* ...) ; compiling (DEFVAR *ALL-THREADS-LOCK* ...) ; compiling (DEFMACRO WITH-ALL-THREADS-LOCK ...) ; compiling (DEFUN LIST-ALL-THREADS ...) ; compiling (DECLAIM (INLINE CURRENT-THREAD-SAP)) ; compiling (DEFUN CURRENT-THREAD-SAP ...) ; compiling (DECLAIM (INLINE CURRENT-THREAD-SAP-ID)) ; compiling (DEFUN CURRENT-THREAD-SAP-ID ...) ; compiling (DEFUN INIT-INITIAL-THREAD ...) ; compiling (DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP)) ; compiling (DEFUN SB!VM::CURRENT-THREAD-OFFSET-SAP ...) ; compiling (DECLAIM (INLINE GET-SPINLOCK ...)) ; compiling (DEFUN GET-SPINLOCK ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-thread.lisp ; in: DEFUN GET-SPINLOCK ; (DEFUN SB!THREAD::GET-SPINLOCK (SB!THREAD::SPINLOCK) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)) ; (IGNORE SB!THREAD::SPINLOCK SB!THREAD::NEW-VALUE))) ; --> PROGN ; ==> ; (SB!INT:COLD-FSET SB!THREAD::GET-SPINLOCK ; (LAMBDA (SB!THREAD::SPINLOCK) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)) ; (IGNORE SB!THREAD::SPINLOCK SB!THREAD::NEW-VALUE)) ; (BLOCK SB!THREAD::GET-SPINLOCK))) ; ; caught STYLE-WARNING: ; declaring unknown variable NEW-VALUE to be ignored ; compiling (DEFUN RELEASE-SPINLOCK ...) ; compiling (DEFMACRO WITH-SPINLOCK ...) ; compiling (SETF (SB!KERNEL:FDOCUMENTATION # ...) ...) ; compiling (DEFUN GET-MUTEX ...) ; compiling (DEFUN RELEASE-MUTEX ...) ; compiling (DEFSTRUCT (WAITQUEUE #) ...) ; compiling (DEFUN MAKE-WAITQUEUE ...) ; compiling (SETF (SB!KERNEL:FDOCUMENTATION # ...) ...) ; compiling (DEFUN CONDITION-WAIT ...) ; compiling (DEFUN CONDITION-NOTIFY ...) ; compiling (DEFUN CONDITION-BROADCAST ...) ; compiling (DEFSTRUCT (SEMAPHORE #) ...) ; compiling (DEFUN MAKE-SEMAPHORE ...) ; compiling (SETF (SB!KERNEL:FDOCUMENTATION # ...) ...) ; compiling (DEFUN WAIT-ON-SEMAPHORE ...) ; compiling (DEFUN SIGNAL-SEMAPHORE ...) ; compiling (DEFSTRUCT SESSION ...) ; compiling (DEFVAR *SESSION* ...) ; compiling (DEFMACRO WITH-SESSION-LOCK ...) ; compiling (DEFUN NEW-SESSION ...) ; compiling (DEFUN INIT-JOB-CONTROL ...) ; compiling (DEFUN %DELETE-THREAD-FROM-SESSION ...) ; compiling (DEFUN CALL-WITH-NEW-SESSION ...) ; compiling (DEFMACRO WITH-NEW-SESSION ...) ; compiling (DEFUN TERMINATE-SESSION ...) ; compiling (DEFUN DEBUGGER-WAIT-UNTIL-FOREGROUND-THREAD ...) ; compiling (DEFUN GET-FOREGROUND ...) ; compiling (DEFUN RELEASE-FOREGROUND ...) ; compiling (DEFUN FOREGROUND-THREAD ...) ; compiling (DEFUN MAKE-LISTENER-THREAD ...) ; compiling (DEFUN MAKE-THREAD ...) ; compiling (DEFUN DESTROY-THREAD ...) ; compiling (DEFINE-CONDITION INTERRUPT-THREAD-ERROR ...) ; compiling (SETF (SB!KERNEL:FDOCUMENTATION # ...) ...) ; compiling (DEFMACRO WITH-INTERRUPTIONS-LOCK ...) ; compiling (DEFUN RUN-INTERRUPTION ...) ; compiling (DEFUN INTERRUPT-THREAD ...) ; compiling (DEFUN TERMINATE-THREAD ...) ; compiling (DEFUN SB!VM::LOCKED-SYMBOL-GLOBAL-VALUE-ADD ...) ; compiling (DEFUN THREAD-STEPPING ...) ; compiling (DEFUN (SETF THREAD-STEPPING) ...); ; compilation unit finished ; caught 1 STYLE-WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-thread.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/gc.lisp" (written 26 OCT 2006 09:38:51 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DECLAIM (SPECIAL SB!VM:*READ-ONLY-SPACE-FREE-POINTER* ...)) ; compiling (DECLAIM (INLINE CURRENT-DYNAMIC-SPACE-START)) ; compiling (DEFUN CURRENT-DYNAMIC-SPACE-START ...) ; compiling (DECLAIM (INLINE DYNAMIC-USAGE)) ; compiling (DEF-C-VAR-FUN DYNAMIC-USAGE ...) ; compiling (DEFUN STATIC-SPACE-USAGE ...) ; compiling (DEFUN READ-ONLY-SPACE-USAGE ...) ; compiling (DEFUN CONTROL-STACK-USAGE ...) ; compiling (DEFUN BINDING-STACK-USAGE ...) ; compiling (DEFUN ROOM-MINIMAL-INFO ...) ; compiling (DEFUN ROOM-INTERMEDIATE-INFO ...) ; compiling (DEFUN ROOM-MAXIMAL-INFO ...) ; compiling (DEFUN ROOM ...) ; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; compiling (DEFVAR *N-BYTES-FREED-OR-PURIFIED* ...) ; compiling (DEFUN GC-REINIT ...) ; compiling (DECLAIM (FTYPE # ...)); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for GET-BYTES-CONSED does not match old FTYPE proclamation ; # ; compiling (DEFUN GET-BYTES-CONSED ...) ; compiling (DEFVAR *AFTER-GC-HOOKS* ...) ; compiling (DEFINE-ALIEN-ROUTINE COLLECT-GARBAGE ...) ; compiling (DEFUN GC-STOP-THE-WORLD ...) ; compiling (DEFUN GC-START-THE-WORLD ...) ; compiling (DEFVAR *ALREADY-IN-GC* ...) ; compiling (DEFUN SUB-GC ...) ; compiling (DEFUN GC ...) ; compiling (DEFUN UNSAFE-CLEAR-ROOTS ...) ; compiling (DEFUN BYTES-CONSED-BETWEEN-GCS ...) ; compiling (DEFUN (SETF BYTES-CONSED-BETWEEN-GCS) ...) ; compiling (DECLAIM (INLINE MAYBE-HANDLE-PENDING-GC)) ; compiling (DEFUN MAYBE-HANDLE-PENDING-GC ...) ; compiling (DEFUN GC-ON ...) ; compiling (DEFUN GC-OFF ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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-START*) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::DESCRIPTOR-SAP ; ; caught STYLE-WARNING: ; This function is undefined: ; SB!DI::DESCRIPTOR-SAP ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/gc.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/purify.lisp" (written 22 NOV 2005 01:01:17 AM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFINE-ALIEN-ROUTINE ("purify" %PURIFY) ...) ; compiling (DEFUN COMPACT-ENVIRONMENT-AUX ...) ; compiling (DEFUN PURIFY ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/purify.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/debug-int.lisp" (written 19 NOV 2006 04:27:12 PM): ; compiling (IN-PACKAGE "SB!DI") ; compiling (DEFINE-CONDITION DEBUG-CONDITION ...) ; compiling (DEFINE-CONDITION NO-DEBUG-FUN-RETURNS ...) ; compiling (DEFINE-CONDITION NO-DEBUG-BLOCKS ...) ; compiling (DEFINE-CONDITION NO-DEBUG-VARS ...) ; compiling (DEFINE-CONDITION LAMBDA-LIST-UNAVAILABLE ...) ; compiling (DEFINE-CONDITION INVALID-VALUE ...) ; compiling (DEFINE-CONDITION AMBIGUOUS-VAR-NAME ...) ; compiling (DEFINE-CONDITION DEBUG-ERROR ...) ; compiling (DEFINE-CONDITION UNHANDLED-DEBUG-CONDITION ...) ; compiling (DEFINE-CONDITION UNKNOWN-CODE-LOCATION ...) ; compiling (DEFINE-CONDITION UNKNOWN-DEBUG-VAR ...) ; compiling (DEFINE-CONDITION INVALID-CONTROL-STACK-POINTER ...) ; compiling (DEFINE-CONDITION FRAME-FUN-MISMATCH ...) ; compiling (DEFMACRO DEBUG-SIGNAL ...) ; compiling (DEFSTRUCT (DEBUG-VAR # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFSTRUCT (COMPILED-DEBUG-VAR # ...) ...) ; compiling (DEFSTRUCT (FRAME # ...) ...) ; compiling (DEFSTRUCT (COMPILED-FRAME # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFSTRUCT (DEBUG-FUN # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFSTRUCT (COMPILED-DEBUG-FUN # ...) ...) ; compiling (DEFVAR *COMPILED-DEBUG-FUNS* ...) ; compiling (DEFUN MAKE-COMPILED-DEBUG-FUN ...) ; compiling (DEFSTRUCT (BOGUS-DEBUG-FUN # ...) ...) ; compiling (DEFVAR *IR1-LAMBDA-DEBUG-FUN* ...) ; compiling (DEFSTRUCT (DEBUG-BLOCK # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (SETF (FDOCUMENTATION # ...) ...) ; compiling (DEFSTRUCT (COMPILED-DEBUG-BLOCK # ...) ...) ; compiling (DEFVAR *IR1-BLOCK-DEBUG-BLOCK* ...) ; compiling (DEFSTRUCT (BREAKPOINT-DATA # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFSTRUCT (BREAKPOINT # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFSTRUCT (CODE-LOCATION # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFSTRUCT (COMPILED-CODE-LOCATION # ...) ...) ; compiling (DEFUN DEBUG-SOURCE-ROOT-NUMBER ...) ; compiling (DEFCONSTANT REAL-LRA-SLOT ...) ; compiling (DEFUN CURRENT-SP ...) ; compiling (DEFUN CURRENT-FP ...) ; compiling (DEFUN STACK-REF ...) ; compiling (DEFUN %SET-STACK-REF ...) ; compiling (DEFUN FUN-CODE-HEADER ...) ; compiling (DEFUN LRA-CODE-HEADER ...) ; compiling (DEFUN MAKE-LISP-OBJ ...) ; compiling (DEFUN GET-LISP-OBJ-ADDRESS ...) ; compiling (DEFUN FUN-WORD-OFFSET ...) ; compiling (DECLAIM (INLINE CONTROL-STACK-POINTER-VALID-P)) ; compiling (DEFUN CONTROL-STACK-POINTER-VALID-P ...) ; compiling (DECLAIM (INLINE COMPONENT-PTR-FROM-PC)) ; compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE COMPONENT-PTR-FROM-PC ...) ; compiling (DECLAIM (INLINE COMPONENT-FROM-COMPONENT-PTR)) ; compiling (DEFUN COMPONENT-FROM-COMPONENT-PTR ...) ; compiling (DEFUN COMPUTE-LRA-DATA-FROM-PC ...) ; compiling (DECLAIM (INLINE DESCRIPTOR-SAP)) ; compiling (DEFUN DESCRIPTOR-SAP ...) ; compiling (DEFUN TOP-FRAME ...) ; compiling (DEFUN FLUSH-FRAMES-ABOVE ...) ; compiling (DEFUN FRAME-DOWN ...) ; compiling (DEFUN GET-CONTEXT-VALUE ...) ; compiling (DEFUN (SETF GET-CONTEXT-VALUE) ...) ; compiling (DEFUN FOREIGN-FUNCTION-BACKTRACE-NAME ...) ; compiling (DEFUN COMPUTE-CALLING-FRAME ...) ; compiling (DEFUN NTH-INTERRUPT-CONTEXT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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) ; compiling (DEFUN FIND-ESCAPED-FRAME ...) ; compiling (DEFUN FIND-PC-FROM-ASSEMBLY-FUN ...) ; compiling (DEFUN CODE-OBJECT-FROM-BITS ...) ; compiling (DEFUN DEBUG-FUN-FROM-PC ...) ; compiling (DEFUN CODE-LOCATION-FROM-PC ...) ; compiling (DEFUN FRAME-CATCHES ...) ; compiling (DEFMACRO DO-DEBUG-FUN-BLOCKS ...) ; compiling (DEFMACRO DO-DEBUG-FUN-VARS ...) ; compiling (DEFUN DEBUG-FUN-FUN ...) ; compiling (DEFUN DEBUG-FUN-NAME ...) ; compiling (DEFUN FUN-DEBUG-FUN ...) ; compiling (DEFUN DEBUG-FUN-KIND ...) ; compiling (DEFUN DEBUG-VAR-INFO-AVAILABLE ...) ; compiling (DEFUN DEBUG-FUN-SYMBOL-VARS ...) ; compiling (DEFUN AMBIGUOUS-DEBUG-VARS ...) ; compiling (DEFUN FIND-VAR ...) ; compiling (DEFUN DEBUG-FUN-LAMBDA-LIST ...) ; compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST ...) ; compiling (DEFUN PARSE-COMPILED-DEBUG-FUN-LAMBDA-LIST ...) ; compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST-VAR ...) ; compiling (DEFUN COMPILED-DEBUG-FUN-DEBUG-INFO ...) ; compiling (DEFVAR *PARSING-BUFFER* ...) ; compiling (DEFVAR *OTHER-PARSING-BUFFER* ...) ; compiling (DEFUN DEBUG-FUN-DEBUG-BLOCKS ...) ; compiling (DEFUN PARSE-DEBUG-BLOCKS ...) ; compiling (DEFUN PARSE-COMPILED-DEBUG-BLOCKS ...) ; compiling (DEFUN DEBUG-FUN-DEBUG-VARS ...) ; compiling (DEFUN ASSIGN-MINIMAL-VAR-NAMES ...) ; compiling (DEFUN PARSE-COMPILED-DEBUG-VARS ...) ; compiling (DEFUN CODE-LOCATION-UNKNOWN-P ...) ; compiling (DEFUN CODE-LOCATION-DEBUG-BLOCK ...) ; compiling (DEFUN COMPUTE-COMPILED-CODE-LOCATION-DEBUG-BLOCK ...) ; compiling (DEFUN CODE-LOCATION-DEBUG-SOURCE ...) ; compiling (DEFUN CODE-LOCATION-TOPLEVEL-FORM-OFFSET ...) ; compiling (DEFUN CODE-LOCATION-FORM-NUMBER ...) ; compiling (DEFUN CODE-LOCATION-KIND ...) ; compiling (DEFUN COMPILED-CODE-LOCATION-LIVE-SET ...) ; compiling (DEFUN CODE-LOCATION= ...) ; compiling (DEFUN SUB-COMPILED-CODE-LOCATION= ...) ; compiling (DEFUN FILL-IN-CODE-LOCATION ...) ; compiling (DEFMACRO DO-DEBUG-BLOCK-LOCATIONS ...) ; compiling (DEFUN DEBUG-BLOCK-FUN-NAME ...) ; compiling (DEFUN DEBUG-BLOCK-CODE-LOCATIONS ...) ; compiling (DEFUN DEBUG-VAR-SYMBOL-NAME ...) ; compiling (DEFUN DEBUG-VAR-PACKAGE-NAME ...) ; compiling (DEFUN DEBUG-VAR-VALID-VALUE ...) ; compiling (DEFUN DEBUG-VAR-VALUE ...) ; compiling (DEFUN ACCESS-COMPILED-DEBUG-VAR-SLOT ...) ; compiling (DEFUN MAKE-VALID-LISP-OBJ ...) ; compiling (DEFUN SUB-ACCESS-DEBUG-VAR-SLOT ...) ; compiling (DEFUN %SET-DEBUG-VAR-VALUE ...) ; compiling (DEFUN SET-COMPILED-DEBUG-VAR-SLOT ...) ; compiling (DEFUN SUB-SET-DEBUG-VAR-SLOT ...) ; compiling (DEFUN INDIRECT-VALUE-CELL-P ...) ; compiling (DEFUN DEBUG-VAR-VALIDITY ...) ; compiling (DEFUN COMPILED-DEBUG-VAR-VALIDITY ...) ; compiling (DEFVAR *FORM-NUMBER-TEMP* ...) ; compiling (DEFVAR *FORM-NUMBER-CIRCULARITY-TABLE* ...) ; compiling (DEFUN FORM-NUMBER-TRANSLATIONS ...) ; compiling (DEFUN SUB-TRANSLATE-FORM-NUMBERS ...) ; compiling (DEFUN SOURCE-PATH-CONTEXT ...) ; compiling (DEFUN PREPROCESS-FOR-EVAL ...) ; compiling (DEFUN MAKE-BREAKPOINT ...) ; compiling (DEFSTRUCT (FUN-END-COOKIE # ...) ...) ; compiling (DEFVAR *FUN-END-COOKIES* ...) ; compiling (DEFUN FUN-END-STARTER-HOOK ...) ; compiling (DEFUN FUN-END-COOKIE-VALID-P ...) ; compiling (DEFUN ACTIVATE-BREAKPOINT ...) ; compiling (DEFUN ACTIVATE-COMPILED-CODE-LOCATION-BREAKPOINT ...) ; compiling (DEFUN ACTIVATE-COMPILED-FUN-START-BREAKPOINT ...) ; compiling (DEFUN SUB-ACTIVATE-BREAKPOINT ...) ; compiling (DEFUN DEACTIVATE-BREAKPOINT ...) ; compiling (DEFUN DEACTIVATE-COMPILED-BREAKPOINT ...) ; compiling (DEFUN BREAKPOINT-INFO ...) ; compiling (DEFUN %SET-BREAKPOINT-INFO ...) ; compiling (DEFUN BREAKPOINT-ACTIVE-P ...) ; compiling (DEFUN DELETE-BREAKPOINT ...) ; compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_install" ...) ; compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_remove" ...) ; compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_do_displaced_inst" ...) ; compiling (DEFVAR *COMPONENT-BREAKPOINT-OFFSETS* ...) ; compiling (DEFUN BREAKPOINT-DATA ...) ; compiling (DEFUN DELETE-BREAKPOINT-DATA ...) ; compiling (DEFUN HANDLE-BREAKPOINT ...) ; compiling (DEFVAR *EXECUTING-BREAKPOINT-HOOKS* ...) ; compiling (DEFUN HANDLE-BREAKPOINT-AUX ...) ; compiling (DEFUN INVOKE-BREAKPOINT-HOOKS ...) ; compiling (DEFUN SIGNAL-CONTEXT-FRAME ...) ; compiling (DEFUN HANDLE-FUN-END-BREAKPOINT ...) ; compiling (DEFUN HANDLE-FUN-END-BREAKPOINT-AUX ...) ; compiling (DEFUN GET-FUN-END-BREAKPOINT-VALUES ...) ; compiling (DEFCONSTANT BOGUS-LRA-CONSTANTS ...) ; compiling (DEFCONSTANT KNOWN-RETURN-P-SLOT ...) ; compiling (DEFUN MAKE-BOGUS-LRA ...) ; compiling (DEFUN DEBUG-FUN-START-LOCATION ...) ; compiling (DEFUN HANDLE-SINGLE-STEP-TRAP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/debug-int.lisp ; in: DEFUN HANDLE-SINGLE-STEP-TRAP ; (SB!ALIEN:SAP-ALIEN SB!DI::CONTEXT-SAP (* SB!SYS:OS-CONTEXT-T)) ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!DI::CONTEXT-SAP ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFVAR *STEP-FRAME* ...) ; compiling (DEFUN HANDLE-SINGLE-STEP-BEFORE-TRAP ...) ; compiling (DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ...) ; compiling (DEFUN SINGLE-STEP-INFO-FROM-CONTEXT ...) ; compiling (DEFUN FIND-STEPPED-FRAME ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/debug-int.lisp ; in: DEFUN SUB-SET-DEBUG-VAR-SLOT ; (SB!DI::SET-ESCAPED-FLOAT-VALUE SINGLE-FLOAT SB!DI::VALUE) ; --> IF SETF ; ==> ; (SB!VM::%SET-CONTEXT-FLOAT-REGISTER SB!DI::ESCAPED ; (SB!C:SC-OFFSET-OFFSET SB!DI::SC-OFFSET) 'SINGLE-FLOAT SB!DI::VALUE) ; ; caught STYLE-WARNING: ; undefined function: SB!VM::%SET-CONTEXT-FLOAT-REGISTER ; in: DEFUN SUB-ACCESS-DEBUG-VAR-SLOT ; (SB!DI::ESCAPED-FLOAT-VALUE SINGLE-FLOAT) ; --> IF ; ==> ; (SB!VM:CONTEXT-FLOAT-REGISTER SB!DI::ESCAPED ; (SB!C:SC-OFFSET-OFFSET SB!DI::SC-OFFSET) 'SINGLE-FLOAT) ; ; caught STYLE-WARNING: ; undefined function: CONTEXT-FLOAT-REGISTER ; in: DEFUN MAKE-BOGUS-LRA ; (SB!VM:SANCTIFY-FOR-EXECUTION SB!DI::CODE-OBJECT) ; ; caught STYLE-WARNING: ; undefined function: SANCTIFY-FOR-EXECUTION ; 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 ; ; caught STYLE-WARNING: ; These functions are undefined: ; SB!VM::%SET-CONTEXT-FLOAT-REGISTER CONTEXT-FLOAT-REGISTER SANCTIFY-FOR-EXECUTION SB!IMPL::STEP-FORM SB!IMPL::STEP-VALUES ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; printed 3 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/debug-int.lisp-obj-tmp written ; compilation finished in 0:00:06 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target-disassem.lisp" (written 30 OCT 2006 08:11:51 AM): ; compiling (IN-PACKAGE "SB!DISASSEM") ; compiling (DEFUN INST-SPECIALIZES-P ...) ; compiling (DEFUN SPECIALIZER-RANK ...) ; compiling (DEFUN ORDER-SPECIALIZERS ...) ; compiling (DEFUN SPECIALIZATION-ERROR ...) ; compiling (DEFUN TRY-SPECIALIZING ...) ; compiling (DECLAIM (INLINE INST-MATCHES-P ...)) ; compiling (DEFUN INST-MATCHES-P ...) ; compiling (DEFUN CHOOSE-INST-SPECIALIZATION ...) ; compiling (DEFUN FIND-INST ...) ; compiling (DEFUN BUILD-INST-SPACE ...) ; compiling (DEFUN PRINT-MASKED-BINARY ...) ; compiling (DEFUN PRINT-INST-BITS ...) ; compiling (DEFUN PRINT-INST-SPACE ...) ; compiling (DECLAIM (INLINE WORDS-TO-BYTES ...)) ; compiling (DEFUN WORDS-TO-BYTES ...) ; compiling (DEFUN BYTES-TO-WORDS ...) ; compiling (DEFCONSTANT LRA-SIZE ...) ; compiling (DEFSTRUCT (OFFS-HOOK #) ...) ; compiling (DEFSTRUCT (SEGMENT # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN FUN-SELF ...) ; compiling (DEFUN FUN-CODE ...) ; compiling (DEFUN FUN-NEXT ...) ; compiling (DEFUN FUN-ADDRESS ...) ; compiling (DEFUN FUN-INSTS-OFFSET ...) ; compiling (DEFUN FUN-OFFSET ...) ; compiling (DEFUN CODE-INST-AREA-LENGTH ...) ; compiling (DEFUN CODE-INST-AREA-ADDRESS ...) ; compiling (DEFUN SEGMENT-OFFS-TO-CODE-OFFS ...) ; compiling (DEFUN CODE-OFFS-TO-SEGMENT-OFFS ...) ; compiling (DEFUN CODE-INSTS-OFFS-TO-SEGMENT-OFFS ...) ; compiling (DEFUN LRA-HOOK ...) ; compiling (DEFUN FUN-HEADER-HOOK ...) ; compiling (DEFUN ALIGNMENT-HOOK ...) ; compiling (DEFUN REWIND-CURRENT-SEGMENT ...) ; compiling (DEFUN CALL-OFFS-HOOKS ...) ; compiling (DEFUN CALL-FUN-HOOKS ...) ; compiling (DEFUN HANDLE-BOGUS-INSTRUCTION ...) ; compiling (DEFUN MAP-SEGMENT-INSTRUCTIONS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target-disassem.lisp ; in: DEFUN MAP-SEGMENT-INSTRUCTIONS ; (SB!DISASSEM:SAP-REF-DCHUNK ; (SB!DISASSEM:DSTATE-SEGMENT-SAP SB!DISASSEM::DSTATE) ; (SB!DISASSEM:DSTATE-CUR-OFFS SB!DISASSEM::DSTATE) ; (SB!DISASSEM::DSTATE-BYTE-ORDER SB!DISASSEM::DSTATE)) ; --> BLOCK THE ECASE LET COND IF PROGN IF + ; ==> ; (+ ; (+ ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 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)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 32) arithmetic ; ==> ; (+ ; (+ ; (+ (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: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 32) arithmetic ; compiling (DEFUN ADD-SEGMENT-LABELS ...) ; compiling (DEFUN NUMBER-LABELS ...) ; compiling (DEFUN GET-INST-SPACE ...) ; compiling (DEFUN ADD-OFFS-HOOK ...) ; compiling (DEFUN ADD-OFFS-NOTE-HOOK ...) ; compiling (DEFUN ADD-OFFS-COMMENT-HOOK ...) ; compiling (DEFUN ADD-FUN-HOOK ...) ; compiling (DEFUN SET-LOCATION-PRINTING-RANGE ...) ; compiling (DEFUN PRINT-CURRENT-ADDRESS ...) ; compiling (DEFUN PRINT-NOTES-AND-NEWLINE ...) ; compiling (DEFUN PRINT-INST ...) ; compiling (DEFUN PRINT-BYTES ...) ; compiling (DEFUN PRINT-WORDS ...) ; compiling (DEFVAR *DEFAULT-DSTATE-HOOKS* ...) ; compiling (DEFUN MAKE-DSTATE ...) ; compiling (DEFUN ADD-FUN-HEADER-HOOKS ...) ; compiling (DECLAIM (INLINE SAP-MAKER)) ; compiling (DEFUN SAP-MAKER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; FIXNUM ; &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 SB!DISASSEM::OLD-SAP #))))) ; ; 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 ; compiling (DEFUN VECTOR-SAP-MAKER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; FIXNUM ; &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 SB!DISASSEM::OLD-SAP #))))) ; ; 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 ; compiling (DEFUN CODE-SAP-MAKER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; FIXNUM ; &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 SB!DISASSEM::OLD-SAP #))))) ; ; 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 ; compiling (DEFUN MEMORY-SAP-MAKER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 {524AE5A9}>)) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; compiling (DEFUN MAKE-SEGMENT ...) ; compiling (DEFUN MAKE-VECTOR-SEGMENT ...) ; compiling (DEFUN MAKE-CODE-SEGMENT ...) ; compiling (DEFUN MAKE-MEMORY-SEGMENT ...) ; compiling (DEFUN PRINT-FUN-HEADERS ...) ; compiling (DEFSTRUCT (SOURCE-FORM-CACHE # ...) ...) ; compiling (DEFUN GET-TOPLEVEL-FORM ...) ; compiling (DEFUN CACHE-VALID ...) ; compiling (DEFUN GET-SOURCE-FORM ...) ; compiling (DEFUN GET-DIFFERENT-SOURCE-FORM ...) ; compiling (DEFUN CODE-FUN-MAP ...) ; compiling (DEFSTRUCT (LOCATION-GROUP #) ...) ; compiling (DEFSTRUCT (STORAGE-INFO #) ...) ; compiling (DEFUN DSTATE-DEBUG-VARS ...) ; compiling (DEFUN FIND-VALID-STORAGE-LOCATION ...) ; compiling (DEFUN GROW-VECTOR ...) ; compiling (DEFUN STORAGE-INFO-FOR-DEBUG-FUN ...) ; compiling (DEFUN SOURCE-AVAILABLE-P ...) ; compiling (DEFUN PRINT-BLOCK-BOUNDARY ...) ; compiling (DEFUN ADD-SOURCE-TRACKING-HOOKS ...) ; compiling (DEFUN ADD-DEBUGGING-HOOKS ...) ; compiling (DEFUN GET-FUN-SEGMENTS ...) ; compiling (DEFUN GET-CODE-SEGMENTS ...) ; compiling (DEFUN SEGMENT-OVERFLOW ...) ; compiling (DEFUN LABEL-SEGMENTS ...) ; compiling (DEFUN DISASSEMBLE-SEGMENT ...) ; compiling (DEFUN DISASSEMBLE-SEGMENTS ...) ; compiling (DEFUN DISASSEMBLE-FUN ...) ; compiling (DEFUN COMPILE-FUNCTION-LAMBDA-EXPR ...) ; compiling (DEFUN VALID-EXTENDED-FUNCTION-DESIGNATOR-FOR-DISASSEMBLE-P ...) ; compiling (DEFUN COMPILED-FUN-OR-LOSE ...) ; compiling (DEFUN DISASSEMBLE ...) ; compiling (DEFUN DISASSEMBLE-MEMORY ...) ; compiling (DEFUN DISASSEMBLE-CODE-COMPONENT ...) ; compiling (DEFCONSTANT MAX-INSTRUCTION-SIZE ...) ; compiling (DEFUN ADD-BLOCK-SEGMENTS ...) ; compiling (DEFUN ASSEM-SEGMENT-TO-DISASSEM-SEGMENTS ...) ; compiling (DEFUN DISASSEMBLE-ASSEM-SEGMENT ...) ; compiling (DEFPARAMETER *GROKKED-SYMBOL-SLOTS* ...) ; compiling (DEFUN GROK-SYMBOL-SLOT-REF ...) ; compiling (DEFVAR *ADDRESS-OF-NIL-OBJECT* ...) ; compiling (DEFUN GROK-NIL-INDEXED-SYMBOL-SLOT-REF ...) ; compiling (DEFUN GET-NIL-INDEXED-OBJECT ...) ; compiling (DEFUN GET-CODE-CONSTANT ...) ; compiling (DEFUN GET-CODE-CONSTANT-ABSOLUTE ...) ; compiling (DEFVAR *ASSEMBLER-ROUTINES-BY-ADDR* ...) ; compiling (DEFVAR *FOREIGN-SYMBOLS-BY-ADDR* ...) ; compiling (DEFUN INVERT-ADDRESS-HASH ...) ; compiling (DEFUN FIND-ASSEMBLER-ROUTINE ...) ; compiling (DECLAIM (MAYBE-INLINE SAP-REF-INT ...)) ; compiling (DEFUN SAP-REF-INT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target-disassem.lisp ; in: DEFUN SAP-REF-INT ; (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 (SIGNED-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 ; (SIGNED-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 safe inline fixnum arithmetic (cost 4) 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). ; 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 ; (SIGNED-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 safe inline fixnum arithmetic (cost 4) 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). ; 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 ; (SIGNED-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 safe inline fixnum arithmetic (cost 4) 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). ; 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 safe inline fixnum arithmetic (cost 4) 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). ; 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 safe inline fixnum arithmetic (cost 4) 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). ; 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 safe inline fixnum arithmetic (cost 4) 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). ; 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 safe inline fixnum arithmetic (cost 4) 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). ; etc. ; (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 ; (SIGNED-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 safe inline fixnum arithmetic (cost 4) 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). ; 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 ; (SIGNED-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 safe inline fixnum arithmetic (cost 4) 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). ; 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 ; (SIGNED-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 safe inline fixnum arithmetic (cost 4) 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). ; 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 (SIGNED-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 safe inline fixnum arithmetic (cost 4) 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). ; etc. ; --> + + + ; ==> ; (+ ; (+ ; (+ (+ (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-+ ; (+ (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)) ; ==> ; (+ ; (+ ; (+ (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) 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 "" ; compiling (DEFUN READ-SUFFIX ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 #:G2953) #:G2954) ; ; 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 safe inline fixnum arithmetic (cost 4) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN NOTE ...) ; compiling (DEFUN PRIN1-SHORT ...) ; compiling (DEFUN PRIN1-QUOTED-SHORT ...) ; compiling (DEFUN NOTE-CODE-CONSTANT ...) ; compiling (DEFUN NOTE-CODE-CONSTANT-ABSOLUTE ...) ; compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF ...) ; compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-OBJECT ...) ; compiling (DEFUN MAYBE-NOTE-ASSEMBLER-ROUTINE ...) ; compiling (DEFUN MAYBE-NOTE-SINGLE-STORAGE-REF ...) ; compiling (DEFUN MAYBE-NOTE-ASSOCIATED-STORAGE-REF ...) ; compiling (DEFUN GET-INTERNAL-ERROR-NAME ...) ; compiling (DEFUN GET-SC-NAME ...) ; compiling (DEFUN HANDLE-BREAK-ARGS ...); ; compilation unit finished ; printed 39 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target-disassem.lisp-obj-tmp written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/target-insts.lisp" (written 18 MAR 2002 05:56:12 PM): ; compiling (IN-PACKAGE "SB!VM") ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/target-insts.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/debug.lisp" (written 18 SEP 2006 09:09:13 PM): ; compiling (IN-PACKAGE "SB!DEBUG") ; compiling (DEFVAR *DEBUG-PRINT-VARIABLE-ALIST* ...) ; compiling (DEFVAR *DEBUG-READTABLE* ...) ; compiling (DEFVAR *IN-THE-DEBUGGER* ...) ; compiling (DEFVAR *DEBUG-COMMAND-LEVEL* ...) ; compiling (DEFVAR *STACK-TOP-HINT* ...) ; compiling (DEFVAR *STACK-TOP* ...) ; compiling (DEFVAR *REAL-STACK-TOP* ...) ; compiling (DEFVAR *CURRENT-FRAME* ...) ; compiling (DEFVAR *DEBUG-BEGINNER-HELP-P* ...) ; compiling (DEFUN DEBUG-PROMPT ...) ; compiling (DEFPARAMETER *DEBUG-HELP-STRING* ...) ; compiling (DEFUN MAYBE-BLOCK-START-LOCATION ...) ; compiling (DEFUN BACKTRACE ...) ; compiling (DEFUN BACKTRACE-AS-LIST ...) ; compiling (DEFUN FRAME-CALL-AS-LIST ...) ; compiling (DEFUN FRAME-ARGS-AS-LIST ...) ; compiling (LEGAL-FUN-NAME-P (QUOTE #)) ; compiling (DEFVAR *SHOW-ENTRY-POINT-DETAILS* ...) ; compiling (DEFUN CLEAN-XEP ...) ; compiling (DEFUN CLEAN-&MORE-PROCESSOR ...) ; compiling (DEFUN FRAME-CALL ...) ; compiling (DEFUN ENSURE-PRINTABLE-OBJECT ...) ; compiling (DEFUN FRAME-CALL-ARG ...) ; compiling (DEFUN PRINT-FRAME-CALL ...) ; compiling (DEFVAR *DEBUGGER-HOOK* ...) ; compiling (DEFVAR *INVOKE-DEBUGGER-HOOK* ...) ; compiling (DEFVAR *DEBUG-RESTARTS*) ; compiling (DEFVAR *DEBUG-CONDITION*) ; compiling (DEFVAR *NESTED-DEBUG-CONDITION*) ; compiling (DEFUN FUNCALL-WITH-DEBUG-IO-SYNTAX ...) ; compiling (DEFUN INVOKE-DEBUGGER ...) ; compiling (DEFUN %PRINT-DEBUGGER-INVOCATION-REASON ...) ; compiling (DEFUN %INVOKE-DEBUGGER ...) ; compiling (DEFUN DEBUGGER-DISABLED-HOOK ...) ; compiling (DEFVAR *OLD-DEBUGGER-HOOK* ...) ; compiling (DEFUN DISABLE-DEBUGGER ...) ; compiling (DEFUN ENABLE-DEBUGGER ...) ; compiling (DEFUN SHOW-RESTARTS ...) ; compiling (DEFVAR *DEBUG-LOOP-FUN* ...) ; compiling (DEFVAR *SUPPRESS-FRAME-PRINT* ...) ; compiling (DEFUN INTERNAL-DEBUG ...) ; compiling (DEFVAR *FLUSH-DEBUG-ERRORS* ...) ; compiling (DEFUN DEBUG-READ ...) ; compiling (DEFUN DEBUG-LOOP-FUN ...) ; compiling (DEFUN DEBUG-EVAL-PRINT ...) ; compiling (DEFUN VAR ...) ; compiling (DEFUN (SETF VAR) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NTH-ARG ...) ; compiling (DEFUN ARG ...) ; compiling (DEFVAR *DEBUG-COMMANDS* ...) ; compiling (DEFMACRO !DEF-DEBUG-COMMAND ...) ; compiling (DEFUN !DEF-DEBUG-COMMAND-ALIAS ...) ; compiling (DEFUN DEBUG-COMMAND-P ...) ; compiling (DEFUN MAKE-RESTART-COMMANDS ...) ; compiling (!DEF-DEBUG-COMMAND "UP" ...) ; compiling (!DEF-DEBUG-COMMAND "DOWN" ...) ; compiling (!DEF-DEBUG-COMMAND-ALIAS "D" ...) ; compiling (!DEF-DEBUG-COMMAND "BOTTOM" ...) ; compiling (!DEF-DEBUG-COMMAND-ALIAS "B" ...) ; compiling (!DEF-DEBUG-COMMAND "FRAME" ...) ; compiling (!DEF-DEBUG-COMMAND-ALIAS "F" ...) ; compiling (!DEF-DEBUG-COMMAND "TOPLEVEL" ...) ; compiling (!DEF-DEBUG-COMMAND-ALIAS "TOP" ...) ; compiling (!DEF-DEBUG-COMMAND "RESTART" ...) ; compiling (!DEF-DEBUG-COMMAND "HELP" ...) ; compiling (!DEF-DEBUG-COMMAND-ALIAS "?" ...) ; compiling (!DEF-DEBUG-COMMAND "ERROR" ...) ; compiling (!DEF-DEBUG-COMMAND "BACKTRACE" ...) ; compiling (!DEF-DEBUG-COMMAND "PRINT" ...) ; compiling (!DEF-DEBUG-COMMAND-ALIAS "P" ...) ; compiling (!DEF-DEBUG-COMMAND "LIST-LOCALS" ...) ; compiling (!DEF-DEBUG-COMMAND-ALIAS "L" ...) ; compiling (!DEF-DEBUG-COMMAND "SOURCE" ...) ; compiling (DEFVAR *CACHED-DEBUG-SOURCE* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *CACHED-SOURCE-STREAM* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *CACHED-READTABLE* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFUN DEBUG-DEINIT ...) ; compiling (DEFVAR *CACHED-TOPLEVEL-FORM-OFFSET* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *CACHED-TOPLEVEL-FORM*) ; compiling (DEFVAR *CACHED-FORM-NUMBER-TRANSLATIONS*) ; compiling (DEFUN GET-TOPLEVEL-FORM ...) ; compiling (DEFUN GET-FILE-TOPLEVEL-FORM ...) ; compiling (DEFUN CODE-LOCATION-SOURCE-FORM ...) ; compiling (!DEF-DEBUG-COMMAND "START" ...) ; compiling (DEFMACRO DEF-STEP-COMMAND ...) ; compiling (DEF-STEP-COMMAND "STEP" ...) ; compiling (DEF-STEP-COMMAND "NEXT" ...) ; compiling (DEF-STEP-COMMAND "STOP" ...) ; compiling (!DEF-DEBUG-COMMAND-ALIAS "S" ...) ; compiling (!DEF-DEBUG-COMMAND-ALIAS "N" ...) ; compiling (!DEF-DEBUG-COMMAND "OUT" ...) ; compiling (!DEF-DEBUG-COMMAND "DESCRIBE" ...) ; compiling (!DEF-DEBUG-COMMAND "SLURP" ...) ; compiling (!DEF-DEBUG-COMMAND "RETURN" ...) ; compiling (DEFUN READ-PROMPTING-MAYBE ...) ; compiling (DEFUN READ-IF-AVAILABLE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/debug.lisp ; in: DEFUN DEBUGGER-DISABLED-HOOK ; (SB!EXT:QUIT :UNIX-STATUS 1 :RECKLESSLY-P SB!DEBUG::RECKLESSLY-P) ; ; caught STYLE-WARNING: ; undefined function: QUIT ; ; caught STYLE-WARNING: ; This function is undefined: ; QUIT ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/debug.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/octets.lisp" (written 24 SEP 2006 04:47:27 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFTYPE ARRAY-RANGE ...) ; compiling (DEFINE-CONDITION OCTETS-ENCODING-ERROR ...) ; compiling (DEFUN READ-REPLACEMENT-CHARACTER ...) ; compiling (DEFUN ENCODING-ERROR ...) ; compiling (DEFINE-CONDITION OCTET-DECODING-ERROR ...) ; compiling (DEFINE-CONDITION END-OF-INPUT-IN-CHARACTER ...) ; compiling (DEFINE-CONDITION CHARACTER-OUT-OF-RANGE ...) ; compiling (DEFINE-CONDITION INVALID-UTF8-STARTER-BYTE ...) ; compiling (DEFINE-CONDITION INVALID-UTF8-CONTINUATION-BYTE ...) ; compiling (DEFINE-CONDITION OVERLONG-UTF8-SEQUENCE ...) ; compiling (DEFINE-CONDITION MALFORMED-ASCII ...) ; compiling (DEFUN READ-REPLACEMENT-STRING ...) ; compiling (DEFUN DECODING-ERROR ...) ; compiling (DEFMACRO INSTANTIATE-OCTETS-DEFINITION ...) ; compiling (DECLAIM (INLINE VARIMAP)) ; compiling (DEFUN VARIMAP ...) ; compiling (DEFUN MAKE-OD-NAME ...) ; compiling (DEFMACRO DEFINE-UNIBYTE-MAPPER ...) ; compiling (DEFINE-UNIBYTE-MAPPER LATIN9->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-LATIN-BYTES)) ; compiling (DEFUN GET-LATIN-BYTES ...) ; compiling (DECLAIM (INLINE CODE->ASCII-MAPPER)) ; compiling (DEFUN CODE->ASCII-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ASCII-BYTES)) ; compiling (DEFUN GET-ASCII-BYTES ...) ; compiling (DECLAIM (INLINE GET-LATIN1-BYTES)) ; compiling (DEFUN GET-LATIN1-BYTES ...) ; compiling (DECLAIM (INLINE GET-LATIN9-BYTES)) ; compiling (DEFUN GET-LATIN9-BYTES ...) ; compiling (DECLAIM (INLINE STRING->LATIN%)) ; compiling (DEFUN STRING->LATIN% ...) ; compiling (DEFUN STRING->ASCII ...) ; compiling (DEFUN STRING->LATIN1 ...) ; compiling (DEFUN STRING->LATIN9 ...) ; compiling (DECLAIM (INLINE CHAR-LEN-AS-UTF8)) ; compiling (DEFUN CHAR-LEN-AS-UTF8 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/octets.lisp ; in: DEFUN CHAR-LEN-AS-UTF8 ; (SB!INT:BUG "can't happen") ; ==> ; "can't happen" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DECLAIM (INLINE CHAR->UTF8)) ; compiling (DEFUN CHAR->UTF8 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/octets.lisp ; in: DEFUN CHAR-LEN-AS-UTF8 ; (SB!INT:BUG "can't happen") ; ==> ; "can't happen" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN STRING->UTF8 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/octets.lisp ; in: DEFUN CHAR-LEN-AS-UTF8 ; (SB!INT:BUG "can't happen") ; ==> ; "can't happen" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFMACRO DEFINE-ASCII->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ASCII->STRING) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/octets.lisp ; in: DEFMACRO DEFINE-ASCII->STRING ; (LOOP SB!IMPL::FOR SB!IMPL::C SB!IMPL::ACROSS SB!IMPL::STRING-CONTENT DO ; (VECTOR-PUSH-EXTEND SB!IMPL::C STRING)) ; --> BLOCK LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (LENGTH #:LOOP-ACROSS-VECTOR-521) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL VECTOR), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL VECTOR), not a VECTOR. ; --> BLOCK LET SB!LOOP::LOOP-BODY TAGBODY SB!LOOP::LOOP-REALLY-DESETQ SETQ THE ; --> AREF LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; --> BLOCK LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (LENGTH #:LOOP-ACROSS-VECTOR-542) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL VECTOR), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL VECTOR), not a VECTOR. ; --> BLOCK LET SB!LOOP::LOOP-BODY TAGBODY SB!LOOP::LOOP-REALLY-DESETQ SETQ THE ; --> AREF LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; compiling (DEFMACRO DEFINE-LATIN->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING*) ; compiling (DEFMACRO DEFINE-LATIN1->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING*) ; compiling (DEFMACRO DEFINE-LATIN9->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN9->STRING*) ; compiling (DEFMACRO DEFINE-LATIN->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING) ; compiling (DEFMACRO DEFINE-LATIN1->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING) ; compiling (DEFMACRO DEFINE-LATIN9->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN9->STRING) ; compiling (DEFMACRO DEFINE-BYTES-PER-UTF8-CHARACTER ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF8-CHARACTER) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/octets.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF8-CHARACTER ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION ; SB!IMPL::DEFINE-BYTES-PER-UTF8-CHARACTER) ; --> PROGN SB!IMPL::DEFINE-BYTES-PER-UTF8-CHARACTER PROGN LET LET DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::BYTES-PER-UTF8-CHARACTER-AREF ; (LAMBDA (ARRAY SB!IMPL::POS SB!IMPL::END) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE (SIMPLE-ARRAY # #) ARRAY) ; (TYPE SB!IMPL::ARRAY-RANGE SB!IMPL::POS SB!IMPL::END)) ; (BLOCK SB!IMPL::BYTES-PER-UTF8-CHARACTER-AREF ; (LET (# # # #) ; (DECLARE #) ; (LABELS # ; # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET BYTES-PER-UTF8-CHARACTER-AREF #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET BYTES-PER-UTF8-CHARACTER-AREF not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; in: DEFMACRO DEFINE-BYTES-PER-UTF8-CHARACTER ; (SB!INT:BUG "can't happen") ; ==> ; "can't happen" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF8-CHARACTER ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION ; SB!IMPL::DEFINE-BYTES-PER-UTF8-CHARACTER) ; --> PROGN SB!IMPL::DEFINE-BYTES-PER-UTF8-CHARACTER PROGN LET LET DEFUN PROGN ; ==> ; (SB!INT:COLD-FSET SB!IMPL::BYTES-PER-UTF8-CHARACTER-SAP-REF-8 ; (LAMBDA (ARRAY SB!IMPL::POS SB!IMPL::END) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE SB!SYS:SYSTEM-AREA-POINTER ARRAY) ; (TYPE SB!IMPL::ARRAY-RANGE SB!IMPL::POS SB!IMPL::END)) ; (BLOCK SB!IMPL::BYTES-PER-UTF8-CHARACTER-SAP-REF-8 ; (LET (# # # #) ; (DECLARE #) ; (LABELS # ; # ; #))))) ; ; caught STYLE-WARNING: ; (in cross-compiler macroexpansion of (COLD-FSET BYTES-PER-UTF8-CHARACTER-SAP-REF-8 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; COLD-FSET BYTES-PER-UTF8-CHARACTER-SAP-REF-8 not cross-compiled at top level: ; demoting to (SETF FDEFINITION) ; in: DEFMACRO DEFINE-BYTES-PER-UTF8-CHARACTER ; (SB!INT:BUG "can't happen") ; ==> ; "can't happen" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF8-CHAR ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF8-CHAR) ; compiling (DEFMACRO DEFINE-UTF8->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF8->STRING) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/octets.lisp ; in: DEFMACRO DEFINE-UTF8->STRING ; (CHAR SB!IMPL::INVALID SB!IMPL::I) ; --> AREF LET* ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; ; 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 ; because: ; Upgraded element type of array is not known at compile time. ; compiling (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...) ; compiling (DEFUN DEFAULT-EXTERNAL-FORMAT ...) ; compiling (DEFPARAMETER *EXTERNAL-FORMAT-FUNCTIONS* ...) ; compiling (DEFUN EXTERNAL-FORMATS-FUNS ...) ; compiling (DEFUN OCTETS-TO-STRING ...) ; compiling (DEFUN STRING-TO-OCTETS ...) ; compiling (DEFVAR +UNICODE-REPLACEMENT-CHARACTER+ ...) ; compiling (DEFUN USE-UNICODE-REPLACEMENT-CHAR ...) ; compiling (DEFMACRO WITH-STANDARD-REPLACEMENT-CHARACTER ...) ; compiling (DEFMACRO WITH-DEFAULT-DECODING-REPLACEMENT ...); ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 24 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/octets.lisp-obj-tmp written ; compilation finished in 0:00:03 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/external-formats/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-cyr.lisp" (written 06 SEP 2006 09:27:10 PM): ; compiling (IN-PACKAGE #:SB!IMPL) ; compiling (DEFINE-UNIBYTE-MAPPER KOI8-R->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-KOI8-R-BYTES)) ; compiling (DEFUN GET-KOI8-R-BYTES ...) ; compiling (DEFUN STRING->KOI8-R ...) ; compiling (DEFMACRO DEFINE-KOI8-R->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-KOI8-R->STRING*) ; compiling (DEFMACRO DEFINE-KOI8-R->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-KOI8-R->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:KOI8-R :|koi8-r|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-cyr.lisp ; in: DEFINE-EXTERNAL-FORMAT (:KOI8-R :|koi8-r|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:KOI8-R :|koi8-r|) 1 T ; (LET ((SB!IMPL::KOI8-R-BYTE (SB!IMPL::CODE->KOI8-R-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::KOI8-R-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::KOI8-R-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::KOI8-R->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER KOI8-U->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-KOI8-U-BYTES)) ; compiling (DEFUN GET-KOI8-U-BYTES ...) ; compiling (DEFUN STRING->KOI8-U ...) ; compiling (DEFMACRO DEFINE-KOI8-U->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-KOI8-U->STRING*) ; compiling (DEFMACRO DEFINE-KOI8-U->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-KOI8-U->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:KOI8-U :|koi8-u|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-cyr.lisp ; in: DEFINE-EXTERNAL-FORMAT (:KOI8-U :|koi8-u|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:KOI8-U :|koi8-u|) 1 T ; (LET ((SB!IMPL::KOI8-U-BYTE (SB!IMPL::CODE->KOI8-U-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::KOI8-U-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::KOI8-U-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::KOI8-U->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER X-MAC-CYRILLIC->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-X-MAC-CYRILLIC-BYTES)) ; compiling (DEFUN GET-X-MAC-CYRILLIC-BYTES ...) ; compiling (DEFUN STRING->X-MAC-CYRILLIC ...) ; compiling (DEFMACRO DEFINE-X-MAC-CYRILLIC->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-X-MAC-CYRILLIC->STRING*) ; compiling (DEFMACRO DEFINE-X-MAC-CYRILLIC->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-X-MAC-CYRILLIC->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:X-MAC-CYRILLIC :|x-mac-cyrillic|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-cyr.lisp ; in: DEFINE-EXTERNAL-FORMAT (:X-MAC-CYRILLIC :|x-mac-cyrillic|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:X-MAC-CYRILLIC :|x-mac-cyrillic|) 1 T ; (LET ((SB!IMPL::X-MAC-CYRILLIC-BYTE ; (SB!IMPL::CODE->X-MAC-CYRILLIC-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::X-MAC-CYRILLIC-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::X-MAC-CYRILLIC-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::X-MAC-CYRILLIC->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (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 ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj-tmp written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp" (written 06 SEP 2006 09:27:10 PM): ; compiling (IN-PACKAGE #:SB!IMPL) ; compiling (DEFINE-UNIBYTE-MAPPER CP437->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP437-BYTES)) ; compiling (DEFUN GET-CP437-BYTES ...) ; compiling (DEFUN STRING->CP437 ...) ; compiling (DEFMACRO DEFINE-CP437->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP437->STRING*) ; compiling (DEFMACRO DEFINE-CP437->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP437->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP437 :|cp437|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP437 :|cp437|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP437 :|cp437|) 1 T ; (LET ((SB!IMPL::CP437-BYTE (SB!IMPL::CODE->CP437-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP437-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP437-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP437->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP850->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP850-BYTES)) ; compiling (DEFUN GET-CP850-BYTES ...) ; compiling (DEFUN STRING->CP850 ...) ; compiling (DEFMACRO DEFINE-CP850->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP850->STRING*) ; compiling (DEFMACRO DEFINE-CP850->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP850->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP850 :|cp850|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP850 :|cp850|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP850 :|cp850|) 1 T ; (LET ((SB!IMPL::CP850-BYTE (SB!IMPL::CODE->CP850-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP850-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP850-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP850->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP852->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP852-BYTES)) ; compiling (DEFUN GET-CP852-BYTES ...) ; compiling (DEFUN STRING->CP852 ...) ; compiling (DEFMACRO DEFINE-CP852->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP852->STRING*) ; compiling (DEFMACRO DEFINE-CP852->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP852->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP852 :|cp852|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP852 :|cp852|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP852 :|cp852|) 1 T ; (LET ((SB!IMPL::CP852-BYTE (SB!IMPL::CODE->CP852-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP852-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP852-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP852->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP855->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP855-BYTES)) ; compiling (DEFUN GET-CP855-BYTES ...) ; compiling (DEFUN STRING->CP855 ...) ; compiling (DEFMACRO DEFINE-CP855->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP855->STRING*) ; compiling (DEFMACRO DEFINE-CP855->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP855->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP855 :|cp855|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP855 :|cp855|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP855 :|cp855|) 1 T ; (LET ((SB!IMPL::CP855-BYTE (SB!IMPL::CODE->CP855-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP855-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP855-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP855->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP857->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP857-BYTES)) ; compiling (DEFUN GET-CP857-BYTES ...) ; compiling (DEFUN STRING->CP857 ...) ; compiling (DEFMACRO DEFINE-CP857->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP857->STRING*) ; compiling (DEFMACRO DEFINE-CP857->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP857->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP857 :|cp857|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP857 :|cp857|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP857 :|cp857|) 1 T ; (LET ((SB!IMPL::CP857-BYTE (SB!IMPL::CODE->CP857-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP857-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP857-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP857->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP860->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP860-BYTES)) ; compiling (DEFUN GET-CP860-BYTES ...) ; compiling (DEFUN STRING->CP860 ...) ; compiling (DEFMACRO DEFINE-CP860->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP860->STRING*) ; compiling (DEFMACRO DEFINE-CP860->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP860->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP860 :|cp860|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP860 :|cp860|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP860 :|cp860|) 1 T ; (LET ((SB!IMPL::CP860-BYTE (SB!IMPL::CODE->CP860-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP860-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP860-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP860->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP861->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP861-BYTES)) ; compiling (DEFUN GET-CP861-BYTES ...) ; compiling (DEFUN STRING->CP861 ...) ; compiling (DEFMACRO DEFINE-CP861->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP861->STRING*) ; compiling (DEFMACRO DEFINE-CP861->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP861->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP861 :|cp861|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP861 :|cp861|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP861 :|cp861|) 1 T ; (LET ((SB!IMPL::CP861-BYTE (SB!IMPL::CODE->CP861-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP861-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP861-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP861->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP862->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP862-BYTES)) ; compiling (DEFUN GET-CP862-BYTES ...) ; compiling (DEFUN STRING->CP862 ...) ; compiling (DEFMACRO DEFINE-CP862->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP862->STRING*) ; compiling (DEFMACRO DEFINE-CP862->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP862->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP862 :|cp862|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP862 :|cp862|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP862 :|cp862|) 1 T ; (LET ((SB!IMPL::CP862-BYTE (SB!IMPL::CODE->CP862-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP862-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP862-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP862->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP863->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP863-BYTES)) ; compiling (DEFUN GET-CP863-BYTES ...) ; compiling (DEFUN STRING->CP863 ...) ; compiling (DEFMACRO DEFINE-CP863->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP863->STRING*) ; compiling (DEFMACRO DEFINE-CP863->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP863->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP863 :|cp863|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP863 :|cp863|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP863 :|cp863|) 1 T ; (LET ((SB!IMPL::CP863-BYTE (SB!IMPL::CODE->CP863-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP863-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP863-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP863->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP864->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP864-BYTES)) ; compiling (DEFUN GET-CP864-BYTES ...) ; compiling (DEFUN STRING->CP864 ...) ; compiling (DEFMACRO DEFINE-CP864->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP864->STRING*) ; compiling (DEFMACRO DEFINE-CP864->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP864->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP864 :|cp864|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP864 :|cp864|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP864 :|cp864|) 1 T ; (LET ((SB!IMPL::CP864-BYTE (SB!IMPL::CODE->CP864-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP864-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP864-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP864->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP865->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP865-BYTES)) ; compiling (DEFUN GET-CP865-BYTES ...) ; compiling (DEFUN STRING->CP865 ...) ; compiling (DEFMACRO DEFINE-CP865->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP865->STRING*) ; compiling (DEFMACRO DEFINE-CP865->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP865->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP865 :|cp865|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP865 :|cp865|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP865 :|cp865|) 1 T ; (LET ((SB!IMPL::CP865-BYTE (SB!IMPL::CODE->CP865-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP865-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP865-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP865->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP866->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP866-BYTES)) ; compiling (DEFUN GET-CP866-BYTES ...) ; compiling (DEFUN STRING->CP866 ...) ; compiling (DEFMACRO DEFINE-CP866->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP866->STRING*) ; compiling (DEFMACRO DEFINE-CP866->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP866->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP866 :|cp866|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP866 :|cp866|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP866 :|cp866|) 1 T ; (LET ((SB!IMPL::CP866-BYTE (SB!IMPL::CODE->CP866-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP866-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP866-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP866->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP869->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP869-BYTES)) ; compiling (DEFUN GET-CP869-BYTES ...) ; compiling (DEFUN STRING->CP869 ...) ; compiling (DEFMACRO DEFINE-CP869->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP869->STRING*) ; compiling (DEFMACRO DEFINE-CP869->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP869->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP869 :|cp869|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP869 :|cp869|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP869 :|cp869|) 1 T ; (LET ((SB!IMPL::CP869-BYTE (SB!IMPL::CODE->CP869-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP869-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP869-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP869->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP874->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP874-BYTES)) ; compiling (DEFUN GET-CP874-BYTES ...) ; compiling (DEFUN STRING->CP874 ...) ; compiling (DEFMACRO DEFINE-CP874->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP874->STRING*) ; compiling (DEFMACRO DEFINE-CP874->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP874->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP874 :|cp874|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-dos.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP874 :|cp874|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP874 :|cp874|) 1 T ; (LET ((SB!IMPL::CP874-BYTE (SB!IMPL::CODE->CP874-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP874-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP874-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP874->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (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 14 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/external-formats/enc-dos.lisp-obj-tmp written ; compilation finished in 0:00:20 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp" (written 06 SEP 2006 09:27:10 PM): ; compiling (IN-PACKAGE #:SB!IMPL) ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-2->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-2-BYTES)) ; compiling (DEFUN GET-ISO-8859-2-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-2 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-2->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-2->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-2->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-2->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-2 :|iso-8859-2| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:ISO-8859-2 :|iso-8859-2| :LATIN-2 :|latin-2|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:ISO-8859-2 :|iso-8859-2| :LATIN-2 :|latin-2|) 1 T ; (LET ((SB!IMPL::ISO-8859-2-BYTE ; (SB!IMPL::CODE->ISO-8859-2-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-2-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-2-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-2->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-3->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-3-BYTES)) ; compiling (DEFUN GET-ISO-8859-3-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-3 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-3->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-3->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-3->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-3->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-3 :|iso-8859-3| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:ISO-8859-3 :|iso-8859-3| :LATIN-3 :|latin-3|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:ISO-8859-3 :|iso-8859-3| :LATIN-3 :|latin-3|) 1 T ; (LET ((SB!IMPL::ISO-8859-3-BYTE ; (SB!IMPL::CODE->ISO-8859-3-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-3-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-3-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-3->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-4->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-4-BYTES)) ; compiling (DEFUN GET-ISO-8859-4-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-4 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-4->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-4->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-4->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-4->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-4 :|iso-8859-4| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:ISO-8859-4 :|iso-8859-4| :LATIN-4 :|latin-4|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:ISO-8859-4 :|iso-8859-4| :LATIN-4 :|latin-4|) 1 T ; (LET ((SB!IMPL::ISO-8859-4-BYTE ; (SB!IMPL::CODE->ISO-8859-4-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-4-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-4-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-4->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-5->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-5-BYTES)) ; compiling (DEFUN GET-ISO-8859-5-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-5 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-5->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-5->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-5->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-5->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-5 :|iso-8859-5|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-EXTERNAL-FORMAT (:ISO-8859-5 :|iso-8859-5|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:ISO-8859-5 :|iso-8859-5|) 1 T ; (LET ((SB!IMPL::ISO-8859-5-BYTE ; (SB!IMPL::CODE->ISO-8859-5-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-5-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-5-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-5->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-6->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-6-BYTES)) ; compiling (DEFUN GET-ISO-8859-6-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-6 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-6->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-6->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-6->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-6->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-6 :|iso-8859-6|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-EXTERNAL-FORMAT (:ISO-8859-6 :|iso-8859-6|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:ISO-8859-6 :|iso-8859-6|) 1 T ; (LET ((SB!IMPL::ISO-8859-6-BYTE ; (SB!IMPL::CODE->ISO-8859-6-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-6-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-6-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-6->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-7->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-7-BYTES)) ; compiling (DEFUN GET-ISO-8859-7-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-7 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-7->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-7->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-7->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-7->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-7 :|iso-8859-7|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-EXTERNAL-FORMAT (:ISO-8859-7 :|iso-8859-7|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:ISO-8859-7 :|iso-8859-7|) 1 T ; (LET ((SB!IMPL::ISO-8859-7-BYTE ; (SB!IMPL::CODE->ISO-8859-7-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-7-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-7-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-7->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-8->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-8-BYTES)) ; compiling (DEFUN GET-ISO-8859-8-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-8 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-8->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-8->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-8->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-8->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-8 :|iso-8859-8|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-EXTERNAL-FORMAT (:ISO-8859-8 :|iso-8859-8|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:ISO-8859-8 :|iso-8859-8|) 1 T ; (LET ((SB!IMPL::ISO-8859-8-BYTE ; (SB!IMPL::CODE->ISO-8859-8-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-8-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-8-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-8->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-9->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-9-BYTES)) ; compiling (DEFUN GET-ISO-8859-9-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-9 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-9->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-9->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-9->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-9->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-9 :|iso-8859-9| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:ISO-8859-9 :|iso-8859-9| :LATIN-5 :|latin-5|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:ISO-8859-9 :|iso-8859-9| :LATIN-5 :|latin-5|) 1 T ; (LET ((SB!IMPL::ISO-8859-9-BYTE ; (SB!IMPL::CODE->ISO-8859-9-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-9-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-9-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-9->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-10->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-10-BYTES)) ; compiling (DEFUN GET-ISO-8859-10-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-10 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-10->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-10->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-10->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-10->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-10 :|iso-8859-10| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:ISO-8859-10 :|iso-8859-10| :LATIN-6 :|latin-6|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:ISO-8859-10 :|iso-8859-10| :LATIN-6 :|latin-6|) 1 T ; (LET ((SB!IMPL::ISO-8859-10-BYTE ; (SB!IMPL::CODE->ISO-8859-10-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-10-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-10-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-10->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-11->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-11-BYTES)) ; compiling (DEFUN GET-ISO-8859-11-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-11 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-11->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-11->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-11->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-11->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-11 :|iso-8859-11|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: DEFINE-EXTERNAL-FORMAT (:ISO-8859-11 :|iso-8859-11|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:ISO-8859-11 :|iso-8859-11|) 1 T ; (LET ((SB!IMPL::ISO-8859-11-BYTE ; (SB!IMPL::CODE->ISO-8859-11-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-11-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-11-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-11->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-13->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-13-BYTES)) ; compiling (DEFUN GET-ISO-8859-13-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-13 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-13->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-13->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-13->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-13->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-13 :|iso-8859-13| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:ISO-8859-13 :|iso-8859-13| :LATIN-7 :|latin-7|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:ISO-8859-13 :|iso-8859-13| :LATIN-7 :|latin-7|) 1 T ; (LET ((SB!IMPL::ISO-8859-13-BYTE ; (SB!IMPL::CODE->ISO-8859-13-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-13-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-13-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-13->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-14->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-ISO-8859-14-BYTES)) ; compiling (DEFUN GET-ISO-8859-14-BYTES ...) ; compiling (DEFUN STRING->ISO-8859-14 ...) ; compiling (DEFMACRO DEFINE-ISO-8859-14->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-14->STRING*) ; compiling (DEFMACRO DEFINE-ISO-8859-14->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-14->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-14 :|iso-8859-14| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-iso.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:ISO-8859-14 :|iso-8859-14| :LATIN-8 :|latin-8|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:ISO-8859-14 :|iso-8859-14| :LATIN-8 :|latin-8|) 1 T ; (LET ((SB!IMPL::ISO-8859-14-BYTE ; (SB!IMPL::CODE->ISO-8859-14-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::ISO-8859-14-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::ISO-8859-14-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-14->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (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 12 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/external-formats/enc-iso.lisp-obj-tmp written ; compilation finished in 0:00:12 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-win.lisp" (written 06 SEP 2006 09:27:10 PM): ; compiling (IN-PACKAGE #:SB!IMPL) ; compiling (DEFINE-UNIBYTE-MAPPER CP1250->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP1250-BYTES)) ; compiling (DEFUN GET-CP1250-BYTES ...) ; compiling (DEFUN STRING->CP1250 ...) ; compiling (DEFMACRO DEFINE-CP1250->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1250->STRING*) ; compiling (DEFMACRO DEFINE-CP1250->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1250->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP1250 :|cp1250| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-win.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:CP1250 :|cp1250| :WINDOWS-1250 :|windows-1250|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:CP1250 :|cp1250| :WINDOWS-1250 :|windows-1250|) 1 T ; (LET ((SB!IMPL::CP1250-BYTE (SB!IMPL::CODE->CP1250-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP1250-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP1250-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP1250->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP1251->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP1251-BYTES)) ; compiling (DEFUN GET-CP1251-BYTES ...) ; compiling (DEFUN STRING->CP1251 ...) ; compiling (DEFMACRO DEFINE-CP1251->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1251->STRING*) ; compiling (DEFMACRO DEFINE-CP1251->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1251->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP1251 :|cp1251| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-win.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:CP1251 :|cp1251| :WINDOWS-1251 :|windows-1251|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:CP1251 :|cp1251| :WINDOWS-1251 :|windows-1251|) 1 T ; (LET ((SB!IMPL::CP1251-BYTE (SB!IMPL::CODE->CP1251-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP1251-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP1251-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP1251->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP1252->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP1252-BYTES)) ; compiling (DEFUN GET-CP1252-BYTES ...) ; compiling (DEFUN STRING->CP1252 ...) ; compiling (DEFMACRO DEFINE-CP1252->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1252->STRING*) ; compiling (DEFMACRO DEFINE-CP1252->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1252->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP1252 :|cp1252| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-win.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:CP1252 :|cp1252| :WINDOWS-1252 :|windows-1252|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:CP1252 :|cp1252| :WINDOWS-1252 :|windows-1252|) 1 T ; (LET ((SB!IMPL::CP1252-BYTE (SB!IMPL::CODE->CP1252-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP1252-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP1252-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP1252->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP1253->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP1253-BYTES)) ; compiling (DEFUN GET-CP1253-BYTES ...) ; compiling (DEFUN STRING->CP1253 ...) ; compiling (DEFMACRO DEFINE-CP1253->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1253->STRING*) ; compiling (DEFMACRO DEFINE-CP1253->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1253->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP1253 :|cp1253| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-win.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:CP1253 :|cp1253| :WINDOWS-1253 :|windows-1253|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:CP1253 :|cp1253| :WINDOWS-1253 :|windows-1253|) 1 T ; (LET ((SB!IMPL::CP1253-BYTE (SB!IMPL::CODE->CP1253-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP1253-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP1253-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP1253->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP1254->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP1254-BYTES)) ; compiling (DEFUN GET-CP1254-BYTES ...) ; compiling (DEFUN STRING->CP1254 ...) ; compiling (DEFMACRO DEFINE-CP1254->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1254->STRING*) ; compiling (DEFMACRO DEFINE-CP1254->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1254->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP1254 :|cp1254|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP1254 :|cp1254|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP1254 :|cp1254|) 1 T ; (LET ((SB!IMPL::CP1254-BYTE (SB!IMPL::CODE->CP1254-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP1254-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP1254-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP1254->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP1255->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP1255-BYTES)) ; compiling (DEFUN GET-CP1255-BYTES ...) ; compiling (DEFUN STRING->CP1255 ...) ; compiling (DEFMACRO DEFINE-CP1255->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1255->STRING*) ; compiling (DEFMACRO DEFINE-CP1255->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1255->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP1255 :|cp1255| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-win.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:CP1255 :|cp1255| :WINDOWS-1255 :|windows-1255|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:CP1255 :|cp1255| :WINDOWS-1255 :|windows-1255|) 1 T ; (LET ((SB!IMPL::CP1255-BYTE (SB!IMPL::CODE->CP1255-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP1255-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP1255-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP1255->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP1256->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP1256-BYTES)) ; compiling (DEFUN GET-CP1256-BYTES ...) ; compiling (DEFUN STRING->CP1256 ...) ; compiling (DEFMACRO DEFINE-CP1256->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1256->STRING*) ; compiling (DEFMACRO DEFINE-CP1256->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1256->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP1256 :|cp1256|) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-win.lisp ; in: DEFINE-EXTERNAL-FORMAT (:CP1256 :|cp1256|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP1256 :|cp1256|) 1 T ; (LET ((SB!IMPL::CP1256-BYTE (SB!IMPL::CODE->CP1256-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP1256-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP1256-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP1256->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP1257->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP1257-BYTES)) ; compiling (DEFUN GET-CP1257-BYTES ...) ; compiling (DEFUN STRING->CP1257 ...) ; compiling (DEFMACRO DEFINE-CP1257->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1257->STRING*) ; compiling (DEFMACRO DEFINE-CP1257->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1257->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP1257 :|cp1257| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-win.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:CP1257 :|cp1257| :WINDOWS-1257 :|windows-1257|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:CP1257 :|cp1257| :WINDOWS-1257 :|windows-1257|) 1 T ; (LET ((SB!IMPL::CP1257-BYTE (SB!IMPL::CODE->CP1257-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP1257-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP1257-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP1257->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFINE-UNIBYTE-MAPPER CP1258->CODE-MAPPER ...) ; compiling (DECLAIM (INLINE GET-CP1258-BYTES)) ; compiling (DEFUN GET-CP1258-BYTES ...) ; compiling (DEFUN STRING->CP1258 ...) ; compiling (DEFMACRO DEFINE-CP1258->STRING* ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1258->STRING*) ; compiling (DEFMACRO DEFINE-CP1258->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1258->STRING) ; compiling (PUSH (QUOTE #) ...) ; compiling (DEFINE-EXTERNAL-FORMAT (:CP1258 :|cp1258| ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-win.lisp ; in: ; DEFINE-EXTERNAL-FORMAT (:CP1258 :|cp1258| :WINDOWS-1258 :|windows-1258|) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT ; (:CP1258 :|cp1258| :WINDOWS-1258 :|windows-1258|) 1 T ; (LET ((SB!IMPL::CP1258-BYTE (SB!IMPL::CODE->CP1258-MAPPER SB!SYS:BITS))) ; (IF SB!IMPL::CP1258-BYTE ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; SB!IMPL::CP1258-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))) ; (LET ((SB!IMPL::CODE (SB!IMPL::CP1258->CODE-MAPPER SB-XC:BYTE))) ; (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE) ; (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE)))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (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 ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/external-formats/enc-win.lisp-obj-tmp written ; compilation finished in 0:00:10 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/mb-util.lisp" (written 12 NOV 2006 09:42:28 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN MAKE-MULTIBYTE-MAPPER ...) ; compiling (DEFMACRO DEFINE-MULTIBYTE-MAPPER ...) ; compiling (DEFUN GET-MULTIBYTE-MAPPER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; because: ; Upgraded element type of array is not known at compile time. ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; compiling (DEFUN MAKE-OD-NAME-LIST ...) ; compiling (DEFUN DEFINE-BYTES-PER-MB-CHARACTER-1 ...) ; compiling (DEFUN DEFINE-SIMPLE-GET-MB-CHAR-1 ...) ; compiling (DEFUN DEFINE-MB->STRING-1 ...) ; compiling (DECLAIM (INLINE MB-CHAR-LEN)) ; compiling (DEFUN MB-CHAR-LEN ...) ; compiling (DEFMACRO DEFINE-MULTIBYTE-ENCODING ...); ; compilation unit finished ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/external-formats/mb-util.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-jpn-tbl.lisp" (written 12 NOV 2006 09:42:29 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-EUCJP-TABLE* ...) ; compiling (DEFINE-MULTIBYTE-MAPPER *EUCJP-TO-UCS-TABLE* ...) ; compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-SJIS-TABLE* ...) ; compiling (DEFINE-MULTIBYTE-MAPPER *SJIS-TO-UCS-TABLE* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-jpn.lisp" (written 12 NOV 2006 09:42:29 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (INLINE UCS-TO-EUCJP ...)) ; compiling (DEFUN UCS-TO-EUCJP ...) ; compiling (DEFUN EUCJP-TO-UCS ...) ; compiling (DEFUN MB-LEN-AS-EUCJP ...) ; compiling (DEFUN EUCJP-CONTINUATION-BYTE-P ...) ; compiling (DEFINE-MULTIBYTE-ENCODING :EUC-JP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (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!INT:COLD-FSET BLOCK LOCALLY LET* DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> SETF SETQ THE BLOCK SETF PROGN SETF SETQ THE LET* ECASE LET COND IF COND ; --> IF COND IF PROGN LET SB-XC:DPB SB!KERNEL:%DPB LET LOGIOR ; ==> ; (LOGAND SB!ALIEN:INT (LOGNOT (ASH SB!C::MASK SB!C::POSN))) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of static-fun Two-arg-and ; in: DEFUN UCS-TO-EUCJP ; (SB!IMPL::GET-MULTIBYTE-MAPPER SB!IMPL::*UCS-TO-EUCJP-TABLE* SB!IMPL::CODE) ; ==> ; SB!IMPL::*UCS-TO-EUCJP-TABLE* ; ; note: deleting unreachable code ; 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::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET LET ; --> SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-799 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN (OR # -1))))) ; ; 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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) 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-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* ; ==> ; (+ ; (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW ; LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...) ; (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) ; (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN #))))) ; ; 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. ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY 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 3) 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). ; unable to do inline constant ASH (cost 4) 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!INT:COLD-FSET BLOCK LOCALLY 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)) (ASH 4294967295 (- SB!C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY 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 3) 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). ; unable to do inline constant ASH (cost 4) 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!INT:COLD-FSET BLOCK LOCALLY 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)) (ASH 4294967295 (- SB!C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY 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 3) 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). ; unable to do inline constant ASH (cost 4) 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!INT:COLD-FSET BLOCK LOCALLY 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)) (ASH 4294967295 (- SB!C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SIMPLE-GET-EUC-JP-CHAR PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK FLET LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES) ; :EUC-JP 'SB!IMPL::MALFORMED-EUC-JP SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT 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::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF LET* ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G1040) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT 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::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G1040) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN VECTOR-PUSH-EXTEND ; --> SB!IMPL::SIMPLE-GET-EUC-JP-CHAR-AREF BLOCK FLET LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS: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!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT 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::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF LET* ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G1078) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT 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::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G1078) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK ; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN VECTOR-PUSH-EXTEND ; --> SB!IMPL::SIMPLE-GET-EUC-JP-CHAR-SAP-REF-8 BLOCK FLET LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES) ; :EUC-JP 'SB!IMPL::MALFORMED-EUC-JP SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DECLAIM (INLINE UCS-TO-SJIS ...)) ; compiling (DEFUN UCS-TO-SJIS ...) ; compiling (DEFUN SJIS-TO-UCS ...) ; compiling (DEFUN MB-LEN-AS-SJIS ...) ; compiling (DEFUN SJIS-CONTINUATION-BYTE-P ...) ; compiling (DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/enc-jpn.lisp ; in: DEFUN SJIS-CONTINUATION-BYTE-P ; (<= 64 SB!IMPL::CODE 126) ; --> ; --> (LAMBDA (#:G1708 #:G1707 #:G1706) (DECLARE (TYPE REAL #:G1708 #:G1707 #:G1706)) (IF (> #:G1708 #:G1707) NIL (IF (> #:G1707 #:G1706) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 128 SB!IMPL::CODE 252) ; --> ; --> (LAMBDA (#:G1705 #:G1704 #:G1703) (DECLARE (TYPE REAL #:G1705 #:G1704 #:G1703)) (IF (> #:G1705 #:G1704) NIL (IF (> #:G1704 #:G1703) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 64 SB!IMPL::CODE 126) ; --> ; --> (LAMBDA (#:G1701 #:G1700 #:G1699) (DECLARE (TYPE REAL #:G1701 #:G1700 #:G1699)) (IF (> #:G1701 #:G1700) NIL (IF (> #:G1700 #:G1699) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 128 SB!IMPL::CODE 252) ; --> ; --> (LAMBDA (#:G1698 #:G1697 #:G1696) (DECLARE (TYPE REAL #:G1698 #:G1697 #:G1696)) (IF (> #:G1698 #:G1697) NIL (IF (> #:G1697 #:G1696) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 64 SB!IMPL::CODE 126) ; --> ; --> (LAMBDA (#:G1797 #:G1796 #:G1795) (DECLARE (TYPE REAL #:G1797 #:G1796 #:G1795)) (IF (> #:G1797 #:G1796) NIL (IF (> #:G1796 #:G1795) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 128 SB!IMPL::CODE 252) ; --> ; --> (LAMBDA (#:G1794 #:G1793 #:G1792) (DECLARE (TYPE REAL #:G1794 #:G1793 #:G1792)) (IF (> #:G1794 #:G1793) NIL (IF (> #:G1793 #:G1792) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 64 SB!IMPL::CODE 126) ; --> ; --> (LAMBDA (#:G1790 #:G1789 #:G1788) (DECLARE (TYPE REAL #:G1790 #:G1789 #:G1788)) (IF (> #:G1790 #:G1789) NIL (IF (> #:G1789 #:G1788) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 128 SB!IMPL::CODE 252) ; --> ; --> (LAMBDA (#:G1787 #:G1786 #:G1785) (DECLARE (TYPE REAL #:G1787 #:G1786 #:G1785)) (IF (> #:G1787 #:G1786) NIL (IF (> #:G1786 #:G1785) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 64 SB!IMPL::CODE 126) ; --> ; --> (LAMBDA (#:G1895 #:G1894 #:G1893) (DECLARE (TYPE REAL #:G1895 #:G1894 #:G1893)) (IF (> #:G1895 #:G1894) NIL (IF (> #:G1894 #:G1893) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 128 SB!IMPL::CODE 252) ; --> ; --> (LAMBDA (#:G1892 #:G1891 #:G1890) (DECLARE (TYPE REAL #:G1892 #:G1891 #:G1890)) (IF (> #:G1892 #:G1891) NIL (IF (> #:G1891 #:G1890) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 64 SB!IMPL::CODE 126) ; --> ; --> (LAMBDA (#:G1888 #:G1887 #:G1886) (DECLARE (TYPE REAL #:G1888 #:G1887 #:G1886)) (IF (> #:G1888 #:G1887) NIL (IF (> #:G1887 #:G1886) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; (<= 128 SB!IMPL::CODE 252) ; --> ; --> (LAMBDA (#:G1885 #:G1884 #:G1883) (DECLARE (TYPE REAL #:G1885 #:G1884 #:G1883)) (IF (> #:G1885 #:G1884) NIL (IF (> #:G1884 #:G1883) NIL T))) ; ==> ; SB!IMPL::CODE ; ; note: deleting unreachable code ; 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::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; in: DEFUN UCS-TO-SJIS ; (SB!IMPL::GET-MULTIBYTE-MAPPER SB!IMPL::*UCS-TO-SJIS-TABLE* SB!IMPL::CODE) ; ==> ; SB!IMPL::*UCS-TO-SJIS-TABLE* ; ; note: deleting unreachable code ; 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::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET LET ; --> SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-1984 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) ; (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN (OR # -1))))) ; ; 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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) 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-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* ; ==> ; (+ ; (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW ; LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...) ; (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) ; (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN #))))) ; ; 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. ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY 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 3) 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). ; unable to do inline constant ASH (cost 4) 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!INT:COLD-FSET BLOCK LOCALLY 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)) (ASH 4294967295 (- SB!C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY 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 3) 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). ; unable to do inline constant ASH (cost 4) 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!INT:COLD-FSET BLOCK LOCALLY 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)) (ASH 4294967295 (- SB!C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK LOCALLY 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 3) 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). ; unable to do inline constant ASH (cost 4) 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!INT:COLD-FSET BLOCK LOCALLY 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)) (ASH 4294967295 (- SB!C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SIMPLE-GET-SHIFT_JIS-CHAR PROGN DEFUN PROGN ; --> SB!INT:COLD-FSET BLOCK FLET LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES) ; :SHIFT_JIS 'SB!IMPL::MALFORMED-SHIFT_JIS SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT 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::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF LET* ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G2252) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT 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::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G2252) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN VECTOR-PUSH-EXTEND ; --> SB!IMPL::SIMPLE-GET-SHIFT_JIS-CHAR-AREF BLOCK FLET LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS: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!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT 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::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND IF PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF LET* ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G2290) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY UNLESS COND IF NOT 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::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G2290) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET ; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN VECTOR-PUSH-EXTEND ; --> SB!IMPL::SIMPLE-GET-SHIFT_JIS-CHAR-SAP-REF-8 BLOCK FLET LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES) ; :SHIFT_JIS 'SB!IMPL::MALFORMED-SHIFT_JIS SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ; compilation unit finished ; printed 80 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj-tmp written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/ucs-2.lisp" (written 06 SEP 2006 09:27:10 PM): ; compiling (IN-PACKAGE #:SB!IMPL) ; compiling (DECLAIM (INLINE SAP-REF-16LE ...)) ; compiling (DEFUN SAP-REF-16LE ...) ; compiling (DEFUN (SETF SAP-REF-16LE) ...) ; compiling (DEFUN SAP-REF-16BE ...) ; compiling (DEFUN (SETF SAP-REF-16BE) ...) ; compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/ucs-2.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) NIL 2 ; (IF (< SB!SYS:BITS 65536) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)) ; 2 (CODE-CHAR (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DO BLOCK LET TAGBODY TAGBODY ; --> LET* DO BLOCK LET TAGBODY TAGBODY WHEN COND IF PROGN WHEN COND IF ; --> SB!IMPL::STREAM-DECODING-ERROR-AND-HANDLE ; ==> ; STREAM ; ; note: deleting unreachable code ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DO BLOCK LET TAGBODY TAGBODY ; --> LET* DO BLOCK LET TAGBODY TAGBODY WHEN COND IF PROGN WHEN COND IF PROGN ; --> IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DO BLOCK LET TAGBODY TAGBODY ; --> LET* DO BLOCK LET TAGBODY TAGBODY WHEN COND IF PROGN SETF SETQ THE ; --> SB!IMPL::FD-STREAM-IBUF-HEAD SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; STREAM ; ; note: deleting unreachable code ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (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!SYS:BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) NIL 2 ; (IF (< SB!SYS:BITS 65536) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)) ; 2 (CODE-CHAR (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-536 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 2))) ; ; 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 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* ; ==> ; (+ ; (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW ; LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...) ; (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 2)))) ; ; 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. ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/external-formats/ucs-2.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) NIL 2 ; (IF (< SB!SYS:BITS 65536) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)) ; 2 (CODE-CHAR (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DO BLOCK LET TAGBODY TAGBODY ; --> LET* DO BLOCK LET TAGBODY TAGBODY WHEN COND IF PROGN WHEN COND IF ; --> SB!IMPL::STREAM-DECODING-ERROR-AND-HANDLE ; ==> ; STREAM ; ; note: deleting unreachable code ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DO BLOCK LET TAGBODY TAGBODY ; --> LET* DO BLOCK LET TAGBODY TAGBODY WHEN COND IF PROGN WHEN COND IF PROGN ; --> IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DO BLOCK LET TAGBODY TAGBODY ; --> LET* DO BLOCK LET TAGBODY TAGBODY WHEN COND IF PROGN SETF SETQ THE ; --> SB!IMPL::FD-STREAM-IBUF-HEAD SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; STREAM ; ; note: deleting unreachable code ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE ; ==> ; (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!SYS:BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) NIL 2 ; (IF (< SB!SYS:BITS 65536) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)) ; 2 (CODE-CHAR (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD))) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET ; --> LET LET LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-1095 ; (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 2))) ; ; 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 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* ; ==> ; (+ ; (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW ; LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...) ; (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE))) ; (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS)) ; (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 2)))) ; ; 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. ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; compiling (DECLAIM (INLINE CHAR->UCS-2LE)) ; compiling (DEFUN CHAR->UCS-2LE ...) ; compiling (DECLAIM (INLINE CHAR->UCS-2BE)) ; compiling (DEFUN CHAR->UCS-2BE ...) ; compiling (DEFUN STRING->UCS-2LE ...) ; compiling (DEFUN STRING->UCS-2BE ...) ; compiling (DEFMACRO DEFINE-BYTES-PER-UCS2-CHARACTER ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UCS2-CHARACTER) ; compiling (DEFMACRO DEFINE-SIMPLE-GET-UCS2-CHARACTER ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS2-CHARACTER) ; compiling (DEFMACRO DEFINE-UCS-2->STRING ...) ; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-2->STRING) ; compiling (PUSHNEW (QUOTE #) ...) ; compiling (PUSHNEW (QUOTE #) ...); ; compilation unit finished ; printed 14 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/external-formats/ucs-2.lisp-obj-tmp written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/parse-defmacro-errors.lisp" (written 14 JUL 2005 05:30:37 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 ...) ; compiling (DEFINE-CONDITION DEFMACRO-BOGUS-SUBLIST-ERROR ...) ; compiling (DEFINE-CONDITION ARG-COUNT-ERROR ...) ; compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/parse-defmacro-errors.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/full-eval.lisp" (written 13 SEP 2006 04:59:32 PM): ; compiling (IN-PACKAGE "SB!EVAL") ; compiling (DEFVAR *SPECIAL* ...) ; compiling (DEFVAR *MACRO* ...) ; compiling (DEFVAR *SYMBOL-MACRO* ...) ; compiling (DEFVAR *NOT-PRESENT* ...) ; compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...) ; compiling (DEFINE-CONDITION ARG-COUNT-PROGRAM-ERROR ...) ; compiling (DEFUN ARG-COUNT-PROGRAM-ERROR ...) ; compiling (DEFMACRO PROGRAM-DESTRUCTURING-BIND ...) ; compiling (DEFUN IP-ERROR ...) ; compiling (DEFMACRO NCONC-2 ...) ; compiling (DEFUN FABRICATE-NEW-NATIVE-ENVIRONMENT ...) ; compiling (DEFSTRUCT (ENV #) ...) ; compiling (DEFUN MAKE-ENV ...) ; compiling (DEFUN MAKE-NULL-ENVIRONMENT ...) ; compiling (DECLAIM (INLINE PUSH-VAR)) ; compiling (DEFUN PUSH-VAR ...) ; compiling (DECLAIM (INLINE PUSH-FUN)) ; compiling (DEFUN PUSH-FUN ...) ; compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFINE-GET-BINDING GET-BINDING ...) ; compiling (DEFINE-GET-BINDING GET-FBINDING ...) ; compiling (DEFINE-GET-BINDING GET-EXPANDER-BINDING ...) ; compiling (DEFINE-GET-BINDING GET-SYMBOL-EXPANSION-BINDING ...) ; compiling (DEFINE-GET-BINDING GET-TAG-BINDING ...) ; compiling (DEFINE-GET-BINDING GET-BLOCK-BINDING ...) ; compiling (DEFUN DECLARED-SPECIALS ...) ; compiling (DEFUN SPECIAL-BINDINGS ...) ; compiling (DEFUN SPECIALP ...) ; compiling (DEFUN BINDING-NAME ...) ; compiling (DEFUN BINDING-VALUE ...) ; compiling (DEFUN SUPPLIED-P-PARAMETER ...) ; compiling (DEFUN KEYWORD-NAME ...) ; compiling (DEFUN KEYWORD-KEY ...) ; compiling (DEFUN KEYWORD-DEFAULT-VALUE ...) ; compiling (DEFUN PARSE-ARGUMENTS ...) ; compiling (DEFUN EVAL-NEXT-LET*-BINDING ...) ; compiling (DEFUN CALL-WITH-NEW-ENV ...) ; compiling (DEFUN CALL-WITH-NEW-ENV-FULL-PARSING ...) ; compiling (DEFUN SET-VARIABLE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/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 ; compiling (DEFUN GET-VARIABLE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/full-eval.lisp ; in: DEFUN GET-VARIABLE ; (SB!ALIEN-INTERNALS:%HEAP-ALIEN TYPE) ; ; note: unable to optimize because: info not constant; can't open code ; compiling (DEFUN GET-FUNCTION ...) ; compiling (DEFUN LAMBDAP ...) ; compiling (DEFUN PARSE-LAMBDA-HEADERS ...) ; compiling (DEFUN EVAL-LAMBDA ...) ; compiling (DEFUN EVAL-PROGN ...) ; compiling (DEFUN EVAL-IF ...) ; compiling (DEFUN EVAL-LET ...) ; compiling (DEFUN EVAL-LET* ...) ; compiling (DEFUN EVAL-LOCAL-FUNCTION-DEF ...) ; compiling (DEFUN EVAL-FLET ...) ; compiling (DEFUN EVAL-LABELS ...) ; compiling (DEFUN EVAL-LOCAL-MACRO-DEF ...) ; compiling (DEFUN EVAL-MACROLET ...) ; compiling (DEFUN EVAL-SYMBOL-MACROLET ...) ; compiling (DEFUN EVAL-PROGV ...) ; compiling (DEFUN EVAL-FUNCTION ...) ; compiling (DEFUN EVAL-EVAL-WHEN ...) ; compiling (DEFUN EVAL-QUOTE ...) ; compiling (DEFUN EVAL-SETQ ...) ; compiling (DEFUN EVAL-MULTIPLE-VALUE-CALL ...) ; compiling (DEFUN EVAL-MULTIPLE-VALUE-PROG1 ...) ; compiling (DEFUN EVAL-CATCH ...) ; compiling (DEFUN EVAL-TAGBODY ...) ; compiling (DEFUN EVAL-GO ...) ; compiling (DEFUN EVAL-BLOCK ...) ; compiling (DEFUN EVAL-RETURN-FROM ...) ; compiling (DEFUN EVAL-THE ...) ; compiling (DEFUN EVAL-UNWIND-PROTECT ...) ; compiling (DEFUN EVAL-THROW ...) ; compiling (DEFUN EVAL-LOAD-TIME-VALUE ...) ; compiling (DEFUN EVAL-LOCALLY ...) ; compiling (DEFUN EVAL-ARGS ...) ; compiling (DEFUN EVAL-WITH-PINNED-OBJECTS ...) ; compiling (DEFINE-CONDITION MACROEXPAND-HOOK-TYPE-ERROR ...) ; compiling (DEFVAR *EVAL-DISPATCH-FUNCTIONS* ...) ; compiling (DECLAIM (INLINE %%EVAL)) ; compiling (DEFUN %%EVAL ...) ; compiling (DEFUN %EVAL ...) ; compiling (DEFUN %APPLY ...) ; compiling (DEFUN INTERPRETED-APPLY ...) ; compiling (DEFINE-CONDITION INTERPRETER-ENVIRONMENT-TOO-COMPLEX-ERROR ...) ; compiling (DEFINE-CONDITION COMPILER-ENVIRONMENT-TOO-COMPLEX-ERROR ...) ; compiling (DEFUN PREPARE-FOR-COMPILE ...) ; compiling (DEFUN MAKE-ENV-FROM-NATIVE-ENVIRONMENT ...) ; compiling (DEFUN EVAL-IN-ENVIRONMENT ...) ; compiling (DEFUN EVAL-IN-NATIVE-ENVIRONMENT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/full-eval.lisp ; in: DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ; (SLOT-BOUNDP CONDITION 'CONDITION) ; ; caught STYLE-WARNING: ; undefined function: SLOT-BOUNDP ; ; caught STYLE-WARNING: ; This function is undefined: ; SLOT-BOUNDP ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/full-eval.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bit-bash.lisp" (written 14 JUL 2005 05:30:13 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFTYPE BIT-OFFSET ...) ; compiling (DEF WORD-LOGICAL-NOT ...) ; compiling (DEF WORD-LOGICAL-AND ...) ; compiling (DEF WORD-LOGICAL-OR ...) ; compiling (DEF WORD-LOGICAL-XOR ...) ; compiling (DEF WORD-LOGICAL-NOR ...) ; compiling (DEF WORD-LOGICAL-EQV ...) ; compiling (DEF WORD-LOGICAL-NAND ...) ; compiling (DEF WORD-LOGICAL-ANDC1 ...) ; compiling (DEF WORD-LOGICAL-ANDC2 ...) ; compiling (DEF WORD-LOGICAL-ORC1 ...) ; compiling (DEF WORD-LOGICAL-ORC2 ...) ; compiling (DEFUN SHIFT-TOWARDS-START ...) ; compiling (DEFUN SHIFT-TOWARDS-END ...) ; compiling (DECLAIM (INLINE START-MASK ...)) ; compiling (DEFUN START-MASK ...) ; compiling (DEFUN END-MASK ...) ; compiling (DECLAIM (INLINE WORD-SAP-REF ...)) ; compiling (DEFUN WORD-SAP-REF ...) ; compiling (DEFUN %SET-WORD-SAP-REF ...) ; compiling (DEFMACRO !DEFINE-SAP-FIXER ...) ; compiling (DEFMACRO !DEFINE-BYTE-BASHERS ...) ; compiling (!DEFINE-SAP-FIXER 1) ; compiling (!DEFINE-SAP-FIXER 2) ; compiling (!DEFINE-SAP-FIXER 4) ; compiling (!DEFINE-SAP-FIXER 8) ; compiling (!DEFINE-SAP-FIXER 16) ; compiling (!DEFINE-SAP-FIXER 32) ; compiling (!DEFINE-BYTE-BASHERS 1) ; compiling (!DEFINE-BYTE-BASHERS 2) ; compiling (!DEFINE-BYTE-BASHERS 4) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bit-bash.lisp ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 4) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB4 THE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF TYPEP ; ==> ; (SB!INT:FIXNUMP #:G3406) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB4 THE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF TYPEP ; ==> ; (SB!INT:FIXNUMP #:G4192) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET 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 COND IF NOT IF TYPEP ; ==> ; (SB!INT:FIXNUMP #:G4197) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB4 THE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF TYPEP ; ==> ; (SB!INT:FIXNUMP #:G4458) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; ==> ; (SB!INT:FIXNUMP #:G4677) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; compiling (!DEFINE-BYTE-BASHERS 8) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bit-bash.lisp ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 8) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB8 THE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF TYPEP ; ==> ; (SB!INT:FIXNUMP #:G4871) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB8 THE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF TYPEP ; ==> ; (SB!INT:FIXNUMP #:G5657) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB!VM::FIX-SAP-AND-OFFSET-UB8 THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION UNLESS COND IF NOT IF TYPEP ; ==> ; (SB!INT:FIXNUMP #:G5662) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB8 THE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF TYPEP ; ==> ; (SB!INT:FIXNUMP #:G5923) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; ==> ; (SB!INT:FIXNUMP #:G6142) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; compiling (!DEFINE-BYTE-BASHERS 16) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bit-bash.lisp ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 16) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB16 THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF ; --> TYPEP ; ==> ; (SB!INT:FIXNUMP #:G6336) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; in: DEFMACRO !DEFINE-BYTE-BASHERS ; (SB!VM::GET-NEXT-SRC) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF SB!VM::PREV SB!VM::NEXT) ; --> SETQ THE ; ==> ; SB!VM::NEXT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC ; (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET))) ; ; note: deleting unreachable code ; (INCF SB!VM::SRC-WORD-OFFSET) ; --> LET* + ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (SB!VM::GET-NEXT-SRC) ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-REF-FN ; ; note: deleting unreachable code ; (SB!VM::GET-NEXT-SRC) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF SB!VM::PREV SB!VM::NEXT) ; --> SETQ THE ; ==> ; SB!VM::NEXT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC ; (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET))) ; ; note: deleting unreachable code ; (INCF SB!VM::SRC-WORD-OFFSET) ; --> LET* + ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (SB!VM::GET-NEXT-SRC) ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-REF-FN ; ; note: deleting unreachable code ; (SB!VM::GET-NEXT-SRC) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF SB!VM::PREV SB!VM::NEXT) ; --> SETQ THE ; ==> ; SB!VM::NEXT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC ; (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET))) ; ; note: deleting unreachable code ; (INCF SB!VM::SRC-WORD-OFFSET) ; --> LET* + ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (SB!VM::GET-NEXT-SRC) ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-REF-FN ; ; note: deleting unreachable code ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 16) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB16 THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF ; --> TYPEP ; ==> ; (SB!INT:FIXNUMP #:G7090) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB!VM::FIX-SAP-AND-OFFSET-UB16 THE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF TYPEP ; ==> ; (SB!INT:FIXNUMP #:G7095) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; in: DEFMACRO !DEFINE-BYTE-BASHERS ; (SB!VM::GET-NEXT-SRC) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF SB!VM::PREV SB!VM::NEXT) ; --> SETQ THE ; ==> ; SB!VM::NEXT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC ; (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET))) ; ; note: deleting unreachable code ; (INCF SB!VM::SRC-WORD-OFFSET) ; --> LET* + ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (SB!VM::GET-NEXT-SRC) ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-REF-FN ; ; note: deleting unreachable code ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 16) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB16 THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF ; --> TYPEP ; ==> ; (SB!INT:FIXNUMP #:G7350) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; in: DEFMACRO !DEFINE-BYTE-BASHERS ; (SB!VM::GET-NEXT-SRC) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF SB!VM::PREV SB!VM::NEXT) ; --> SETQ THE ; ==> ; SB!VM::NEXT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC ; (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET))) ; ; note: deleting unreachable code ; (INCF SB!VM::SRC-WORD-OFFSET) ; --> LET* + ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (SB!VM::GET-NEXT-SRC) ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-REF-FN ; ; note: deleting unreachable code ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 16) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB16 THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF ; --> TYPEP ; ==> ; (SB!INT:FIXNUMP #:G7563) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; compiling (!DEFINE-BYTE-BASHERS 32) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/bit-bash.lisp ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 32) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!KERNEL::CONSTANT-UB32-BASH ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF LET ; ==> ; (LET ((SB!VM::END (+ SB!VM::DST-WORD-OFFSET SB!VM::INTERIOR))) ; (DECLARE (TYPE (INTEGER 0 536870911) SB!VM::END)) ; (DO () ; ((>= SB!VM::DST-WORD-OFFSET SB!VM::END)) ; (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET ; SB!VM::VALUE) ; (INCF SB!VM::DST-WORD-OFFSET))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB32 THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF ; --> TYPEP ; ==> ; (SB!INT:FIXNUMP #:G7664) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET 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 ((SB!VM::END (+ SB!VM::DST-WORD-OFFSET SB!VM::INTERIOR))) ; (DECLARE (TYPE (INTEGER 0 536870911) SB!VM::END)) ; (DO () ; ((>= SB!VM::DST-WORD-OFFSET SB!VM::END)) ; (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET ; SB!VM::VALUE) ; (INCF SB!VM::DST-WORD-OFFSET))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: DEFMACRO !DEFINE-BYTE-BASHERS ; (+ SB!VM::DST-BYTE-OFFSET LENGTH) ; ==> ; SB!VM::DST-BYTE-OFFSET ; ; note: deleting unreachable code ; (>= SB!VM::DST-WORD-OFFSET SB!VM::END) ; --> IF < ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (SETF SB!VM::PREV SB!VM::NEXT) ; --> SETQ THE ; ==> ; SB!VM::NEXT ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (<= SB!VM::DST-WORD-OFFSET SB!VM::END) ; --> IF > ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (SETF SB!VM::NEXT SB!VM::PREV) ; --> SETQ THE ; ==> ; SB!VM::PREV ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (- SB!VM::SRC-BYTE-OFFSET SB!VM::DST-BYTE-OFFSET) ; ; note: deleting unreachable code ; (- LENGTH SB!VM::FINAL-BYTES) ; ==> ; LENGTH ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (INCF SB!VM::DST-WORD-OFFSET SB!SYS:WORDS) ; --> LET* + ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (+ SB!VM::DST-BYTE-OFFSET LENGTH) ; ==> ; SB!VM::DST-BYTE-OFFSET ; ; note: deleting unreachable code ; (>= SB!VM::DST-WORD-OFFSET SB!VM::END) ; --> IF < ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (SETF SB!VM::PREV SB!VM::NEXT) ; --> SETQ THE ; ==> ; SB!VM::NEXT ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (<= SB!VM::DST-WORD-OFFSET SB!VM::END) ; --> IF > ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (SETF SB!VM::NEXT SB!VM::PREV) ; --> SETQ THE ; ==> ; SB!VM::PREV ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (- SB!VM::SRC-BYTE-OFFSET SB!VM::DST-BYTE-OFFSET) ; ; note: deleting unreachable code ; (- LENGTH SB!VM::FINAL-BYTES) ; ==> ; LENGTH ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (INCF SB!VM::DST-WORD-OFFSET SB!SYS:WORDS) ; --> LET* + ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (+ SB!VM::DST-BYTE-OFFSET LENGTH) ; ==> ; SB!VM::DST-BYTE-OFFSET ; ; note: deleting unreachable code ; (INCF SB!VM::DST-WORD-OFFSET) ; --> LET* + ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (>= SB!VM::DST-WORD-OFFSET SB!VM::END) ; --> IF < ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (SETF SB!VM::PREV SB!VM::NEXT) ; --> SETQ THE ; ==> ; SB!VM::NEXT ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (+ SB!VM::DST-WORD-OFFSET SB!VM::INTERIOR) ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (DECF SB!VM::DST-WORD-OFFSET) ; --> LET* - ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (<= SB!VM::DST-WORD-OFFSET SB!VM::END) ; --> IF > ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (SETF SB!VM::NEXT SB!VM::PREV) ; --> SETQ THE ; ==> ; SB!VM::PREV ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (DECF SB!VM::DST-WORD-OFFSET) ; --> LET* - ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (- SB!VM::SRC-BYTE-OFFSET SB!VM::DST-BYTE-OFFSET) ; ; note: deleting unreachable code ; (- LENGTH SB!VM::FINAL-BYTES) ; ==> ; LENGTH ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (INCF SB!VM::DST-WORD-OFFSET SB!SYS:WORDS) ; --> LET* + ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 32) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB32 THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF ; --> TYPEP ; ==> ; (SB!INT:FIXNUMP #:G8020) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB!VM::FIX-SAP-AND-OFFSET-UB32 THE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF TYPEP ; ==> ; (SB!INT:FIXNUMP #:G8025) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; in: DEFMACRO !DEFINE-BYTE-BASHERS ; (+ SB!VM::DST-BYTE-OFFSET LENGTH) ; ==> ; SB!VM::DST-BYTE-OFFSET ; ; note: deleting unreachable code ; (INCF SB!VM::DST-WORD-OFFSET) ; --> LET* + ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (>= SB!VM::DST-WORD-OFFSET SB!VM::END) ; --> IF < ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (SETF SB!VM::PREV SB!VM::NEXT) ; --> SETQ THE ; ==> ; SB!VM::NEXT ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (DECF SB!VM::DST-WORD-OFFSET) ; --> LET* - ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (<= SB!VM::DST-WORD-OFFSET SB!VM::END) ; --> IF > ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (SETF SB!VM::NEXT SB!VM::PREV) ; --> SETQ THE ; ==> ; SB!VM::PREV ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (- SB!VM::SRC-BYTE-OFFSET SB!VM::DST-BYTE-OFFSET) ; ; note: deleting unreachable code ; (- LENGTH SB!VM::FINAL-BYTES) ; ==> ; LENGTH ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (INCF SB!VM::DST-WORD-OFFSET SB!SYS:WORDS) ; --> LET* + ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 32) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB32 THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF ; --> TYPEP ; ==> ; (SB!INT:FIXNUMP #:G8162) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; in: DEFMACRO !DEFINE-BYTE-BASHERS ; (+ SB!VM::DST-BYTE-OFFSET LENGTH) ; ==> ; SB!VM::DST-BYTE-OFFSET ; ; note: deleting unreachable code ; (>= SB!VM::DST-WORD-OFFSET SB!VM::END) ; --> IF < ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (SETF SB!VM::PREV SB!VM::NEXT) ; --> SETQ THE ; ==> ; SB!VM::NEXT ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (+ SB!VM::DST-WORD-OFFSET SB!VM::INTERIOR) ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (<= SB!VM::DST-WORD-OFFSET SB!VM::END) ; --> IF > ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (SETF SB!VM::NEXT SB!VM::PREV) ; --> SETQ THE ; ==> ; SB!VM::PREV ; ; note: deleting unreachable code ; (- SB!VM::SRC-SHIFT) ; --> SB!KERNEL:%NEGATE ; ==> ; SB!VM::SRC-SHIFT ; ; note: deleting unreachable code ; (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET) ; ==> ; SB!VM::SRC-WORD-OFFSET ; ; note: deleting unreachable code ; (DECF SB!VM::DST-WORD-OFFSET) ; --> LET* - ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; (- SB!VM::SRC-BYTE-OFFSET SB!VM::DST-BYTE-OFFSET) ; ; note: deleting unreachable code ; (- LENGTH SB!VM::FINAL-BYTES) ; ==> ; LENGTH ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (INCF SB!VM::DST-WORD-OFFSET SB!SYS:WORDS) ; --> LET* + ; ==> ; SB!VM::DST-WORD-OFFSET ; ; note: deleting unreachable code ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 32) ; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB32 THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS COND IF NOT IF ; --> TYPEP ; ==> ; (SB!INT:FIXNUMP #:G8284) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; compiling (DEFUN COPY-BYTE-VECTOR-TO-SYSTEM-AREA ...); ; compilation unit finished ; printed 135 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/bit-bash.lisp-obj-tmp written ; compilation finished in 0:00:15 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/target-load.lisp" (written 14 JUL 2005 05:30:39 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFVAR *LOAD-SOURCE-DEFAULT-TYPE* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *LOAD-TRUENAME* ...) ; compiling (DEFVAR *LOAD-PATHNAME* ...) ; compiling (DEFUN LOAD-AS-SOURCE ...) ; compiling (DEFINE-CONDITION FASL-HEADER-MISSING ...) ; compiling (DEFUN INTERNAL-LOAD ...) ; compiling (DEFUN TRY-DEFAULT-TYPE ...) ; compiling (DEFUN INTERNAL-LOAD-DEFAULT-TYPE ...) ; compiling (DEFUN LOAD ...) ; compiling (DEFUN LOAD-CODE ...) ; compiling (DEFVAR *!INITIAL-ASSEMBLER-ROUTINES*) ; compiling (DEFUN !LOADER-COLD-INIT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/target-load.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target/sanctify.lisp" (written 08 SEP 2005 08:25:32 AM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN SANCTIFY-FOR-EXECUTION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target/sanctify.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/target-dump.lisp" (written 14 JUL 2005 07:57:02 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFUN DUMP-CHARACTERS-OF-STRING ...) ; compiling (DEFUN DUMP-SIMPLE-CHARACTER-STRING ...) ; compiling (DEFUN DUMP-RAW-BYTES ...) ; compiling (DEFUN DUMP-MULTI-DIM-ARRAY ...) ; compiling (DEFUN DUMP-SINGLE-FLOAT-VECTOR ...) ; compiling (DEFUN DUMP-DOUBLE-FLOAT-VECTOR ...) ; compiling (DEFUN DUMP-COMPLEX-SINGLE-FLOAT-VECTOR ...) ; compiling (DEFUN DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/target-dump.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cold-init.lisp" (written 19 NOV 2006 04:27:11 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN !UNINTERN-INIT-ONLY-STUFF ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN !COLD-LOSE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CRITICALLY-UNREACHABLE ...) ; compiling (DEFVAR *!REVERSED-COLD-TOPLEVELS*) ; compiling (DEFVAR *!LOAD-TIME-VALUES*) ; compiling (DEFUN !COLD-INIT ...) ; compiling (DEFUN QUIT ...) ; compiling (DEFUN THREAD-INIT-OR-REINIT ...) ; compiling (DEFUN REINIT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cold-init.lisp ; 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 ; ; caught STYLE-WARNING: ; This function is undefined: ; !LATE-PROCLAIM-COLD-INIT ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/cold-init.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/cl-specials.lisp" (written 14 JUL 2005 05:30:13 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 #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/cl-specials.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/compiler/late-proclaim.lisp" (written 30 MAY 2003 11:44:11 AM): ; 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 (!COLD-INIT-FORMS (MAKUNBOUND #)) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-PROCLAIM-COLD-INIT) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/compiler/late-proclaim.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/defboot.lisp" (written 21 DEC 2006 03:17:24 AM): ; 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 (DEFUN %DEFUN ...) ; compiling (DEFMACRO-MUNDANELY DEFVAR ...) ; compiling (DEFMACRO-MUNDANELY DEFPARAMETER ...) ; compiling (DEFUN %COMPILER-DEFVAR ...) ; compiling (DEFUN %DEFVAR ...) ; compiling (DEFUN %DEFPARAMETER ...) ; compiling (DEFMACRO-MUNDANELY DO ...) ; compiling (DEFMACRO-MUNDANELY DO* ...) ; compiling (DEFMACRO-MUNDANELY DOTIMES ...) ; compiling (DEFMACRO-MUNDANELY DOLIST ...) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; 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-CASE ...) ; compiling (DEFMACRO-MUNDANELY RETURN ...) ; compiling (DEFMACRO-MUNDANELY PSETQ ...) ; compiling (DEFMACRO-MUNDANELY LAMBDA ...) ; compiling (DEFMACRO-MUNDANELY NAMED-LAMBDA ...) ; compiling (DEFMACRO-MUNDANELY LAMBDA-WITH-LEXENV ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/defboot.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/destructuring-bind.lisp" (written 21 DEC 2006 03:17:24 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/destructuring-bind.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/early-setf.lisp" (written 11 AUG 2006 09:08:39 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SB-XC:GET-SETF-EXPANSION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN GET-SETF-METHOD ...) ; 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 (SB-XC:DEFINE-SETF-EXPANDER THE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/early-setf.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/macros.lisp" (written 02 OCT 2006 07:38:36 AM): ; 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 (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 (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...) ; compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/macros.lisp-obj-tmp written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/loop.lisp" (written 27 FEB 2006 01:12:34 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-CROCKS*) ; 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 (DEFVAR *LOOP-DUPLICATE-CODE* ...) ; compiling (DEFVAR *LOOP-ITERATION-FLAG-VAR* ...) ; compiling (DEFUN LOOP-CODE-DUPLICATION-THRESHOLD ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-BODY ...) ; compiling (DEFUN DUPLICATABLE-CODE-P ...) ; compiling (DEFVAR *SPECIAL-CODE-SIZES* ...) ; compiling (DEFVAR *ESTIMATE-CODE-SIZE-PUNT* ...) ; compiling (DEFUN DESTRUCTURING-SIZE ...) ; compiling (DEFUN ESTIMATE-CODE-SIZE ...) ; compiling (DEFUN ESTIMATE-CODE-SIZE-1 ...) ; compiling (DEFUN LOOP-CONTEXT ...) ; compiling (DEFUN LOOP-ERROR ...) ; compiling (DEFUN LOOP-WARN ...) ; compiling (DEFUN LOOP-CHECK-DATA-TYPE ...) ; compiling (DEFUN SUBST-GENSYMS-FOR-NIL ...) ; 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 LOOP-VAR-P ...) ; compiling (DEFUN LOOP-MAKE-VAR ...) ; 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 (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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/loop.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-setf.lisp" (written 14 JUL 2005 05:30:35 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY PSETF ...) ; compiling (DEFMACRO-MUNDANELY ROTATEF ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/late-setf.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-format.lisp" (written 10 AUG 2006 11:18:51 AM): ; compiling (IN-PACKAGE "SB!FORMAT") ; compiling (DEFINE-CONDITION FORMAT-ERROR ...) ; compiling (DEFUN %PRINT-FORMAT-ERROR ...) ; compiling (DEF!STRUCT FORMAT-DIRECTIVE ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN TOKENIZE-CONTROL-STRING ...) ; compiling (DEFUN PARSE-DIRECTIVE ...) ; compiling (SB-XC:DEFMACRO FORMATTER ...) ; compiling (DEFUN %FORMATTER ...) ; 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 (DEFMACRO DEF-COMPLEX-FORMAT-DIRECTIVE ...) ; compiling (DEFMACRO DEF-FORMAT-DIRECTIVE ...) ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/late-format.lisp-obj-tmp written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/sxhash.lisp" (written 14 JUL 2005 05:30:39 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 ...) ; compiling (DEFTRANSFORM SXHASH ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/sxhash.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/signal.lisp" (written 14 JUL 2005 05:30:38 PM): ; compiling (IN-PACKAGE "SB!UNIX") ; compiling (DEFVAR *INTERRUPTS-ENABLED* ...) ; compiling (DEFVAR *INTERRUPT-PENDING* ...) ; compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/signal.lisp-obj-tmp written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-defbangmethod.lisp" (written 21 OCT 2000 12:30:33 AM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY DEF!METHOD ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/code/late-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00 creating directory: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/pcl/ ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/walk.lisp" (written 07 NOV 2006 10:22:17 AM): ; 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-LEXICAL-VARIABLES ...) ; compiling (DEFUN NOTE-DECLARATION ...) ; compiling (DEFUN NOTE-LEXICAL-BINDING ...) ; compiling (DEFUN VAR-LEXICAL-P ...) ; compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...) ; compiling (DEFVAR *VAR-DECLARATIONS* ...) ; 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 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 WALK-LET* ...) ; compiling (DEFUN WALK-LET/LET* ...) ; compiling (DEFUN WALK-LOCALLY ...) ; compiling (DEFUN WALK-MULTIPLE-VALUE-SETQ ...) ; compiling (DEFUN WALK-MULTIPLE-VALUE-BIND ...) ; compiling (DEFUN WALK-BINDINGS-1 ...) ; compiling (DEFUN WALK-BINDINGS-2 ...) ; 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 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/obj/from-xc/src/pcl/walk.lisp-obj-tmp written ; compilation finished in 0:00:01 T * (#P"obj/from-xc/src/code/show.lisp-obj" #P"obj/from-xc/src/code/early-source-location.lisp-obj" #P"obj/from-xc/src/code/backq.lisp-obj" #P"obj/from-xc/src/code/globals.lisp-obj" #P"obj/from-xc/src/code/defsetfs.lisp-obj" ...) * T * NIL * //entering make-genesis-2.sh //loading and running GENESIS to create cold-sbcl.core This is SBCL 1.0.1, 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*=(:ANSI-CL :COMMON-LISP :SBCL :UNIX :SB-DOC :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS :IEEE-FLOATING-POINT :PPC :ELF :LINUX :GENCGC :STACK-ALLOCATABLE-CLOSURES :LINKAGE-TABLE :OS-PROVIDES-DLOPEN :OS-PROVIDES-PUTWC) target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL T * # * "obj/from-xc/" * T * T * ; in: LAMBDA NIL ; (THE SB!SYS:SAP-INT #:ONCE-ONLY-1483) ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G4 'SB!SYS:SAP-INT) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G4 'SB!SYS:SAP-INT) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; caught STYLE-WARNING: ; 3 more uses of undefined type SAP-INT ; ; caught STYLE-WARNING: ; This type is undefined: ; SAP-INT ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; in: LAMBDA NIL ; (THE SB!C::CLAMBDA #:ONCE-ONLY-1491) ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G4 'SB!C::CLAMBDA) ; ; caught STYLE-WARNING: ; undefined type: CLAMBDA ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G4 'SB!C::CLAMBDA) ; ; caught STYLE-WARNING: ; undefined type: CLAMBDA ; ; caught STYLE-WARNING: ; undefined type: CLAMBDA ; ; caught STYLE-WARNING: ; 3 more uses of undefined type CLAMBDA ; ; caught STYLE-WARNING: ; This type is undefined: ; CLAMBDA ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; in: LAMBDA NIL ; (THE SB!C:TN #:ONCE-ONLY-1501) ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G4 'SB!C:TN) ; ; caught STYLE-WARNING: ; undefined type: TN ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G4 'SB!C:TN) ; ; caught STYLE-WARNING: ; undefined type: TN ; ; caught STYLE-WARNING: ; undefined type: TN ; ; caught STYLE-WARNING: ; 3 more uses of undefined type TN ; ; caught STYLE-WARNING: ; This type is undefined: ; TN ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions STYLE-WARNING: redefining MAKE-MUTEX in DEFUN STYLE-WARNING: redefining MAKE-SPINLOCK in DEFUN STYLE-WARNING: redefining MASK-SIGNED-FIELD in DEFUN STYLE-WARNING: new FTYPE proclamation # for CLASSOID-NAME does not match old FTYPE proclamation # * *TARGET-OBJECT-FILE-NAMES* * STYLE-WARNING: redefining FOP-MAYBE-COLD-LOAD in DEFUN T * beginning GENESIS, creating core "output/cold-sbcl.core" obj/from-xc/src/code/show.lisp-obj obj/from-xc/src/code/early-source-location.lisp-obj obj/from-xc/src/code/backq.lisp-obj obj/from-xc/src/code/globals.lisp-obj obj/from-xc/src/code/defsetfs.lisp-obj obj/from-xc/src/code/cold-init-helper-macros.lisp-obj obj/from-xc/src/code/uncross.lisp-obj obj/from-xc/src/code/primordial-type.lisp-obj obj/from-xc/src/code/early-defbangmethod.lisp-obj obj/from-xc/src/code/defbangtype.lisp-obj obj/from-xc/src/code/defbangmacro.lisp-obj obj/from-xc/src/code/defbangconstant.lisp-obj obj/from-xc/src/code/primordial-extensions.lisp-obj obj/from-xc/src/code/function-names.lisp-obj obj/from-xc/src/compiler/generic/parms.lisp-obj obj/from-xc/src/compiler/target/parms.lisp-obj obj/from-xc/src/compiler/generic/early-vm.lisp-obj obj/from-xc/src/compiler/generic/early-objdef.lisp-obj obj/from-xc/src/code/early-array.lisp-obj obj/from-xc/src/code/early-extensions.lisp-obj obj/from-xc/src/code/parse-body.lisp-obj obj/from-xc/src/code/parse-defmacro.lisp-obj obj/from-xc/src/compiler/deftype.lisp-obj obj/from-xc/src/compiler/defconstant.lisp-obj obj/from-xc/src/code/early-alieneval.lisp-obj obj/from-xc/src/code/specializable-array.lisp-obj obj/from-xc/src/code/early-cl.lisp-obj obj/from-xc/src/code/early-fasl.lisp-obj obj/from-xc/src/code/debug-var-io.lisp-obj obj/from-xc/src/code/early-thread.lisp-obj obj/from-xc/src/code/target-defbangmethod.lisp-obj obj/from-xc/src/code/early-print.lisp-obj obj/from-xc/src/code/early-pprint.lisp-obj obj/from-xc/src/code/early-impl.lisp-obj obj/from-xc/src/code/target-extensions.lisp-obj obj/from-xc/src/code/early-package.lisp-obj obj/from-xc/src/code/early-defstructs.lisp-obj obj/from-xc/src/code/defbangstruct.lisp-obj obj/from-xc/src/code/unportable-float.lisp-obj obj/from-xc/src/code/funutils.lisp-obj obj/from-xc/src/code/type-class.lisp-obj obj/from-xc/src/code/early-pcounter.lisp-obj obj/from-xc/src/code/pcounter.lisp-obj obj/from-xc/src/code/ansi-stream.lisp-obj obj/from-xc/src/code/sysmacs.lisp-obj obj/from-xc/src/code/target-error.lisp-obj obj/from-xc/src/compiler/early-backend.lisp-obj obj/from-xc/output/stuff-groveled-from-headers.lisp-obj obj/from-xc/src/code/kernel.lisp-obj obj/from-xc/src/code/toplevel.lisp-obj obj/from-xc/src/code/cold-error.lisp-obj obj/from-xc/src/code/fdefinition.lisp-obj obj/from-xc/src/code/target-type.lisp-obj obj/from-xc/src/code/pred.lisp-obj obj/from-xc/src/code/target-alieneval.lisp-obj obj/from-xc/src/code/target-c-call.lisp-obj obj/from-xc/src/code/target-allocate.lisp-obj obj/from-xc/src/code/misc-aliens.lisp-obj obj/from-xc/src/code/array.lisp-obj obj/from-xc/src/code/early-float.lisp-obj obj/from-xc/src/code/target-sxhash.lisp-obj obj/from-xc/src/code/list.lisp-obj obj/from-xc/src/code/seq.lisp-obj obj/from-xc/src/code/coerce.lisp-obj obj/from-xc/src/code/string.lisp-obj obj/from-xc/src/code/mipsstrops.lisp-obj obj/from-xc/src/code/early-time.lisp-obj obj/from-xc/src/code/unix.lisp-obj obj/from-xc/src/code/common-os.lisp-obj obj/from-xc/src/code/linux-os.lisp-obj obj/from-xc/src/code/sc-offset.lisp-obj obj/from-xc/src/code/ppc-vm.lisp-obj obj/from-xc/src/code/target-signal.lisp-obj obj/from-xc/src/code/symbol.lisp-obj obj/from-xc/src/code/bignum.lisp-obj obj/from-xc/src/code/numbers.lisp-obj obj/from-xc/src/code/float-trap.lisp-obj obj/from-xc/src/code/float.lisp-obj obj/from-xc/src/code/irrat.lisp-obj obj/from-xc/src/code/char.lisp-obj obj/from-xc/src/code/huffman.lisp-obj obj/from-xc/src/code/target-char.lisp-obj obj/from-xc/src/code/target-misc.lisp-obj obj/from-xc/src/code/misc.lisp-obj obj/from-xc/src/code/room.lisp-obj obj/from-xc/src/code/stream.lisp-obj obj/from-xc/src/code/print.lisp-obj obj/from-xc/src/code/pprint.lisp-obj obj/from-xc/src/code/early-format.lisp-obj obj/from-xc/src/code/target-format.lisp-obj obj/from-xc/src/code/defpackage.lisp-obj obj/from-xc/src/code/pp-backq.lisp-obj obj/from-xc/src/code/error-error.lisp-obj obj/from-xc/src/code/serve-event.lisp-obj obj/from-xc/src/code/fd-stream.lisp-obj obj/from-xc/src/code/module.lisp-obj obj/from-xc/src/code/interr.lisp-obj obj/from-xc/src/code/query.lisp-obj obj/from-xc/src/code/sort.lisp-obj obj/from-xc/src/code/time.lisp-obj obj/from-xc/src/code/timer.lisp-obj obj/from-xc/src/code/weak.lisp-obj obj/from-xc/src/code/final.lisp-obj obj/from-xc/src/code/setf-funs.lisp-obj obj/from-xc/src/code/stubs.lisp-obj obj/from-xc/src/code/exhaust.lisp-obj obj/from-xc/src/compiler/early-c.lisp-obj obj/from-xc/src/compiler/policy.lisp-obj obj/from-xc/src/compiler/policies.lisp-obj obj/from-xc/src/code/typedefs.lisp-obj obj/from-xc/src/compiler/macros.lisp-obj obj/from-xc/src/compiler/generic/vm-macs.lisp-obj obj/from-xc/src/compiler/sset.lisp-obj obj/from-xc/src/compiler/node.lisp-obj obj/from-xc/src/compiler/vop.lisp-obj obj/from-xc/src/compiler/backend.lisp-obj obj/from-xc/src/compiler/vmdef.lisp-obj obj/from-xc/src/compiler/target/backend-parms.lisp-obj obj/from-xc/src/compiler/globaldb.lisp-obj obj/from-xc/src/compiler/info-functions.lisp-obj obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj obj/from-xc/src/code/defmacro.lisp-obj obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj obj/from-xc/src/compiler/late-macros.lisp-obj obj/from-xc/src/compiler/meta-vmdef.lisp-obj obj/from-xc/src/compiler/target/vm.lisp-obj obj/from-xc/src/code/early-type.lisp-obj obj/from-xc/src/code/class.lisp-obj obj/from-xc/src/code/condition.lisp-obj obj/from-xc/src/compiler/generic/vm-array.lisp-obj obj/from-xc/src/compiler/generic/primtype.lisp-obj obj/from-xc/src/compiler/parse-lambda-list.lisp-obj obj/from-xc/src/code/host-alieneval.lisp-obj obj/from-xc/src/code/host-c-call.lisp-obj obj/from-xc/src/compiler/compiler-deftype.lisp-obj obj/from-xc/src/code/late-type.lisp-obj obj/from-xc/src/code/deftypes-for-target.lisp-obj obj/from-xc/src/compiler/knownfun.lisp-obj obj/from-xc/src/compiler/constantp.lisp-obj obj/from-xc/src/compiler/fun-info-funs.lisp-obj obj/from-xc/src/compiler/generic/vm-type.lisp-obj obj/from-xc/src/compiler/proclaim.lisp-obj obj/from-xc/src/code/class-init.lisp-obj obj/from-xc/src/code/typecheckfuns.lisp-obj obj/from-xc/src/code/defstruct.lisp-obj obj/from-xc/src/code/target-defstruct.lisp-obj obj/from-xc/src/code/alien-type.lisp-obj obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj obj/from-xc/src/code/early-full-eval.lisp-obj obj/from-xc/src/code/typep.lisp-obj obj/from-xc/src/compiler/compiler-error.lisp-obj obj/from-xc/src/code/late-deftypes-for-target.lisp-obj obj/from-xc/src/code/type-init.lisp-obj obj/from-xc/src/compiler/fixup-type.lisp-obj obj/from-xc/src/code/package.lisp-obj obj/from-xc/src/code/random.lisp-obj obj/from-xc/src/code/hash-table.lisp-obj obj/from-xc/src/code/readtable.lisp-obj obj/from-xc/src/code/pathname.lisp-obj obj/from-xc/src/code/host-pprint.lisp-obj obj/from-xc/src/compiler/lexenv.lisp-obj obj/from-xc/src/compiler/fndb.lisp-obj obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj obj/from-xc/src/compiler/generic/objdef.lisp-obj obj/from-xc/src/compiler/generic/interr.lisp-obj obj/from-xc/src/compiler/bit-util.lisp-obj obj/from-xc/src/compiler/early-assem.lisp-obj obj/from-xc/src/compiler/generic/core.lisp-obj obj/from-xc/src/code/thread.lisp-obj obj/from-xc/src/code/load.lisp-obj obj/from-xc/src/code/linkage-table.lisp-obj obj/from-xc/src/code/foreign-load.lisp-obj obj/from-xc/src/code/foreign.lisp-obj obj/from-xc/src/code/fop.lisp-obj obj/from-xc/src/compiler/ctype.lisp-obj obj/from-xc/src/compiler/disassem.lisp-obj obj/from-xc/src/compiler/assem.lisp-obj obj/from-xc/src/compiler/trace-table.lisp-obj obj/from-xc/src/compiler/dump.lisp-obj obj/from-xc/src/compiler/main.lisp-obj obj/from-xc/src/compiler/xref.lisp-obj obj/from-xc/src/code/source-location.lisp-obj obj/from-xc/src/compiler/target-main.lisp-obj obj/from-xc/src/compiler/ir1tran.lisp-obj obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj obj/from-xc/src/compiler/ir1-translators.lisp-obj obj/from-xc/src/compiler/ir1util.lisp-obj obj/from-xc/src/compiler/ir1report.lisp-obj obj/from-xc/src/compiler/ir1opt.lisp-obj obj/from-xc/src/compiler/loop.lisp-obj obj/from-xc/src/compiler/ir1final.lisp-obj obj/from-xc/src/compiler/array-tran.lisp-obj obj/from-xc/src/compiler/seqtran.lisp-obj obj/from-xc/src/compiler/typetran.lisp-obj obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj obj/from-xc/src/compiler/float-tran.lisp-obj obj/from-xc/src/compiler/saptran.lisp-obj obj/from-xc/src/compiler/srctran.lisp-obj obj/from-xc/src/compiler/generic/vm-tran.lisp-obj obj/from-xc/src/compiler/locall.lisp-obj obj/from-xc/src/compiler/dfo.lisp-obj obj/from-xc/src/compiler/checkgen.lisp-obj obj/from-xc/src/compiler/constraint.lisp-obj obj/from-xc/src/compiler/physenvanal.lisp-obj obj/from-xc/src/compiler/tn.lisp-obj obj/from-xc/src/compiler/life.lisp-obj obj/from-xc/src/code/debug-info.lisp-obj obj/from-xc/src/compiler/debug-dump.lisp-obj obj/from-xc/src/compiler/generic/utils.lisp-obj obj/from-xc/src/compiler/fopcompile.lisp-obj obj/from-xc/src/assembly/assemfile.lisp-obj obj/from-xc/src/compiler/late-vmdef.lisp-obj obj/from-xc/src/compiler/fixup.lisp-obj obj/from-xc/src/compiler/target/insts.lisp-obj obj/from-xc/src/compiler/target/macros.lisp-obj obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj obj/from-xc/src/assembly/target/support.lisp-obj obj/from-xc/src/compiler/target/move.lisp-obj obj/from-xc/src/compiler/target/float.lisp-obj obj/from-xc/src/compiler/target/sap.lisp-obj obj/from-xc/src/compiler/target/system.lisp-obj obj/from-xc/src/compiler/target/char.lisp-obj obj/from-xc/src/compiler/target/memory.lisp-obj obj/from-xc/src/compiler/target/static-fn.lisp-obj obj/from-xc/src/compiler/target/arith.lisp-obj obj/from-xc/src/compiler/target/subprim.lisp-obj obj/from-xc/src/compiler/target/debug.lisp-obj obj/from-xc/src/compiler/early-aliencomp.lisp-obj obj/from-xc/src/compiler/target/c-call.lisp-obj obj/from-xc/src/compiler/target/cell.lisp-obj obj/from-xc/src/compiler/target/values.lisp-obj obj/from-xc/src/compiler/target/alloc.lisp-obj obj/from-xc/src/compiler/target/call.lisp-obj obj/from-xc/src/compiler/target/nlx.lisp-obj obj/from-xc/src/compiler/generic/late-nlx.lisp-obj obj/from-xc/src/compiler/target/show.lisp-obj obj/from-xc/src/compiler/target/array.lisp-obj obj/from-xc/src/compiler/generic/array.lisp-obj obj/from-xc/src/compiler/target/pred.lisp-obj obj/from-xc/src/compiler/target/type-vops.lisp-obj obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj obj/from-xc/src/compiler/assembly/target/assem-rtns.lisp-obj obj/from-xc/src/compiler/assembly/target/array.lisp-obj obj/from-xc/src/compiler/assembly/target/arith.lisp-obj obj/from-xc/src/compiler/assembly/target/alloc.lisp-obj obj/from-xc/src/assembly/target/assem-rtns.lisp-obj obj/from-xc/src/assembly/target/array.lisp-obj obj/from-xc/src/assembly/target/arith.lisp-obj obj/from-xc/src/assembly/target/alloc.lisp-obj obj/from-xc/src/compiler/pseudo-vops.lisp-obj obj/from-xc/src/compiler/aliencomp.lisp-obj obj/from-xc/src/compiler/ltv.lisp-obj obj/from-xc/src/compiler/gtn.lisp-obj obj/from-xc/src/compiler/ltn.lisp-obj obj/from-xc/src/compiler/stack.lisp-obj obj/from-xc/src/compiler/control.lisp-obj obj/from-xc/src/compiler/entry.lisp-obj obj/from-xc/src/compiler/ir2tran.lisp-obj obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj obj/from-xc/src/compiler/copyprop.lisp-obj obj/from-xc/src/compiler/represent.lisp-obj obj/from-xc/src/compiler/pack.lisp-obj obj/from-xc/src/compiler/codegen.lisp-obj obj/from-xc/src/compiler/debug.lisp-obj obj/from-xc/src/code/format-time.lisp-obj obj/from-xc/src/code/error.lisp-obj obj/from-xc/src/code/macroexpand.lisp-obj obj/from-xc/src/code/late-extensions.lisp-obj obj/from-xc/src/compiler/generic/target-core.lisp-obj obj/from-xc/src/code/eval.lisp-obj obj/from-xc/src/code/target-sap.lisp-obj obj/from-xc/src/code/target-package.lisp-obj obj/from-xc/src/code/target-random.lisp-obj obj/from-xc/src/code/target-hash-table.lisp-obj obj/from-xc/src/code/reader.lisp-obj obj/from-xc/src/code/target-stream.lisp-obj obj/from-xc/src/code/target-pathname.lisp-obj obj/from-xc/src/code/unix-pathname.lisp-obj obj/from-xc/src/code/win32-pathname.lisp-obj obj/from-xc/src/code/filesys.lisp-obj obj/from-xc/src/code/save.lisp-obj obj/from-xc/src/code/sharpm.lisp-obj obj/from-xc/src/code/alloc.lisp-obj obj/from-xc/src/code/early-step.lisp-obj obj/from-xc/src/code/target-thread.lisp-obj obj/from-xc/src/code/gc.lisp-obj obj/from-xc/src/code/purify.lisp-obj obj/from-xc/src/code/debug-int.lisp-obj obj/from-xc/src/compiler/target-disassem.lisp-obj obj/from-xc/src/compiler/target/target-insts.lisp-obj obj/from-xc/src/code/debug.lisp-obj obj/from-xc/src/code/octets.lisp-obj obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj obj/from-xc/src/code/external-formats/enc-dos.lisp-obj obj/from-xc/src/code/external-formats/enc-iso.lisp-obj obj/from-xc/src/code/external-formats/enc-win.lisp-obj obj/from-xc/src/code/external-formats/mb-util.lisp-obj obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj obj/from-xc/src/code/external-formats/ucs-2.lisp-obj obj/from-xc/src/code/parse-defmacro-errors.lisp-obj obj/from-xc/src/code/full-eval.lisp-obj obj/from-xc/src/code/bit-bash.lisp-obj obj/from-xc/src/code/target-load.lisp-obj obj/from-xc/src/compiler/target/sanctify.lisp-obj obj/from-xc/src/compiler/target-dump.lisp-obj obj/from-xc/src/code/cold-init.lisp-obj obj/from-xc/src/code/cl-specials.lisp-obj obj/from-xc/src/compiler/late-proclaim.lisp-obj obj/from-xc/src/code/defboot.lisp-obj obj/from-xc/src/code/destructuring-bind.lisp-obj obj/from-xc/src/code/early-setf.lisp-obj obj/from-xc/src/code/macros.lisp-obj obj/from-xc/src/code/loop.lisp-obj obj/from-xc/src/code/late-setf.lisp-obj obj/from-xc/src/code/late-format.lisp-obj obj/from-xc/src/code/sxhash.lisp-obj obj/from-xc/src/code/signal.lisp-obj obj/from-xc/src/code/late-defbangmethod.lisp-obj obj/from-xc/src/pcl/walk.lisp-obj [building initial core file in "output/cold-sbcl.core": writing 65536 bytes [1 page] from # writing 65536 bytes [1 page] from # writing 27131904 bytes [414 pages] from # /(DESCRIPTOR-BITS INITIAL-FUN)=#X508E67FD done] * //testing for consistency of first and second GENESIS passes //header files match between first and second GENESIS -- good real 10m43.337s user 8m49.020s sys 0m16.141s //entering make-target-2.sh //doing warm init This is SBCL 1.0.1, 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. * 10 * 5 * T * ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/early-low.lisp" (written 28 JUL 2006 03:47:23 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (/SHOW "starting early-low.lisp") ; compiling (DEFVAR *PCL-PACKAGE* ...) ; compiling (DEFUN STRUCTURE-TYPE-P ...) ; compiling (DEFUN FORMAT-SYMBOL ...) ; compiling (DEFUN MAKE-CLASS-SYMBOL ...) ; compiling (DEFUN MAKE-WRAPPER-SYMBOL ...) ; compiling (DEFUN CONDITION-TYPE-P ...) ; compiling (DECLAIM (SPECIAL *THE-CLASS-T* ...)) ; compiling (DECLAIM (SPECIAL *THE-WRAPPER-OF-T* ...)) ; compiling (/SHOW "finished with early-low.lisp") ; SYS:SRC;PCL;EARLY-LOW.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/macros.lisp" (written 17 JUL 2006 01:28:14 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (/SHOW "starting pcl/macros.lisp") ; compiling (DECLAIM (DECLARATION %METHOD-NAME ...)) ; compiling (/SHOW "done with DECLAIM DECLARATION") ; compiling (DEFUN GET-DECLARATION ...) ; compiling (/SHOW "pcl/macros.lisp 85") ; compiling (DEFMACRO DOPLIST ...) ; compiling (/SHOW "pcl/macros.lisp 101") ; compiling (DEFMACRO DOLIST-CAREFULLY ...) ; compiling (/SHOW "pcl/macros.lisp 119") ; compiling (DEFVAR *FIND-CLASS* ...) ; compiling (DEFMACRO FIND-CLASS-CELL-CLASS ...) ; compiling (DEFMACRO FIND-CLASS-CELL-PREDICATE ...) ; compiling (DEFMACRO MAKE-FIND-CLASS-CELL ...) ; compiling (DEFUN FIND-CLASS-CELL ...) ; compiling (/SHOW "pcl/macros.lisp 157") ; compiling (DEFVAR *CREATE-CLASSES-FROM-INTERNAL-STRUCTURE-DEFINITIONS-P* ...) ; compiling (DEFUN FIND-CLASS-FROM-CELL ...) ; compiling (DEFUN LEGAL-CLASS-NAME-P ...) ; compiling (DEFUN FIND-CLASS ...) ; compiling (DEFVAR *BOOT-STATE* ...) ; compiling (/SHOW "pcl/macros.lisp 187") ; compiling (DEFINE-COMPILER-MACRO FIND-CLASS ...) ; compiling (DEFUN (SETF FIND-CLASS) ...) ; compiling (/SHOW "pcl/macros.lisp 241") ; compiling (DEFMACRO FUNCTION-FUNCALL ...) ; compiling (DEFMACRO FUNCTION-APPLY ...) ; compiling (/SHOW "pcl/macros.lisp 249") ; compiling (DEFUN GET-SETF-FUN-NAME ...) ; compiling (DEFSETF SLOT-VALUE ...) ; compiling (/SHOW "finished with pcl/macros.lisp") ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/macros.lisp ; in: DEFUN FIND-CLASS-FROM-CELL ; (SB-PCL::ENSURE-NON-STANDARD-CLASS SYMBOL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ENSURE-NON-STANDARD-CLASS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN (SETF FIND-CLASS) ; (SB-PCL::SET-CLASS-TYPE-TRANSLATION SB-PCL::NEW-VALUE SB-KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SET-CLASS-TYPE-TRANSLATION)) ; :ASSIGNED-SLOTS NIL) ; (SLOT-VALUE CLASS 'SB-PCL::WRAPPER) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-VALUE)) ; :ASSIGNED-SLOTS NIL) ; (SB-PCL::UPDATE-CTORS 'SB-PCL::SETF-FIND-CLASS :CLASS SB-PCL::NEW-VALUE :NAME ; SB-PCL::NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION UPDATE-CTORS)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(SET-CLASS-TYPE-TRANSLATION SLOT-VALUE UPDATE-CTORS) ; FUNCTION (ENSURE-NON-STANDARD-CLASS . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; SYS:SRC;PCL;MACROS.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/compiler-support.lisp" (written 02 DEC 2005 10:53:04 PM): ; compiling (IN-PACKAGE "SB-C") ; compiling (DEFKNOWN SB-PCL::PCL-INSTANCE-P ...) ; compiling (DEFTRANSFORM SB-PCL::PCL-INSTANCE-P ...) ; compiling (DEFUN SB-PCL::SAFE-CODE-P ...) ; compiling (DEFINE-SOURCE-CONTEXT DEFMETHOD ...) ; compiling (DEFVAR SB-PCL::*INTERNAL-PCL-GENERALIZED-FUN-NAME-SYMBOLS* ...) ; compiling (DEFMACRO DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX ...) ; compiling (DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX SB-PCL::SLOT-ACCESSOR ...) ; compiling (DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX SB-PCL::FAST-METHOD ...) ; compiling (DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX SB-PCL::SLOW-METHOD ...) ; compiling (DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX SB-PCL::CTOR ...) ; compiling (DEFUN SB-PCL::RANDOM-DOCUMENTATION ...) ; compiling (DEFUN SB-PCL::SET-RANDOM-DOCUMENTATION ...) ; compiling (DEFSETF SB-PCL::RANDOM-DOCUMENTATION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/compiler-support.lisp ; in: DEFINE-SOURCE-CONTEXT DEFMETHOD ; (SB-PCL::PARSE-SPECIALIZED-LAMBDA-LIST (ELT SB-C::STUFF SB-C::ARG-POS)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION PARSE-SPECIALIZED-LAMBDA-LIST)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (NIL FUNCTION (PARSE-SPECIALIZED-LAMBDA-LIST))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; SYS:SRC;PCL;COMPILER-SUPPORT.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/low.lisp" (written 21 DEC 2006 03:17:41 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFVAR *OPTIMIZE-SPEED* ...) ; compiling (DEFMACRO DOTIMES-FIXNUM ...) ; compiling (DEFSTRUCT (WRAPPER # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE WRAPPER)) ; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS STANDARD-FUNCALLABLE-INSTANCE ...) ; compiling (IMPORT (QUOTE FUNCALLABLE-INSTANCE-P)) ; compiling (DEFUN SET-FUNCALLABLE-INSTANCE-FUNCTION ...) ; compiling (DEFMACRO FSC-INSTANCE-P ...) ; compiling (DEFMACRO FSC-INSTANCE-WRAPPER ...) ; compiling (DEFMACRO FSC-INSTANCE-SLOTS ...) ; compiling (DEFMACRO FSC-INSTANCE-HASH ...) ; compiling (DECLAIM (INLINE CLOS-SLOTS-REF ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CLOS-SLOTS-REF ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN (SETF CLOS-SLOTS-REF) ...) ; compiling (DEFMACRO STD-INSTANCE-P ...) ; compiling (DEFCONSTANT +SLOT-UNBOUND+ ...) ; compiling (DEFMACRO %ALLOCATE-STATIC-SLOT-STORAGE--CLASS ...) ; compiling (DEFMACRO STD-INSTANCE-CLASS ...) ; compiling (DEFUN SET-FUN-NAME ...) ; compiling (DEFMACRO PRECOMPILE-RANDOM-CODE-SEGMENTS ...) ; compiling (DEFUN PCL-INSTANCE-P ...) ; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS STANDARD-INSTANCE ...) ; compiling (DEFMACRO STD-INSTANCE-SLOTS ...) ; compiling (DEFMACRO STD-INSTANCE-WRAPPER ...) ; compiling (DEFMACRO STD-INSTANCE-HASH ...) ; compiling (DECLAIM (INLINE GET-SLOTS ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN GET-SLOTS ...) ; compiling (DEFUN GET-SLOTS-OR-NIL ...) ; compiling (DEFMACRO BUILT-IN-OR-STRUCTURE-WRAPPER ...) ; compiling (DEFMACRO GET-WRAPPER ...) ; compiling (DEFMACRO GET-INSTANCE-WRAPPER-OR-NIL ...) ; compiling (DEFVAR *INSTANCE-HASH-CODE-RANDOM-STATE* ...) ; compiling (DEFUN GET-INSTANCE-HASH-CODE ...) ; compiling (DEFUN SB-IMPL::SXHASH-INSTANCE ...) ; compiling (DEFUN GET-STRUCTURE-DD ...) ; compiling (DEFUN STRUCTURE-TYPE-INCLUDED-TYPE-NAME ...) ; compiling (DEFUN STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST ...) ; compiling (DEFUN STRUCTURE-SLOTD-NAME ...) ; compiling (DEFUN STRUCTURE-SLOTD-ACCESSOR-SYMBOL ...) ; compiling (DEFUN STRUCTURE-SLOTD-READER-FUNCTION ...) ; compiling (DEFUN STRUCTURE-SLOTD-WRITER-FUNCTION ...) ; compiling (DEFUN STRUCTURE-SLOTD-TYPE ...) ; compiling (DEFUN STRUCTURE-SLOTD-INIT-FORM ...) ; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS %METHOD-FUNCTION ...) ; compiling (DEFMACRO WITH-PCL-LOCK ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/low.lisp ; in: DEFUN SET-FUN-NAME ; (CLASS-OF SB-PCL::FUN) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (TYPE GENERIC-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/low.lisp ; in: DEFUN SET-FUN-NAME ; (TYPEP SB-PCL::FUN 'GENERIC-FUNCTION) ; ==> ; (SB-KERNEL:%TYPEP SB-PCL::FUN 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (TYPE GENERIC-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (TYPE GENERIC-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S ; FORMAT-ARGUMENTS (6 TYPE GENERIC-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/low.lisp ; in: DEFUN GET-SLOTS-OR-NIL ; (SB-PCL::PCL-INSTANCE-P SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (TYPE STANDARD-OBJECT)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS (NIL FUNCTION (CLASS-OF))) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(STANDARD-OBJECT) TYPE (GENERIC-FUNCTION . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; SYS:SRC;PCL;LOW.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/slot-name.lisp" (written 15 FEB 2003 11:16:34 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN SLOT-READER-NAME ...) ; compiling (DEFUN SLOT-WRITER-NAME ...) ; compiling (DEFUN SLOT-BOUNDP-NAME ...) ; SYS:SRC;PCL;SLOT-NAME.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/defclass.lisp" (written 07 NOV 2006 10:22:16 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFVAR *INITFUNCTIONS-FOR-THIS-DEFCLASS*) ; compiling (DEFVAR *READERS-FOR-THIS-DEFCLASS*) ; compiling (DEFVAR *WRITERS-FOR-THIS-DEFCLASS*) ; compiling (DEFVAR *SLOT-NAMES-FOR-THIS-DEFCLASS*) ; compiling (DEFMACRO DEFCLASS ...) ; compiling (DEFUN CANONIZE-DEFCLASS-OPTIONS ...) ; compiling (DEFUN CANONIZE-DEFCLASS-SLOTS ...) ; compiling (DEFUN CHECK-SLOT-NAME-FOR-DEFCLASS ...) ; compiling (DEFUN MAKE-INITFUNCTION ...) ; compiling (DEFUN %COMPILER-DEFCLASS ...) ; compiling (DEFUN PREINFORM-COMPILER-ABOUT-CLASS-TYPE ...) ; compiling (DEFUN PREINFORM-COMPILER-ABOUT-ACCESSORS ...) ; compiling (DEFPARAMETER *EARLY-CLASS-DEFINITIONS* ...) ; compiling (DEFUN EARLY-CLASS-DEFINITION ...) ; compiling (DEFUN MAKE-EARLY-CLASS-DEFINITION ...) ; compiling (DEFUN ECD-CLASS-NAME ...) ; compiling (DEFUN ECD-SOURCE-LOCATION ...) ; compiling (DEFUN ECD-METACLASS ...) ; compiling (DEFUN ECD-SUPERCLASS-NAMES ...) ; compiling (DEFUN ECD-CANONICAL-SLOTS ...) ; compiling (DEFUN ECD-OTHER-INITARGS ...) ; compiling (DEFVAR *EARLY-CLASS-SLOTS* ...) ; compiling (DEFUN CANONICAL-SLOT-NAME ...) ; compiling (DEFUN EARLY-CLASS-SLOTS ...) ; compiling (DEFUN EARLY-CLASS-SIZE ...) ; compiling (DEFUN EARLY-COLLECT-INHERITANCE ...) ; compiling (DEFUN EARLY-COLLECT-SLOTS ...) ; compiling (DEFUN EARLY-COLLECT-CPL ...) ; compiling (DEFUN EARLY-COLLECT-DEFAULT-INITARGS ...) ; compiling (DEFUN !BOOTSTRAP-SLOT-INDEX ...) ; compiling (DEFMACRO !BOOTSTRAP-GET-SLOT ...) ; compiling (DEFUN !BOOTSTRAP-SET-SLOT ...) ; compiling (DEFUN EARLY-CLASS-NAME ...) ; compiling (DEFUN EARLY-CLASS-PRECEDENCE-LIST ...) ; compiling (DEFUN EARLY-CLASS-NAME-OF ...) ; compiling (DEFUN EARLY-CLASS-SLOTDS ...) ; compiling (DEFUN EARLY-SLOT-DEFINITION-NAME ...) ; compiling (DEFUN EARLY-SLOT-DEFINITION-LOCATION ...) ; compiling (DEFUN EARLY-ACCESSOR-METHOD-SLOT-NAME ...) ; compiling (UNLESS (FBOUNDP #) ...) ; compiling (UNINTERN (QUOTE EARLY-CLASS-NAME-OF)) ; compiling (DEFUN EARLY-CLASS-DIRECT-SUBCLASSES ...) ; compiling (DECLAIM (NOTINLINE LOAD-DEFCLASS)) ; compiling (DEFUN LOAD-DEFCLASS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/defclass.lisp ; in: DEFMACRO DEFCLASS => ; DEFSTRUCT-P (AND (EQ *BOOT-STATE* 'COMPLETE) ; (LET ((MCLASS #)) ; (AND MCLASS ; (*SUBTYPEP MCLASS *THE-CLASS-STRUCTURE-CLASS*)))) ; (SB-PCL::*SUBTYPEP SB-PCL::MCLASS SB-PCL::*THE-CLASS-STRUCTURE-CLASS*) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION *SUBTYPEP)) ; :ASSIGNED-SLOTS NIL) ; in: ; DEFSTRUCT-P (AND (EQ *BOOT-STATE* 'COMPLETE) ; (LET ((MCLASS #)) ; (AND MCLASS ; (*SUBTYPEP MCLASS *THE-CLASS-STRUCTURE-CLASS*)))) ; (SB-PCL::*SUBTYPEP SB-PCL::MCLASS SB-PCL::*THE-CLASS-STRUCTURE-CLASS*) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION *SUBTYPEP)) ; :ASSIGNED-SLOTS NIL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/defclass.lisp ; in: DEFMACRO DEFCLASS => ; DEFSTRUCT-FORM (MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM NAME ; (CLASS-DIRECT-SLOTS (FIND-CLASS NAME)) INCLUDE) ; (SB-MOP:CLASS-DIRECT-SLOTS (FIND-CLASS SB-PCL::NAME)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-DIRECT-SLOTS)) ; :ASSIGNED-SLOTS NIL) ; in: ; DEFSTRUCT-FORM (MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM NAME ; (CLASS-DIRECT-SLOTS (FIND-CLASS NAME)) INCLUDE) ; (SB-MOP:CLASS-DIRECT-SLOTS (FIND-CLASS SB-PCL::NAME)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-DIRECT-SLOTS)) ; :ASSIGNED-SLOTS NIL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/defclass.lisp ; in: DEFUN EARLY-CLASS-NAME-OF ; (CLASS-OF SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFMACRO DEFCLASS => ; DEFSTRUCT-FORM (MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM NAME ; (CLASS-DIRECT-SLOTS (FIND-CLASS NAME)) INCLUDE) ; (SB-PCL::MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM SB-PCL::NAME ; (SB-MOP:CLASS-DIRECT-SLOTS (FIND-CLASS SB-PCL::NAME)) SB-PCL::INCLUDE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM)) ; :ASSIGNED-SLOTS NIL) ; in: ; DEFSTRUCT-FORM (MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM NAME ; (CLASS-DIRECT-SLOTS (FIND-CLASS NAME)) INCLUDE) ; (SB-PCL::MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM SB-PCL::NAME ; (SB-MOP:CLASS-DIRECT-SLOTS (FIND-CLASS SB-PCL::NAME)) SB-PCL::INCLUDE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(CLASS-DIRECT-SLOTS CLASS-OF ; MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM) ; FUNCTION (*SUBTYPEP . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; SYS:SRC;PCL;DEFCLASS.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/defs.lisp" (written 07 NOV 2006 10:22:16 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (WHEN (EQ *BOOT-STATE* ...) ...) ; compiling (WHEN *BOOT-STATE* ...) ; compiling (DECLAIM (INLINE GDEFINITION)) ; compiling (DEFUN GDEFINITION ...) ; compiling (DEFUN (SETF GDEFINITION) ...) ; compiling (DEFUN COERCE-TO-CLASS ...) ; compiling (DEFUN SPECIALIZER-FROM-TYPE ...) ; compiling (DEFUN TYPE-FROM-SPECIALIZER ...) ; compiling (DEFUN TYPE-CLASS ...) ; compiling (DEFUN CLASS-EQ-TYPE ...) ; compiling (DEFUN *NORMALIZE-TYPE ...) ; compiling (DEFUN CONVERT-TO-SYSTEM-TYPE ...) ; compiling (DEFUN *SUBTYPEP ...) ; compiling (DEFVAR *BUILT-IN-CLASS-SYMBOLS* ...) ; compiling (DEFVAR *BUILT-IN-WRAPPER-SYMBOLS* ...) ; compiling (DEFUN GET-BUILT-IN-CLASS-SYMBOL ...) ; compiling (DEFUN GET-BUILT-IN-WRAPPER-SYMBOL ...) ; compiling (PUSHNEW (QUOTE %CLASS) ...) ; compiling (PUSHNEW (QUOTE %VARIABLE-REBINDING) ...) ; compiling (DEFUN VARIABLE-CLASS ...) ; compiling (DEFVAR *STANDARD-METHOD-COMBINATION*) ; compiling (DEFUN PLIST-VALUE ...) ; compiling (DEFUN (SETF PLIST-VALUE) ...) ; compiling (/SHOW "about to set up SB-PCL::*BUILT-IN-CLASSES*") ; compiling (DEFVAR *BUILT-IN-CLASSES* ...) ; compiling (/NOSHOW "done setting up SB-PCL::*BUILT-IN-CLASSES*") ; compiling (DEFCLASS T ...) ; compiling (DEFCLASS FUNCTION ...) ; compiling (DEFCLASS STREAM ...) ; compiling (DEFCLASS FILE-STREAM ...) ; compiling (DEFCLASS STRING-STREAM ...) ; compiling (DEFCLASS SLOT-OBJECT ...) ; compiling (DEFCLASS CONDITION ...) ; compiling (DEFCLASS STRUCTURE-OBJECT ...) ; compiling (DEFSTRUCT (DEAD-BEEF-STRUCTURE-OBJECT # ...)) ; compiling (DEFCLASS STANDARD-OBJECT ...) ; compiling (DEFCLASS FUNCALLABLE-STANDARD-OBJECT ...) ; compiling (DEFCLASS METAOBJECT ...) ; compiling (DEFCLASS GENERIC-FUNCTION ...) ; compiling (DEFCLASS STANDARD-GENERIC-FUNCTION ...) ; compiling (DEFCLASS METHOD ...) ; compiling (DEFCLASS STANDARD-METHOD ...) ; compiling (DEFCLASS ACCESSOR-METHOD ...) ; compiling (DEFCLASS STANDARD-ACCESSOR-METHOD ...) ; compiling (DEFCLASS STANDARD-READER-METHOD ...) ; compiling (DEFCLASS STANDARD-WRITER-METHOD ...) ; compiling (DEFCLASS STANDARD-BOUNDP-METHOD ...) ; compiling (DEFCLASS GLOBAL-READER-METHOD ...) ; compiling (DEFCLASS GLOBAL-WRITER-METHOD ...) ; compiling (DEFCLASS GLOBAL-BOUNDP-METHOD ...) ; compiling (DEFCLASS METHOD-COMBINATION ...) ; compiling (DEFCLASS STANDARD-METHOD-COMBINATION ...) ; compiling (DEFCLASS LONG-METHOD-COMBINATION ...) ; compiling (DEFCLASS SHORT-METHOD-COMBINATION ...) ; compiling (DEFCLASS SLOT-DEFINITION ...) ; compiling (DEFCLASS STANDARD-SLOT-DEFINITION ...) ; compiling (DEFCLASS CONDITION-SLOT-DEFINITION ...) ; compiling (DEFCLASS STRUCTURE-SLOT-DEFINITION ...) ; compiling (DEFCLASS DIRECT-SLOT-DEFINITION ...) ; compiling (DEFCLASS EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFCLASS STANDARD-DIRECT-SLOT-DEFINITION ...) ; compiling (DEFCLASS STANDARD-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFCLASS CONDITION-DIRECT-SLOT-DEFINITION ...) ; compiling (DEFCLASS CONDITION-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFCLASS STRUCTURE-DIRECT-SLOT-DEFINITION ...) ; compiling (DEFCLASS STRUCTURE-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFCLASS SPECIALIZER ...) ; compiling (DEFCLASS SPECIALIZER-WITH-OBJECT ...) ; compiling (DEFCLASS EXACT-CLASS-SPECIALIZER ...) ; compiling (DEFCLASS CLASS-EQ-SPECIALIZER ...) ; compiling (DEFCLASS CLASS-PROTOTYPE-SPECIALIZER ...) ; compiling (DEFCLASS EQL-SPECIALIZER ...) ; compiling (DEFVAR *EQL-SPECIALIZER-TABLE* ...) ; compiling (DEFUN INTERN-EQL-SPECIALIZER ...) ; compiling (DEFCLASS CLASS ...) ; compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; compiling (DEFCLASS PCL-CLASS ...) ; compiling (DEFCLASS SLOT-CLASS ...) ; compiling (DEFCLASS STD-CLASS ...) ; compiling (DEFCLASS STANDARD-CLASS ...) ; compiling (DEFCLASS FUNCALLABLE-STANDARD-CLASS ...) ; compiling (DEFCLASS FORWARD-REFERENCED-CLASS ...) ; compiling (DEFCLASS BUILT-IN-CLASS ...) ; compiling (DEFCLASS CONDITION-CLASS ...) ; compiling (DEFCLASS STRUCTURE-CLASS ...) ; compiling (DEFCLASS DEFINITION-SOURCE-MIXIN ...) ; compiling (DEFCLASS PLIST-MIXIN ...) ; compiling (DEFCLASS DEPENDENT-UPDATE-MIXIN ...) ; compiling (DEFPARAMETER *EARLY-CLASS-PREDICATES* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/defs.lisp ; in: DEFUN TYPE-CLASS ; (CLASS-OF (CADR TYPE)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN COERCE-TO-CLASS ; (SB-MOP:ENSURE-CLASS CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ENSURE-CLASS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SPECIALIZER-FROM-TYPE ; (SB-PCL::ENSURE-NON-STANDARD-CLASS (SB-KERNEL:CLASSOID-NAME TYPE)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ENSURE-NON-STANDARD-CLASS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFCLASS STANDARD-GENERIC-FUNCTION ; (SB-PCL::MAKE-ARG-INFO) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-ARG-INFO)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN INTERN-EQL-SPECIALIZER ; (MAKE-INSTANCE 'SB-MOP:EQL-SPECIALIZER :OBJECT SB-PCL::OBJECT) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SPECIALIZER-FROM-TYPE ; (MAKE-INSTANCE 'SB-PCL::CLASS-PROTOTYPE-SPECIALIZER :OBJECT ; (SB-PCL::COERCE-TO-CLASS (CAR SB-PCL::ARGS))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN *SUBTYPEP ; (SB-PCL::SPECIALIZER-APPLICABLE-USING-TYPE-P SB-PCL::TYPE2 SB-PCL::TYPE1) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SPECIALIZER-APPLICABLE-USING-TYPE-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN *NORMALIZE-TYPE ; (SB-PCL::SPECIALIZERP TYPE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SPECIALIZERP)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN TYPE-FROM-SPECIALIZER ; (SB-PCL::SPECIALIZERP SB-PCL::SPECL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SPECIALIZERP)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SPECIALIZER-FROM-TYPE ; (SB-PCL::SPECIALIZERP TYPE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SPECIALIZERP)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(ENSURE-CLASS ENSURE-NON-STANDARD-CLASS MAKE-ARG-INFO ; MAKE-INSTANCE SPECIALIZER-APPLICABLE-USING-TYPE-P ; SPECIALIZERP) ; FUNCTION (CLASS-OF . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 11 STYLE-WARNING conditions ; SYS:SRC;PCL;DEFS.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/fngen.lisp" (written 27 FEB 2006 01:12:35 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN GET-FUN ...) ; compiling (DEFUN GET-FUN1 ...) ; compiling (DEFUN DEFAULT-CONSTANTP ...) ; compiling (DEFUN DEFAULT-TEST-CONVERTER ...) ; compiling (DEFUN DEFAULT-CODE-CONVERTER ...) ; compiling (DEFUN DEFAULT-CONSTANT-CONVERTER ...) ; compiling (DEFVAR *FGENS* ...) ; compiling (DEFUN STORE-FGEN ...) ; compiling (DEFUN LOOKUP-FGEN ...) ; compiling (DEFUN MAKE-FGEN ...) ; compiling (DEFUN FGEN-TEST ...) ; compiling (DEFUN FGEN-GENSYMS ...) ; compiling (DEFUN FGEN-GENERATOR ...) ; compiling (DEFUN FGEN-GENERATOR-LAMBDA ...) ; compiling (DEFUN FGEN-SYSTEM ...) ; compiling (DEFUN GET-FUN-GENERATOR ...) ; compiling (DEFUN GET-NEW-FUN-GENERATOR ...) ; compiling (DEFUN GET-NEW-FUN-GENERATOR-INTERNAL ...) ; compiling (DEFUN COMPUTE-TEST ...) ; compiling (DEFUN COMPUTE-CODE ...) ; compiling (DEFUN COMPUTE-CONSTANTS ...) ; compiling (DEFMACRO PRECOMPILE-FUNCTION-GENERATORS ...) ; compiling (DEFUN LOAD-FUNCTION-GENERATOR ...) ; SYS:SRC;PCL;FNGEN.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/cache.lisp" (written 21 DEC 2006 03:17:41 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFMACRO CACHE-VECTOR-REF ...) ; compiling (DEFMACRO CACHE-VECTOR-SIZE ...) ; compiling (DEFMACRO CACHE-VECTOR-LOCK-COUNT ...) ; compiling (DEFUN FLUSH-CACHE-VECTOR-INTERNAL ...) ; compiling (DEFUN GET-CACHE-VECTOR ...) ; compiling (DEFMACRO MODIFY-CACHE ...) ; compiling (DEFTYPE FIELD-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN POWER-OF-TWO-CEILING ...) ; compiling (DECLAIM (INLINE COMPUTE-LINE-SIZE)) ; compiling (DEFUN COMPUTE-LINE-SIZE ...) ; compiling (DEFCONSTANT +NKEYS-LIMIT+ ...) ; compiling (DEFSTRUCT (CACHE # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE CACHE)) ; compiling (DEFCONSTANT WRAPPER-CACHE-NUMBER-LENGTH ...) ; compiling (DEFCONSTANT WRAPPER-CACHE-NUMBER-MASK ...) ; compiling (DEFCONSTANT WRAPPER-CACHE-NUMBER-ADDS-OK ...) ; compiling (DEFCONSTANT WRAPPER-CACHE-NUMBER-VECTOR-LENGTH ...) ; compiling (UNLESS (BOUNDP #) ...) ; compiling (DEFMACRO WRAPPER-CLASS ...) ; compiling (DEFMACRO WRAPPER-NO-OF-INSTANCE-SLOTS ...) ; compiling (DEFUN BOOT-MAKE-WRAPPER ...) ; compiling (DEFVAR *PCL-CLASS-BOOT* ...) ; compiling (DEFUN MAKE-WRAPPER ...) ; compiling (DEFCONSTANT +FIRST-WRAPPER-CACHE-NUMBER-INDEX+ ...) ; compiling (DECLAIM (INLINE NEXT-WRAPPER-CACHE-NUMBER-INDEX)) ; compiling (DEFUN NEXT-WRAPPER-CACHE-NUMBER-INDEX ...) ; compiling (DEFMACRO CACHE-NUMBER-VECTOR-REF ...) ; compiling (DEFMACRO WRAPPER-CACHE-NUMBER-VECTOR-REF ...) ; compiling (DECLAIM (INLINE WRAPPER-CLASS*)) ; compiling (DEFUN WRAPPER-CLASS* ...) ; compiling (DECLAIM (INLINE INVALID-WRAPPER-P)) ; compiling (DEFUN INVALID-WRAPPER-P ...) ; compiling (DEFVAR *PREVIOUS-NWRAPPERS* ...) ; compiling (DEFUN INVALIDATE-WRAPPER ...) ; compiling (DEFUN CHECK-WRAPPER-VALIDITY ...) ; compiling (DECLAIM (INLINE CHECK-OBSOLETE-INSTANCE)) ; compiling (DEFUN CHECK-OBSOLETE-INSTANCE ...) ; compiling (DEFUN GET-CACHE ...) ; compiling (DEFUN GET-CACHE-FROM-CACHE ...) ; compiling (DEFUN COPY-CACHE ...) ; compiling (DEFUN COMPUTE-CACHE-PARAMETERS ...) ; compiling (DEFUN COMPUTE-PRIMARY-CACHE-LOCATION ...) ; compiling (DEFUN COMPUTE-PRIMARY-CACHE-LOCATION-FROM-LOCATION ...) ; compiling (DEFUN RAISE-METATYPE ...) ; compiling (DEFMACRO WITH-DFUN-WRAPPERS ...) ; compiling (DECLAIM (LIST *DFUN-ARG-SYMBOLS*)) ; compiling (DEFVAR *DFUN-ARG-SYMBOLS* ...) ; compiling (DEFUN DFUN-ARG-SYMBOL ...) ; compiling (DECLAIM (LIST *SLOT-VECTOR-SYMBOLS*)) ; compiling (DEFVAR *SLOT-VECTOR-SYMBOLS* ...) ; compiling (DEFUN SLOT-VECTOR-SYMBOL ...) ; compiling (DECLAIM (INLINE MAKE-DFUN-REQUIRED-ARGS)) ; compiling (DEFUN MAKE-DFUN-REQUIRED-ARGS ...) ; compiling (DEFUN MAKE-DFUN-LAMBDA-LIST ...) ; compiling (DEFUN MAKE-DLAP-LAMBDA-LIST ...) ; compiling (DEFUN MAKE-EMF-CALL ...) ; compiling (DEFUN MAKE-FAST-METHOD-CALL-LAMBDA-LIST ...) ; compiling (DEFMACRO WITH-LOCAL-CACHE-FUNCTIONS ...) ; compiling (DEFVAR *CACHE-EXPAND-THRESHOLD* ...) ; compiling (DEFUN FILL-CACHE ...) ; compiling (DEFVAR *CHECK-CACHE-P* ...) ; compiling (DEFMACRO MAYBE-CHECK-CACHE ...) ; compiling (DEFUN CHECK-CACHE ...) ; compiling (DEFUN PROBE-CACHE ...) ; compiling (DEFUN MAP-CACHE ...) ; compiling (DEFUN CACHE-COUNT ...) ; compiling (DEFUN ENTRY-IN-CACHE-P ...) ; compiling (DEFUN FILL-CACHE-P ...) ; compiling (DEFUN FILL-CACHE-FROM-CACHE-P ...) ; compiling (DEFUN ADJUST-CACHE ...) ; compiling (DEFUN EXPAND-CACHE ...) ; compiling (DEFVAR *PCL-MISC-RANDOM-STATE* ...) ; compiling (DEFUN FIND-FREE-CACHE-LINE ...) ; compiling (DEFUN DEFAULT-LIMIT-FN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/cache.lisp ; in: DEFUN RAISE-METATYPE ; (CLASS-OF (SB-PCL::SPECIALIZER-CLASS SB-PCL::X)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CHECK-WRAPPER-VALIDITY ; (CLASS-OF SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-WRAPPER ; (CLASS-OF CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN WRAPPER-CLASS* ; (SB-PCL::ENSURE-NON-STANDARD-CLASS ; (SB-KERNEL:CLASSOID-NAME (SB-KERNEL:LAYOUT-CLASSOID SB-PCL::WRAPPER))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ENSURE-NON-STANDARD-CLASS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CHECK-WRAPPER-VALIDITY ; (SB-PCL::FLUSH-CACHE-TRAP SB-PCL::OWRAPPER (CADR SB-PCL::STATE) ; SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FLUSH-CACHE-TRAP)) ; :ASSIGNED-SLOTS NIL) ; (SB-PCL::FORCE-CACHE-FLUSHES (CLASS-OF SB-KERNEL:INSTANCE)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FORCE-CACHE-FLUSHES)) ; :ASSIGNED-SLOTS NIL) ; (SB-PCL::OBSOLETE-INSTANCE-TRAP SB-PCL::OWRAPPER (CADR SB-PCL::STATE) ; SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION OBSOLETE-INSTANCE-TRAP)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-WRAPPER ; (SLOT-VALUE CLASS 'SB-PCL::NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-VALUE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CHECK-WRAPPER-VALIDITY ; (SB-PCL::WRAPPER-OF SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION WRAPPER-OF)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(ENSURE-NON-STANDARD-CLASS FLUSH-CACHE-TRAP ; FORCE-CACHE-FLUSHES OBSOLETE-INSTANCE-TRAP SLOT-VALUE ; WRAPPER-OF) ; FUNCTION (CLASS-OF . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 10 STYLE-WARNING conditions ; SYS:SRC;PCL;CACHE.FASL.NEWEST written ; compilation finished in 0:00:01 STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFUN FORMAT-ARGUMENTS (POWER-OF-TWO-CEILING)) :ASSIGNED-SLOTS NIL) ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dlisp.lisp" (written 21 DEC 2006 03:17:41 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN EMIT-ONE-CLASS-READER ...) ; compiling (DEFUN EMIT-ONE-CLASS-BOUNDP ...) ; compiling (DEFUN EMIT-ONE-CLASS-WRITER ...) ; compiling (DEFUN EMIT-TWO-CLASS-READER ...) ; compiling (DEFUN EMIT-TWO-CLASS-BOUNDP ...) ; compiling (DEFUN EMIT-TWO-CLASS-WRITER ...) ; compiling (DEFUN EMIT-ONE-INDEX-READERS ...) ; compiling (DEFUN EMIT-ONE-INDEX-BOUNDPS ...) ; compiling (DEFUN EMIT-ONE-INDEX-WRITERS ...) ; compiling (DEFUN EMIT-N-N-READERS ...) ; compiling (DEFUN EMIT-N-N-BOUNDPS ...) ; compiling (DEFUN EMIT-N-N-WRITERS ...) ; compiling (DEFUN EMIT-CHECKING ...) ; compiling (DEFUN EMIT-CACHING ...) ; compiling (DEFUN EMIT-IN-CHECKING-CACHE-P ...) ; compiling (DEFUN EMIT-CONSTANT-VALUE ...) ; compiling (DEFVAR *PRECOMPILING-LAP* ...) ; compiling (DEFVAR *EMIT-FUNCTION-P* ...) ; compiling (DEFVAR *OPTIMIZE-CACHE-FUNCTIONS-P* ...) ; compiling (DEFUN EMIT-DEFAULT-ONLY ...) ; compiling (DEFUN GENERATING-LISP ...) ; compiling (DEFUN EMIT-READER/WRITER ...) ; compiling (DEFUN EMIT-SLOT-READ-FORM ...) ; compiling (DEFUN EMIT-BOUNDP-CHECK ...) ; compiling (DEFUN EMIT-SLOT-ACCESS ...) ; compiling (DEFMACRO EMIT-READER/WRITER-MACRO ...) ; compiling (DEFUN EMIT-ONE-OR-N-INDEX-READER/WRITER ...) ; compiling (DEFMACRO EMIT-ONE-OR-N-INDEX-READER/WRITER-MACRO ...) ; compiling (DEFUN EMIT-MISS ...) ; compiling (DEFUN EMIT-CHECKING-OR-CACHING ...) ; compiling (DEFMACRO EMIT-CHECKING-OR-CACHING-MACRO ...) ; compiling (DEFUN EMIT-DLAP ...) ; compiling (DEFUN EMIT-1-NIL-DLAP ...) ; compiling (DEFMACRO GET-CACHE-VECTOR-LOCK-COUNT ...) ; compiling (DEFUN EMIT-1-T-DLAP ...) ; compiling (DEFUN EMIT-GREATER-THAN-1-DLAP ...) ; compiling (DEFUN EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION ...) ; compiling (DEFUN EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION ...) ; compiling (DEFUN EMIT-FETCH-WRAPPER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dlisp.lisp ; in: DEFUN EMIT-CHECKING-OR-CACHING ; (SB-PCL::EMIT-CHECKING-OR-CACHING-FUNCTION SB-PCL::CACHED-EMF-P ; SB-PCL::RETURN-VALUE-P SB-PCL::METATYPES SB-PCL::APPLYP) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION EMIT-CHECKING-OR-CACHING-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN EMIT-DEFAULT-ONLY ; (SB-PCL::EMIT-DEFAULT-ONLY-FUNCTION SB-PCL::METATYPES SB-PCL::APPLYP) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION EMIT-DEFAULT-ONLY-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN EMIT-ONE-OR-N-INDEX-READER/WRITER ; (SB-PCL::EMIT-ONE-OR-N-INDEX-READER/WRITER-FUNCTION SB-PCL::READER/WRITER ; SB-PCL::CACHED-INDEX-P SB-PCL::CLASS-SLOT-P) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION EMIT-ONE-OR-N-INDEX-READER/WRITER-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN EMIT-READER/WRITER ; (SB-PCL::EMIT-READER/WRITER-FUNCTION SB-PCL::READER/WRITER ; SB-PCL::1-OR-2-CLASS SB-PCL::CLASS-SLOT-P) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION EMIT-READER/WRITER-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(EMIT-DEFAULT-ONLY-FUNCTION ; EMIT-ONE-OR-N-INDEX-READER/WRITER-FUNCTION ; EMIT-READER/WRITER-FUNCTION) ; FUNCTION (EMIT-CHECKING-OR-CACHING-FUNCTION . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; SYS:SRC;PCL;DLISP.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dlisp2.lisp" (written 06 AUG 2005 12:31:19 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN EMIT-READER/WRITER-FUNCTION ...) ; compiling (DEFUN EMIT-ONE-OR-N-INDEX-READER/WRITER-FUNCTION ...) ; compiling (DEFUN EMIT-CHECKING-OR-CACHING-FUNCTION ...) ; compiling (DEFVAR *NOT-IN-CACHE* ...) ; compiling (DEFUN EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY ...) ; compiling (DEFUN EMIT-DEFAULT-ONLY-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dlisp2.lisp ; in: DEFUN EMIT-DEFAULT-ONLY-FUNCTION ; (SB-PCL::INVOKE-EMF SB-PCL::EMF SB-PCL::ARGS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION INVOKE-EMF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY ; (SB-PCL::INVOKE-EMF SB-PCL::EMF SB-PCL::ARGS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION INVOKE-EMF)) ; :ASSIGNED-SLOTS NIL) ; (SB-PCL::WITH-DFUN-WRAPPERS (SB-PCL::ARGS SB-PCL::METATYPES) ; (SB-PCL::DFUN-WRAPPERS SB-PCL::INVALID-WRAPPER-P) ; (APPLY SB-PCL::MISS-FN SB-PCL::ARGS) ; (IF SB-PCL::INVALID-WRAPPER-P ; (APPLY SB-PCL::MISS-FN SB-PCL::ARGS) ; (LET ((SB-PCL::EMF #)) ; (IF (EQ SB-PCL::EMF SB-PCL::*NOT-IN-CACHE*) ; (APPLY SB-PCL::MISS-FN SB-PCL::ARGS) ; (IF SB-PCL::RETURN-VALUE-P SB-PCL::EMF ; #))))) ; --> LET* DOLIST BLOCK LET TAGBODY UNLESS COND IF PROGN LET TAGBODY LET* ; --> UNLESS COND IF PROGN SETQ THE ; ==> ; (SB-PCL::WRAPPER-OF SB-PCL::ARG) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION WRAPPER-OF)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(WRAPPER-OF) FUNCTION (INVOKE-EMF . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; SYS:SRC;PCL;DLISP2.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/boot.lisp" (written 28 NOV 2006 01:34:16 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DECLAIM (NOTINLINE MAKE-A-METHOD ...)) ; compiling (DEFVAR *!EARLY-FUNCTIONS* ...) ; compiling (DOLIST (FNS *!EARLY-FUNCTIONS*) ...) ; compiling (DEFVAR *!GENERIC-FUNCTION-FIXUPS* ...) ; compiling (DEFMACRO DEFGENERIC ...) ; compiling (DEFUN COMPILE-OR-LOAD-DEFGENERIC ...) ; compiling (DEFUN LOAD-DEFGENERIC ...) ; compiling (DEFINE-CONDITION GENERIC-FUNCTION-LAMBDA-LIST-ERROR ...) ; compiling (DEFUN CHECK-GF-LAMBDA-LIST ...) ; compiling (DEFMACRO DEFMETHOD ...) ; compiling (DEFUN PROTOTYPES-FOR-MAKE-METHOD-LAMBDA ...) ; compiling (DEFUN METHOD-PROTOTYPE-FOR-GF ...) ; compiling (DEFUN EXPAND-DEFMETHOD ...) ; compiling (DEFUN INTERNED-SYMBOL-P ...) ; compiling (DEFUN MAKE-DEFMETHOD-FORM ...) ; compiling (DEFUN MAKE-DEFMETHOD-FORM-INTERNAL ...) ; compiling (DEFMACRO MAKE-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-METHOD-FUNCTION-INTERNAL ...) ; compiling (DEFUN ADD-METHOD-DECLARATIONS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/boot.lisp ; in: DEFUN ADD-METHOD-DECLARATIONS ; (MULTIPLE-VALUE-BIND ; (SB-PCL::PARAMETERS SB-PCL::UNSPECIALIZED-LAMBDA-LIST ; SB-PCL::SPECIALIZERS) ; (SB-PCL::PARSE-SPECIALIZED-LAMBDA-LIST SB-PCL::LAMBDA-LIST) ; (MULTIPLE-VALUE-BIND ; (SB-PCL::REAL-BODY SB-PCL::DECLARATIONS DOCUMENTATION) ; (SB-INT:PARSE-BODY SB-PCL::BODY) ; (VALUES ; `(LAMBDA ,SB-PCL::UNSPECIALIZED-LAMBDA-LIST ; ,@(WHEN DOCUMENTATION `#) ; (DECLARE #) ; (DECLARE #) ; ,@SB-PCL::DECLARATIONS ; ,@SB-PCL::REAL-BODY) ; SB-PCL::UNSPECIALIZED-LAMBDA-LIST SB-PCL::SPECIALIZERS))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA ; (&OPTIONAL (SB-PCL::PARAMETERS) (SB-PCL::UNSPECIALIZED-LAMBDA-LIST) ; (SB-PCL::SPECIALIZERS) ; &REST #:G326) ; (DECLARE (IGNORE #:G326)) ; (MULTIPLE-VALUE-BIND ; (SB-PCL::REAL-BODY SB-PCL::DECLARATIONS DOCUMENTATION) ; (SB-INT:PARSE-BODY SB-PCL::BODY) ; (VALUES ; `(LAMBDA ,SB-PCL::UNSPECIALIZED-LAMBDA-LIST ; ,@(WHEN DOCUMENTATION `#) ; (DECLARE #) ; (DECLARE #) ; ,@SB-PCL::DECLARATIONS ; ,@SB-PCL::REAL-BODY) ; SB-PCL::UNSPECIALIZED-LAMBDA-LIST SB-PCL::SPECIALIZERS))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (PARAMETERS)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN REAL-MAKE-METHOD-INITARGS-FORM ...) ; compiling (UNLESS (FBOUNDP #) ...) ; compiling (DEFUN REAL-MAKE-METHOD-LAMBDA ...) ; compiling (DEFUN PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD ...) ; compiling (DEFINE-SYMBOL-MACRO %PARAMETER-BINDING-MODIFIED ...) ; compiling (DEFUN MAKE-METHOD-LAMBDA-INTERNAL ...) ; compiling (UNLESS (FBOUNDP #) ...) ; compiling (DEFMACRO SIMPLE-LEXICAL-METHOD-FUNCTIONS ...) ; compiling (DEFMACRO FAST-LEXICAL-METHOD-FUNCTIONS ...) ; compiling (DEFMACRO BIND-SIMPLE-LEXICAL-METHOD-FUNCTIONS ...) ; compiling (DEFUN CALL-NO-NEXT-METHOD ...) ; compiling (DEFSTRUCT (METHOD-CALL #) ...) ; compiling (DEFSTRUCT (CONSTANT-METHOD-CALL # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE METHOD-CALL)) ; compiling (DEFMACRO INVOKE-METHOD-CALL1 ...) ; compiling (DEFMACRO INVOKE-METHOD-CALL ...) ; compiling (DEFSTRUCT (FAST-METHOD-CALL #) ...) ; compiling (DEFSTRUCT (CONSTANT-FAST-METHOD-CALL # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE FAST-METHOD-CALL)) ; compiling (DEFMACRO INVOKE-FAST-METHOD-CALL ...) ; compiling (DEFMACRO INVOKE-FAST-METHOD-CALL/MORE ...); in: LAMBDA NIL ; 'SB-C:%MORE-ARG ; ; note: #S(CODE-DELETION-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS ; NIL) ; :ASSIGNED-SLOTS NIL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/boot.lisp ; in: DEFMACRO INVOKE-FAST-METHOD-CALL/MORE ; 'SB-C:%MORE-ARG ; ; note: #S(CODE-DELETION-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS ; NIL) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFSTRUCT (FAST-INSTANCE-BOUNDP #) ...) ; compiling (DECLAIM (FREEZE-TYPE FAST-INSTANCE-BOUNDP)) ; compiling (DEFVAR *ALLOW-EMF-CALL-TRACING-P* ...) ; compiling (DEFVAR *ENABLE-EMF-CALL-TRACING-P* ...) ; compiling (DEFVAR *EMF-CALL-TRACE-SIZE* ...) ; compiling (DEFVAR *EMF-CALL-TRACE* ...) ; compiling (DEFVAR *EMF-CALL-TRACE-INDEX* ...) ; compiling (DEFUN TRACE-EMF-CALL-INTERNAL ...) ; compiling (DEFMACRO TRACE-EMF-CALL ...) ; compiling (DEFMACRO INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST ...) ; compiling (DEFUN EFFECTIVE-METHOD-OPTIMIZED-SLOT-ACCESS-CLAUSE ...) ; compiling (DEF INVOKE-EFFECTIVE-METHOD-FUNCTION ...) ; compiling (DEF INVOKE-NARROW-EFFECTIVE-METHOD-FUNCTION ...) ; compiling (DEFUN INVOKE-EMF ...) ; compiling (DEFMACRO FAST-CALL-NEXT-METHOD-BODY ...) ; compiling (DEFMACRO BIND-FAST-LEXICAL-METHOD-FUNCTIONS ...) ; compiling (DEFUN %CHECK-CNM-ARGS ...) ; compiling (DEFMACRO BIND-ARGS ...) ; compiling (DEFUN GET-KEY-ARG-TAIL ...) ; compiling (DEFUN WALK-METHOD-LAMBDA ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/boot.lisp ; in: DEFUN WALK-METHOD-LAMBDA ; (DEFUN SB-PCL::WALK-METHOD-LAMBDA ; (SB-PCL::METHOD-LAMBDA SB-PCL::REQUIRED-PARAMETERS SB-PCL::ENV ; SB-PCL::SLOTS SB-PCL::CALLS) ; (LET ((SB-PCL::CALL-NEXT-METHOD-P NIL) ; (SB-PCL::CLOSUREP NIL) ; (SB-PCL::NEXT-METHOD-P-P NIL) ; (SB-PCL::PARAMETERS-SETQD NIL)) ; (FLET ((SB-PCL::WALK-FUNCTION # ; #)) ; (LET (#) ; (VALUES SB-PCL::WALKED-LAMBDA SB-PCL::CALL-NEXT-METHOD-P ; SB-PCL::CLOSUREP SB-PCL::NEXT-METHOD-P-P # ; SB-PCL::PARAMETERS-SETQD))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-PCL::WALK-METHOD-LAMBDA ; (SB-PCL::METHOD-LAMBDA SB-PCL::REQUIRED-PARAMETERS ; SB-PCL::ENV SB-PCL::SLOTS SB-PCL::CALLS) ; (BLOCK SB-PCL::WALK-METHOD-LAMBDA ; (LET ((SB-PCL::CALL-NEXT-METHOD-P NIL) ; (SB-PCL::CLOSUREP NIL) ; (SB-PCL::NEXT-METHOD-P-P NIL) ; (SB-PCL::PARAMETERS-SETQD NIL)) ; (FLET (#) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (CALLS)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN GENERIC-FUNCTION-NAME-P ...) ; compiling (DEFUN METHOD-PLIST-VALUE ...) ; compiling (DEFUN (SETF METHOD-PLIST-VALUE) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/boot.lisp ; in: DEFUN (SETF METHOD-PLIST-VALUE) ; (SETF (GETF (GETF (SB-PCL::EARLY-METHOD-INITARGS METHOD) 'SB-PCL::PLIST) ; SB-PCL::KEY SB-PCL::DEFAULT) ; SB-PCL::NEW-VALUE) ; ==> ; (LET* ((#:G1300 METHOD) ; (#:G1302 'SB-PCL::PLIST) ; (#:G1304 SB-PCL::KEY) ; (#:G1305 SB-PCL::DEFAULT)) ; (MULTIPLE-VALUE-BIND ; (#:G1303) ; SB-PCL::NEW-VALUE ; (LET ((#:G1301 #)) ; (LET (#) ; (FUNCALL #'# #:G1299 #:G1300) ; #:G1301) ; #:G1303))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (G1305)) ; :ASSIGNED-SLOTS NIL) ; (SETF (GETF (SB-PCL::OBJECT-PLIST METHOD) SB-PCL::KEY SB-PCL::DEFAULT) ; SB-PCL::NEW-VALUE) ; ==> ; (LET* ((#:G1307 METHOD) (#:G1309 SB-PCL::KEY) (#:G1310 SB-PCL::DEFAULT)) ; (MULTIPLE-VALUE-BIND ; (#:G1308) ; SB-PCL::NEW-VALUE ; (LET ((#:G1306 #)) ; (FUNCALL #'(SETF SB-PCL::OBJECT-PLIST) #:G1306 #:G1307) ; #:G1308))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (G1310)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN LOAD-DEFMETHOD ...) ; compiling (DEFUN LOAD-DEFMETHOD-INTERNAL ...) ; compiling (DEFUN MAKE-METHOD-SPEC ...) ; compiling (DEFUN INITIALIZE-METHOD-FUNCTION ...) ; compiling (DEFUN ANALYZE-LAMBDA-LIST ...) ; compiling (DEFUN KEYWORD-SPEC-NAME ...) ; compiling (DEFUN FTYPE-DECLARATION-FROM-LAMBDA-LIST ...) ; compiling (DEFUN DEFGENERIC-DECLARATION ...) ; compiling (DEFVAR *!EARLY-GENERIC-FUNCTIONS* ...) ; compiling (DEFUN ENSURE-GENERIC-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/boot.lisp ; in: DEFUN ENSURE-GENERIC-FUNCTION ; (DEFUN ENSURE-GENERIC-FUNCTION ; (SB-PCL::FUN-NAME ; &REST SB-PCL::ALL-KEYS ; &KEY SB-PCL::ENVIRONMENT SB-PCL::SOURCE-LOCATION &ALLOW-OTHER-KEYS) ; (DECLARE (IGNORE SB-PCL::ENVIRONMENT)) ; (LET ((SB-PCL::EXISTING (AND # #))) ; (COND ; ((AND SB-PCL::EXISTING # #) ; (SB-PCL::GENERIC-CLOBBERS-FUNCTION SB-PCL::FUN-NAME) ; (FMAKUNBOUND SB-PCL::FUN-NAME) ; (APPLY #'ENSURE-GENERIC-FUNCTION SB-PCL::FUN-NAME SB-PCL::ALL-KEYS)) ; (T ; (APPLY #'SB-MOP:ENSURE-GENERIC-FUNCTION-USING-CLASS SB-PCL::EXISTING ; SB-PCL::FUN-NAME SB-PCL::ALL-KEYS))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA ENSURE-GENERIC-FUNCTION ; (SB-PCL::FUN-NAME &REST SB-PCL::ALL-KEYS &KEY ; SB-PCL::ENVIRONMENT SB-PCL::SOURCE-LOCATION ; &ALLOW-OTHER-KEYS) ; (DECLARE (IGNORE SB-PCL::ENVIRONMENT)) ; (BLOCK ENSURE-GENERIC-FUNCTION ; (LET ((SB-PCL::EXISTING #)) ; (COND (# # # #) (T #))))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (SOURCE-LOCATION)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN GENERIC-CLOBBERS-FUNCTION ...) ; compiling (DEFVAR *SGF-WRAPPER* ...) ; compiling (DEFVAR *SGF-SLOTS-INIT* ...) ; compiling (DEFVAR *SGF-METHOD-CLASS-INDEX* ...) ; compiling (DEFUN EARLY-GF-P ...) ; compiling (DEFVAR *SGF-METHODS-INDEX* ...) ; compiling (DEFMACRO EARLY-GF-METHODS ...) ; compiling (DEFUN SAFE-GENERIC-FUNCTION-METHODS ...) ; compiling (DEFVAR *SGF-ARG-INFO-INDEX* ...) ; compiling (DEFMACRO EARLY-GF-ARG-INFO ...) ; compiling (DEFVAR *SGF-DFUN-STATE-INDEX* ...) ; compiling (DEFSTRUCT (ARG-INFO # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE ARG-INFO)) ; compiling (DEFUN ARG-INFO-VALID-P ...) ; compiling (DEFUN ARG-INFO-APPLYP ...) ; compiling (DEFUN ARG-INFO-NUMBER-REQUIRED ...) ; compiling (DEFUN ARG-INFO-NKEYS ...) ; compiling (DEFUN CREATE-GF-LAMBDA-LIST ...) ; compiling (DEFUN SET-ARG-INFO ...) ; compiling (DEFUN CHECK-METHOD-ARG-INFO ...) ; compiling (DEFVAR *SM-SPECIALIZERS-INDEX* ...) ; compiling (DEFVAR *SM-%FUNCTION-INDEX* ...) ; compiling (DEFVAR *SM-QUALIFIERS-INDEX* ...) ; compiling (DEFVAR *SM-PLIST-INDEX* ...) ; compiling (DOLIST (S #) ...) ; compiling (DEFUN SAFE-METHOD-SPECIALIZERS ...) ; compiling (DEFUN SAFE-METHOD-FAST-FUNCTION ...) ; compiling (DEFUN SAFE-METHOD-FUNCTION ...) ; compiling (DEFUN SAFE-METHOD-QUALIFIERS ...) ; compiling (DEFUN SET-ARG-INFO1 ...) ; compiling (DEFUN ENSURE-GENERIC-FUNCTION-USING-CLASS ...) ; compiling (DEFUN MAKE-EARLY-GF ...) ; compiling (DEFUN SAFE-GF-DFUN-STATE ...) ; compiling (DEFUN (SETF SAFE-GF-DFUN-STATE) ...) ; compiling (DEFUN SET-DFUN ...) ; compiling (DEFUN GF-DFUN-CACHE ...) ; compiling (DEFUN GF-DFUN-INFO ...) ; compiling (DEFVAR *SGF-NAME-INDEX* ...) ; compiling (DEFUN !EARLY-GF-NAME ...) ; compiling (DEFUN GF-LAMBDA-LIST ...) ; compiling (DEFMACRO REAL-ENSURE-GF-INTERNAL ...) ; compiling (DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION ...) ; compiling (DEFUN REAL-ENSURE-GF-USING-CLASS--NULL ...) ; compiling (DEFUN SAFE-GF-ARG-INFO ...) ; compiling (DEFUN GET-GENERIC-FUN-INFO ...) ; compiling (DEFUN EARLY-MAKE-A-METHOD ...) ; compiling (DEFUN REAL-MAKE-A-METHOD ...) ; compiling (DEFUN EARLY-METHOD-FUNCTION ...) ; compiling (DEFUN EARLY-METHOD-CLASS ...) ; compiling (DEFUN EARLY-METHOD-STANDARD-ACCESSOR-P ...) ; compiling (DEFUN EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME ...) ; compiling (DEFUN EARLY-METHOD-SPECIALIZERS ...) ; compiling (DEFUN EARLY-METHOD-QUALIFIERS ...) ; compiling (DEFUN EARLY-METHOD-LAMBDA-LIST ...) ; compiling (DEFUN EARLY-METHOD-INITARGS ...) ; compiling (DEFUN (SETF EARLY-METHOD-INITARGS) ...) ; compiling (DEFUN EARLY-ADD-NAMED-METHOD ...) ; compiling (DEFUN ADD-METHOD ...) ; compiling (DEFUN REMOVE-METHOD ...) ; compiling (DEFUN GET-METHOD ...) ; compiling (DEFUN !FIX-EARLY-GENERIC-FUNCTIONS ...) ; compiling (DEFUN PARSE-DEFMETHOD ...) ; compiling (DEFUN PARSE-SPECIALIZERS ...) ; compiling (DEFUN UNPARSE-SPECIALIZERS ...) ; compiling (DEFUN PARSE-METHOD-OR-SPEC ...) ; compiling (DEFUN EXTRACT-PARAMETERS ...) ; compiling (DEFUN EXTRACT-LAMBDA-LIST ...) ; compiling (DEFUN EXTRACT-SPECIALIZER-NAMES ...) ; compiling (DEFUN EXTRACT-REQUIRED-PARAMETERS ...) ; compiling (DEFINE-CONDITION SPECIALIZED-LAMBDA-LIST-ERROR ...) ; compiling (DEFUN PARSE-SPECIALIZED-LAMBDA-LIST ...) ; compiling (SETQ *BOOT-STATE* ...) ; compiling (DEFMACRO WITH-SLOTS ...) ; compiling (DEFMACRO WITH-ACCESSORS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/boot.lisp ; in: DEFUN MAKE-EARLY-GF ; (SB-PCL::ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE SB-PCL::*SGF-WRAPPER* ; SB-PCL::*SGF-SLOTS-INIT*) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN WALK-METHOD-LAMBDA ; (SB-PCL::CAN-OPTIMIZE-ACCESS SB-KERNEL:FORM SB-PCL::REQUIRED-PARAMETERS ; SB-PCL::ENV) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CAN-OPTIMIZE-ACCESS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION ; (CHANGE-CLASS SB-PCL::EXISTING SB-PCL::GENERIC-FUNCTION-CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CHANGE-CLASS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--NULL ; (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS ; SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT) ; --> PROGN UNLESS COND IF PROGN IF ; ==> ; (SB-PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; SB-PCL::GENERIC-FUNCTION-CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION ; (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS ; SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT) ; --> PROGN UNLESS COND IF PROGN IF ; ==> ; (SB-PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; SB-PCL::GENERIC-FUNCTION-CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SAFE-GENERIC-FUNCTION-METHODS ; (CLASS-OF GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN LOAD-DEFMETHOD-INTERNAL ; (CLASS-OF METHOD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN EXPAND-DEFMETHOD ; (CLASS-OF SB-PCL::PROTO-METHOD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S ; FORMAT-ARGUMENTS (8 FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/boot.lisp ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--NULL ; (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS ; SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT) ; --> PROGN COND IF COND LET ; ==> ; (SB-PCL::CLASSP SB-PCL::GENERIC-FUNCTION-CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASSP)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION ; (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS ; SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT) ; --> PROGN COND IF COND LET ; ==> ; (SB-PCL::CLASSP SB-PCL::GENERIC-FUNCTION-CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASSP)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SET-ARG-INFO1 ; (SB-PCL::CLASSP (CAR SB-PCL::SPECLS)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASSP)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S ; FORMAT-ARGUMENTS (1 FUNCTION CLASSP)) ; :ASSIGNED-SLOTS NIL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/boot.lisp ; in: DEFUN SET-ARG-INFO1 ; (COMPUTE-APPLICABLE-METHODS #'SB-MOP:MAKE-METHOD-LAMBDA ; (LIST SB-PCL::GF (SB-MOP:CLASS-PROTOTYPE SB-PCL::METHOD-CLASS) '(LAMBDA) ; NIL)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-APPLICABLE-METHODS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN %CHECK-CNM-ARGS ; (COMPUTE-APPLICABLE-METHODS SB-PCL::GF SB-PCL::CNM-ARGS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-APPLICABLE-METHODS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SET-ARG-INFO1 ; (SB-PCL::COMPUTE-APPLICABLE-METHODS-EMF SB-PCL::GF) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-APPLICABLE-METHODS-EMF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN PARSE-METHOD-OR-SPEC ; (SB-PCL::COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO SB-PCL::GF) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SET-ARG-INFO ; (SB-PCL::COMPUTE-PRECEDENCE SB-PCL::LAMBDA-LIST SB-PCL::NREQ ; SB-PCL::ARGUMENT-PRECEDENCE-ORDER) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-PRECEDENCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--NULL ; (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS ; SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT) ; --> PROGN UNLESS COND IF PROGN IF ; ==> ; (SB-MOP:FINALIZE-INHERITANCE SB-PCL::GENERIC-FUNCTION-CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FINALIZE-INHERITANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION ; (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS ; SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT) ; --> PROGN UNLESS COND IF PROGN IF ; ==> ; (SB-MOP:FINALIZE-INHERITANCE SB-PCL::GENERIC-FUNCTION-CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FINALIZE-INHERITANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN LOAD-DEFMETHOD-INTERNAL ; (FIND-METHOD SB-PCL::GF SB-PCL::QUALIFIERS ; (SB-PCL::PARSE-SPECIALIZERS SB-PCL::SPECIALIZERS) NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-METHOD)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CALL-NO-NEXT-METHOD ; (FIND-METHOD (SB-PCL::GDEFINITION SB-PCL::NAME) SB-PCL::QUALIFIERS ; SB-PCL::SPECIALIZERS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-METHOD)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--NULL ; (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS ; SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT) ; --> PROGN LET UNLESS COND IF PROGN SETF LET* MULTIPLE-VALUE-BIND LET ; ==> ; (SB-MOP:FIND-METHOD-COMBINATION ; (SB-MOP:CLASS-PROTOTYPE SB-PCL::GENERIC-FUNCTION-CLASS) (CAR SB-PCL::COMBIN) ; (CDR SB-PCL::COMBIN)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-METHOD-COMBINATION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION ; (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS ; SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT) ; --> PROGN LET UNLESS COND IF PROGN SETF LET* MULTIPLE-VALUE-BIND LET ; ==> ; (SB-MOP:FIND-METHOD-COMBINATION ; (SB-MOP:CLASS-PROTOTYPE SB-PCL::GENERIC-FUNCTION-CLASS) (CAR SB-PCL::COMBIN) ; (CDR SB-PCL::COMBIN)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-METHOD-COMBINATION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN METHOD-PROTOTYPE-FOR-GF ; (SB-PCL::GENERIC-FUNCTION-P SB-PCL::GF?) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GENERIC-FUNCTION-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN PROTOTYPES-FOR-MAKE-METHOD-LAMBDA ; (SB-PCL::GENERIC-FUNCTION-P SB-PCL::GF?) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GENERIC-FUNCTION-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN LOAD-DEFGENERIC ; (SB-PCL::GENERIC-FUNCTION-P SB-PCL::FUN) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GENERIC-FUNCTION-P)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S ; FORMAT-ARGUMENTS (2 FUNCTION GENERIC-FUNCTION-P)) ; :ASSIGNED-SLOTS NIL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/boot.lisp ; in: DEFUN INITIALIZE-METHOD-FUNCTION ; (SB-PCL::INTERN-PV-TABLE :SLOT-NAME-LISTS SB-PCL::SNL :CALL-LIST SB-PCL::CL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION INTERN-PV-TABLE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-MAKE-A-METHOD ; #'MAKE-INSTANCE ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--NULL ; #'MAKE-INSTANCE ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-METHOD-FUNCTION-INTERNAL ; (SB-PCL::MAKE-METHOD-INITARGS-FORM SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD ; SB-PCL::METHOD-FUNCTION-LAMBDA SB-PCL::INITARGS SB-PCL::ENV) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-METHOD-INITARGS-FORM)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN EXPAND-DEFMETHOD ; (SB-PCL::MAKE-METHOD-INITARGS-FORM SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD ; SB-PCL::METHOD-FUNCTION-LAMBDA SB-PCL::INITARGS SB-PCL::ENV) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-METHOD-INITARGS-FORM)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-MAKE-METHOD-INITARGS-FORM ; (SB-PCL::MAKE-METHOD-INITARGS-FORM-INTERNAL SB-PCL::METHOD-LAMBDA ; SB-PCL::INITARGS SB-PCL::ENV) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-METHOD-INITARGS-FORM-INTERNAL)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SET-ARG-INFO1 ; #'SB-MOP:MAKE-METHOD-LAMBDA ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-METHOD-LAMBDA)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-METHOD-FUNCTION-INTERNAL ; (SB-MOP:MAKE-METHOD-LAMBDA SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD ; SB-PCL::METHOD-LAMBDA SB-PCL::ENV) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-METHOD-LAMBDA)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN EXPAND-DEFMETHOD ; (SB-MOP:MAKE-METHOD-LAMBDA SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD ; SB-PCL::METHOD-LAMBDA SB-PCL::ENV) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-METHOD-LAMBDA)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN PARSE-METHOD-OR-SPEC ; (SB-PCL::METHOD-P SB-PCL::SPEC) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CALL-NO-NEXT-METHOD ; #'NO-NEXT-METHOD ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION NO-NEXT-METHOD)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN WALK-METHOD-LAMBDA ; #'SB-PCL::OPTIMIZE-SET-SLOT-VALUE ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION OPTIMIZE-SET-SLOT-VALUE)) ; :ASSIGNED-SLOTS NIL) ; #'SB-PCL::OPTIMIZE-SLOT-BOUNDP ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION OPTIMIZE-SLOT-BOUNDP)) ; :ASSIGNED-SLOTS NIL) ; #'SB-PCL::OPTIMIZE-SLOT-VALUE ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION OPTIMIZE-SLOT-VALUE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-METHOD ; (SB-PCL::REAL-GET-METHOD GENERIC-FUNCTION SB-PCL::QUALIFIERS ; SB-PCL::SPECIALIZERS SB-PCL::ERRORP) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION REAL-GET-METHOD)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION ; #'REINITIALIZE-INSTANCE ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION REINITIALIZE-INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN !FIX-EARLY-GENERIC-FUNCTIONS ; (SB-PCL::SET-METHODS SB-PCL::GF SB-PCL::METHODS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SET-METHODS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-METHOD-LAMBDA-INTERNAL ; (SB-PCL::SLOT-NAME-LISTS-FROM-SLOTS SB-PCL::SLOTS SB-PCL::CALLS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-NAME-LISTS-FROM-SLOTS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN INVOKE-EMF ; (SB-PCL::SLOT-UNBOUND-INTERNAL (CAR SB-PCL::ARGS) SB-PCL::EMF) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-UNBOUND-INTERNAL)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN UNPARSE-SPECIALIZERS ; (SB-PCL::SPECIALIZERP SB-PCL::SPEC) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SPECIALIZERP)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN PARSE-SPECIALIZERS ; (SB-PCL::SPECIALIZERP SB-PCL::RESULT) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SPECIALIZERP)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GENERIC-FUNCTION-NAME-P ; (SB-PCL::STANDARD-GENERIC-FUNCTION-P (SB-PCL::GDEFINITION SB-PCL::NAME)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STANDARD-GENERIC-FUNCTION-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN REMOVE-METHOD ; (SB-PCL::UPDATE-DFUN GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION UPDATE-DFUN)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN ADD-METHOD ; (SB-PCL::UPDATE-DFUN GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION UPDATE-DFUN)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(CAN-OPTIMIZE-ACCESS CHANGE-CLASS ; CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS-OF ; CLASSP COMPUTE-APPLICABLE-METHODS ; COMPUTE-APPLICABLE-METHODS-EMF ; COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO ; COMPUTE-PRECEDENCE FINALIZE-INHERITANCE ...) ; FUNCTION (ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 58 STYLE-WARNING conditions ; printed 2 notes ; SYS:SRC;PCL;BOOT.FASL.NEWEST written ; compilation finished in 0:00:04 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/vector.lisp" (written 21 DEC 2006 03:17:45 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFMACRO INSTANCE-SLOT-INDEX ...) ; compiling (DEFUN PV-CACHE-LIMIT-FN ...) ; compiling (DEFSTRUCT (PV-TABLE # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE PV-TABLE)) ; compiling (DECLAIM (INLINE MAKE-PV-TABLE)) ; compiling (DEFUN MAKE-PV-TABLE ...) ; compiling (DEFUN MAKE-PV-TABLE-TYPE-DECLARATION ...) ; compiling (DEFVAR *SLOT-NAME-LISTS-INNER* ...) ; compiling (DEFVAR *SLOT-NAME-LISTS-OUTER* ...) ; compiling (DEFVAR *PV-KEY-TO-PV-TABLE-TABLE* ...) ; compiling (DEFUN INTERN-PV-TABLE ...) ; compiling (DEFUN NOTE-PV-TABLE-REFERENCE ...) ; compiling (DEFUN MAP-PV-TABLE-REFERENCES-OF ...) ; compiling (DEFUN OPTIMIZE-SLOT-VALUE-BY-CLASS-P ...) ; compiling (DEFUN COMPUTE-PV-SLOT ...) ; compiling (DEFUN COMPUTE-PV ...) ; compiling (DEFUN COMPUTE-CALLS ...) ; compiling (DEFUN MAKE-PERMUTATION-VECTOR ...) ; compiling (DEFUN PV-TABLE-LOOKUP ...) ; compiling (DEFUN MAKE-PV-TYPE-DECLARATION ...) ; compiling (DEFMACRO PVREF ...) ; compiling (DEFMACRO COPY-PV ...) ; compiling (DEFUN MAKE-CALLS-TYPE-DECLARATION ...) ; compiling (DEFMACRO CALLSREF ...) ; compiling (DEFVAR *PV-TABLE-CACHE-UPDATE-INFO* ...) ; compiling (DEFUN UPDATE-PV-TABLE-CACHE-INFO ...) ; compiling (DEFUN UPDATE-ALL-PV-TABLE-CACHES ...) ; compiling (DEFUN UPDATE-SLOTS-IN-PV ...) ; compiling (DEFUN CAN-OPTIMIZE-ACCESS ...) ; compiling (DEFUN CAN-OPTIMIZE-ACCESS1 ...) ; compiling (DEFUN PARAMETER-MODIFIED-P ...) ; compiling (DEFUN OPTIMIZE-SLOT-VALUE ...) ; compiling (DEFMACRO OPTIMIZED-SLOT-VALUE ...) ; compiling (DEFUN OPTIMIZE-SET-SLOT-VALUE ...) ; compiling (DEFMACRO OPTIMIZED-SET-SLOT-VALUE ...) ; compiling (DEFUN OPTIMIZE-SLOT-BOUNDP ...) ; compiling (DEFMACRO OPTIMIZED-SLOT-BOUNDP ...) ; compiling (DEFUN OPTIMIZE-INSTANCE-ACCESS ...) ; compiling (DEFINE-WALKER-TEMPLATE PV-OFFSET) ; compiling (DEFMACRO PV-OFFSET ...) ; compiling (DEFINE-WALKER-TEMPLATE INSTANCE-ACCESSOR-PARAMETER) ; compiling (DEFMACRO INSTANCE-ACCESSOR-PARAMETER ...) ; compiling (DEFUN GENERATE-FAST-CLASS-SLOT-ACCESS-P ...) ; compiling (DEFUN SKIP-FAST-SLOT-ACCESS-P ...) ; compiling (DEFUN SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P ...) ; compiling (DEFMACRO INSTANCE-READ-INTERNAL ...) ; compiling (DEFMACRO INSTANCE-READ ...) ; compiling (DEFMACRO INSTANCE-WRITE-INTERNAL ...) ; compiling (DEFMACRO INSTANCE-WRITE ...) ; compiling (DEFMACRO INSTANCE-BOUNDP-INTERNAL ...) ; compiling (DEFMACRO INSTANCE-BOUNDP ...) ; compiling (DEFUN SLOT-NAME-LISTS-FROM-SLOTS ...) ; compiling (DEFUN MUTATE-SLOTS-AND-CALLS ...) ; compiling (DEFUN SYMBOL-PKG-NAME ...) ; compiling (DEFUN SYMBOL-LESSP ...) ; compiling (DEFUN SYMBOL-OR-CONS-LESSP ...) ; compiling (DEFUN SORT-SLOTS ...) ; compiling (DEFUN SORT-CALLS ...) ; compiling (DEFMACRO PV-BINDING ...) ; compiling (DEFMACRO PV-BINDING1 ...) ; compiling (DEFINE-SYMBOL-MACRO PV-ENV-ENVIRONMENT ...) ; compiling (DEFMACRO PV-ENV ...) ; compiling (DEFVAR *NON-VAR-DECLARATIONS* ...) ; compiling (DEFVAR *VAR-DECLARATIONS-WITH-ARG* ...) ; compiling (DEFVAR *VAR-DECLARATIONS-WITHOUT-ARG* ...) ; compiling (DEFUN SPLIT-DECLARATIONS ...) ; compiling (DEFUN BODY-METHOD-NAME ...) ; compiling (DEFUN NAME-METHOD-LAMBDA ...) ; compiling (DEFUN MAKE-METHOD-INITARGS-FORM-INTERNAL ...) ; compiling (DEFUN LAMBDA-LIST-PARAMETER-NAMES ...) ; compiling (DEFUN MAKE-METHOD-INITARGS-FORM-INTERNAL1 ...) ; compiling (DEFUN METHOD-FUNCTION-FROM-FAST-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/vector.lisp ; in: DEFUN METHOD-FUNCTION-FROM-FAST-FUNCTION ; (LET* ((SB-MOP:METHOD-FUNCTION NIL) ; (SB-PCL::CALLS (GETF SB-PCL::PLIST :CALL-LIST)) ; (SB-PCL::SNL (GETF SB-PCL::PLIST :SLOT-NAME-LISTS)) ; (SB-PCL::PV-TABLE ; (WHEN (OR SB-PCL::CALLS SB-PCL::SNL) ; (SB-PCL::INTERN-PV-TABLE :CALL-LIST SB-PCL::CALLS :SLOT-NAME-LISTS ; SB-PCL::SNL))) ; (SB-PCL::ARG-INFO (GETF SB-PCL::PLIST :ARG-INFO)) ; (SB-PCL::NREQ (CAR SB-PCL::ARG-INFO)) ; (SB-PCL::RESTP (CDR SB-PCL::ARG-INFO))) ; (SETQ SB-MOP:METHOD-FUNCTION ; (LAMBDA (SB-PCL::METHOD-ARGS SB-PCL::NEXT-METHODS) ; (LET* (# # # #) ; (APPLY SB-PCL::FMF SB-PCL::PV-CELL SB-PCL::NMC ; SB-PCL::METHOD-ARGS)))) ; (LET* ((SB-PCL::FNAME (SB-KERNEL:%FUN-NAME SB-PCL::FMF))) ; (WHEN (AND SB-PCL::FNAME (EQ # 'SB-PCL::FAST-METHOD)) ; (SB-PCL::SET-FUN-NAME SB-MOP:METHOD-FUNCTION ; (CONS 'SB-PCL::SLOW-METHOD #)))) ; SB-MOP:METHOD-FUNCTION) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (NREQ)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (RESTP)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN METHOD-FUNCTION-FROM-FAST-METHOD-CALL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/vector.lisp ; in: DEFUN METHOD-FUNCTION-FROM-FAST-METHOD-CALL ; (LET* ((SB-PCL::FMF (SB-PCL::FAST-METHOD-CALL-FUNCTION SB-PCL::FMC)) ; (SB-PCL::PV-CELL (SB-PCL::FAST-METHOD-CALL-PV-CELL SB-PCL::FMC)) ; (SB-PCL::ARG-INFO (SB-PCL::FAST-METHOD-CALL-ARG-INFO SB-PCL::FMC)) ; (SB-PCL::NREQ (CAR SB-PCL::ARG-INFO)) ; (SB-PCL::RESTP (CDR SB-PCL::ARG-INFO))) ; (LAMBDA (SB-PCL::METHOD-ARGS SB-PCL::NEXT-METHODS) ; (LET* ((SB-PCL::NM #) (SB-PCL::NMS #) (SB-PCL::NMC #)) ; (APPLY SB-PCL::FMF SB-PCL::PV-CELL SB-PCL::NMC SB-PCL::METHOD-ARGS)))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (NREQ)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (RESTP)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN GET-PV-CELL ...) ; compiling (DEFUN PV-TABLE-LOOKUP-PV-ARGS ...) ; compiling (DEFUN PV-WRAPPERS-FROM-PV-ARGS ...) ; compiling (DEFUN PV-WRAPPERS-FROM-ALL-ARGS ...) ; compiling (DEFUN PV-WRAPPERS-FROM-ALL-WRAPPERS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/vector.lisp ; in: DEFUN COMPUTE-PV-SLOT ; (SB-PCL::ACCESSOR-VALUES1 SB-PCL::GF (FIRST SB-PCL::SLOT-NAME) CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ACCESSOR-VALUES1)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN OPTIMIZE-INSTANCE-ACCESS ; (SB-PCL::CLASSP CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASSP)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN COMPUTE-PV ; (SB-PCL::WRAPPER-CLASS* SB-PCL::WRAPPER) ; --> BLOCK OR LET IF OR ; ==> ; (SB-PCL::ENSURE-NON-STANDARD-CLASS ; (SB-KERNEL:CLASSOID-NAME (SB-KERNEL:LAYOUT-CLASSOID SB-PCL::WRAPPER))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ENSURE-NON-STANDARD-CLASS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GENERATE-FAST-CLASS-SLOT-ACCESS-P ; (SB-PCL::FIND-SLOT-DEFINITION CLASS SB-PCL::SLOT-NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-SLOT-DEFINITION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN OPTIMIZE-INSTANCE-ACCESS ; (SB-PCL::FIND-SLOT-DEFINITION CLASS SB-PCL::SLOT-NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-SLOT-DEFINITION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN OPTIMIZE-SLOT-VALUE-BY-CLASS-P ; (SB-PCL::FIND-SLOT-DEFINITION CLASS SB-PCL::SLOT-NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-SLOT-DEFINITION)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S ; FORMAT-ARGUMENTS (2 FUNCTION FIND-SLOT-DEFINITION)) ; :ASSIGNED-SLOTS NIL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/vector.lisp ; in: DEFUN COMPUTE-PV-SLOT ; (SB-PCL::GENERIC-FUNCTION-P SB-PCL::GF) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GENERIC-FUNCTION-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P ; (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::SLOTD TYPE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-ACCESSOR-STD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN OPTIMIZE-SLOT-VALUE-BY-CLASS-P ; (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::SLOTD TYPE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-ACCESSOR-STD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SKIP-FAST-SLOT-ACCESS-P ; (SB-PCL::STANDARD-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STANDARD-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GENERATE-FAST-CLASS-SLOT-ACCESS-P ; (SB-PCL::STANDARD-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STANDARD-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN PV-WRAPPERS-FROM-ALL-ARGS ; (SB-PCL::WRAPPER-OF SB-PCL::ARG) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION WRAPPER-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN PV-WRAPPERS-FROM-PV-ARGS ; (SB-PCL::WRAPPER-OF SB-PCL::ARG) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION WRAPPER-OF)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(CLASSP ENSURE-NON-STANDARD-CLASS FIND-SLOT-DEFINITION ; GENERIC-FUNCTION-P SLOT-ACCESSOR-STD-P ; STANDARD-CLASS-P WRAPPER-OF) ; FUNCTION (ACCESSOR-VALUES1 . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 19 STYLE-WARNING conditions ; SYS:SRC;PCL;VECTOR.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/slots-boot.lisp" (written 19 NOV 2006 04:38:57 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN ENSURE-ACCESSOR ...) ; compiling (DEFMACRO ACCESSOR-SLOT-VALUE ...) ; compiling (DEFMACRO ACCESSOR-SET-SLOT-VALUE ...) ; compiling (DEFMACRO ACCESSOR-SLOT-BOUNDP ...) ; compiling (DEFUN MAKE-STRUCTURE-SLOT-BOUNDP-FUNCTION ...) ; compiling (DEFINE-CONDITION INSTANCE-STRUCTURE-PROTOCOL-ERROR ...) ; compiling (DEFUN INSTANCE-STRUCTURE-PROTOCOL-ERROR ...) ; compiling (DEFUN GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/slots-boot.lisp ; in: DEFUN MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION ; (LAMBDA (SB-KERNEL:INSTANCE) ; (SB-PCL::INSTANCE-STRUCTURE-PROTOCOL-ERROR SB-PCL::SLOTD ; 'SB-MOP:SLOT-VALUE-USING-CLASS)) ; ==> ; #'(LAMBDA (SB-KERNEL:INSTANCE) ; (SB-PCL::INSTANCE-STRUCTURE-PROTOCOL-ERROR SB-PCL::SLOTD ; 'SB-MOP:SLOT-VALUE-USING-CLASS)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/slots-boot.lisp ; in: DEFUN MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION ; (FUNCALL SB-PCL::TYPE-CHECK-FUNCTION SB-PCL::NEW-VALUE) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: #S(SIMPLE-COMPILER-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL ~@ ; FORMAT-ARGUMENTS ; (optimize away possible call to FDEFINITION at runtime ; (The ~:R argument is a ~S, not a ~S. (1 # FUNCTION)))) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/slots-boot.lisp ; in: DEFUN MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION ; (LAMBDA (SB-KERNEL:INSTANCE) ; (SB-PCL::INSTANCE-STRUCTURE-PROTOCOL-ERROR SB-PCL::SLOTD ; 'SB-MOP:SLOT-BOUNDP-USING-CLASS)) ; ==> ; #'(LAMBDA (SB-KERNEL:INSTANCE) ; (SB-PCL::INSTANCE-STRUCTURE-PROTOCOL-ERROR SB-PCL::SLOTD ; 'SB-MOP:SLOT-BOUNDP-USING-CLASS)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN MAKE-OPTIMIZED-STRUCTURE-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-OPTIMIZED-STRUCTURE-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-OPTIMIZED-STRUCTURE-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION ...) ; compiling (DEFUN GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-OPTIMIZED-STD-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-OPTIMIZED-STD-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION ...) ; compiling (DEFUN GET-ACCESSOR-FROM-SVUC-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-STD-READER-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-STD-WRITER-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-STD-BOUNDP-METHOD-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/slots-boot.lisp ; in: DEFUN MAKE-STD-WRITER-METHOD-FUNCTION ; (CLASS-OF SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION ; (CLASS-OF SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION ; (CLASS-OF SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ; (SB-PCL::CONDITION-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CONDITION-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION ; (SB-PCL::CONDITION-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CONDITION-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-STD-WRITER-METHOD-FUNCTION ; (SB-PCL::FIND-SLOT-DEFINITION CLASS SB-PCL::SLOT-NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-SLOT-DEFINITION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION ; (SB-PCL::FIND-SLOT-DEFINITION CLASS SB-PCL::SLOT-NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-SLOT-DEFINITION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ; (SB-PCL::FUNCALLABLE-STANDARD-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FUNCALLABLE-STANDARD-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION ; (SB-PCL::FUNCALLABLE-STANDARD-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FUNCALLABLE-STANDARD-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-STD-WRITER-METHOD-FUNCTION ; (SETF (SLOT-VALUE SB-KERNEL:INSTANCE SB-PCL::SLOT-NAME) SB-PCL::NV) ; ==> ; (SB-PCL::SET-SLOT-VALUE SB-KERNEL:INSTANCE SB-PCL::SLOT-NAME SB-PCL::NV) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SET-SLOT-VALUE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-STD-BOUNDP-METHOD-FUNCTION ; (SLOT-BOUNDP SB-KERNEL:INSTANCE SB-PCL::SLOT-NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-BOUNDP)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ; (SLOT-UNBOUND CLASS SB-KERNEL:INSTANCE SB-PCL::SLOT-NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-UNBOUND)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION ; (SLOT-UNBOUND (CLASS-OF SB-KERNEL:INSTANCE) SB-KERNEL:INSTANCE ; SB-PCL::SLOT-NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-UNBOUND)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-STD-READER-METHOD-FUNCTION ; (SLOT-VALUE SB-KERNEL:INSTANCE SB-PCL::SLOT-NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-VALUE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ; (SB-PCL::STANDARD-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STANDARD-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION ; (SB-PCL::STANDARD-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STANDARD-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; (SB-PCL::STD-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STD-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ; (SB-PCL::STRUCTURE-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STRUCTURE-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION ; (SB-PCL::STRUCTURE-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STRUCTURE-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(CONDITION-CLASS-P FIND-SLOT-DEFINITION ; FUNCALLABLE-STANDARD-CLASS-P SET-SLOT-VALUE ; SLOT-BOUNDP SLOT-UNBOUND SLOT-VALUE STANDARD-CLASS-P ; STD-CLASS-P STRUCTURE-CLASS-P) ; FUNCTION (CLASS-OF . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 22 STYLE-WARNING conditions ; printed 1 note ; SYS:SRC;PCL;SLOTS-BOOT.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/combin.lisp" (written 21 DEC 2006 03:17:41 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN GET-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION ...) ; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION1 ...) ; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUN-TYPE ...) ; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE ...) ; compiling (DEFUN MAKE-EMF-FROM-METHOD ...) ; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1 ...) ; compiling (DEFVAR *GLOBAL-EFFECTIVE-METHOD-GENSYMS* ...) ; compiling (DEFVAR *REBOUND-EFFECTIVE-METHOD-GENSYMS*) ; compiling (DEFUN GET-EFFECTIVE-METHOD-GENSYM ...) ; compiling (LET (#) ...) ; compiling (DEFUN EXPAND-EFFECTIVE-METHOD-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/combin.lisp ; in: DEFUN EXPAND-EFFECTIVE-METHOD-FUNCTION ; (IF SB-PCL::ERROR-P SB-PCL::LL ; '(SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.)) ; ==> ; SB-PCL::LL ; ; note: #S(CODE-DELETION-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS ; NIL) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN EXPAND-EMF-CALL-METHOD ...) ; compiling (DEFMACRO CALL-METHOD ...) ; compiling (DEFUN MAKE-EFFECTIVE-METHOD-LIST-FUN-TYPE ...) ; compiling (DEFUN MEMF-TEST-CONVERTER ...) ; compiling (DEFUN MEMF-CODE-CONVERTER ...) ; compiling (DEFUN MEMF-CONSTANT-CONVERTER ...) ; compiling (DEFVAR *APPLICABLE-METHODS*) ; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL ...) ; compiling (DEFMACRO CALL-METHOD-LIST ...) ; compiling (DEFUN MAKE-CALL-METHODS ...) ; compiling (DEFUN GF-REQUIRES-EMF-KEYWORD-CHECKS ...) ; compiling (DEFVAR *IN-PRECOMPUTE-EFFECTIVE-METHODS-P* ...) ; compiling (DEFUN STANDARD-COMPUTE-EFFECTIVE-METHOD ...) ; compiling (DEFUN COMPUTE-APPLICABLE-KEYWORDS ...) ; compiling (DEFUN CHECK-APPLICABLE-KEYWORDS ...) ; compiling (DEFUN COMPUTE-EFFECTIVE-METHOD ...) ; compiling (DEFUN INVALID-METHOD-ERROR ...) ; compiling (DEFUN METHOD-COMBINATION-ERROR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/combin.lisp ; in: DEFUN COMPUTE-APPLICABLE-KEYWORDS ; (SB-MOP:GENERIC-FUNCTION-LAMBDA-LIST SB-PCL::GF) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GENERIC-FUNCTION-LAMBDA-LIST)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE ; (SB-PCL::GF-FAST-METHOD-FUNCTION-P GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GF-FAST-METHOD-FUNCTION-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN STANDARD-COMPUTE-EFFECTIVE-METHOD ; (SB-PCL::INVALID-QUALIFIERS SB-PCL::GF SB-PCL::COMBIN SB-PCL::M) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION INVALID-QUALIFIERS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN EXPAND-EFFECTIVE-METHOD-FUNCTION ; (SB-PCL::LONG-METHOD-COMBINATION-P SB-PCL::COMBIN) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION LONG-METHOD-COMBINATION-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-EMF-FROM-METHOD ; (MAKE-INSTANCE 'STANDARD-METHOD :SPECIALIZERS NIL :QUALIFIERS NIL :FUNCTION ; (SB-PCL::METHOD-CALL-FUNCTION SB-PCL::EMF)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1 ; (SB-PCL::METHOD-P METHOD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-EMF-FROM-METHOD ; (SB-PCL::METHOD-P SB-PCL::ARG) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-EFFECTIVE-METHOD-FUN-TYPE ; (SB-PCL::METHOD-P METHOD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(GF-FAST-METHOD-FUNCTION-P INVALID-QUALIFIERS ; LONG-METHOD-COMBINATION-P MAKE-INSTANCE METHOD-P) ; FUNCTION (GENERIC-FUNCTION-LAMBDA-LIST . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; printed 1 note ; SYS:SRC;PCL;COMBIN.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dfun.lisp" (written 21 DEC 2006 03:17:41 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFVAR *DFUN-CONSTRUCTORS* ...) ; compiling (DEFVAR *ENABLE-DFUN-CONSTRUCTOR-CACHING* ...) ; compiling (DEFUN SHOW-DFUN-CONSTRUCTORS ...) ; compiling (DEFVAR *RAISE-METATYPES-TO-CLASS-P* ...) ; compiling (DEFUN GET-DFUN-CONSTRUCTOR ...) ; compiling (DEFUN LOAD-PRECOMPILED-DFUN-CONSTRUCTOR ...) ; compiling (DEFMACRO PRECOMPILE-DFUN-CONSTRUCTORS ...) ; compiling (DEFVAR *STANDARD-CLASSES* ...) ; compiling (DEFVAR *STANDARD-SLOT-LOCATIONS* ...) ; compiling (DEFUN COMPUTE-STANDARD-SLOT-LOCATIONS ...) ; compiling (DEFUN MAYBE-UPDATE-STANDARD-CLASS-LOCATIONS ...) ; compiling (DEFUN STANDARD-SLOT-VALUE ...) ; compiling (DEFUN STANDARD-SLOT-VALUE/GF ...) ; compiling (DEFUN STANDARD-SLOT-VALUE/METHOD ...) ; compiling (DEFUN STANDARD-SLOT-VALUE/ESLOTD ...) ; compiling (DEFUN STANDARD-SLOT-VALUE/CLASS ...) ; compiling (DEFSTRUCT (DFUN-INFO # ...) ...) ; compiling (DEFSTRUCT (NO-METHODS # ...)) ; compiling (DEFSTRUCT (INITIAL # ...)) ; compiling (DEFSTRUCT (INITIAL-DISPATCH # ...)) ; compiling (DEFSTRUCT (DISPATCH # ...)) ; compiling (DEFSTRUCT (DEFAULT-METHOD-ONLY # ...)) ; compiling (DEFSTRUCT (ACCESSOR-DFUN-INFO # ...) ...) ; compiling (DEFMACRO DFUN-INFO-ACCESSOR-TYPE ...) ; compiling (DEFSTRUCT (ONE-INDEX-DFUN-INFO # ...) ...) ; compiling (DEFMACRO DFUN-INFO-INDEX ...) ; compiling (DEFSTRUCT (N-N # ...)) ; compiling (DEFSTRUCT (ONE-CLASS # ...) ...) ; compiling (DEFMACRO DFUN-INFO-WRAPPER0 ...) ; compiling (DEFSTRUCT (TWO-CLASS # ...) ...) ; compiling (DEFMACRO DFUN-INFO-WRAPPER1 ...) ; compiling (DEFSTRUCT (ONE-INDEX # ...)) ; compiling (DEFSTRUCT (CHECKING # ...) ...) ; compiling (DEFMACRO DFUN-INFO-FUNCTION ...) ; compiling (DEFSTRUCT (CACHING # ...)) ; compiling (DEFSTRUCT (CONSTANT-VALUE # ...)) ; compiling (DEFMACRO DFUN-UPDATE ...) ; compiling (DEFUN ACCESSOR-MISS-FUNCTION ...) ; compiling (DECLAIM (FREEZE-TYPE DFUN-INFO)) ; compiling (DEFUN MAKE-ONE-CLASS-ACCESSOR-DFUN ...) ; compiling (DEFUN MAKE-TWO-CLASS-ACCESSOR-DFUN ...) ; compiling (DEFUN MAKE-ONE-INDEX-ACCESSOR-DFUN ...) ; compiling (DEFUN MAKE-FINAL-ONE-INDEX-ACCESSOR-DFUN ...) ; compiling (DEFUN ONE-INDEX-LIMIT-FN ...) ; compiling (DEFUN MAKE-N-N-ACCESSOR-DFUN ...) ; compiling (DEFUN MAKE-FINAL-N-N-ACCESSOR-DFUN ...) ; compiling (DEFUN N-N-ACCESSORS-LIMIT-FN ...) ; compiling (DEFUN MAKE-CHECKING-DFUN ...) ; compiling (DEFUN MAKE-FINAL-CHECKING-DFUN ...) ; compiling (DEFUN USE-DEFAULT-METHOD-ONLY-DFUN-P ...) ; compiling (DEFUN USE-CACHING-DFUN-P ...) ; compiling (DEFUN CHECKING-LIMIT-FN ...) ; compiling (DEFUN MAKE-CACHING-DFUN ...) ; compiling (DEFUN MAKE-FINAL-CACHING-DFUN ...) ; compiling (DEFUN CACHING-LIMIT-FN ...) ; compiling (DEFUN INSURE-CACHING-DFUN ...) ; compiling (DEFUN USE-CONSTANT-VALUE-DFUN-P ...) ; compiling (DEFUN MAKE-CONSTANT-VALUE-DFUN ...) ; compiling (DEFUN MAKE-FINAL-CONSTANT-VALUE-DFUN ...) ; compiling (DEFUN USE-DISPATCH-DFUN-P ...) ; compiling (DEFPARAMETER *NON-BUILT-IN-TYPEP-COST* ...) ; compiling (DEFPARAMETER *STRUCTURE-TYPEP-COST* ...) ; compiling (DEFPARAMETER *BUILT-IN-TYPEP-COST* ...) ; compiling (DEFUN DISPATCH-DFUN-COST ...) ; compiling (DEFPARAMETER *CACHE-LOOKUP-COST* ...) ; compiling (DEFPARAMETER *WRAPPER-OF-COST* ...) ; compiling (DEFPARAMETER *SECONDARY-DFUN-CALL-COST* ...) ; compiling (DEFUN CACHING-DFUN-COST ...) ; compiling (DECLAIM (INLINE MAKE-CALLABLE)) ; compiling (DEFUN MAKE-CALLABLE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dfun.lisp ; in: DEFUN MAKE-CALLABLE ; (DEFUN SB-PCL::MAKE-CALLABLE ; (SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR SB-PCL::METHOD-ALIST ; SB-PCL::WRAPPERS) ; (LET* ((SB-PCL::*APPLICABLE-METHODS* SB-PCL::METHODS) ; (SB-KERNEL:CALLABLE ; (SB-PCL::FUNCTION-FUNCALL SB-PCL::GENERATOR SB-PCL::METHOD-ALIST ; SB-PCL::WRAPPERS))) ; SB-KERNEL:CALLABLE)) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-PCL::MAKE-CALLABLE ; (SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR ; SB-PCL::METHOD-ALIST SB-PCL::WRAPPERS) ; (BLOCK SB-PCL::MAKE-CALLABLE ; (LET* ((SB-PCL::*APPLICABLE-METHODS* ; SB-PCL::METHODS) ; (SB-KERNEL:CALLABLE #)) ; SB-KERNEL:CALLABLE))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (GF)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN MAKE-DISPATCH-DFUN ...) ; compiling (DEFUN GET-DISPATCH-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dfun.lisp ; in: DEFUN GET-DISPATCH-FUNCTION ; (SB-PCL::MAKE-CALLABLE SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR NIL NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (GF)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN MAKE-FINAL-DISPATCH-DFUN ...) ; compiling (DEFUN UPDATE-DISPATCH-DFUNS ...) ; compiling (DEFUN FILL-DFUN-CACHE ...) ; compiling (DEFUN MAKE-FINAL-ORDINARY-DFUN-INTERNAL ...) ; compiling (DEFVAR *DFUN-MISS-GFS-ON-STACK* ...) ; compiling (DEFMACRO DFUN-MISS ...) ; compiling (DEFVAR *LAZY-DFUN-COMPUTE-P* ...) ; compiling (DEFVAR *EARLY-P* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *MAX-EMF-PRECOMPUTATION-METHODS* ...) ; compiling (DEFUN FINALIZE-SPECIALIZERS ...) ; compiling (DEFUN MAKE-INITIAL-DFUN ...) ; compiling (DEFUN MAKE-EARLY-ACCESSOR ...) ; compiling (DEFUN INITIAL-DFUN ...) ; compiling (DEFUN MAKE-FINAL-DFUN ...) ; compiling (DEFVAR *NEW-CLASS* ...) ; compiling (DEFUN FINAL-ACCESSOR-DFUN-TYPE ...) ; compiling (DEFUN MAKE-FINAL-ACCESSOR-DFUN ...) ; compiling (DEFUN MAKE-FINAL-DFUN-INTERNAL ...) ; compiling (DEFUN ACCESSOR-MISS ...) ; compiling (DEFUN CHECKING-MISS ...) ; compiling (DEFUN CACHING-MISS ...) ; compiling (DEFUN CONSTANT-VALUE-MISS ...) ; compiling (DEFVAR *CACHE-MISS-VALUES-STACK* ...) ; compiling (DEFUN CACHE-MISS-VALUES ...) ; compiling (DEFUN CACHE-MISS-VALUES-INTERNAL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dfun.lisp ; in: DEFUN CACHE-MISS-VALUES-INTERNAL ; (SB-PCL::MAKE-CALLABLE SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR NIL ; (AND SB-PCL::FOR-CACHE-P SB-PCL::WRAPPERS)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (GF)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN BREAK-VICIOUS-METACIRCLE ...) ; compiling (DEFUN ACCESSES-STANDARD-CLASS-SLOT-P ...) ; compiling (DEFUN FIND-STANDARD-CLASS-ACCESSOR-METHOD ...) ; compiling (DEFUN ACCESSOR-VALUES ...) ; compiling (DEFUN ACCESSOR-VALUES1 ...) ; compiling (DEFUN ACCESSOR-VALUES-INTERNAL ...) ; compiling (DEFUN MAKE-ACCESSOR-TABLE ...) ; compiling (DEFUN COMPUTE-APPLICABLE-METHODS-USING-TYPES ...) ; compiling (DEFUN SORT-APPLICABLE-METHODS ...) ; compiling (DEFUN SORT-METHODS ...) ; compiling (DEFUN ORDER-SPECIALIZERS ...) ; compiling (DEFUN MAP-ALL-ORDERS ...) ; compiling (DEFUN CLASS-MIGHT-PRECEDE-P ...) ; compiling (DEFUN COMPUTE-PRECEDENCE ...) ; compiling (DEFUN CPL-OR-NIL ...) ; compiling (DEFUN SAUT-AND ...) ; compiling (DEFUN SAUT-NOT ...) ; compiling (DEFUN SAUT-NOT-CLASS ...) ; compiling (DEFUN SAUT-NOT-PROTOTYPE ...) ; compiling (DEFUN SAUT-NOT-CLASS-EQ ...) ; compiling (DEFUN SAUT-NOT-EQL ...) ; compiling (DEFUN CLASS-APPLICABLE-USING-CLASS-P ...) ; compiling (DEFUN CLASSES-HAVE-COMMON-SUBCLASS-P ...) ; compiling (DEFUN SAUT-CLASS ...) ; compiling (DEFUN SAUT-CLASS-EQ ...) ; compiling (DEFUN SAUT-PROTOTYPE ...) ; compiling (DEFUN SAUT-EQL ...) ; compiling (DEFUN SPECIALIZER-APPLICABLE-USING-TYPE-P ...) ; compiling (DEFUN MAP-ALL-CLASSES ...) ; compiling (DEFVAR *EFFECTIVE-METHOD-CACHE* ...) ; compiling (DEFUN FLUSH-EFFECTIVE-METHOD-CACHE ...) ; compiling (DEFUN GET-SECONDARY-DISPATCH-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dfun.lisp ; in: DEFUN GET-SECONDARY-DISPATCH-FUNCTION ; (SB-PCL::MAKE-CALLABLE SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR ; SB-PCL::METHOD-ALIST SB-PCL::WRAPPERS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (GF)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN GET-SECONDARY-DISPATCH-FUNCTION1 ...) ; compiling (DEFUN GET-SECONDARY-DISPATCH-FUNCTION2 ...) ; compiling (DEFUN GET-EFFECTIVE-METHOD-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dfun.lisp ; in: DEFUN GET-EFFECTIVE-METHOD-FUNCTION ; (SB-PCL::MAKE-CALLABLE SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR ; SB-PCL::METHOD-ALIST SB-PCL::WRAPPERS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (GF)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN GET-EFFECTIVE-METHOD-FUNCTION1 ...) ; compiling (DEFUN METHODS-CONTAIN-EQL-SPECIALIZER-P ...) ; compiling (DEFUN UPDATE-DFUN ...) ; compiling (DEFVAR *DFUN-COUNT* ...) ; compiling (DEFVAR *DFUN-LIST* ...) ; compiling (DEFVAR *MINIMUM-CACHE-SIZE-TO-LIST*) ; compiling (DEFUN GFS-OF-TYPE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dfun.lisp ; in: DEFUN ACCESSOR-VALUES-INTERNAL ; (SB-PCL::ACCESSOR-METHOD-P SB-PCL::METH) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ACCESSOR-METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CLASS-MIGHT-PRECEDE-P ; (SB-PCL::CLASS-CAN-PRECEDE-P SB-PCL::CLASS1 SB-PCL::CLASS2) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-CAN-PRECEDE-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CPL-OR-NIL ; (SB-PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN FINALIZE-SPECIALIZERS ; (SB-PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P SB-MOP:SPECIALIZER) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SAUT-NOT-PROTOTYPE ; (CLASS-OF (CADR SB-PCL::SPECL)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-EARLY-ACCESSOR ; (CLASS-OF SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN DISPATCH-DFUN-COST ; (CLASS-OF (CADR TYPE)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S ; FORMAT-ARGUMENTS (3 FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dfun.lisp ; in: DEFUN FINALIZE-SPECIALIZERS ; (SB-PCL::CLASSP SB-MOP:SPECIALIZER) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASSP)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-INITIAL-DFUN ; (SB-PCL::COMPUTE-APPLICABLE-METHODS-EMF-STD-P SB-PCL::GF) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-APPLICABLE-METHODS-EMF-STD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN USE-CONSTANT-VALUE-DFUN-P ; (SB-PCL::COMPUTE-APPLICABLE-METHODS-EMF-STD-P SB-PCL::GF) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-APPLICABLE-METHODS-EMF-STD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CACHE-MISS-VALUES-INTERNAL ; (SB-MOP:COMPUTE-APPLICABLE-METHODS-USING-CLASSES SB-PCL::GF SB-PCL::CLASSES) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-APPLICABLE-METHODS-USING-CLASSES)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN UPDATE-DFUN ; (SB-MOP:COMPUTE-DISCRIMINATING-FUNCTION GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-DISCRIMINATING-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-SECONDARY-DISPATCH-FUNCTION2 ; (SB-PCL::COMPUTE-SECONDARY-DISPATCH-FUNCTION1 SB-PCL::GF SB-PCL::NET ; SB-PCL::FUNCTION-P) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-SECONDARY-DISPATCH-FUNCTION1)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CACHE-MISS-VALUES-INTERNAL => DEFAULT-SECONDARY-DISPATCH-FUNCTION GF ; (SB-PCL::DEFAULT-SECONDARY-DISPATCH-FUNCTION SB-PCL::GF) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION DEFAULT-SECONDARY-DISPATCH-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CACHE-MISS-VALUES ; (SB-PCL::WITH-DFUN-WRAPPERS (SB-PCL::ARGS SB-PCL::METATYPES) ; (SB-PCL::DFUN-WRAPPERS SB-PCL::INVALID-WRAPPER-P ; SB-PCL::WRAPPERS SB-PCL::CLASSES SB-PCL::TYPES) ; (SB-PCL::ERROR-NEED-AT-LEAST-N-ARGS SB-PCL::GF ; (LENGTH SB-PCL::METATYPES)) ; (MULTIPLE-VALUE-BIND ; (SB-PCL::EMF SB-PCL::METHODS ; SB-PCL::ACCESSOR-TYPE SB-INT:INDEX) ; (SB-PCL::CACHE-MISS-VALUES-INTERNAL ; SB-PCL::GF SB-PCL::ARG-INFO SB-PCL::WRAPPERS ; SB-PCL::CLASSES SB-PCL::TYPES SB-PCL::STATE) ; (VALUES SB-PCL::EMF SB-PCL::METHODS ; SB-PCL::DFUN-WRAPPERS ; SB-PCL::INVALID-WRAPPER-P ; SB-PCL::ACCESSOR-TYPE SB-INT:INDEX))) ; --> LET* DOLIST BLOCK LET TAGBODY UNLESS COND IF PROGN LET TAGBODY LET* ; --> UNLESS COND IF PROGN SETQ THE SB-PCL::WRAPPER-CLASS* BLOCK OR LET IF OR ; ==> ; (SB-PCL::ENSURE-NON-STANDARD-CLASS ; (SB-KERNEL:CLASSOID-NAME (SB-KERNEL:LAYOUT-CLASSOID SB-PCL::WRAPPER))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ENSURE-NON-STANDARD-CLASS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN METHODS-CONTAIN-EQL-SPECIALIZER-P ; (SB-PCL::EQL-SPECIALIZER-P SB-PCL::SPEC) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION EQL-SPECIALIZER-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN USE-CONSTANT-VALUE-DFUN-P ; #'SB-PCL::EQL-SPECIALIZER-P ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION EQL-SPECIALIZER-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CACHE-MISS-VALUES ; (SB-PCL::ERROR-NEED-AT-LEAST-N-ARGS SB-PCL::GF (LENGTH SB-PCL::METATYPES)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ERROR-NEED-AT-LEAST-N-ARGS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CPL-OR-NIL ; (SB-MOP:FINALIZE-INHERITANCE CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FINALIZE-INHERITANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN FINALIZE-SPECIALIZERS ; (SB-MOP:FINALIZE-INHERITANCE SB-MOP:SPECIALIZER) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FINALIZE-INHERITANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN ACCESSOR-VALUES-INTERNAL ; (SB-PCL::FIND-SLOT-DEFINITION SB-PCL::ACCESSOR-CLASS SB-PCL::SLOT-NAME) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-SLOT-DEFINITION)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN STANDARD-SLOT-VALUE ; (SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS SB-PCL::OBJECT SB-PCL::LOCATION) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FUNCALLABLE-STANDARD-INSTANCE-ACCESS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-SECONDARY-DISPATCH-FUNCTION2 ; (SB-PCL::GENERATE-DISCRIMINATION-NET SB-PCL::GF SB-PCL::METHODS SB-PCL::TYPES ; SB-PCL::ALL-SORTED-P) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GENERATE-DISCRIMINATION-NET)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN DISPATCH-DFUN-COST ; (SB-PCL::GENERATE-DISCRIMINATION-NET-INTERNAL SB-PCL::GF ; (SB-MOP:GENERIC-FUNCTION-METHODS SB-PCL::GF) NIL ; (LAMBDA (SB-PCL::METHODS SB-PCL::KNOWN-TYPES) ; (DECLARE (IGNORE SB-PCL::METHODS SB-PCL::KNOWN-TYPES)) ; 0) ; (LAMBDA (POSITION TYPE SB-PCL::TRUE-VALUE SB-PCL::FALSE-VALUE) ; (DECLARE (IGNORE POSITION)) ; (LET* ((SB-PCL::TYPE-TEST-COST #) (SB-PCL::MAX-COST-SO-FAR #)) ; (WHEN (AND SB-PCL::LIMIT #) ; (RETURN-FROM SB-PCL::DISPATCH-DFUN-COST SB-PCL::MAX-COST-SO-FAR)) ; SB-PCL::MAX-COST-SO-FAR)) ; #'IDENTITY) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GENERATE-DISCRIMINATION-NET-INTERNAL)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN FINAL-ACCESSOR-DFUN-TYPE ; (SB-PCL::GLOBAL-BOUNDP-METHOD-P METHOD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GLOBAL-BOUNDP-METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; (SB-PCL::GLOBAL-READER-METHOD-P METHOD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GLOBAL-READER-METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; (SB-PCL::GLOBAL-WRITER-METHOD-P METHOD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GLOBAL-WRITER-METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-FINAL-ORDINARY-DFUN-INTERNAL ; (SB-PCL::MAKE-EMF-CACHE GENERIC-FUNCTION SB-PCL::VALUEP SB-PCL::CACHE ; SB-PCL::CLASSES-LIST SB-PCL::NEW-CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-EMF-CACHE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GFS-OF-TYPE ; (SB-PCL::MAP-ALL-GENERIC-FUNCTIONS ; (LAMBDA (SB-PCL::GF) ; (WHEN (SB-INT:MEMQ (TYPE-OF #) TYPE) (PUSH SB-PCL::GF SB-PCL::GF-LIST)))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAP-ALL-GENERIC-FUNCTIONS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN GET-SECONDARY-DISPATCH-FUNCTION1 ; #'NO-APPLICABLE-METHOD ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION NO-APPLICABLE-METHOD)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-FINAL-DFUN-INTERNAL ; #'NO-APPLICABLE-METHOD ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION NO-APPLICABLE-METHOD)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-INITIAL-DFUN ; (SB-PCL::PRECOMPUTE-EFFECTIVE-METHODS SB-PCL::GF SB-PCL::CACHING-P ; (NOT SB-PCL::*LAZY-DFUN-COMPUTE-P*)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION PRECOMPUTE-EFFECTIVE-METHODS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN MAKE-ACCESSOR-TABLE ; (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::SLOTD TYPE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-ACCESSOR-STD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN ACCESSOR-VALUES-INTERNAL ; (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::SLOTD SB-PCL::ACCESSOR-TYPE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-ACCESSOR-STD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN FINAL-ACCESSOR-DFUN-TYPE ; (SB-PCL::STANDARD-BOUNDP-METHOD-P METHOD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STANDARD-BOUNDP-METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN STANDARD-SLOT-VALUE ; (SB-MOP:STANDARD-INSTANCE-ACCESS SB-PCL::OBJECT SB-PCL::LOCATION) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STANDARD-INSTANCE-ACCESS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN FINAL-ACCESSOR-DFUN-TYPE ; (SB-PCL::STANDARD-READER-METHOD-P METHOD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STANDARD-READER-METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; (SB-PCL::STANDARD-WRITER-METHOD-P METHOD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STANDARD-WRITER-METHOD-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CLASS-APPLICABLE-USING-CLASS-P ; (SB-PCL::SUPERCLASSES-COMPATIBLE-P SB-PCL::SPECL TYPE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SUPERCLASSES-COMPATIBLE-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CACHE-MISS-VALUES ; (SB-PCL::WITH-DFUN-WRAPPERS (SB-PCL::ARGS SB-PCL::METATYPES) ; (SB-PCL::DFUN-WRAPPERS SB-PCL::INVALID-WRAPPER-P ; SB-PCL::WRAPPERS SB-PCL::CLASSES SB-PCL::TYPES) ; (SB-PCL::ERROR-NEED-AT-LEAST-N-ARGS SB-PCL::GF ; (LENGTH SB-PCL::METATYPES)) ; (MULTIPLE-VALUE-BIND ; (SB-PCL::EMF SB-PCL::METHODS ; SB-PCL::ACCESSOR-TYPE SB-INT:INDEX) ; (SB-PCL::CACHE-MISS-VALUES-INTERNAL ; SB-PCL::GF SB-PCL::ARG-INFO SB-PCL::WRAPPERS ; SB-PCL::CLASSES SB-PCL::TYPES SB-PCL::STATE) ; (VALUES SB-PCL::EMF SB-PCL::METHODS ; SB-PCL::DFUN-WRAPPERS ; SB-PCL::INVALID-WRAPPER-P ; SB-PCL::ACCESSOR-TYPE SB-INT:INDEX))) ; --> LET* DOLIST BLOCK LET TAGBODY UNLESS COND IF PROGN LET TAGBODY LET* ; --> UNLESS COND IF PROGN SETQ THE ; ==> ; (SB-PCL::WRAPPER-OF SB-PCL::ARG) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION WRAPPER-OF)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(CLASS-CAN-PRECEDE-P ; CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS-OF ; CLASSP COMPUTE-APPLICABLE-METHODS-EMF-STD-P ; COMPUTE-APPLICABLE-METHODS-USING-CLASSES ; COMPUTE-DISCRIMINATING-FUNCTION ; COMPUTE-SECONDARY-DISPATCH-FUNCTION1 ; DEFAULT-SECONDARY-DISPATCH-FUNCTION ; ENSURE-NON-STANDARD-CLASS ...) ; FUNCTION (ACCESSOR-METHOD-P . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 47 STYLE-WARNING conditions ; SYS:SRC;PCL;DFUN.FASL.NEWEST written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/ctor.lisp" (written 07 NOV 2006 10:22:16 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN QUOTE-PLIST-KEYS ...) ; compiling (DEFUN PLIST-KEYS ...) ; compiling (DEFUN PLIST-VALUES ...) ; compiling (DEFUN CONSTANT-SYMBOL-P ...) ; compiling (DEFUN CTOR-DEFAULT-INITKEYS ...) ; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS CTOR ...) ; compiling (DEFVAR *ALL-CTORS* ...) ; compiling (DEFUN MAKE-CTOR-PARAMETER-LIST ...) ; compiling (DEFUN INSTALL-INITIAL-CONSTRUCTOR ...) ; compiling (DEFUN MAKE-CTOR-FUNCTION-NAME ...) ; compiling (DEFUN ENSURE-CTOR ...) ; compiling (DEFUN MAKE-CTOR ...) ; compiling (DEFINE-COMPILER-MACRO MAKE-INSTANCE ...) ; compiling (DEFUN MAKE-INSTANCE->CONSTRUCTOR-CALL ...) ; compiling (DEFVAR *THE-SYSTEM-II-METHOD* ...) ; compiling (DEFVAR *THE-SYSTEM-SI-METHOD* ...) ; compiling (DEFUN INSTALL-OPTIMIZED-CONSTRUCTOR ...) ; compiling (DEFUN CONSTRUCTOR-FUNCTION-FORM ...) ; compiling (DEFUN AROUND-OR-NONSTANDARD-PRIMARY-METHOD-P ...) ; compiling (DEFUN FALLBACK-GENERATOR ...) ; compiling (DEFUN OPTIMIZING-GENERATOR ...) ; compiling (DEFUN WRAP-IN-ALLOCATE-FORMS ...) ; compiling (DEFMACRO INVOKE-METHOD ...) ; compiling (DEFUN FAKE-INITIALIZATION-EMF ...) ; compiling (DEFUN STANDARD-SORT-METHODS ...) ; compiling (DEFMACRO WITH-TYPE-CHECKED ...) ; compiling (DEFUN SLOT-INIT-FORMS ...) ; compiling (DEFUN COMPUTE-INITARG-LOCATIONS ...) ; compiling (DEFUN UPDATE-CTORS ...) ; compiling (DEFUN PRECOMPILE-CTORS ...) ; compiling (DEFUN CHECK-RI-INITARGS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/ctor.lisp ; in: DEFUN CONSTRUCTOR-FUNCTION-FORM ; #'(SETF SB-MOP:SLOT-VALUE-USING-CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION (SETF SLOT-VALUE-USING-CLASS))) ; :ASSIGNED-SLOTS NIL) ; #'ALLOCATE-INSTANCE ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ALLOCATE-INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CHECK-RI-INITARGS ; (SB-PCL::CHECK-INITARGS-1 CLASS SB-PCL::INITARGS ; (LIST (LIST* 'REINITIALIZE-INSTANCE SB-KERNEL:INSTANCE SB-PCL::INITARGS) ; (LIST* 'SHARED-INITIALIZE SB-KERNEL:INSTANCE NIL SB-PCL::INITARGS)) ; T NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CHECK-INITARGS-1)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CONSTRUCTOR-FUNCTION-FORM ; (SB-PCL::CHECK-INITARGS-1 CLASS ; (APPEND ; (SB-PCL::CTOR-DEFAULT-INITKEYS (SB-PCL::CTOR-INITARGS SB-PCL::CTOR) ; (SB-MOP:CLASS-DEFAULT-INITARGS CLASS)) ; (SB-PCL::PLIST-KEYS (SB-PCL::CTOR-INITARGS SB-PCL::CTOR))) ; (APPEND SB-PCL::II-METHODS SB-PCL::SI-METHODS) NIL NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CHECK-INITARGS-1)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN SLOT-INIT-FORMS => DEFAULT-INITARGS (CLASS-DEFAULT-INITARGS CLASS) ; (SB-MOP:CLASS-DEFAULT-INITARGS CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-DEFAULT-INITARGS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CONSTRUCTOR-FUNCTION-FORM ; (SB-MOP:CLASS-DEFAULT-INITARGS CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-DEFAULT-INITARGS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CHECK-RI-INITARGS ; (CLASS-OF SB-KERNEL:INSTANCE) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CLASS-OF)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CONSTRUCTOR-FUNCTION-FORM ; (COMPUTE-APPLICABLE-METHODS #'SB-MOP:SLOT-BOUNDP-USING-CLASS ; (LIST CLASS SB-PCL::PROTO SB-PCL::SLOT)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION COMPUTE-APPLICABLE-METHODS)) ; :ASSIGNED-SLOTS NIL) ; (SB-PCL::CONDITION-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION CONDITION-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN INSTALL-OPTIMIZED-CONSTRUCTOR ; (SB-MOP:FINALIZE-INHERITANCE CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FINALIZE-INHERITANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CONSTRUCTOR-FUNCTION-FORM ; (FIND-METHOD #'SHARED-INITIALIZE NIL ; (LIST SB-PCL::*THE-CLASS-SLOT-OBJECT* SB-PCL::*THE-CLASS-T*)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-METHOD)) ; :ASSIGNED-SLOTS NIL) ; #'INITIALIZE-INSTANCE ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION INITIALIZE-INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; #'MAKE-INSTANCE ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION MAKE-INSTANCE)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN WRAP-IN-ALLOCATE-FORMS ; (SB-PCL::RAW-INSTANCE-ALLOCATOR CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION RAW-INSTANCE-ALLOCATOR)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CONSTRUCTOR-FUNCTION-FORM ; #'SHARED-INITIALIZE ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SHARED-INITIALIZE)) ; :ASSIGNED-SLOTS NIL) ; #'SB-MOP:SLOT-BOUNDP-USING-CLASS ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-BOUNDP-USING-CLASS)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN WRAP-IN-ALLOCATE-FORMS ; (SB-PCL::SLOTS-FETCHER CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOTS-FETCHER)) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN CONSTRUCTOR-FUNCTION-FORM ; (SB-PCL::STRUCTURE-CLASS-P CLASS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION STRUCTURE-CLASS-P)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(ALLOCATE-INSTANCE CHECK-INITARGS-1 ; CLASS-DEFAULT-INITARGS CLASS-OF ; COMPUTE-APPLICABLE-METHODS CONDITION-CLASS-P ; FINALIZE-INHERITANCE FIND-METHOD INITIALIZE-INSTANCE ; MAKE-INSTANCE ...) ; FUNCTION ((SETF SLOT-VALUE-USING-CLASS) . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 19 STYLE-WARNING conditions ; SYS:SRC;PCL;CTOR.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/braid.lisp" (written 21 DEC 2006 03:17:39 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN ALLOCATE-STANDARD-INSTANCE ...) ; compiling (DEFMACRO ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE-SLOTS ...) ; compiling (DEFINE-CONDITION UNSET-FUNCALLABLE-INSTANCE-FUNCTION ...) ; compiling (DEFUN ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE ...) ; compiling (DEFUN ALLOCATE-STRUCTURE-INSTANCE ...) ; compiling (DEFMACRO !INITIAL-CLASSES-AND-WRAPPERS ...) ; compiling (DEFUN !BOOTSTRAP-META-BRAID ...) ; compiling (DEFUN !BOOTSTRAP-INITIALIZE-CLASS ...) ; compiling (DEFUN !BOOTSTRAP-MAKE-SLOT-DEFINITIONS ...) ; compiling (DEFUN !BOOTSTRAP-MAKE-SLOT-DEFINITION ...) ; compiling (DEFUN !BOOTSTRAP-ACCESSOR-DEFINITIONS ...) ; compiling (DEFUN !BOOTSTRAP-ACCESSOR-DEFINITION ...) ; compiling (DEFUN !BOOTSTRAP-ACCESSOR-DEFINITIONS1 ...) ; compiling (DEFUN !BOOTSTRAP-CLASS-PREDICATES ...) ; compiling (DEFUN !BOOTSTRAP-BUILT-IN-CLASSES ...) ; compiling (DECLAIM (INLINE WRAPPER-OF)) ; compiling (DEFUN WRAPPER-OF ...) ; compiling (DEFUN CLASS-OF ...) ; compiling (DEFUN EVAL-FORM ...) ; compiling (DEFUN ENSURE-NON-STANDARD-CLASS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/braid.lisp ; in: DEFUN ENSURE-NON-STANDARD-CLASS ; (SB-MOP:ENSURE-CLASS-USING-CLASS SB-PCL::EXISTING-CLASS SB-PCL::NAME ; :METACLASS SB-PCL::METACLASS :NAME SB-PCL::NAME :DIRECT-SUPERCLASSES ; SB-PCL::SUPERS) ; ==> ; SB-PCL::EXISTING-CLASS ; ; note: #S(CODE-DELETION-NOTE ; :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS ; NIL) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN ENSURE-DEFFOO-CLASS ...) ; compiling (PUSHNEW (QUOTE ENSURE-DEFFOO-CLASS) ...) ; compiling (PUSHNEW (QUOTE ENSURE-DEFFOO-CLASS) ...) ; compiling (DEFUN MAKE-CLASS-PREDICATE ...) ; compiling (DEFUN UPDATE-LISP-CLASS-LAYOUT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/braid.lisp ; in: DEFUN UPDATE-LISP-CLASS-LAYOUT ; (LET ((SB-KERNEL:CLASSOID (SB-KERNEL:LAYOUT-CLASSOID SB-KERNEL:LAYOUT)) ; (SB-PCL::OLAYOUT (SB-PCL::CLASS-WRAPPER CLASS))) ; (UNLESS ; (EQ (SB-KERNEL:CLASSOID-LAYOUT SB-KERNEL:CLASSOID) SB-KERNEL:LAYOUT) ; (SETF (SB-KERNEL:LAYOUT-INHERITS SB-KERNEL:LAYOUT) ; (SB-KERNEL:ORDER-LAYOUT-INHERITS ; (MAP 'SIMPLE-VECTOR #'SB-PCL::CLASS-WRAPPER #))) ; (SB-KERNEL:REGISTER-LAYOUT SB-KERNEL:LAYOUT :INVALIDATE T) ; (LET ((SB-PCL::NAME #)) ; (WHEN (AND SB-PCL::NAME # #) (SETF # SB-KERNEL:CLASSOID))))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (OLAYOUT)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN SET-CLASS-TYPE-TRANSLATION ...) ; compiling (CLRHASH *FIND-CLASS*) ; compiling (!BOOTSTRAP-META-BRAID) ; compiling (!BOOTSTRAP-ACCESSOR-DEFINITIONS T) ; compiling (!BOOTSTRAP-CLASS-PREDICATES T) ; compiling (!BOOTSTRAP-ACCESSOR-DEFINITIONS NIL) ; compiling (!BOOTSTRAP-CLASS-PREDICATES NIL) ; compiling (!BOOTSTRAP-BUILT-IN-CLASSES) ; compiling (DOHASH (NAME X ...) ...) ; compiling (SETQ *BOOT-STATE* ...) ; compiling (DEFMETHOD NO-APPLICABLE-METHOD ...) ; compiling (DEFMETHOD NO-NEXT-METHOD ...) ; compiling (DEFMETHOD NO-PRIMARY-METHOD ...) ; compiling (DEFMETHOD INVALID-QUALIFIERS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/braid.lisp ; in: DEFUN ALLOCATE-STRUCTURE-INSTANCE ; (SETF (SB-MOP:SLOT-VALUE-USING-CLASS CLASS SB-KERNEL:INSTANCE SB-PCL::SLOT) ; (POP SB-PCL::SLOTS-INIT)) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB-MOP:SLOT-VALUE-USING-CLASS) #:G266 #:G269 #:G268 ; #:G267) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION (SETF SLOT-VALUE-USING-CLASS))) ; :ASSIGNED-SLOTS NIL) ; in: DEFUN ENSURE-NON-STANDARD-CLASS ; (SB-MOP:ENSURE-CLASS-USING-CLASS SB-PCL::EXISTING-CLASS SB-PCL::NAME ; :METACLASS SB-PCL::METACLASS :NAME SB-PCL::NAME :DIRECT-SUPERCLASSES ; SB-PCL::SUPERS :DIRECT-SLOTS SB-PCL::SLOTS) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION ENSURE-CLASS-USING-CLASS)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(ENSURE-CLASS-USING-CLASS) FUNCTION ; ((SETF SLOT-VALUE-USING-CLASS) . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 1 note ; SYS:SRC;PCL;BRAID.FASL.NEWEST written ; compilation finished in 0:00:02 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/dlisp3.lisp" (written 14 JUL 2005 08:28:18 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFPARAMETER *CHECKING-OR-CACHING-LIST* ...) ; compiling (DOLIST (KEY *CHECKING-OR-CACHING-LIST*) ...) ; SYS:SRC;PCL;DLISP3.FASL.NEWEST written ; compilation finished in 0:00:00 ; in: LAMBDA (CACHE MISS-FN) ; (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION SB-PCL::EMF NIL :REQUIRED-ARGS ; (SB-PCL::.ARG0.) :MORE-ARG NIL ; :REST-ARG NIL) ; --> LOCALLY LET ETYPECASE LET COND IF COND IF PROGN LET* IF ; ==> ; (SB-PCL::SLOT-UNBOUND-INTERNAL SB-PCL::.ARG0. #:EMF-N-3) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-UNBOUND-INTERNAL)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS (NIL FUNCTION (SLOT-UNBOUND-INTERNAL))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA (CACHE EMF MISS-FN) ; (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION SB-PCL::EMF NIL :REQUIRED-ARGS ; (SB-PCL::.ARG0.) :MORE-ARG NIL ; :REST-ARG NIL) ; --> LOCALLY LET ETYPECASE LET COND IF COND IF PROGN LET* IF ; ==> ; (SB-PCL::SLOT-UNBOUND-INTERNAL SB-PCL::.ARG0. #:EMF-N-3) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION SLOT-UNBOUND-INTERNAL)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS (NIL FUNCTION (SLOT-UNBOUND-INTERNAL))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/generic-functions.lisp" (written 22 AUG 2006 02:23:42 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFGENERIC CLASS-EQ-SPECIALIZER-P ...) ; compiling (DEFGENERIC CLASSP ...) ; compiling (DEFGENERIC CONDITION-CLASS-P ...) ; compiling (DEFGENERIC EQL-SPECIALIZER-P ...) ; compiling (DEFGENERIC EXACT-CLASS-SPECIALIZER-P ...) ; compiling (DEFGENERIC FORWARD-REFERENCED-CLASS-P ...) ; compiling (DEFGENERIC FUNCALLABLE-STANDARD-CLASS-P ...) ; compiling (DEFGENERIC GENERIC-FUNCTION-P ...) ; compiling (DEFGENERIC METHOD-COMBINATION-P ...) ; compiling (DEFGENERIC METHOD-P ...) ; compiling (DEFGENERIC SHORT-METHOD-COMBINATION-P ...) ; compiling (DEFGENERIC SLOT-CLASS-P ...) ; compiling (DEFGENERIC SPECIALIZERP ...) ; compiling (DEFGENERIC STANDARD-ACCESSOR-METHOD-P ...) ; compiling (DEFGENERIC STANDARD-BOUNDP-METHOD-P ...) ; compiling (DEFGENERIC STANDARD-CLASS-P ...) ; compiling (DEFGENERIC STANDARD-GENERIC-FUNCTION-P ...) ; compiling (DEFGENERIC STANDARD-METHOD-P ...) ; compiling (DEFGENERIC STANDARD-READER-METHOD-P ...) ; compiling (DEFGENERIC STANDARD-WRITER-METHOD-P ...) ; compiling (DEFGENERIC STRUCTURE-CLASS-P ...) ; compiling (DEFGENERIC ACCESSOR-METHOD-SLOT-DEFINITION ...) ; compiling (DEFGENERIC CLASS-CAN-PRECEDE-LIST ...) ; compiling (DEFGENERIC CLASS-DEFSTRUCT-CONSTRUCTOR ...) ; compiling (DEFGENERIC CLASS-DEFSTRUCT-FORM ...) ; compiling (DEFGENERIC CLASS-DIRECT-SUBCLASSES ...) ; compiling (DEFGENERIC CLASS-DIRECT-SUPERCLASSES ...) ; compiling (DEFGENERIC CLASS-EQ-SPECIALIZER ...) ; compiling (DEFGENERIC CLASS-INCOMPATIBLE-SUPERCLASS-LIST ...) ; compiling (DEFGENERIC CLASS-NAME ...) ; compiling (DEFGENERIC CLASS-PRECEDENCE-LIST ...) ; compiling (DEFGENERIC CLASS-WRAPPER ...) ; compiling (DEFGENERIC DEFINITION-SOURCE ...) ; compiling (DEFGENERIC EQL-SPECIALIZER-OBJECT ...) ; compiling (DEFGENERIC GENERIC-FUNCTION-DECLARATIONS ...) ; compiling (DEFGENERIC GENERIC-FUNCTION-METHOD-CLASS ...) ; compiling (DEFGENERIC GENERIC-FUNCTION-METHOD-COMBINATION ...) ; compiling (DEFGENERIC GENERIC-FUNCTION-METHODS ...) ; compiling (DEFGENERIC GENERIC-FUNCTION-NAME ...) ; compiling (DEFGENERIC GF-ARG-INFO ...) ; compiling (DEFGENERIC GF-DFUN-STATE ...) ; compiling (DEFGENERIC GENERIC-FUNCTION-INITIAL-METHODS ...) ; compiling (DEFGENERIC LONG-METHOD-COMBINATION-FUNCTION ...) ; compiling (DEFGENERIC METHOD-COMBINATION-DOCUMENTATION ...) ; compiling (DEFGENERIC METHOD-COMBINATION-OPTIONS ...) ; compiling (DEFGENERIC METHOD-COMBINATION-TYPE-NAME ...) ; compiling (DEFGENERIC METHOD-GENERIC-FUNCTION ...) ; compiling (DEFGENERIC OBJECT-PLIST ...) ; compiling (DEFGENERIC SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT ...) ; compiling (DEFGENERIC SHORT-COMBINATION-OPERATOR ...) ; compiling (DEFGENERIC SLOT-DEFINITION-BOUNDP-FUNCTION ...) ; compiling (DEFGENERIC SLOT-DEFINITION-CLASS ...) ; compiling (DEFGENERIC SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL ...) ; compiling (DEFGENERIC SLOT-DEFINITION-INITARGS ...) ; compiling (DEFGENERIC SLOT-DEFINITION-INITFORM ...) ; compiling (DEFGENERIC SLOT-DEFINITION-INITFUNCTION ...) ; compiling (DEFGENERIC SLOT-DEFINITION-INTERNAL-READER-FUNCTION ...) ; compiling (DEFGENERIC SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION ...) ; compiling (DEFGENERIC SLOT-DEFINITION-LOCATION ...) ; compiling (DEFGENERIC SLOT-DEFINITION-NAME ...) ; compiling (DEFGENERIC SLOT-DEFINITION-READER-FUNCTION ...) ; compiling (DEFGENERIC SLOT-DEFINITION-READERS ...) ; compiling (DEFGENERIC SLOT-DEFINITION-TYPE ...) ; compiling (DEFGENERIC SLOT-DEFINITION-WRITER-FUNCTION ...) ; compiling (DEFGENERIC SLOT-DEFINITION-WRITERS ...) ; compiling (DEFGENERIC SPECIALIZER-OBJECT ...) ; compiling (DEFGENERIC SPECIALIZER-TYPE ...) ; compiling (DEFGENERIC (SETF CLASS-DEFSTRUCT-CONSTRUCTOR) ...) ; compiling (DEFGENERIC (SETF CLASS-DEFSTRUCT-FORM) ...) ; compiling (DEFGENERIC (SETF CLASS-DIRECT-SLOTS) ...) ; compiling (DEFGENERIC (SETF CLASS-INCOMPATIBLE-SUPERCLASS-LIST) ...) ; compiling (DEFGENERIC (SETF CLASS-NAME) ...) ; compiling (DEFGENERIC (SETF CLASS-SLOTS) ...) ; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-METHOD-CLASS) ...) ; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-METHOD-COMBINATION) ...) ; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-DECLARATIONS) ...) ; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-METHODS) ...) ; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-NAME) ...) ; compiling (DEFGENERIC (SETF GF-DFUN-STATE) ...) ; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-INITIAL-METHODS) ...) ; compiling (DEFGENERIC (SETF METHOD-GENERIC-FUNCTION) ...) ; compiling (DEFGENERIC (SETF OBJECT-PLIST) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-ALLOCATION) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-BOUNDP-FUNCTION) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-CLASS) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-INITARGS) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-INITFORM) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-INITFUNCTION) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-INTERNAL-READER-FUNCTION) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-LOCATION) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-NAME) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-READER-FUNCTION) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-READERS) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-TYPE) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-WRITER-FUNCTION) ...) ; compiling (DEFGENERIC (SETF SLOT-DEFINITION-WRITERS) ...) ; compiling (DEFGENERIC ACCESSOR-METHOD-SLOT-NAME ...) ; compiling (DEFGENERIC CLASS-DEFAULT-INITARGS ...) ; compiling (DEFGENERIC CLASS-DIRECT-DEFAULT-INITARGS ...) ; compiling (DEFGENERIC CLASS-DIRECT-SLOTS ...) ; compiling (DEFGENERIC CLASS-FINALIZED-P ...) ; compiling (DEFGENERIC CLASS-PROTOTYPE ...) ; compiling (DEFGENERIC CLASS-SLOT-CELLS ...) ; compiling (DEFGENERIC CLASS-SLOTS ...) ; compiling (DEFGENERIC COMPUTE-CLASS-PRECEDENCE-LIST ...) ; compiling (DEFGENERIC COMPUTE-DEFAULT-INITARGS ...) ; compiling (DEFGENERIC COMPUTE-DISCRIMINATING-FUNCTION ...) ; compiling (DEFGENERIC COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO ...) ; compiling (DEFGENERIC COMPUTE-SLOTS ...) ; compiling (DEFGENERIC FINALIZE-INHERITANCE ...) ; compiling (DEFGENERIC FUNCTION-KEYWORDS ...) ; compiling (DEFGENERIC GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER ...) ; compiling (DEFGENERIC GENERIC-FUNCTION-LAMBDA-LIST ...) ; compiling (DEFGENERIC GENERIC-FUNCTION-PRETTY-ARGLIST ...) ; compiling (DEFGENERIC GF-FAST-METHOD-FUNCTION-P ...) ; compiling (DEFGENERIC INITIALIZE-INTERNAL-SLOT-FUNCTIONS ...) ; compiling (DEFGENERIC MAKE-INSTANCES-OBSOLETE ...) ; compiling (DEFGENERIC METHOD-FUNCTION ...) ; compiling (DEFGENERIC METHOD-LAMBDA-LIST ...) ; compiling (DEFGENERIC METHOD-PRETTY-ARGLIST ...) ; compiling (DEFGENERIC METHOD-QUALIFIERS ...) ; compiling (DEFGENERIC METHOD-SPECIALIZERS ...) ; compiling (DEFGENERIC RAW-INSTANCE-ALLOCATOR ...) ; compiling (DEFGENERIC SLOT-DEFINITION-ALLOCATION ...) ; compiling (DEFGENERIC SLOTS-FETCHER ...) ; compiling (DEFGENERIC SPECIALIZER-CLASS ...) ; compiling (DEFGENERIC SPECIALIZER-DIRECT-GENERIC-FUNCTIONS ...) ; compiling (DEFGENERIC SPECIALIZER-DIRECT-METHODS ...) ; compiling (DEFGENERIC SPECIALIZER-METHOD-TABLE ...) ; compiling (DEFGENERIC UPDATE-CONSTRUCTORS ...) ; compiling (DEFGENERIC WRAPPER-FETCHER ...) ; compiling (DEFGENERIC ADD-DEPENDENT ...) ; compiling (DEFGENERIC ADD-DIRECT-METHOD ...) ; compiling (DEFGENERIC ADD-DIRECT-SUBCLASS ...) ; compiling (DEFGENERIC ADD-METHOD ...) ; compiling (DEFGENERIC (SETF CLASS-SLOT-CELLS) ...) ; compiling (DEFGENERIC CLASS-SLOT-VALUE ...) ; compiling (DEFGENERIC COMPATIBLE-META-CLASS-CHANGE-P ...) ; compiling (DEFGENERIC COMPUTE-APPLICABLE-METHODS ...) ; compiling (DEFGENERIC COMPUTE-APPLICABLE-METHODS-USING-CLASSES ...) ; compiling (DEFGENERIC COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS ...) ; compiling (DEFGENERIC DESCRIBE-OBJECT ...) ; compiling (DEFGENERIC DIRECT-SLOT-DEFINITION-CLASS ...) ; compiling (DEFGENERIC EFFECTIVE-SLOT-DEFINITION-CLASS ...) ; compiling (DEFGENERIC MAKE-BOUNDP-METHOD-FUNCTION ...) ; compiling (DEFGENERIC MAKE-READER-METHOD-FUNCTION ...) ; compiling (DEFGENERIC MAKE-WRITER-METHOD-FUNCTION ...) ; compiling (DEFGENERIC MAP-DEPENDENTS ...) ; compiling (DEFGENERIC REMOVE-BOUNDP-METHOD ...) ; compiling (DEFGENERIC REMOVE-DEPENDENT ...) ; compiling (DEFGENERIC REMOVE-DIRECT-METHOD ...) ; compiling (DEFGENERIC REMOVE-DIRECT-SUBCLASS ...) ; compiling (DEFGENERIC REMOVE-METHOD ...) ; compiling (DEFGENERIC REMOVE-READER-METHOD ...) ; compiling (DEFGENERIC REMOVE-WRITER-METHOD ...) ; compiling (DEFGENERIC SAME-SPECIALIZER-P ...) ; compiling (DEFGENERIC SLOT-ACCESSOR-FUNCTION ...) ; compiling (DEFGENERIC SLOT-ACCESSOR-STD-P ...) ; compiling (DEFGENERIC SLOTS-TO-INSPECT ...) ; compiling (DEFGENERIC UPDATE-GF-DFUN ...) ; compiling (DEFGENERIC VALIDATE-SUPERCLASS ...) ; compiling (DEFGENERIC (SETF DOCUMENTATION) ...) ; compiling (DEFGENERIC DOCUMENTATION ...) ; compiling (DEFGENERIC ADD-BOUNDP-METHOD ...) ; compiling (DEFGENERIC ADD-READER-METHOD ...) ; compiling (DEFGENERIC ADD-WRITER-METHOD ...) ; compiling (DEFGENERIC (SETF CLASS-SLOT-VALUE) ...) ; compiling (DEFGENERIC COMPUTE-EFFECTIVE-METHOD ...) ; compiling (DEFGENERIC COMPUTE-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFGENERIC COMPUTE-SLOT-ACCESSOR-INFO ...) ; compiling (DEFGENERIC DEFAULT-INITARGS ...) ; compiling (DEFGENERIC FIND-METHOD-COMBINATION ...) ; compiling (DEFGENERIC INVALID-QUALIFIERS ...) ; compiling (DEFGENERIC (SETF SLOT-ACCESSOR-FUNCTION) ...) ; compiling (DEFGENERIC (SETF SLOT-ACCESSOR-STD-P) ...) ; compiling (DEFGENERIC SLOT-BOUNDP-USING-CLASS ...) ; compiling (DEFGENERIC SLOT-MAKUNBOUND-USING-CLASS ...) ; compiling (DEFGENERIC SLOT-UNBOUND ...) ; compiling (DEFGENERIC SLOT-VALUE-USING-CLASS ...) ; compiling (DEFGENERIC MAKE-METHOD-LAMBDA ...) ; compiling (DEFGENERIC (SETF SLOT-VALUE-USING-CLASS) ...) ; compiling (DEFGENERIC MAKE-METHOD-INITARGS-FORM ...) ; compiling (DEFGENERIC GET-METHOD ...) ; compiling (DEFGENERIC FIND-METHOD ...) ; compiling (DEFGENERIC SLOT-MISSING ...) ; compiling (DEFGENERIC ALLOCATE-INSTANCE ...) ; compiling (DEFGENERIC ENSURE-CLASS-USING-CLASS ...) ; compiling (DEFGENERIC ENSURE-GENERIC-FUNCTION-USING-CLASS ...) ; compiling (DEFGENERIC INITIALIZE-INSTANCE ...) ; compiling (DEFGENERIC MAKE-INSTANCE ...) ; compiling (DEFGENERIC CHANGE-CLASS ...) ; compiling (DEFGENERIC NO-APPLICABLE-METHOD ...) ; compiling (DEFGENERIC NO-NEXT-METHOD ...) ; compiling (DEFGENERIC NO-PRIMARY-METHOD ...) ; compiling (DEFGENERIC READER-METHOD-CLASS ...) ; compiling (DEFGENERIC REINITIALIZE-INSTANCE ...) ; compiling (DEFGENERIC SHARED-INITIALIZE ...) ; compiling (DEFGENERIC UPDATE-DEPENDENT ...) ; compiling (DEFGENERIC UPDATE-INSTANCE-FOR-DIFFERENT-CLASS ...) ; compiling (DEFGENERIC UPDATE-INSTANCE-FOR-REDEFINED-CLASS ...) ; compiling (DEFGENERIC WRITER-METHOD-CLASS ...) ; SYS:SRC;PCL;GENERIC-FUNCTIONS.FASL.NEWEST written ; compilation finished in 0:00:00 STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-EQ-SPECIALIZER-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASSP)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CONDITION-CLASS-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (EQL-SPECIALIZER-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (EXACT-CLASS-SPECIALIZER-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (FORWARD-REFERENCED-CLASS-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (FUNCALLABLE-STANDARD-CLASS-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (GENERIC-FUNCTION-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (METHOD-COMBINATION-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (METHOD-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SHORT-METHOD-COMBINATION-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-CLASS-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SPECIALIZERP)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (STANDARD-ACCESSOR-METHOD-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (STANDARD-BOUNDP-METHOD-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (STANDARD-CLASS-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (STANDARD-GENERIC-FUNCTION-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (STANDARD-METHOD-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (STANDARD-READER-METHOD-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (STANDARD-WRITER-METHOD-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (STRUCTURE-CLASS-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (ACCESSOR-METHOD-SLOT-DEFINITION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-CAN-PRECEDE-LIST)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-DEFSTRUCT-CONSTRUCTOR)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-DEFSTRUCT-FORM)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-DIRECT-SUBCLASSES)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-DIRECT-SUPERCLASSES)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-EQ-SPECIALIZER)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-INCOMPATIBLE-SUPERCLASS-LIST)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-NAME)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-PRECEDENCE-LIST)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-WRAPPER)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (DEFINITION-SOURCE)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (EQL-SPECIALIZER-OBJECT)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (GENERIC-FUNCTION-DECLARATIONS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (GENERIC-FUNCTION-METHOD-CLASS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (GENERIC-FUNCTION-METHOD-COMBINATION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (GENERIC-FUNCTION-METHODS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (GENERIC-FUNCTION-NAME)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (GF-ARG-INFO)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (GF-DFUN-STATE)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (GENERIC-FUNCTION-INITIAL-METHODS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (LONG-METHOD-COMBINATION-FUNCTION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (METHOD-COMBINATION-OPTIONS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (METHOD-COMBINATION-TYPE-NAME)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (METHOD-GENERIC-FUNCTION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (OBJECT-PLIST)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SHORT-COMBINATION-OPERATOR)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-BOUNDP-FUNCTION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-CLASS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-INITARGS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-INITFORM)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-INITFUNCTION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-INTERNAL-READER-FUNCTION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-LOCATION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-NAME)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-READER-FUNCTION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-READERS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-TYPE)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-WRITER-FUNCTION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-WRITERS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SPECIALIZER-OBJECT)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SPECIALIZER-TYPE)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF CLASS-DEFSTRUCT-CONSTRUCTOR))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF CLASS-DEFSTRUCT-FORM))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF CLASS-DIRECT-SLOTS))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF CLASS-INCOMPATIBLE-SUPERCLASS-LIST))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF CLASS-SLOTS))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF GENERIC-FUNCTION-METHOD-CLASS))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF GENERIC-FUNCTION-METHOD-COMBINATION))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF GENERIC-FUNCTION-DECLARATIONS))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF GENERIC-FUNCTION-METHODS))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF GF-DFUN-STATE))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF GENERIC-FUNCTION-INITIAL-METHODS))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF METHOD-GENERIC-FUNCTION))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF OBJECT-PLIST))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-ALLOCATION))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-BOUNDP-FUNCTION))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-CLASS))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-INITARGS))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-INITFORM))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-INITFUNCTION))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-INTERNAL-READER-FUNCTION))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-LOCATION))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-NAME))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-READER-FUNCTION))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-READERS))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-TYPE))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-WRITER-FUNCTION))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS ((SETF SLOT-DEFINITION-WRITERS))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (ACCESSOR-METHOD-SLOT-NAME)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-DIRECT-SLOTS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-FINALIZED-P)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-PROTOTYPE)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (CLASS-SLOTS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (METHOD-FUNCTION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (METHOD-LAMBDA-LIST)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (METHOD-QUALIFIERS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (METHOD-SPECIALIZERS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SLOT-DEFINITION-ALLOCATION)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (SPECIALIZER-CLASS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (ADD-METHOD)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL new FTYPE proclamation~@ ~S~@ for ~S does not match old FTYPE proclamation~@ ~S FORMAT-ARGUMENTS (#S(FUN-TYPE :CLASS-INFO # :ENUMERABLE NIL :HASH-VALUE 6407 :MIGHT-CONTAIN-OTHER-TYPES-P NIL :REQUIRED # :OPTIONAL NIL :REST NIL :KEYP NIL :KEYWORDS NIL :ALLOWP NIL ...) DESCRIBE-OBJECT #S(BUILT-IN-CLASSOID :CLASS-INFO # :ENUMERABLE NIL :HASH-VALUE 1652 :MIGHT-CONTAIN-OTHER-TYPES-P NIL :NAME FUNCTION :LAYOUT # :STATE READ-ONLY :DIRECT-SUPERCLASSES # :SUBCLASSES # :PCL-CLASS # ...))) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (REMOVE-METHOD)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (COMPUTE-EFFECTIVE-METHOD)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (INVALID-QUALIFIERS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (MAKE-METHOD-LAMBDA)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (MAKE-METHOD-INITARGS-FORM)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (GET-METHOD)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (ENSURE-GENERIC-FUNCTION-USING-CLASS)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (NO-APPLICABLE-METHOD)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (NO-NEXT-METHOD)) :ASSIGNED-SLOTS NIL) STYLE-WARNING: #S(SIMPLE-STYLE-WARNING :ACTUAL-INITARGS (FORMAT-CONTROL redefining ~S in DEFGENERIC FORMAT-ARGUMENTS (NO-PRIMARY-METHOD)) :ASSIGNED-SLOTS NIL) ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/slots.lisp" (written 07 NOV 2006 10:22:17 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFINE-CONDITION UNBOUND-SLOT ...) ; compiling (DEFMETHOD WRAPPER-FETCHER ...) ; compiling (DEFMETHOD SLOTS-FETCHER ...) ; compiling (DEFMETHOD RAW-INSTANCE-ALLOCATOR ...) ; compiling (DEFUN SET-WRAPPER ...) ; compiling (DEFUN SWAP-WRAPPERS-AND-SLOTS ...) ; compiling (DEFUN FIND-SLOT-DEFINITION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SLOT-VALUE ...) ; compiling (DEFINE-COMPILER-MACRO SLOT-VALUE ...) ; compiling (DEFUN SET-SLOT-VALUE ...) ; compiling (DEFUN SAFE-SET-SLOT-VALUE ...) ; compiling (DEFINE-COMPILER-MACRO SET-SLOT-VALUE ...) ; compiling (DEFUN SLOT-BOUNDP ...) ; compiling (SETF (GDEFINITION #) ...) ; compiling (DEFINE-COMPILER-MACRO SLOT-BOUNDP ...) ; compiling (DEFUN SLOT-MAKUNBOUND ...) ; compiling (DEFUN SLOT-EXISTS-P ...) ; compiling (DEFVAR *UNBOUND-SLOT-VALUE-MARKER* ...) ; compiling (DEFUN SLOT-VALUE-OR-DEFAULT ...) ; compiling (DEFUN STANDARD-INSTANCE-ACCESS ...) ; compiling (DEFUN FUNCALLABLE-STANDARD-INSTANCE-ACCESS ...) ; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...) ; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...) ; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...) ; compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...) ; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...) ; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...) ; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...) ; compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...) ; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...) ; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...) ; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...) ; compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...) ; compiling (DEFMETHOD SLOT-MISSING ...) ; compiling (DEFMETHOD SLOT-UNBOUND ...) ; compiling (DEFUN SLOT-UNBOUND-INTERNAL ...) ; compiling (DEFMETHOD ALLOCATE-INSTANCE ...) ; compiling (DEFMETHOD ALLOCATE-INSTANCE ...) ; compiling (DEFMETHOD ALLOCATE-INSTANCE ...) ; compiling (DEFMETHOD ALLOCATE-INSTANCE ...) ; SYS:SRC;PCL;SLOTS.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/init.lisp" (written 09 SEP 2005 05:09:51 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFMETHOD MAKE-INSTANCE ...) ; compiling (DEFMETHOD MAKE-INSTANCE ...) ; compiling (DEFMETHOD DEFAULT-INITARGS ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS ...) ; compiling (DEFMETHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFUN CHECK-INITARGS-1 ...) ; compiling (DEFUN CHECK-INITARGS-VALUES ...) ; compiling (DEFINE-CONDITION INITARG-ERROR ...) ; compiling (DEFUN CHECK-INITARGS-2-PLIST ...) ; compiling (DEFUN CHECK-INITARGS-2-LIST ...) ; SYS:SRC;PCL;INIT.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/std-class.lisp" (written 21 DEC 2006 03:17:45 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFMETHOD SLOT-ACCESSOR-FUNCTION ...) ; compiling (DEFMETHOD (SETF SLOT-ACCESSOR-FUNCTION) ...) ; compiling (DEFCONSTANT +SLOTD-READER-FUNCTION-STD-P+ ...) ; compiling (DEFCONSTANT +SLOTD-WRITER-FUNCTION-STD-P+ ...) ; compiling (DEFCONSTANT +SLOTD-BOUNDP-FUNCTION-STD-P+ ...) ; compiling (DEFCONSTANT +SLOTD-ALL-FUNCTION-STD-P+ ...) ; compiling (DEFMETHOD SLOT-ACCESSOR-STD-P ...) ; compiling (DEFMETHOD (SETF SLOT-ACCESSOR-STD-P) ...) ; compiling (DEFMETHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/std-class.lisp ; in: ; DEFMETHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION) ; (DEFMETHOD SB-PCL::INITIALIZE-INTERNAL-SLOT-FUNCTIONS ; ((SB-PCL::SLOTD SB-MOP:EFFECTIVE-SLOT-DEFINITION)) ; (LET* ((SB-PCL::NAME (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::NAME)) ; (CLASS (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::%CLASS))) ; (DOLIST (TYPE '(SB-PCL::READER SB-PCL::WRITER BOUNDP)) ; (LET* (# #) ; (SB-PCL::COMPUTE-SLOT-ACCESSOR-INFO SB-PCL::SLOTD TYPE ; SB-PCL::GF))))) ; --> PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 ; --> SB-PCL::PV-ENV LET LET BLOCK ; ==> ; (LET* ((SB-PCL::NAME ; (SB-PCL::OPTIMIZED-SLOT-VALUE ; (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::NAME) SB-PCL::SLOTD ; (SB-PCL::INSTANCE-READ # SB-PCL::SLOTD 0 'SB-PCL::NAME ; 'SB-MOP:EFFECTIVE-SLOT-DEFINITION))) ; (CLASS ; (SB-PCL::OPTIMIZED-SLOT-VALUE ; (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::%CLASS) SB-PCL::SLOTD ; (SB-PCL::INSTANCE-READ # SB-PCL::SLOTD 0 'SB-PCL::%CLASS ; 'SB-MOP:EFFECTIVE-SLOT-DEFINITION)))) ; (DOLIST (TYPE '(SB-PCL::READER SB-PCL::WRITER BOUNDP)) ; (LET* ((SB-PCL::GF-NAME #) (SB-PCL::GF #)) ; (SB-PCL::COMPUTE-SLOT-ACCESSOR-INFO SB-PCL::SLOTD TYPE SB-PCL::GF)))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (NAME)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (CLASS)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFMETHOD COMPUTE-SLOT-ACCESSOR-INFO ...) ; compiling (DEFMETHOD SLOT-DEFINITION-ALLOCATION ...) ; compiling (DEFMETHOD CLASS-PROTOTYPE ...) ; compiling (DEF STD-CLASS) ; compiling (DEF CONDITION-CLASS) ; compiling (DEF STRUCTURE-CLASS) ; compiling (DEFMETHOD CLASS-DIRECT-DEFAULT-INITARGS ...) ; compiling (DEFMETHOD CLASS-DEFAULT-INITARGS ...) ; compiling (DEFMETHOD CLASS-SLOT-CELLS ...) ; compiling (DEFMETHOD (SETF CLASS-SLOT-CELLS) ...) ; compiling (DEFMETHOD ADD-DIRECT-SUBCLASS ...) ; compiling (DEFMETHOD REMOVE-DIRECT-SUBCLASS ...) ; compiling (DEFMETHOD ADD-DIRECT-METHOD ...) ; compiling (DEFMETHOD REMOVE-DIRECT-METHOD ...) ; compiling (DEFMETHOD SPECIALIZER-DIRECT-METHODS ...) ; compiling (DEFMETHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS ...) ; compiling (DEFVAR *EQL-SPECIALIZER-METHODS* ...) ; compiling (DEFVAR *CLASS-EQ-SPECIALIZER-METHODS* ...) ; compiling (DEFMETHOD SPECIALIZER-METHOD-TABLE ...) ; compiling (DEFMETHOD SPECIALIZER-METHOD-TABLE ...) ; compiling (DEFMETHOD ADD-DIRECT-METHOD ...) ; compiling (DEFMETHOD REMOVE-DIRECT-METHOD ...) ; compiling (DEFMETHOD SPECIALIZER-DIRECT-METHODS ...) ; compiling (DEFMETHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS ...) ; compiling (DEFUN MAP-SPECIALIZERS ...) ; compiling (DEFUN MAP-ALL-GENERIC-FUNCTIONS ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFUN REAL-LOAD-DEFCLASS ...) ; compiling (SETF (GDEFINITION #) ...) ; compiling (DEFUN ENSURE-CLASS ...) ; compiling (DEFMETHOD ENSURE-CLASS-USING-CLASS ...) ; compiling (DEFMETHOD ENSURE-CLASS-USING-CLASS ...) ; compiling (DEFUN FROB-ENSURE-CLASS-ARGS ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFVAR *ALLOW-FORWARD-REFERENCED-CLASSES-IN-CPL-P* ...) ; compiling (DEFUN MAKE-PRELIMINARY-LAYOUT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/std-class.lisp ; in: DEFUN MAKE-PRELIMINARY-LAYOUT ; (LET ((SB-PCL::NAME (CLASS-NAME CLASS))) ; (LET ((SB-KERNEL:LAYOUT (SB-PCL::MAKE-WRAPPER 0 CLASS))) ; (SETF (SLOT-VALUE CLASS 'SB-PCL::WRAPPER) SB-KERNEL:LAYOUT) ; (LET ((SB-PCL::CPL #)) ; (SETF (SB-KERNEL:LAYOUT-INHERITS SB-KERNEL:LAYOUT) ; (SB-KERNEL:ORDER-LAYOUT-INHERITS #))) ; (SB-KERNEL:REGISTER-LAYOUT SB-KERNEL:LAYOUT :INVALIDATE T) ; (SB-PCL::SET-CLASS-TYPE-TRANSLATION CLASS ; (SB-KERNEL:LAYOUT-CLASSOID ; SB-KERNEL:LAYOUT)))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (NAME)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...) ; compiling (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ...) ; compiling (DEFMETHOD FINALIZE-INHERITANCE ...) ; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFMETHOD COMPUTE-SLOTS ...) ; compiling (DEFMETHOD COMPUTE-SLOTS ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFUN MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM ...) ; compiling (DEFUN MAKE-DEFSTRUCT-ALLOCATION-FUNCTION ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...) ; compiling (DEFMETHOD FINALIZE-INHERITANCE ...) ; compiling (DEFUN ADD-SLOT-ACCESSORS ...) ; compiling (DEFUN REMOVE-SLOT-ACCESSORS ...) ; compiling (DEFUN FIX-SLOT-ACCESSORS ...) ; compiling (DEFUN ADD-DIRECT-SUBCLASSES ...) ; compiling (DEFMETHOD FINALIZE-INHERITANCE ...) ; compiling (DEFMETHOD FINALIZE-INHERITANCE ...) ; compiling (DEFUN CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ...) ; compiling (DEFUN UPDATE-CLASS ...) ; compiling (DEFINE-CONDITION CPL-PROTOCOL-VIOLATION ...) ; compiling (DEFUN UPDATE-CPL ...) ; compiling (DEFUN UPDATE-CLASS-CAN-PRECEDE-P ...) ; compiling (DEFUN CLASS-CAN-PRECEDE-P ...) ; compiling (DEFUN UPDATE-SLOTS ...) ; compiling (DEFUN COMPUTE-CLASS-SLOTS ...) ; compiling (DEFUN UPDATE-GFS-OF-CLASS ...) ; compiling (DEFUN UPDATE-INITARGS ...) ; compiling (DEFMETHOD COMPUTE-DEFAULT-INITARGS ...) ; compiling (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...) ; compiling (DEFUN MAKE-DIRECT-SLOTD ...) ; compiling (DEFUN STD-COMPUTE-SLOTS ...) ; compiling (DEFMETHOD COMPUTE-SLOTS ...) ; compiling (DEFMETHOD COMPUTE-SLOTS ...) ; compiling (DEFUN STD-COMPUTE-SLOTS-AROUND ...) ; compiling (DEFMETHOD COMPUTE-SLOTS ...) ; compiling (DEFMETHOD COMPUTE-SLOTS ...) ; compiling (DEFMETHOD COMPUTE-SLOTS ...) ; compiling (DEFMETHOD COMPUTE-SLOTS ...) ; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ...) ; compiling (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ...) ; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS ...) ; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS ...) ; compiling (DEFMETHOD READER-METHOD-CLASS ...) ; compiling (DEFMETHOD ADD-READER-METHOD ...) ; compiling (DEFMETHOD WRITER-METHOD-CLASS ...) ; compiling (DEFMETHOD ADD-WRITER-METHOD ...) ; compiling (DEFMETHOD ADD-BOUNDP-METHOD ...) ; compiling (DEFMETHOD REMOVE-READER-METHOD ...) ; compiling (DEFMETHOD REMOVE-WRITER-METHOD ...) ; compiling (DEFMETHOD REMOVE-BOUNDP-METHOD ...) ; compiling (DEFMETHOD MAKE-READER-METHOD-FUNCTION ...) ; compiling (DEFMETHOD MAKE-WRITER-METHOD-FUNCTION ...) ; compiling (DEFMETHOD MAKE-BOUNDP-METHOD-FUNCTION ...) ; compiling (DEFMETHOD COMPATIBLE-META-CLASS-CHANGE-P ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFUN FORCE-CACHE-FLUSHES ...) ; compiling (DEFUN FLUSH-CACHE-TRAP ...) ; compiling (DEFMETHOD MAKE-INSTANCES-OBSOLETE ...) ; compiling (DEFMETHOD MAKE-INSTANCES-OBSOLETE ...) ; compiling (DEFVAR *IN-OBSOLETE-INSTANCE-TRAP* ...) ; compiling (DEFVAR *THE-WRAPPER-OF-STRUCTURE-OBJECT* ...) ; compiling (DEFINE-CONDITION OBSOLETE-STRUCTURE ...) ; compiling (DEFUN OBSOLETE-INSTANCE-TRAP ...) ; compiling (DEFUN CHANGE-CLASS-INTERNAL ...) ; compiling (DEFMETHOD CHANGE-CLASS ...) ; compiling (DEFMETHOD CHANGE-CLASS ...) ; compiling (DEFMETHOD CHANGE-CLASS ...) ; compiling (DEFMETHOD CHANGE-CLASS ...) ; compiling (DEFMETHOD CHANGE-CLASS ...) ; compiling (DEFMETHOD CHANGE-CLASS ...) ; compiling (DEF INITIALIZE-INSTANCE ...) ; compiling (DEF REINITIALIZE-INSTANCE ...) ; compiling (DEF CLASS-DIRECT-SLOTS) ; compiling (DEF CLASS-SLOTS) ; compiling (DEF CLASS-DIRECT-DEFAULT-INITARGS) ; compiling (DEF CLASS-DEFAULT-INITARGS) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFMETHOD CLASS-DIRECT-SLOTS ...) ; compiling (DEFMETHOD CLASS-DIRECT-DEFAULT-INITARGS ...) ; compiling (DEF CLASS-DEFAULT-INITARGS) ; compiling (DEF CLASS-PRECEDENCE-LIST) ; compiling (DEF CLASS-SLOTS) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFMETHOD ADD-DEPENDENT ...) ; compiling (DEFMETHOD REMOVE-DEPENDENT ...) ; compiling (DEFMETHOD MAP-DEPENDENTS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/std-class.lisp ; in: DEFUN FIX-SLOT-ACCESSORS ; (SB-PCL::FIND-GENERIC-FUNCTION SB-PCL::GFSPEC NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION FIND-GENERIC-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; in: ; DEFMETHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T) ; (SB-PCL::GET-ACCESSOR-METHOD-FUNCTION SB-PCL::GF TYPE CLASS SB-PCL::SLOTD) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS ; (FUNCTION GET-ACCESSOR-METHOD-FUNCTION)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL ; ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~ ; ~% ~{~<~% ~1:;~S~>~^ ~} ; FORMAT-ARGUMENTS ; (#1=(GET-ACCESSOR-METHOD-FUNCTION) FUNCTION ; (FIND-GENERIC-FUNCTION . #1#))) ; :ASSIGNED-SLOTS NIL) ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; SYS:SRC;PCL;STD-CLASS.FASL.NEWEST written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/cpl.lisp" (written 14 JUL 2005 08:28:17 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFMETHOD COMPUTE-CLASS-PRECEDENCE-LIST ...) ; compiling (DEFSTRUCT (CLASS-PRECEDENCE-DESCRIPTION # ...) ...) ; compiling (DEFUN COMPUTE-STD-CPL ...) ; compiling (DEFVAR *COMPUTE-STD-CPL-CLASS->ENTRY-TABLE-SIZE* ...) ; compiling (DEFUN COMPUTE-STD-CPL-PHASE-1 ...) ; compiling (DEFUN COMPUTE-STD-CPL-PHASE-2 ...) ; compiling (DEFUN COMPUTE-STD-CPL-PHASE-3 ...) ; compiling (DEFUN CPL-ERROR ...) ; compiling (DEFUN CPL-FORWARD-REFERENCED-CLASS-ERROR ...) ; compiling (DEFUN FIND-SUPERCLASS-CHAIN ...) ; compiling (DEFUN CPL-INCONSISTENT-ERROR ...) ; compiling (DEFUN FORMAT-CYCLE-REASONS ...) ; compiling (DEFUN FIND-CYCLE-REASONS ...) ; SYS:SRC;PCL;CPL.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/fsc.lisp" (written 07 NOV 2006 10:22:17 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFMETHOD WRAPPER-FETCHER ...) ; compiling (DEFMETHOD SLOTS-FETCHER ...) ; compiling (DEFMETHOD RAW-INSTANCE-ALLOCATOR ...) ; compiling (DEFMETHOD ALLOCATE-INSTANCE ...) ; compiling (DEFMETHOD MAKE-READER-METHOD-FUNCTION ...) ; compiling (DEFMETHOD MAKE-WRITER-METHOD-FUNCTION ...) ; SYS:SRC;PCL;FSC.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/methods.lisp" (written 21 DEC 2006 03:17:41 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFINE-CONDITION METAOBJECT-INITIALIZATION-VIOLATION ...) ; compiling (DEF REINITIALIZE-INSTANCE ...) ; compiling (DEF CHANGE-CLASS ...) ; compiling (DEF UPDATE-INSTANCE-FOR-REDEFINED-CLASS ...) ; compiling (DEF UPDATE-INSTANCE-FOR-DIFFERENT-CLASS ...) ; compiling (DEF UPDATE-INSTANCE-FOR-DIFFERENT-CLASS ...) ; compiling (DEFINE-CONDITION INVALID-METHOD-INITARG ...) ; compiling (DEFUN INVALID-METHOD-INITARG ...) ; compiling (DEFUN CHECK-DOCUMENTATION ...) ; compiling (DEFUN CHECK-LAMBDA-LIST ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/methods.lisp ; in: DEFUN CHECK-LAMBDA-LIST ; (DEFUN SB-PCL::CHECK-LAMBDA-LIST (METHOD SB-PCL::LL) NIL) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-PCL::CHECK-LAMBDA-LIST (METHOD SB-PCL::LL) ; (BLOCK SB-PCL::CHECK-LAMBDA-LIST NIL)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (METHOD)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (LL)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN CHECK-METHOD-FUNCTION ...) ; compiling (DEFUN CHECK-QUALIFIERS ...) ; compiling (DEFUN CHECK-SLOT-NAME ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/methods.lisp ; in: DEFUN CHECK-SLOT-NAME ; (DEFUN SB-PCL::CHECK-SLOT-NAME (METHOD SB-PCL::NAME) ; (UNLESS (SYMBOLP SB-PCL::NAME) ; (SB-PCL::INVALID-METHOD-INITARG "~@<~S of ~S is not a ~S.~@:>" :SLOT-NAME ; SB-PCL::NAME 'SYMBOL))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-PCL::CHECK-SLOT-NAME (METHOD SB-PCL::NAME) ; (BLOCK SB-PCL::CHECK-SLOT-NAME ; (UNLESS (SYMBOLP SB-PCL::NAME) ; (SB-PCL::INVALID-METHOD-INITARG ; "~@<~S of ~S is not a ~S.~@:>" :SLOT-NAME ; SB-PCL::NAME 'SYMBOL)))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (METHOD)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN CHECK-SPECIALIZERS ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFVAR *THE-CLASS-GENERIC-FUNCTION* ...) ; compiling (DEFVAR *THE-CLASS-STANDARD-GENERIC-FUNCTION* ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFUN FIND-GENERIC-FUNCTION ...) ; compiling (DEFUN REAL-ADD-NAMED-METHOD ...) ; compiling (DEFINE-CONDITION FIND-METHOD-LENGTH-MISMATCH ...) ; compiling (DEFUN REAL-GET-METHOD ...) ; compiling (DEFMETHOD FIND-METHOD ...) ; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO ...) ; compiling (DEFUN COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO-INTERNAL ...) ; compiling (DEFUN MAKE-DISCRIMINATING-FUNCTION-ARGLIST ...) ; compiling (DEFMETHOD GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER ...) ; compiling (DEFMETHOD GENERIC-FUNCTION-LAMBDA-LIST ...) ; compiling (DEFMETHOD GF-FAST-METHOD-FUNCTION-P ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...) ; compiling (DECLAIM (SPECIAL *LAZY-DFUN-COMPUTE-P*)) ; compiling (DEFUN SET-METHODS ...) ; compiling (DEFINE-CONDITION NEW-VALUE-SPECIALIZATION ...) ; compiling (DEFUN REAL-ADD-METHOD ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/methods.lisp ; in: DEFUN REAL-ADD-METHOD ; (LET* ((SB-PCL::NAME (SB-MOP:GENERIC-FUNCTION-NAME GENERIC-FUNCTION)) ; (SB-PCL::QUALIFIERS (METHOD-QUALIFIERS METHOD)) ; (SB-PCL::SPECIALIZERS (SB-MOP:METHOD-SPECIALIZERS METHOD)) ; (SB-PCL::EXISTING ; (SB-PCL::GET-METHOD GENERIC-FUNCTION SB-PCL::QUALIFIERS ; SB-PCL::SPECIALIZERS NIL))) ; (WHEN ; (AND SB-PCL::EXISTING ; (SB-PCL::SIMILAR-LAMBDA-LISTS-P SB-PCL::EXISTING METHOD)) ; (REMOVE-METHOD GENERIC-FUNCTION SB-PCL::EXISTING)) ; (WHEN ; (AND (EQ GENERIC-FUNCTION #'(SETF SB-MOP:SLOT-VALUE-USING-CLASS)) ; (NOT (EQ SB-PCL::*THE-CLASS-T* #))) ; (ERROR 'SB-PCL::NEW-VALUE-SPECIALIZATION :METHOD METHOD)) ; (SETF (SB-MOP:METHOD-GENERIC-FUNCTION METHOD) GENERIC-FUNCTION) ; (PUSHNEW METHOD (SB-MOP:GENERIC-FUNCTION-METHODS GENERIC-FUNCTION)) ; (DOLIST (SB-MOP:SPECIALIZER SB-PCL::SPECIALIZERS) ; (SB-MOP:ADD-DIRECT-METHOD SB-MOP:SPECIALIZER METHOD)) ; (LET ((SB-PCL::REMOVE-AGAIN-P T)) ; (UNWIND-PROTECT ; (PROGN ; (SB-PCL::SET-ARG-INFO GENERIC-FUNCTION :NEW-METHOD METHOD) ; (SETQ SB-PCL::REMOVE-AGAIN-P NIL)) ; (WHEN SB-PCL::REMOVE-AGAIN-P (REMOVE-METHOD GENERIC-FUNCTION METHOD)))) ; (LET ((SB-PCL::MC ; (SB-MOP:GENERIC-FUNCTION-METHOD-COMBINATION GENERIC-FUNCTION))) ; (COND ((EQ SB-PCL::MC SB-PCL::*STANDARD-METHOD-COMBINATION*) (WHEN # #)) ; ((SB-PCL::SHORT-METHOD-COMBINATION-P SB-PCL::MC) ; (LET # ; #)))) ; (UNLESS SB-PCL::SKIP-DFUN-UPDATE-P ; (SB-PCL::UPDATE-CTORS 'ADD-METHOD :GENERIC-FUNCTION GENERIC-FUNCTION ; :METHOD METHOD) ; (SB-PCL::UPDATE-DFUN GENERIC-FUNCTION)) ; (SB-MOP:MAP-DEPENDENTS GENERIC-FUNCTION ; (LAMBDA (SB-PCL::DEP) ; (SB-MOP:UPDATE-DEPENDENT GENERIC-FUNCTION ; SB-PCL::DEP 'ADD-METHOD ; METHOD))) ; GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (NAME)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN REAL-REMOVE-METHOD ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/methods.lisp ; in: DEFUN REAL-REMOVE-METHOD ; (LET* ((SB-PCL::NAME (SB-MOP:GENERIC-FUNCTION-NAME GENERIC-FUNCTION)) ; (SB-PCL::SPECIALIZERS (SB-MOP:METHOD-SPECIALIZERS METHOD)) ; (SB-PCL::METHODS (SB-MOP:GENERIC-FUNCTION-METHODS GENERIC-FUNCTION)) ; (SB-PCL::NEW-METHODS (REMOVE METHOD SB-PCL::METHODS))) ; (SETF (SB-MOP:METHOD-GENERIC-FUNCTION METHOD) NIL) ; (SETF (SB-MOP:GENERIC-FUNCTION-METHODS GENERIC-FUNCTION) ; SB-PCL::NEW-METHODS) ; (DOLIST (SB-MOP:SPECIALIZER (SB-MOP:METHOD-SPECIALIZERS METHOD)) ; (SB-MOP:REMOVE-DIRECT-METHOD SB-MOP:SPECIALIZER METHOD)) ; (SB-PCL::SET-ARG-INFO GENERIC-FUNCTION) ; (SB-PCL::UPDATE-CTORS 'REMOVE-METHOD :GENERIC-FUNCTION GENERIC-FUNCTION ; :METHOD METHOD) ; (SB-PCL::UPDATE-DFUN GENERIC-FUNCTION) ; (SB-MOP:MAP-DEPENDENTS GENERIC-FUNCTION ; (LAMBDA (SB-PCL::DEP) ; (SB-MOP:UPDATE-DEPENDENT GENERIC-FUNCTION ; SB-PCL::DEP ; 'REMOVE-METHOD METHOD)))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (NAME)) ; :ASSIGNED-SLOTS NIL) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (SPECIALIZERS)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN COMPUTE-APPLICABLE-METHODS-FUNCTION ...) ; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS ...) ; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES ...) ; compiling (DEFUN PROCLAIM-INCOMPATIBLE-SUPERCLASSES ...) ; compiling (DEFUN SUPERCLASSES-COMPATIBLE-P ...) ; compiling (MAPC (FUNCTION PROCLAIM-INCOMPATIBLE-SUPERCLASSES) ...) ; compiling (DEFMETHOD SAME-SPECIALIZER-P ...) ; compiling (DEFMETHOD SAME-SPECIALIZER-P ...) ; compiling (DEFMETHOD SPECIALIZER-CLASS ...) ; compiling (DEFMETHOD SAME-SPECIALIZER-P ...) ; compiling (DEFMETHOD SAME-SPECIALIZER-P ...) ; compiling (DEFMETHOD SPECIALIZER-CLASS ...) ; compiling (DEFUN ERROR-NEED-AT-LEAST-N-ARGS ...) ; compiling (DEFUN TYPES-FROM-ARGS ...) ; compiling (DEFUN GET-WRAPPERS-FROM-CLASSES ...) ; compiling (DEFUN SDFUN-FOR-CACHING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/methods.lisp ; in: DEFUN SDFUN-FOR-CACHING ; (SB-PCL::MAKE-CALLABLE SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR NIL ; (MAPCAR #'SB-PCL::CLASS-WRAPPER SB-PCL::CLASSES)) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (GF)) ; :ASSIGNED-SLOTS NIL) ; compiling (DEFUN VALUE-FOR-CACHING ...) ; compiling (DEFUN DEFAULT-SECONDARY-DISPATCH-FUNCTION ...) ; compiling (DEFUN LIST-EQ ...) ; compiling (DEFVAR *STD-CAM-METHODS* ...) ; compiling (DEFUN COMPUTE-APPLICABLE-METHODS-EMF ...) ; compiling (DEFUN COMPUTE-APPLICABLE-METHODS-EMF-STD-P ...) ; compiling (DEFVAR *OLD-C-A-M-GF-METHODS* ...) ; compiling (DEFUN UPDATE-ALL-C-A-M-GF-INFO ...) ; compiling (DEFUN UPDATE-GF-INFO ...) ; compiling (DEFUN UPDATE-C-A-M-GF-INFO ...) ; compiling (DEFUN UPDATE-GF-SIMPLE-ACCESSOR-TYPE ...) ; compiling (DEFUN GET-ACCESSOR-METHOD-FUNCTION ...) ; compiling (DEFUN UPDATE-SLOT-VALUE-GF-INFO ...) ; compiling (DEFVAR *STANDARD-SLOT-VALUE-USING-CLASS-METHOD* ...) ; compiling (DEFVAR *STANDARD-SETF-SLOT-VALUE-USING-CLASS-METHOD* ...) ; compiling (DEFVAR *STANDARD-SLOT-BOUNDP-USING-CLASS-METHOD* ...) ; compiling (DEFVAR *CONDITION-SLOT-VALUE-USING-CLASS-METHOD* ...) ; compiling (DEFVAR *CONDITION-SETF-SLOT-VALUE-USING-CLASS-METHOD* ...) ; compiling (DEFVAR *CONDITION-SLOT-BOUNDP-USING-CLASS-METHOD* ...) ; compiling (DEFVAR *STRUCTURE-SLOT-VALUE-USING-CLASS-METHOD* ...) ; compiling (DEFVAR *STRUCTURE-SETF-SLOT-VALUE-USING-CLASS-METHOD* ...) ; compiling (DEFVAR *STRUCTURE-SLOT-BOUNDP-USING-CLASS-METHOD* ...) ; compiling (DEFUN STANDARD-SVUC-METHOD ...) ; compiling (DEFUN SET-STANDARD-SVUC-METHOD ...) ; compiling (DEFUN CONDITION-SVUC-METHOD ...) ; compiling (DEFUN SET-CONDITION-SVUC-METHOD ...) ; compiling (DEFUN STRUCTURE-SVUC-METHOD ...) ; compiling (DEFUN SET-STRUCTURE-SVUC-METHOD ...) ; compiling (DEFUN UPDATE-STD-OR-STR-METHODS ...) ; compiling (DEFUN MEC-ALL-CLASSES-INTERNAL ...) ; compiling (DEFUN MEC-ALL-CLASSES ...) ; compiling (DEFUN MEC-ALL-CLASS-LISTS ...) ; compiling (DEFUN MAKE-EMF-CACHE ...) ; compiling (DEFMACRO CLASS-TEST ...) ; compiling (DEFMACRO CLASS-EQ-TEST ...) ; compiling (DEFMACRO EQL-TEST ...) ; compiling (DEFUN DNET-METHODS-P ...) ; compiling (DEFMACRO SCASE ...) ; compiling (DEFMACRO MCASE ...) ; compiling (DEFUN GENERATE-DISCRIMINATION-NET ...) ; compiling (DEFUN CLASS-FROM-TYPE ...) ; compiling (DEFUN PRECOMPUTE-EFFECTIVE-METHODS ...) ; compiling (DEFUN AUGMENT-TYPE ...) ; compiling (DEFUN GENERATE-DISCRIMINATION-NET-INTERNAL ...) ; compiling (DEFUN COMPUTE-SECONDARY-DISPATCH-FUNCTION ...) ; compiling (DEFVAR *EQ-CASE-TABLE-LIMIT* ...) ; compiling (DEFVAR *CASE-TABLE-LIMIT* ...) ; compiling (DEFUN COMPUTE-MCASE-PARAMETERS ...) ; compiling (DEFMACRO MLOOKUP ...) ; compiling (DEFUN NET-TEST-CONVERTER ...) ; compiling (DEFUN NET-CODE-CONVERTER ...) ; compiling (DEFUN NET-CONSTANT-CONVERTER ...) ; compiling (DEFUN METHODS-CONVERTER ...) ; compiling (DEFUN CONVERT-METHODS ...) ; compiling (DEFUN CONVERT-TABLE ...) ; compiling (DEFUN COMPUTE-SECONDARY-DISPATCH-FUNCTION1 ...) ; compiling (DEFVAR *SHOW-MAKE-UNORDERED-METHODS-EMF-CALLS* ...) ; compiling (DEFUN MAKE-UNORDERED-METHODS-EMF ...) ; compiling (DEFUN SLOT-VALUE-USING-CLASS-DFUN ...) ; compiling (DEFUN SETF-SLOT-VALUE-USING-CLASS-DFUN ...) ; compiling (DEFUN SLOT-BOUNDP-USING-CLASS-DFUN ...) ; compiling (DEFUN SPECIAL-CASE-FOR-COMPUTE-DISCRIMINATING-FUNCTION-P ...) ; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...) ; compiling (DEFMETHOD UPDATE-GF-DFUN ...) ; compiling (DEFMETHOD (SETF CLASS-NAME) ...) ; compiling (DEFMETHOD (SETF GENERIC-FUNCTION-NAME) ...) ; compiling (DEFMETHOD FUNCTION-KEYWORDS ...) ; compiling (DEFUN METHOD-LL->GENERIC-FUNCTION-LL ...) ; compiling (DEFMETHOD GENERIC-FUNCTION-PRETTY-ARGLIST ...) ; compiling (DEFMETHOD METHOD-PRETTY-ARGLIST ...); ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; SYS:SRC;PCL;METHODS.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/fixup.lisp" (written 31 MAY 2004 02:56:27 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (!FIX-EARLY-GENERIC-FUNCTIONS) ; compiling (COMPUTE-STANDARD-SLOT-LOCATIONS) ; compiling (DOLIST (S #) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/fixup.lisp ; in: DOLIST (S '(CONDITION STRUCTURE-OBJECT)) ; (SB-INT:DOHASH ; (SB-PCL::K SB-PCL::V ; (SB-KERNEL:CLASSOID-SUBCLASSES (SB-KERNEL:FIND-CLASSOID SB-PCL::S))) ; (FIND-CLASS (SB-KERNEL:CLASSOID-NAME SB-PCL::K))) ; --> WITH-HASH-TABLE-ITERATOR LET MACROLET LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (#:G3) (SB-PCL::K) (SB-PCL::V) &REST #:G10) ; (DECLARE (IGNORE #:G10)) ; (UNLESS #:G3 (RETURN NIL)) ; (FIND-CLASS (SB-KERNEL:CLASSOID-NAME SB-PCL::K))) ; ; caught STYLE-WARNING: ; #S(SIMPLE-STYLE-WARNING ; :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used. ; FORMAT-ARGUMENTS (V)) ; :ASSIGNED-SLOTS NIL) ; compiling (SETQ *BOOT-STATE* ...) ; compiling (DEFUN PRINT-STD-INSTANCE ...); ; compilation unit finished ; caught 1 STYLE-WARNING condition ; SYS:SRC;PCL;FIXUP.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/defcombin.lisp" (written 08 AUG 2006 03:24:27 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFMACRO DEFINE-METHOD-COMBINATION ...) ; compiling (DEFMETHOD FIND-METHOD-COMBINATION ...) ; compiling (DEFUN EXPAND-SHORT-DEFCOMBIN ...) ; compiling (DEFUN LOAD-SHORT-DEFCOMBIN ...) ; compiling (DEFUN SHORT-COMBINE-METHODS ...) ; compiling (DEFMETHOD COMPUTE-EFFECTIVE-METHOD ...) ; compiling (DEFMETHOD INVALID-QUALIFIERS ...) ; compiling (DEFUN EXPAND-LONG-DEFCOMBIN ...) ; compiling (DEFVAR *LONG-METHOD-COMBINATION-FUNCTIONS* ...) ; compiling (DEFUN LOAD-LONG-DEFCOMBIN ...) ; compiling (DEFMETHOD COMPUTE-EFFECTIVE-METHOD ...) ; compiling (DEFUN MAKE-LONG-METHOD-COMBINATION-FUNCTION ...) ; compiling (DEFINE-CONDITION LONG-METHOD-COMBINATION-ERROR ...) ; compiling (DEFUN GROUP-COND-CLAUSE ...) ; compiling (DEFUN WRAP-METHOD-GROUP-SPECIFIER-BINDINGS ...) ; compiling (DEFUN PARSE-METHOD-GROUP-SPECIFIER ...) ; compiling (DEFUN PARSE-QUALIFIER-PATTERN ...) ; compiling (DEFUN QUALIFIER-CHECK-RUNTIME ...) ; compiling (DEFUN MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION ...) ; compiling (DEFUN DEAL-WITH-ARGS-OPTION ...) ; compiling (DEFUN FROB-COMBINED-METHOD-ARGS ...) ; SYS:SRC;PCL;DEFCOMBIN.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/ctypes.lisp" (written 16 JAN 2002 10:00:35 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFINE-METHOD-COMBINATION + ...) ; compiling (DEFINE-METHOD-COMBINATION AND ...) ; compiling (DEFINE-METHOD-COMBINATION APPEND ...) ; compiling (DEFINE-METHOD-COMBINATION LIST ...) ; compiling (DEFINE-METHOD-COMBINATION MAX ...) ; compiling (DEFINE-METHOD-COMBINATION MIN ...) ; compiling (DEFINE-METHOD-COMBINATION NCONC ...) ; compiling (DEFINE-METHOD-COMBINATION OR ...) ; compiling (DEFINE-METHOD-COMBINATION PROGN ...) ; SYS:SRC;PCL;CTYPES.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/env.lisp" (written 16 APR 2006 08:10:20 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN LIST-ALL-MAYBE-METHOD-NAMES ...) ; compiling (FMAKUNBOUND (QUOTE MAKE-LOAD-FORM)) ; compiling (DEFGENERIC MAKE-LOAD-FORM ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DEFUN MAKE-LOAD-FORM-SAVING-SLOTS ...) ; SYS:SRC;PCL;ENV.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/documentation.lisp" (written 13 SEP 2006 04:59:33 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFUN FUN-DOC ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFUN (SETF FUN-DOC) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (DEFMETHOD DOCUMENTATION ...) ; compiling (DEFMETHOD (SETF DOCUMENTATION) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; SYS:SRC;PCL;DOCUMENTATION.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/print-object.lisp" (written 13 FEB 2006 03:59:16 PM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (/SHOW0 "about to replace placeholder PRINT-OBJECT with DEFGENERIC") ; compiling (LET (#) ...) ; compiling (/SHOW0 "done replacing placeholder PRINT-OBJECT with DEFGENERIC") ; compiling (DEFUN SB-IMPL::PRINTED-AS-FUNCALLABLE-STANDARD-CLASS ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFUN NAMED-OBJECT-PRINT-FUNCTION ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; SYS:SRC;PCL;PRINT-OBJECT.FASL.NEWEST written ; compilation finished in 0:00:01 STYLE-WARNING: # ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/precom1.lisp" (written 25 MAR 2003 12:13:17 AM): ; compiling (IN-PACKAGE "SB-PCL") ; SYS:SRC;PCL;PRECOM1.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/precom2.lisp" (written 21 OCT 2000 12:30:35 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (PRECOMPILE-RANDOM-CODE-SEGMENTS PCL) ; SYS:SRC;PCL;PRECOM2.FASL.NEWEST written ; compilation finished in 0:00:06 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/force-delayed-defbangmethods.lisp" (written 14 JUL 2005 05:30:34 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; compiling (FORCE-DELAYED-DEF!METHODS) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/force-delayed-defbangmethods.lisp ; in: ; MACROLET ((FORCE-DELAYED-DEF!METHODS NIL ; `(PROGN ; ,@#1# ; (DEFMACRO DEF!METHOD # ,'`#) ; (MAKUNBOUND '*DELAYED-DEF!METHOD-ARGS*)))) ; (SB-IMPL::FORCE-DELAYED-DEF!METHODS) ; --> PROGN PROGN DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS ; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 ; --> SB-PCL::PV-ENV LET LET BLOCK IF IF SB-PCL::OPTIMIZED-SLOT-BOUNDP ; --> SB-PCL::INSTANCE-BOUNDP SB-PCL::INSTANCE-BOUNDP-INTERNAL LOCALLY LET ; --> TYPECASE LET COND IF COND IF PROGN SB-PCL::ACCESSOR-SLOT-BOUNDP LET ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::NAME BOUNDP) ; CONDITION) ; ; caught STYLE-WARNING: ; # ; ; caught STYLE-WARNING: ; # ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; SYS:SRC;CODE;FORCE-DELAYED-DEFBANGMETHODS.FASL.NEWEST written ; compilation finished in 0:00:09 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/late-condition.lisp" (written 20 DEC 2003 07:13:47 AM): ; compiling (IN-PACKAGE "SB-KERNEL") ; compiling (FMAKUNBOUND (QUOTE INSTALL-CONDITION-SLOT-READER)) ; compiling (FMAKUNBOUND (QUOTE INSTALL-CONDITION-SLOT-WRITER)) ; compiling (DEFMACRO STANDARD-METHOD-FUNCTION ...) ; compiling (DEFUN INSTALL-CONDITION-SLOT-READER ...) ; compiling (DEFUN INSTALL-CONDITION-SLOT-WRITER ...) ; SYS:SRC;CODE;LATE-CONDITION.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/gray-streams-class.lisp" (written 21 DEC 2006 03:17:41 AM): ; compiling (IN-PACKAGE "SB-GRAY") ; compiling (LET (#) ...) ; compiling (DEFCLASS FUNDAMENTAL-INPUT-STREAM ...) ; compiling (DEFCLASS FUNDAMENTAL-OUTPUT-STREAM ...) ; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-STREAM ...) ; compiling (DEFCLASS FUNDAMENTAL-BINARY-STREAM ...) ; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-INPUT-STREAM ...) ; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ...) ; compiling (DEFCLASS FUNDAMENTAL-BINARY-INPUT-STREAM ...) ; compiling (DEFCLASS FUNDAMENTAL-BINARY-OUTPUT-STREAM ...) ; SYS:SRC;PCL;GRAY-STREAMS-CLASS.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/gray-streams.lisp" (written 20 NOV 2005 07:40:03 PM): ; compiling (IN-PACKAGE "SB-GRAY") ; compiling (DEFMACRO BUG-OR-ERROR ...) ; compiling (FMAKUNBOUND (QUOTE STREAM-ELEMENT-TYPE)) ; compiling (DEFGENERIC STREAM-ELEMENT-TYPE ...) ; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...) ; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...) ; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...) ; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...) ; compiling (DEFGENERIC PCL-OPEN-STREAM-P ...) ; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...) ; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...) ; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...) ; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...) ; compiling (PCL-OPEN-STREAM-P (MAKE-STRING-OUTPUT-STREAM)) ; compiling (SETF (FDEFINITION #) ...) ; compiling (DEFGENERIC PCL-CLOSE ...) ; compiling (DEFMETHOD PCL-CLOSE ...) ; compiling (DEFMETHOD PCL-CLOSE ...) ; compiling (SETF (FDEFINITION #) ...) ; compiling (LET NIL ...) ; compiling (LET NIL ...) ; compiling (LET NIL ...) ; compiling (DEFGENERIC STREAM-READ-CHAR ...) ; compiling (DEFGENERIC STREAM-UNREAD-CHAR ...) ; compiling (DEFGENERIC STREAM-READ-CHAR-NO-HANG ...) ; compiling (DEFMETHOD STREAM-READ-CHAR-NO-HANG ...) ; compiling (DEFGENERIC STREAM-PEEK-CHAR ...) ; compiling (DEFMETHOD STREAM-PEEK-CHAR ...) ; compiling (DEFGENERIC STREAM-LISTEN ...) ; compiling (DEFMETHOD STREAM-LISTEN ...) ; compiling (DEFGENERIC STREAM-READ-LINE ...) ; compiling (DEFMETHOD STREAM-READ-LINE ...) ; compiling (DEFGENERIC STREAM-CLEAR-INPUT ...) ; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...) ; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...) ; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...) ; compiling (DEFGENERIC STREAM-READ-SEQUENCE ...) ; compiling (DEFUN BASIC-IO-TYPE-STREAM-READ-SEQUENCE ...) ; compiling (DEFMETHOD STREAM-READ-SEQUENCE ...) ; compiling (DEFMETHOD STREAM-READ-SEQUENCE ...) ; compiling (DEFGENERIC STREAM-WRITE-CHAR ...) ; compiling (DEFGENERIC STREAM-LINE-COLUMN ...) ; compiling (DEFMETHOD STREAM-LINE-COLUMN ...) ; compiling (DEFGENERIC STREAM-LINE-LENGTH ...) ; compiling (DEFMETHOD STREAM-LINE-LENGTH ...) ; compiling (DEFGENERIC STREAM-START-LINE-P ...) ; compiling (DEFMETHOD STREAM-START-LINE-P ...) ; compiling (DEFGENERIC STREAM-WRITE-STRING ...) ; compiling (DEFMETHOD STREAM-WRITE-STRING ...) ; compiling (DEFGENERIC STREAM-TERPRI ...) ; compiling (DEFMETHOD STREAM-TERPRI ...) ; compiling (DEFGENERIC STREAM-FRESH-LINE ...) ; compiling (DEFMETHOD STREAM-FRESH-LINE ...) ; compiling (DEFGENERIC STREAM-FINISH-OUTPUT ...) ; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...) ; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...) ; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...) ; compiling (DEFGENERIC STREAM-FORCE-OUTPUT ...) ; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...) ; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...) ; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...) ; compiling (DEFGENERIC STREAM-CLEAR-OUTPUT ...) ; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...) ; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...) ; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...) ; compiling (DEFGENERIC STREAM-ADVANCE-TO-COLUMN ...) ; compiling (DEFMETHOD STREAM-ADVANCE-TO-COLUMN ...) ; compiling (DEFGENERIC STREAM-WRITE-SEQUENCE ...) ; compiling (DEFUN BASIC-IO-TYPE-STREAM-WRITE-SEQUENCE ...) ; compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...) ; compiling (DEFGENERIC STREAM-READ-BYTE ...) ; compiling (DEFMETHOD STREAM-READ-BYTE ...) ; compiling (DEFMETHOD STREAM-READ-BYTE ...) ; compiling (DEFGENERIC STREAM-WRITE-BYTE ...) ; compiling (DEFMETHOD STREAM-WRITE-BYTE ...) ; compiling (DEFMETHOD STREAM-WRITE-BYTE ...) ; compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...) ; SYS:SRC;PCL;GRAY-STREAMS.FASL.NEWEST written ; compilation finished in 0:00:02 STYLE-WARNING: new FTYPE proclamation # for STREAM-READ-CHAR does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-UNREAD-CHAR does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-READ-CHAR-NO-HANG does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-PEEK-CHAR does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-LISTEN does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-READ-LINE does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-CLEAR-INPUT does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-WRITE-CHAR does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-LINE-COLUMN does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-LINE-LENGTH does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-START-LINE-P does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-WRITE-STRING does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-TERPRI does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-FRESH-LINE does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-FINISH-OUTPUT does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-FORCE-OUTPUT does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-CLEAR-OUTPUT does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-ADVANCE-TO-COLUMN does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-READ-BYTE does not match old FTYPE proclamation # STYLE-WARNING: new FTYPE proclamation # for STREAM-WRITE-BYTE does not match old FTYPE proclamation # ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/sequence.lisp" (written 05 DEC 2006 05:50:23 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; compiling (DEFINE-CONDITION SB-SEQUENCE::PROTOCOL-UNIMPLEMENTED ...) ; compiling (DEFUN SB-SEQUENCE::PROTOCOL-UNIMPLEMENTED ...) ; compiling (DEFGENERIC SB-SEQUENCE:LENGTH ...) ; compiling (DEFGENERIC SB-SEQUENCE:ELT ...) ; compiling (DEFGENERIC (SETF SB-SEQUENCE:ELT) ...) ; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SEQUENCE-LIKE ...) ; compiling (DEFGENERIC SB-SEQUENCE:ADJUST-SEQUENCE ...) ; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SEQUENCE-ITERATOR ...) ; compiling (DEFVAR *EXHAUSTED* ...) ; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SIMPLE-SEQUENCE-ITERATOR ...) ; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-STEP ...) ; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-ENDP ...) ; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-ELEMENT ...) ; compiling (DEFGENERIC (SETF SB-SEQUENCE:ITERATOR-ELEMENT) ...) ; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-INDEX ...) ; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-COPY ...) ; compiling (DEFMACRO SB-SEQUENCE:WITH-SEQUENCE-ITERATOR ...) ; compiling (DEFMACRO SB-SEQUENCE:WITH-SEQUENCE-ITERATOR-FUNCTIONS ...) ; compiling (DEFUN SB-SEQUENCE:CANONIZE-TEST ...) ; compiling (DEFUN SB-SEQUENCE:CANONIZE-KEY ...) ; compiling (DEFUN LOOP-ELEMENTS-ITERATION-PATH ...) ; compiling (SB-LOOP::ADD-LOOP-PATH (QUOTE #) ...) ; compiling (DEFGENERIC SB-SEQUENCE:COUNT ...) ; compiling (DEFMETHOD SB-SEQUENCE:COUNT ...) ; compiling (DEFGENERIC SB-SEQUENCE:COUNT-IF ...) ; compiling (DEFMETHOD SB-SEQUENCE:COUNT-IF ...) ; compiling (DEFGENERIC SB-SEQUENCE:COUNT-IF-NOT ...) ; compiling (DEFMETHOD SB-SEQUENCE:COUNT-IF-NOT ...) ; compiling (DEFGENERIC SB-SEQUENCE:FIND ...) ; compiling (DEFMETHOD SB-SEQUENCE:FIND ...) ; compiling (DEFGENERIC SB-SEQUENCE:FIND-IF ...) ; compiling (DEFMETHOD SB-SEQUENCE:FIND-IF ...) ; compiling (DEFGENERIC SB-SEQUENCE:FIND-IF-NOT ...) ; compiling (DEFMETHOD SB-SEQUENCE:FIND-IF-NOT ...) ; compiling (DEFGENERIC SB-SEQUENCE:POSITION ...) ; compiling (DEFMETHOD SB-SEQUENCE:POSITION ...) ; compiling (DEFGENERIC SB-SEQUENCE:POSITION-IF ...) ; compiling (DEFMETHOD SB-SEQUENCE:POSITION-IF ...) ; compiling (DEFGENERIC SB-SEQUENCE:POSITION-IF-NOT ...) ; compiling (DEFMETHOD SB-SEQUENCE:POSITION-IF-NOT ...) ; compiling (DEFGENERIC SB-SEQUENCE:SUBSEQ ...) ; compiling (DEFMETHOD SB-SEQUENCE:SUBSEQ ...) ; compiling (DEFGENERIC SB-SEQUENCE:COPY-SEQ ...) ; compiling (DEFMETHOD SB-SEQUENCE:COPY-SEQ ...) ; compiling (DEFGENERIC SB-SEQUENCE:FILL ...) ; compiling (DEFMETHOD SB-SEQUENCE:FILL ...) ; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE ...) ; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE ...) ; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE-IF ...) ; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE-IF ...) ; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE-IF-NOT ...) ; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE-IF-NOT ...) ; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE ...) ; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE ...) ; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE-IF ...) ; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE-IF ...) ; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE-IF-NOT ...) ; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE-IF-NOT ...) ; compiling (DEFUN %SEQUENCE-REPLACE ...) ; compiling (DEFGENERIC SB-SEQUENCE:REPLACE ...) ; compiling (DEFMETHOD SB-SEQUENCE:REPLACE ...) ; compiling (DEFGENERIC SB-SEQUENCE:NREVERSE ...) ; compiling (DEFMETHOD SB-SEQUENCE:NREVERSE ...) ; compiling (DEFGENERIC SB-SEQUENCE:REVERSE ...) ; compiling (DEFMETHOD SB-SEQUENCE:REVERSE ...) ; compiling (DEFGENERIC SB-SEQUENCE:REDUCE ...) ; compiling (DEFMETHOD SB-SEQUENCE:REDUCE ...) ; compiling (DEFGENERIC SB-SEQUENCE:MISMATCH ...) ; compiling (DEFMETHOD SB-SEQUENCE:MISMATCH ...) ; compiling (DEFGENERIC SB-SEQUENCE:SEARCH ...) ; compiling (DEFMETHOD SB-SEQUENCE:SEARCH ...) ; compiling (DEFGENERIC SB-SEQUENCE:DELETE ...) ; compiling (DEFMETHOD SB-SEQUENCE:DELETE ...) ; compiling (DEFGENERIC SB-SEQUENCE:DELETE-IF ...) ; compiling (DEFMETHOD SB-SEQUENCE:DELETE-IF ...) ; compiling (DEFGENERIC SB-SEQUENCE:DELETE-IF-NOT ...) ; compiling (DEFMETHOD SB-SEQUENCE:DELETE-IF-NOT ...) ; compiling (DEFGENERIC SB-SEQUENCE:REMOVE ...) ; compiling (DEFMETHOD SB-SEQUENCE:REMOVE ...) ; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-IF ...) ; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-IF ...) ; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-IF-NOT ...) ; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-IF-NOT ...) ; compiling (DEFGENERIC SB-SEQUENCE:DELETE-DUPLICATES ...) ; compiling (DEFMETHOD SB-SEQUENCE:DELETE-DUPLICATES ...) ; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-DUPLICATES ...) ; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-DUPLICATES ...) ; compiling (DEFGENERIC SB-SEQUENCE:SORT ...) ; compiling (DEFMETHOD SB-SEQUENCE:SORT ...) ; compiling (DEFGENERIC SB-SEQUENCE:STABLE-SORT ...) ; compiling (DEFMETHOD SB-SEQUENCE:STABLE-SORT ...) ; SYS:SRC;PCL;SEQUENCE.FASL.NEWEST written ; compilation finished in 0:00:03 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/describe.lisp" (written 13 SEP 2006 04:59:32 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; compiling (DECLAIM (FTYPE # ...)); ; caught STYLE-WARNING: ; new FTYPE proclamation ; # ; for DESCRIBE-OBJECT does not match old FTYPE proclamation ; # ; compiling (DEFGENERIC DESCRIBE-OBJECT ...) ; compiling (DEFUN DESCRIBE ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %DESCRIBE-DOC ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %DESCRIBE-FUN-NAME ...) ; compiling (DEFUN %DESCRIBE-COMPILED-FROM ...) ; compiling (DEFUN %DESCRIBE-FUN-COMPILED ...) ; compiling (DEFUN %DESCRIBE-FUN ...) ; compiling (DEFUN %DESCRIBE-COMPILED-FUN ...) ; compiling (DEFUN %DESCRIBE-INTERPRETED-FUN ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFGENERIC DESCRIBE-SYMBOL-FDEFINITION ...) ; compiling (DEFMETHOD DESCRIBE-SYMBOL-FDEFINITION ...) ; compiling (DEFMETHOD DESCRIBE-SYMBOL-FDEFINITION ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...); ; compilation unit finished ; caught 1 STYLE-WARNING condition ; SYS:SRC;CODE;DESCRIBE.FASL.NEWEST written ; compilation finished in 0:00:03 STYLE-WARNING: redefining DESCRIBE-OBJECT in DEFGENERIC STYLE-WARNING: new FTYPE proclamation # for DESCRIBE-OBJECT does not match old FTYPE proclamation # ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/describe-policy.lisp" (written 20 JAN 2003 08:06:18 AM): ; compiling (IN-PACKAGE "SB-C") ; compiling (DEFUN DESCRIBE-COMPILER-POLICY ...) ; SYS:SRC;CODE;DESCRIBE-POLICY.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/inspect.lisp" (written 18 SEP 2006 03:26:50 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; compiling (DEFPARAMETER *INSPECT-LENGTH* ...) ; compiling (DEFVAR *INSPECT-UNBOUND-OBJECT-MARKER* ...) ; compiling (DEFUN INSPECTOR ...) ; compiling (DEFVAR *INSPECT-FUN* ...) ; compiling (DEFVAR *INSPECTED*) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (DEFUN INSPECT ...) ; compiling (DEFVAR *HELP-FOR-INSPECT* ...) ; compiling (DEFUN %INSPECT ...) ; compiling (DEFUN EVAL-FOR-INSPECT ...) ; compiling (DEFUN TTY-DISPLAY-INSPECTED-PARTS ...) ; compiling (DEFGENERIC INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFUN INSPECTED-STRUCTURE-ELEMENTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFUN INSPECTED-STANDARD-OBJECT-ELEMENTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFUN INSPECTED-INDEX-STRING ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFUN INSPECTED-PARTS-OF-SIMPLE-CONS ...) ; compiling (DEFUN INSPECTED-PARTS-OF-NONTRIVIAL-LIST ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; SYS:SRC;CODE;INSPECT.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/profile.lisp" (written 03 SEP 2005 07:41:31 PM): ; compiling (IN-PACKAGE "SB-PROFILE") ; compiling (DEFCONSTANT +TICKS-PER-SECOND+ ...) ; compiling (DECLAIM (INLINE GET-INTERNAL-TICKS)) ; compiling (DEFUN GET-INTERNAL-TICKS ...) ; compiling (DEFVAR *PROFILED-FUN-NAME->INFO* ...) ; compiling (DEFSTRUCT (PROFILE-INFO #) ...) ; compiling (DEFVAR *ENCLOSED-TICKS* ...) ; compiling (DEFVAR *ENCLOSED-CONSING* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *ENCLOSED-PROFILES* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *COMPUTING-PROFILING-DATA-FOR*) ; compiling (DEFSTRUCT (OVERHEAD #) ...) ; compiling (DEFVAR *OVERHEAD*) ; compiling (DECLAIM (TYPE OVERHEAD ...)) ; compiling (MAKUNBOUND (QUOTE *OVERHEAD*)) ; compiling (DEFMACRO FASTBIG- ...) ; compiling (DEFMACRO FASTBIG-1+ ...) ; compiling (DEFUN PROFILE-ENCAPSULATION-LAMBDAS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/profile.lisp ; in: DEFUN PROFILE-ENCAPSULATION-LAMBDAS ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM COUNT 1) ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM ; ==> ; COUNT ; ; note: deleting unreachable code ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::*ENCLOSED-TICKS* ; SB-PROFILE::DTICKS) ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN ; --> LET ; ==> ; (+ SB-PROFILE::X SB-PROFILE::DELTA) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES FIXNUM ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES FIXNUM ; &REST ; T). ; etc. ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::*ENCLOSED-CONSING* ; SB-PROFILE::DCONSING) ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN ; --> LET ; ==> ; (+ SB-PROFILE::X SB-PROFILE::DELTA) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES FIXNUM ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES FIXNUM ; &REST ; T). ; etc. ; (SB-PROFILE::FASTBIG-1+ SB-PROFILE::INNER-ENCLOSED-PROFILES) ; --> LET IF 1+ ; ==> ; (+ #:ONCE-ONLY-183 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (+ #:ONCE-ONLY-178 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::*ENCLOSED-PROFILES* ; (SB-PROFILE::FASTBIG-1+ ; SB-PROFILE::INNER-ENCLOSED-PROFILES)) ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN ; --> LET ; ==> ; (+ SB-PROFILE::X SB-PROFILE::DELTA) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER -536870911) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER -536870911) . #1#), not a (VALUES FIXNUM ; &REST ; T). ; etc. ; (SB-PROFILE::FASTBIG-1+ SB-PROFILE::INNER-ENCLOSED-PROFILES) ; --> LET IF 1+ ; ==> ; (+ #:ONCE-ONLY-181 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do #1=inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES ; FIXNUM ; &REST T). ; unable to do #1# (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T). ; etc. ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::*ENCLOSED-PROFILES* ; (SB-PROFILE::FASTBIG-1+ ; SB-PROFILE::INNER-ENCLOSED-PROFILES)) ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN ; --> LET ; ==> ; (+ SB-PROFILE::X SB-PROFILE::DELTA) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER -536870911) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER -536870911) . #1#), not a (VALUES FIXNUM ; &REST ; T). ; etc. ; (SB-PROFILE::FASTBIG- (SB-PROFILE::GET-INTERNAL-TICKS) ; SB-PROFILE::START-TICKS) ; --> LET LET IF ; ==> ; (- #:ONCE-ONLY-194 #:ONCE-ONLY-195) ; ; 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 INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) 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 INTEGER . #1#), not a (VALUES FIXNUM &REST T). ; etc. ; (SETF SB-PROFILE::DTICKS ; (SB-PROFILE::FASTBIG- (SB-PROFILE::GET-INTERNAL-TICKS) ; SB-PROFILE::START-TICKS)) ; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET AND IF ; --> AND LOCALLY AND >= IF ; ==> ; (< (TRULY-THE INTEGER #:ONCE-ONLY-250) 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0) ; --> EQL IF ; ==> ; (EQL SB-C::Y SB-C::X) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; (- (GET-BYTES-CONSED) SB-PROFILE::NBF0 SB-PROFILE::DYNAMIC-USAGE-0) ; --> - ; ==> ; (- (GET-BYTES-CONSED) SB-PROFILE::NBF0) ; ; 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 INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) 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 INTEGER . #1#), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (- (- (GET-BYTES-CONSED) SB-PROFILE::NBF0) SB-PROFILE::DYNAMIC-USAGE-0) ; ; 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 32), not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES INTEGER . #1#), not a (VALUES FIXNUM &REST T). ; etc. ; (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0) ; ; 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 (INTEGER -4294967295 4294967295) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) 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 (INTEGER -4294967295 4294967295) ; . #1#), not a (VALUES FIXNUM &REST T). ; etc. ; (SETF SB-PROFILE::DCONSING ; (IF (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0) ; (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0) ; (- (GET-BYTES-CONSED) SB-PROFILE::NBF0 ; SB-PROFILE::DYNAMIC-USAGE-0))) ; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET AND IF ; --> AND LOCALLY AND >= IF ; ==> ; (< (TRULY-THE INTEGER #:ONCE-ONLY-253) 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (SB-PROFILE::FASTBIG- SB-PROFILE::DTICKS SB-PROFILE::*ENCLOSED-TICKS*) ; --> LET LET IF ; ==> ; (- #:ONCE-ONLY-203 #:ONCE-ONLY-204) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a (OR PCOUNTER FIXNUM), not a FIXNUM. ; The result is a (VALUES (INTEGER -536870911) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a (OR PCOUNTER FIXNUM), not a FIXNUM. ; The result is a (VALUES (INTEGER -536870911) . #1#), not a (VALUES FIXNUM ; &REST ; T). ; etc. ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::TICKS ; SB-PROFILE::NET-DTICKS) ; --> LET SB-INT:AVER UNLESS COND IF NOT IF TYPEP LET AND IF AND LOCALLY AND >= ; --> IF ; ==> ; (< (TRULY-THE INTEGER #:ONCE-ONLY-200) 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER -536870911), not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a (INTEGER -536870911), not a FIXNUM. ; etc. ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN ; --> LET ; ==> ; (+ SB-PROFILE::X SB-PROFILE::DELTA) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER -536870911), not a FIXNUM. ; The result is a (VALUES (INTEGER -1073741823) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a (INTEGER -536870911), not a FIXNUM. ; The result is a (VALUES (INTEGER -1073741823) . #1#), not a (VALUES ; FIXNUM &REST ; T). ; etc. ; (SB-PROFILE::FASTBIG- SB-PROFILE::DCONSING ; (SB-INT:PCOUNTER-OR-FIXNUM->INTEGER ; SB-PROFILE::*ENCLOSED-CONSING*)) ; --> LET LET IF ; ==> ; (- #:ONCE-ONLY-211 #:ONCE-ONLY-212) ; ; 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 INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) 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 INTEGER . #1#), not a (VALUES FIXNUM &REST T). ; etc. ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::CONSING ; SB-PROFILE::NET-DCONSING) ; --> LET SB-INT:AVER UNLESS COND IF NOT IF TYPEP LET AND IF AND LOCALLY AND >= ; --> IF ; ==> ; (< (TRULY-THE INTEGER #:ONCE-ONLY-208) 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do #1=inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do #1# (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN ; --> LET ; ==> ; (+ SB-PROFILE::X SB-PROFILE::DELTA) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM ; &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER . #1#), not a (VALUES FIXNUM &REST T). ; etc. ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::PROFILES ; SB-PROFILE::INNER-ENCLOSED-PROFILES) ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN ; --> LET ; ==> ; (+ SB-PROFILE::X SB-PROFILE::DELTA) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES FIXNUM ; &REST ; T). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) ; . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES FIXNUM ; &REST ; T). ; etc. ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM COUNT 1) ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN ; --> LET ; ==> ; (+ SB-PROFILE::X SB-PROFILE::DELTA) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 32) arithmetic ; (MULTIPLE-VALUE-CALL SB-PROFILE::ENCAPSULATED-FUN ; (SB-C:%MORE-ARG-VALUES SB-PROFILE::ARG-CONTEXT 0 SB-PROFILE::ARG-COUNT)) ; --> PROGN ; ==> ; (SB-C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS NIL {514132A9}>) ; ; note: doing unsigned word to integer coercion (cost 20) from SB-ALIEN:ALIEN ; (UNWIND-PROTECT ; (MULTIPLE-VALUE-CALL SB-PROFILE::ENCAPSULATED-FUN ; (SB-C:%MORE-ARG-VALUES SB-PROFILE::ARG-CONTEXT 0 ; SB-PROFILE::ARG-COUNT)) ; (LET ((SB-PROFILE::*COMPUTING-PROFILING-DATA-FOR* ; SB-PROFILE::ENCAPSULATED-FUN) ; (SB-PROFILE::DYNAMIC-USAGE-1 (SB-KERNEL:DYNAMIC-USAGE))) ; (SETF SB-PROFILE::DTICKS ; (SB-PROFILE::FASTBIG- (SB-PROFILE::GET-INTERNAL-TICKS) ; SB-PROFILE::START-TICKS)) ; (SETF SB-PROFILE::DCONSING ; (IF (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0) ; (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0) ; (- # SB-PROFILE::NBF0 SB-PROFILE::DYNAMIC-USAGE-0))) ; (SETF SB-PROFILE::INNER-ENCLOSED-PROFILES ; (SB-INT:PCOUNTER-OR-FIXNUM->INTEGER ; SB-PROFILE::*ENCLOSED-PROFILES*)) ; (LET ((SB-PROFILE::NET-DTICKS #)) ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::TICKS ; SB-PROFILE::NET-DTICKS)) ; (LET ((SB-PROFILE::NET-DCONSING #)) ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::CONSING ; SB-PROFILE::NET-DCONSING)) ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::PROFILES ; SB-PROFILE::INNER-ENCLOSED-PROFILES))) ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (#:CLEANUP-FUN-188) ; ; note: doing unsigned word to integer coercion (cost 20) from SB-ALIEN:ALIEN ; (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::CONSING ; SB-PROFILE::NET-DCONSING) ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN ; --> LET ; ==> ; (+ SB-PROFILE::X SB-PROFILE::DELTA) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 32) arithmetic ; (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::TICKS ; SB-PROFILE::NET-DTICKS) ; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* ; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN ; --> LET ; ==> ; (+ SB-PROFILE::X SB-PROFILE::DELTA) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 32) arithmetic ; compiling (DEFUN MAPC-ON-NAMED-FUNS ...) ; compiling (DEFUN PROFILE-1-UNPROFILED-FUN ...) ; compiling (DEFUN PROFILE-1-FUN ...) ; compiling (DEFUN UNPROFILE-1-FUN ...) ; compiling (DEFMACRO PROFILE ...) ; compiling (DEFMACRO UNPROFILE ...) ; compiling (DEFUN UNPROFILE-ALL ...) ; compiling (DEFUN RESET ...) ; compiling (DEFSTRUCT (TIME-INFO #) ...) ; compiling (DEFUN COMPENSATE-TIME ...) ; compiling (DEFUN REPORT ...) ; compiling (DEFUN PRINT-PROFILE-TABLE ...) ; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; compiling (DEFPARAMETER *TIMER-OVERHEAD-ITERATIONS* ...) ; compiling (DECLAIM (NOTINLINE COMPUTE-OVERHEAD-AUX)) ; compiling (DEFUN COMPUTE-OVERHEAD-AUX ...) ; compiling (DEFUN COMPUTE-OVERHEAD ...) ; compiling (DEFUN PROFILE-DEINIT ...); ; compilation unit finished ; printed 31 notes ; SYS:SRC;CODE;PROFILE.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/ntrace.lisp" (written 28 MAY 2006 03:27:23 PM): ; compiling (IN-PACKAGE "SB-DEBUG") ; compiling (DEFVAR *TRACE-VALUES* ...) ; compiling (DEFVAR *TRACE-INDENTATION-STEP* ...) ; compiling (DEFVAR *MAX-TRACE-INDENTATION* ...) ; compiling (DEFVAR *TRACE-ENCAPSULATE-DEFAULT* ...) ; compiling (DEFVAR *TRACED-FUNS* ...) ; compiling (DEF!STRUCT (TRACE-INFO # ...) ...) ; compiling (DEFVAR *TRACED-ENTRIES* ...) ; compiling (DECLAIM (LIST *TRACED-ENTRIES*)) ; compiling (DEFVAR *IN-TRACE* ...) ; compiling (DEFUN TRACE-FDEFINITION ...) ; compiling (DEFUN TRACE-REDEFINED-UPDATE ...) ; compiling (PUSH (FUNCTION TRACE-REDEFINED-UPDATE) ...) ; compiling (DEFUN COERCE-FORM ...) ; compiling (DEFUN COERCE-FORM-LIST ...) ; compiling (DEFUN PRINT-TRACE-INDENTATION ...) ; compiling (DEFUN TRACE-WHEREIN-P ...) ; compiling (DEFUN TRACE-PRINT ...) ; compiling (DEFUN TRACE-MAYBE-BREAK ...) ; compiling (DEFUN DISCARD-INVALID-ENTRIES ...) ; compiling (DEFUN TRACE-START-BREAKPOINT-FUN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN TRACE-END-BREAKPOINT-FUN ...) ; compiling (DEFUN TRACE-CALL ...) ; compiling (DEFUN TRACE-1 ...) ; compiling (DEFUN PARSE-TRACE-OPTIONS ...) ; compiling (DEFUN EXPAND-TRACE ...) ; compiling (DEFUN %LIST-TRACED-FUNS ...) ; compiling (DEFMACRO TRACE ...) ; compiling (DEFUN UNTRACE-1 ...) ; compiling (DEFUN UNTRACE-ALL ...) ; compiling (DEFMACRO UNTRACE ...) ; SYS:SRC;CODE;NTRACE.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/step.lisp" (written 01 NOV 2006 01:00:41 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; compiling (DEFUN STEP-FORM ...) ; compiling (DEFUN STEP-VALUES ...) ; compiling (DEFUN STEP-FINISHED ...) ; compiling (DEFGENERIC SINGLE-STEP ...) ; compiling (DEFMETHOD SINGLE-STEP ...) ; compiling (DEFMETHOD SINGLE-STEP ...) ; compiling (DEFMETHOD SINGLE-STEP ...) ; compiling (DEFVAR *STEPPER-HOOK* ...) ; compiling (DEFUN INVOKE-STEPPER ...) ; compiling (DEFMACRO STEP ...) ; SYS:SRC;CODE;STEP.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/run-program.lisp" (written 19 NOV 2006 04:27:13 PM): ; compiling (IN-PACKAGE "SB-IMPL") ; compiling (DEFINE-ALIEN-ROUTINE WRAPPED-ENVIRON ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/run-program.lisp ; in: DEFINE-ALIEN-ROUTINE WRAPPED-ENVIRON ; (DEFINE-ALIEN-ROUTINE SB-IMPL::WRAPPED-ENVIRON (* C-STRING)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES ; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFUN POSIX-ENVIRON ...) ; compiling (DEFUN UNIX-ENVIRONMENT-CMUCL-FROM-SBCL ...) ; compiling (DEFUN UNIX-ENVIRONMENT-SBCL-FROM-CMUCL ...) ; compiling (DEFINE-ALIEN-ROUTINE ("wait3" C-WAIT3) ...) ; compiling (DEFUN WAIT3 ...) ; compiling (DEFVAR *ACTIVE-PROCESSES* ...) ; compiling (DEFVAR *ACTIVE-PROCESSES-LOCK* ...) ; compiling (DEFMACRO WITH-ACTIVE-PROCESSES-LOCK ...) ; compiling (DEFSTRUCT (PROCESS #) ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (DEFUN PROCESS-STATUS ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (DEFUN PROCESS-WAIT ...) ; compiling (DEFUN FIND-CURRENT-FOREGROUND-PROCESS ...) ; compiling (DEFUN PROCESS-KILL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/code/run-program.lisp ; in: DEFUN PROCESS-KILL ; (VALUES NIL SB-IMPL::ERRNO) ; ==> ; SB-IMPL::ERRNO ; ; note: deleting unreachable code ; compiling (DEFUN PROCESS-ALIVE-P ...) ; compiling (DEFUN PROCESS-CLOSE ...) ; compiling (DEFUN SIGCHLD-HANDLER ...) ; compiling (DEFUN GET-PROCESSES-STATUS-CHANGES ...) ; compiling (DEFVAR *CLOSE-ON-ERROR* ...) ; compiling (DEFVAR *CLOSE-IN-PARENT* ...) ; compiling (DEFVAR *HANDLERS-INSTALLED* ...) ; compiling (DEFINE-ALIEN-ROUTINE PTSNAME ...) ; compiling (DEFINE-ALIEN-ROUTINE GRANTPT ...) ; compiling (DEFINE-ALIEN-ROUTINE UNLOCKPT ...) ; compiling (DEFUN FIND-A-PTY ...) ; compiling (DEFUN OPEN-PTY ...) ; compiling (DEFMACRO ROUND-BYTES-TO-WORDS ...) ; compiling (DEFUN STRING-LIST-TO-C-STRVEC ...) ; compiling (DEFMACRO WITH-C-STRVEC ...) ; compiling (DEFINE-ALIEN-ROUTINE SPAWN ...) ; compiling (DEFUN UNIX-FILENAME-IS-EXECUTABLE-P ...) ; compiling (DEFUN FIND-EXECUTABLE-IN-SEARCH-PATH ...) ; compiling (DEFUN RUN-PROGRAM ...) ; compiling (DEFUN COPY-DESCRIPTOR-TO-STREAM ...) ; compiling (DEFUN GET-STREAM-FD ...) ; compiling (DEFUN GET-DESCRIPTOR-FOR ...); ; compilation unit finished ; printed 2 notes ; SYS:SRC;CODE;RUN-PROGRAM.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/pcl/describe.lisp" (written 07 NOV 2006 01:08:24 AM): ; compiling (IN-PACKAGE "SB-PCL") ; compiling (DEFMETHOD SLOTS-TO-INSPECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; compiling (DEFMETHOD DESCRIBE-OBJECT ...) ; SYS:SRC;PCL;DESCRIBE.FASL.NEWEST written ; compilation finished in 0:00:02 T * NIL * NIL * NIL * NIL * NIL * NIL * NIL * * NIL * NIL * #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL) * T * [undoing binding stack and other enclosing state... done] [saving current Lisp image into /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core: writing 1872 bytes from the read-only space at 0x04000000 writing 1128 bytes from the static space at 0x08000000 writing 25493504 bytes from the dynamic space at 0x4f000000 done] real 1m11.472s user 0m47.225s sys 0m1.934s make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "asdf" "asdf"))' ; registering # as ASDF-INSTALL ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/sb-bsd-sockets.asd ; into # ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/defpackage.lisp" (written 29 JUN 2004 09:50:57 AM): ; compiling (DEFPACKAGE "SB-GROVEL" ...) ; SYS:CONTRIB;SB-GROVEL;DEFPACKAGE.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/def-to-lisp.lisp" (written 19 NOV 2006 04:27:03 PM): ; compiling (IN-PACKAGE #:SB-GROVEL) ; compiling (DEFVAR *DEFAULT-C-STREAM* ...) ; compiling (DEFUN ESCAPE-FOR-STRING ...) ; compiling (DEFUN SPLIT-CFLAGS ...) ; compiling (DEFUN C-ESCAPE ...) ; compiling (DEFUN AS-C ...) ; compiling (DEFUN PRINTF ...) ; compiling (DEFUN C-FOR-ENUM ...) ; compiling (DEFUN C-FOR-STRUCTURE ...) ; compiling (DEFUN PRINT-C-SOURCE ...) ; compiling (DEFUN C-CONSTANTS-EXTRACT ...) ; compiling (DEFCLASS GROVEL-CONSTANTS-FILE ...) ; compiling (DEFINE-CONDITION C-COMPILE-FAILED ...) ; compiling (DEFINE-CONDITION A-DOT-OUT-FAILED ...) ; compiling (DEFMETHOD PERFORM ...) ; SYS:CONTRIB;SB-GROVEL;DEF-TO-LISP.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/foreign-glue.lisp" (written 14 JUL 2005 05:30:08 PM): ; compiling (IN-PACKAGE :SB-GROVEL) ; compiling (DEFMACRO DEFINE-FOREIGN-ROUTINE ...) ; compiling (DEFUN REINTERN ...) ; compiling (DEFPARAMETER ALIEN-TYPE-TABLE ...) ; compiling (DEFPARAMETER LISP-TYPE-TABLE ...) ; compiling (DEFINE-ALIEN-TYPES (TYPE SIZE) ...) ; compiling (DEFUN RETRIEVE-TYPE-FOR ...) ; compiling (DEFUN ALIEN-TYPE-FOR ...) ; compiling (DEFUN LISP-TYPE-FOR ...) ; compiling (DEFUN MK-PADDING ...) ; compiling (DEFUN MK-STRUCT ...) ; compiling (DEFUN MK-UNION ...) ; compiling (DEFUN MK-VAL ...) ; compiling (DEFCLASS SLOT ...) ; compiling (DEFCLASS STRUCTURED-TYPE ...) ; compiling (DEFCLASS UNION ...) ; compiling (DEFCLASS STRUCT ...) ; compiling (DEFCLASS VALUE-SLOT ...) ; compiling (DEFCLASS PADDING ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD SIZE ...) ; compiling (DEFGENERIC SLOT-END ...) ; compiling (DEFMETHOD SLOT-END ...) ; compiling (DEFUN OVERLAP-P ...) ; compiling (DEFGENERIC FIND-OVERLAPS ...) ; compiling (DEFMETHOD FIND-OVERLAPS ...) ; compiling (DEFMETHOD FIND-OVERLAPS ...) ; compiling (DEFGENERIC PAD-TO-OFFSET-OF ...) ; compiling (DEFMETHOD PAD-TO-OFFSET-OF ...) ; compiling (DEFMETHOD PAD-TO-OFFSET-OF ...) ; compiling (DEFGENERIC REPLACE-BY-UNION ...) ; compiling (DEFMETHOD REPLACE-BY-UNION ...) ; compiling (DEFMETHOD REPLACE-BY-UNION ...) ; compiling (DEFGENERIC INSERT-ELEMENT ...) ; compiling (DEFMETHOD INSERT-ELEMENT ...) ; compiling (DEFUN SANE-SLOT ...) ; compiling (DEFGENERIC ACCESSOR-MODIFIER-FOR ...) ; compiling (DEFMACRO IDENTITY-1 ...) ; compiling (DEFUN (SETF IDENTITY-1) ...) ; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...) ; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...) ; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...) ; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...) ; compiling (DEFUN C-STRING->LISP-STRING ...) ; compiling (DEFUN (SETF C-STRING->LISP-STRING) ...) ; compiling (DEFGENERIC ACCESSORS-FOR ...) ; compiling (DEFMETHOD ACCESSORS-FOR ...) ; compiling (DEFMETHOD ACCESSORS-FOR ...) ; compiling (DEFMETHOD ACCESSORS-FOR ...) ; compiling (DEFGENERIC GENERATE-STRUCT-DEFINITION ...) ; compiling (DEFMETHOD GENERATE-STRUCT-DEFINITION ...) ; compiling (DEFMETHOD GENERATE-STRUCT-DEFINITION ...) ; compiling (DEFMACRO DEFINE-C-STRUCT ...) ; compiling (DEFUN FOREIGN-NULLP ...) ; SYS:CONTRIB;SB-GROVEL;FOREIGN-GLUE.FASL.NEWEST written ; compilation finished in 0:00:01 ; registering # as SB-BSD-SOCKETS ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-BSD-SOCKETS-TESTS ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/sb-posix.asd ; into # ; registering # as SB-POSIX ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-POSIX-TESTS ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/defpackage.lisp" (written 05 APR 2006 09:47:17 AM): ; compiling (DEFPACKAGE "SB-BSD-SOCKETS-INTERNAL" ...) ; compiling (DEFPACKAGE "SB-BSD-SOCKETS" ...) ; compiling (IN-PACKAGE :SB-BSD-SOCKETS) ; compiling (DEFMETHOD ASDF:HYPERDOCUMENTATION ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;DEFPACKAGE.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/split.lisp" (written 07 FEB 2003 05:11:52 PM): ; compiling (IN-PACKAGE :SB-BSD-SOCKETS) ; compiling (DEFUN SPLIT ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;SPLIT.FASL.NEWEST written ; compilation finished in 0:00:00 (SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.LISP.NEWEST SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.FASL.NEWEST /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.fasl /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/a.out /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp) /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c: In function 'main': /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:387: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:394: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:401: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:421: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:430: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:437: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:444: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:453: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:460: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:469: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:476: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:483: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:490: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:497: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:506: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:513: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:520: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:527: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:534: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:541: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/foo.c:548: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp" (written 29 DEC 2006 10:26:36 PM): ; compiling (IN-PACKAGE #:SOCKINT) ; compiling (DEFCONSTANT AF-INET ...) ; compiling (DEFCONSTANT AF-UNSPEC ...) ; compiling (DEFCONSTANT AF-LOCAL ...) ; compiling (DEFCONSTANT AF-INET6 ...) ; compiling (DEFCONSTANT AF-ROUTE ...) ; compiling (DEFCONSTANT SOCK-STREAM ...) ; compiling (DEFCONSTANT SOCK-DGRAM ...) ; compiling (DEFCONSTANT SOCK-RAW ...) ; compiling (DEFCONSTANT SOCK-RDM ...) ; compiling (DEFCONSTANT SOCK-SEQPACKET ...) ; compiling (DEFCONSTANT SOL-SOCKET ...) ; compiling (DEFCONSTANT SO-DEBUG ...) ; compiling (DEFCONSTANT SO-REUSEADDR ...) ; compiling (DEFCONSTANT SO-TYPE ...) ; compiling (DEFCONSTANT SO-ERROR ...) ; compiling (DEFCONSTANT SO-DONTROUTE ...) ; compiling (DEFCONSTANT SO-BROADCAST ...) ; compiling (DEFCONSTANT SO-SNDBUF ...) ; compiling (DEFCONSTANT SO-PASSCRED ...) ; compiling (DEFCONSTANT SO-RCVBUF ...) ; compiling (DEFCONSTANT SO-KEEPALIVE ...) ; compiling (DEFCONSTANT SO-OOBINLINE ...) ; compiling (DEFCONSTANT SO-NO-CHECK ...) ; compiling (DEFCONSTANT SO-PRIORITY ...) ; compiling (DEFCONSTANT SO-LINGER ...) ; compiling (DEFCONSTANT SO-BSDCOMPAT ...) ; compiling (DEFCONSTANT SO-SNDLOWAT ...) ; compiling (DEFCONSTANT SO-RCVLOWAT ...) ; compiling (DEFCONSTANT SO-SNDTIMEO ...) ; compiling (DEFCONSTANT SO-RCVTIMEO ...) ; compiling (DEFCONSTANT TCP-NODELAY ...) ; compiling (DEFCONSTANT SO-BINDTODEVICE ...) ; compiling (DEFCONSTANT IFNAMSIZ ...) ; compiling (DEFCONSTANT EADDRINUSE ...) ; compiling (DEFCONSTANT EAGAIN ...) ; compiling (DEFCONSTANT EBADF ...) ; compiling (DEFCONSTANT ECONNREFUSED ...) ; compiling (DEFCONSTANT ETIMEDOUT ...) ; compiling (DEFCONSTANT EINTR ...) ; compiling (DEFCONSTANT EINVAL ...) ; compiling (DEFCONSTANT ENOBUFS ...) ; compiling (DEFCONSTANT ENOMEM ...) ; compiling (DEFCONSTANT EOPNOTSUPP ...) ; compiling (DEFCONSTANT EPERM ...) ; compiling (DEFCONSTANT EPROTONOSUPPORT ...) ; compiling (DEFCONSTANT ESOCKTNOSUPPORT ...) ; compiling (DEFCONSTANT ENETUNREACH ...) ; compiling (DEFCONSTANT ENOTCONN ...) ; compiling (DEFCONSTANT NETDB-INTERNAL ...) ; compiling (DEFCONSTANT NETDB-SUCCESS ...) ; compiling (DEFCONSTANT HOST-NOT-FOUND ...) ; compiling (DEFCONSTANT TRY-AGAIN ...) ; compiling (DEFCONSTANT NO-RECOVERY ...) ; compiling (DEFCONSTANT NO-DATA ...) ; compiling (DEFCONSTANT NO-ADDRESS ...) ; compiling (DEFCONSTANT O-NONBLOCK ...) ; compiling (DEFCONSTANT F-GETFL ...) ; compiling (DEFCONSTANT F-SETFL ...) ; compiling (DEFCONSTANT MSG-NOSIGNAL ...) ; compiling (DEFCONSTANT MSG-OOB ...) ; compiling (DEFCONSTANT MSG-PEEK ...) ; compiling (DEFCONSTANT MSG-TRUNC ...) ; compiling (DEFCONSTANT MSG-WAITALL ...) ; compiling (DEFCONSTANT MSG-EOR ...) ; compiling (DEFCONSTANT MSG-DONTROUTE ...) ; compiling (DEFCONSTANT MSG-DONTWAIT ...) ; compiling (DEFCONSTANT MSG-NOSIGNAL ...) ; compiling (DEFCONSTANT MSG-CONFIRM ...) ; compiling (DEFCONSTANT MSG-MORE ...) ; compiling (DEFINE-ALIEN-TYPE SOCKLEN-T ...) ; compiling (DEFINE-ALIEN-TYPE SIZE-T ...) ; compiling (DEFINE-ALIEN-TYPE SSIZE-T ...) ; compiling (SB-GROVEL::DEFINE-C-STRUCT PROTOENT ...); in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT PROTOENT ; (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT 12 ; (SB-BSD-SOCKETS-INTERNAL::NAME ; SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER ; "char *" 0 4) ; (SB-BSD-SOCKETS-INTERNAL::ALIASES (* (* T)) ; "char **" 4 4) ; (SB-BSD-SOCKETS-INTERNAL::PROTO INTEGER "int" 8 ; 4)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ALIASES) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ALIASES) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:DEPORT ; --> ETYPECASE LET COND IF PROGN ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:DEPORT ; --> ETYPECASE LET COND IF PROGN ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::PROTOENT)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTO) 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::PROTOENT)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTO) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::PROTOENT)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTO) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DECLAIM (INLINE GETPROTOBYNAME)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname" GETPROTOBYNAME) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname" GETPROTOBYNAME) ; (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ; ("getprotobyname" SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNAME) ; (* SB-BSD-SOCKETS-INTERNAL::PROTOENT) ; (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING)) ; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DECLAIM (INLINE GETPROTOBYNUMBER)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber" GETPROTOBYNUMBER) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp ; in: ; SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber" GETPROTOBYNUMBER) ; (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ; ("getprotobynumber" SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNUMBER) ; (* SB-BSD-SOCKETS-INTERNAL::PROTOENT) (SB-BSD-SOCKETS-INTERNAL::PROTO INT)) ; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFCONSTANT INADDR-ANY ...) ; compiling (SB-GROVEL::DEFINE-C-STRUCT IN-ADDR ...); in: LAMBDA NIL ; (SLOT STRUCT 'ADDR) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT IN-ADDR ; (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::IN-ADDR 4 ; (ADDR (ARRAY (UNSIGNED 8)) "u_int32_t" 0 4)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'ADDR) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN ...); in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PORT) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN ; (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN 16 ; (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER ; "sa_family_t" 0 2) ; (SB-BSD-SOCKETS-INTERNAL::PORT ; (ARRAY (UNSIGNED 8)) "u_int16_t" 2 2) ; (ADDR (ARRAY (UNSIGNED 8)) "struct in_addr" 4 4)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PORT) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SLOT STRUCT 'ADDR) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'ADDR) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN ...); in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PATH) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN ; (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN 110 ; (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER ; "sa_family_t" 0 2) ; (SB-BSD-SOCKETS-INTERNAL::PATH C-STRING "char" 2 ; 108)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PATH) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF LET* SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; compiling (SB-GROVEL::DEFINE-C-STRUCT HOSTENT ...); in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT HOSTENT ; (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::HOSTENT 20 ; (SB-BSD-SOCKETS-INTERNAL::NAME ; SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER ; "char *" 0 4) ; (SB-BSD-SOCKETS-INTERNAL::ALIASES (* C-STRING) ; "char **" 4 4) ; (TYPE INTEGER "int" 8 4) ; (LENGTH INTEGER "int" 12 4) ; (SB-BSD-SOCKETS-INTERNAL::ADDRESSES ; (* (* (UNSIGNED 8))) "char **" 16 4)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ALIASES) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ALIASES) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:DEPORT ; --> ETYPECASE LET COND IF PROGN ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:DEPORT ; --> ETYPECASE LET COND IF PROGN ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'TYPE) 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'TYPE) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'TYPE) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'LENGTH) 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'LENGTH) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'LENGTH) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ADDRESSES) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ADDRESSES) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:DEPORT ; --> ETYPECASE LET COND IF PROGN ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:DEPORT ; --> ETYPECASE LET COND IF PROGN ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; compiling (SB-GROVEL::DEFINE-C-STRUCT MSGHDR ...); in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT MSGHDR ; (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::MSGHDR 28 ; (SB-BSD-SOCKETS-INTERNAL::NAME ; SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER ; "void *" 0 4) ; (SB-BSD-SOCKETS-INTERNAL::NAMELEN INTEGER ; "socklen_t" 4 4) ; (SB-BSD-SOCKETS-INTERNAL::IOV (* T) ; "struct iovec" 8 4) ; (SB-BSD-SOCKETS-INTERNAL::IOVLEN INTEGER "size_t" ; 12 4) ; (SB-BSD-SOCKETS-INTERNAL::CONTROL (* T) "void *" ; 16 4) ; (SB-BSD-SOCKETS-INTERNAL::CONTROLLEN INTEGER ; "socklen_t" 20 4) ; (SB-BSD-SOCKETS-INTERNAL::FLAGS INTEGER "int" 24 ; 4)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAMELEN) 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAMELEN) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAMELEN) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOV) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOV) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:DEPORT ; --> ETYPECASE LET COND IF PROGN ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:DEPORT ; --> ETYPECASE LET COND IF PROGN ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOVLEN) 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOVLEN) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOVLEN) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROL) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROL) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:DEPORT ; --> ETYPECASE LET COND IF PROGN ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:DEPORT ; --> ETYPECASE LET COND IF PROGN ; ==> ; (SB-SYS:INT-SAP 0) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROLLEN) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROLLEN) ; 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROLLEN) ; 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS) 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR)) ; STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DECLAIM (INLINE SOCKET)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("socket" SOCKET) ...) ; compiling (DECLAIM (INLINE BIND)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("bind" BIND) ...) ; compiling (DECLAIM (INLINE LISTEN)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("listen" LISTEN) ...) ; compiling (DECLAIM (INLINE ACCEPT)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("accept" ACCEPT) ...) ; compiling (DECLAIM (INLINE GETPEERNAME)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getpeername" GETPEERNAME) ...) ; compiling (DECLAIM (INLINE GETSOCKNAME)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getsockname" GETSOCKNAME) ...) ; compiling (DECLAIM (INLINE CONNECT)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("connect" CONNECT) ...) ; compiling (DECLAIM (INLINE CLOSE)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("close" CLOSE) ...) ; compiling (DECLAIM (INLINE RECVFROM)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("recvfrom" RECVFROM) ...) ; compiling (DECLAIM (INLINE RECVMSG)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("recvmsg" RECVMSG) ...) ; compiling (DECLAIM (INLINE SEND)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("send" SEND) ...) ; compiling (DECLAIM (INLINE SENDTO)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("sendto" SENDTO) ...) ; compiling (DECLAIM (INLINE SENDMSG)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("sendmsg" SENDMSG) ...) ; compiling (DECLAIM (INLINE GETHOSTBYNAME)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname" GETHOSTBYNAME) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname" GETHOSTBYNAME) ; (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ; ("gethostbyname" SB-BSD-SOCKETS-INTERNAL::GETHOSTBYNAME) ; (* SB-BSD-SOCKETS-INTERNAL::HOSTENT) ; (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING)) ; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DECLAIM (INLINE GETHOSTBYADDR)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyaddr" GETHOSTBYADDR) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/constants.lisp-temp ; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyaddr" GETHOSTBYADDR) ; (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ; ("gethostbyaddr" SB-BSD-SOCKETS-INTERNAL::GETHOSTBYADDR) ; (* SB-BSD-SOCKETS-INTERNAL::HOSTENT) (ADDR (* T)) ; (SB-BSD-SOCKETS-INTERNAL::LEN INT) (SB-BSD-SOCKETS-INTERNAL::AF INT)) ; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DECLAIM (INLINE SETSOCKOPT)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("setsockopt" SETSOCKOPT) ...) ; compiling (DECLAIM (INLINE FCNTL)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("fcntl" FCNTL) ...) ; compiling (DECLAIM (INLINE GETSOCKOPT)) ; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getsockopt" GETSOCKOPT) ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.FASL.NEWEST written ; compilation finished in 0:00:02 STYLE-WARNING: redefining PROTOENT-NAME in DEFUN STYLE-WARNING: redefining (SETF PROTOENT-NAME) in DEFUN STYLE-WARNING: redefining PROTOENT-ALIASES in DEFUN STYLE-WARNING: redefining (SETF PROTOENT-ALIASES) in DEFUN STYLE-WARNING: redefining PROTOENT-PROTO in DEFUN STYLE-WARNING: redefining (SETF PROTOENT-PROTO) in DEFUN STYLE-WARNING: redefining ALLOCATE-PROTOENT in DEFUN STYLE-WARNING: redefining FREE-PROTOENT in DEFUN STYLE-WARNING: redefining IN-ADDR-ADDR in DEFUN STYLE-WARNING: redefining (SETF IN-ADDR-ADDR) in DEFUN STYLE-WARNING: redefining ALLOCATE-IN-ADDR in DEFUN STYLE-WARNING: redefining FREE-IN-ADDR in DEFUN STYLE-WARNING: redefining SOCKADDR-IN-FAMILY in DEFUN STYLE-WARNING: redefining (SETF SOCKADDR-IN-FAMILY) in DEFUN STYLE-WARNING: redefining SOCKADDR-IN-PORT in DEFUN STYLE-WARNING: redefining (SETF SOCKADDR-IN-PORT) in DEFUN STYLE-WARNING: redefining SOCKADDR-IN-ADDR in DEFUN STYLE-WARNING: redefining (SETF SOCKADDR-IN-ADDR) in DEFUN STYLE-WARNING: redefining ALLOCATE-SOCKADDR-IN in DEFUN STYLE-WARNING: redefining FREE-SOCKADDR-IN in DEFUN STYLE-WARNING: redefining SOCKADDR-UN-FAMILY in DEFUN STYLE-WARNING: redefining (SETF SOCKADDR-UN-FAMILY) in DEFUN STYLE-WARNING: redefining SOCKADDR-UN-PATH in DEFUN STYLE-WARNING: redefining (SETF SOCKADDR-UN-PATH) in DEFUN STYLE-WARNING: redefining ALLOCATE-SOCKADDR-UN in DEFUN STYLE-WARNING: redefining FREE-SOCKADDR-UN in DEFUN STYLE-WARNING: redefining HOSTENT-NAME in DEFUN STYLE-WARNING: redefining (SETF HOSTENT-NAME) in DEFUN STYLE-WARNING: redefining HOSTENT-ALIASES in DEFUN STYLE-WARNING: redefining (SETF HOSTENT-ALIASES) in DEFUN STYLE-WARNING: redefining HOSTENT-TYPE in DEFUN STYLE-WARNING: redefining (SETF HOSTENT-TYPE) in DEFUN STYLE-WARNING: redefining HOSTENT-LENGTH in DEFUN STYLE-WARNING: redefining (SETF HOSTENT-LENGTH) in DEFUN STYLE-WARNING: redefining HOSTENT-ADDRESSES in DEFUN STYLE-WARNING: redefining (SETF HOSTENT-ADDRESSES) in DEFUN STYLE-WARNING: redefining ALLOCATE-HOSTENT in DEFUN STYLE-WARNING: redefining FREE-HOSTENT in DEFUN STYLE-WARNING: redefining MSGHDR-NAME in DEFUN STYLE-WARNING: redefining (SETF MSGHDR-NAME) in DEFUN STYLE-WARNING: redefining MSGHDR-NAMELEN in DEFUN STYLE-WARNING: redefining (SETF MSGHDR-NAMELEN) in DEFUN STYLE-WARNING: redefining MSGHDR-IOV in DEFUN STYLE-WARNING: redefining (SETF MSGHDR-IOV) in DEFUN STYLE-WARNING: redefining MSGHDR-IOVLEN in DEFUN STYLE-WARNING: redefining (SETF MSGHDR-IOVLEN) in DEFUN STYLE-WARNING: redefining MSGHDR-CONTROL in DEFUN STYLE-WARNING: redefining (SETF MSGHDR-CONTROL) in DEFUN STYLE-WARNING: redefining MSGHDR-CONTROLLEN in DEFUN STYLE-WARNING: redefining (SETF MSGHDR-CONTROLLEN) in DEFUN STYLE-WARNING: redefining MSGHDR-FLAGS in DEFUN STYLE-WARNING: redefining (SETF MSGHDR-FLAGS) in DEFUN STYLE-WARNING: redefining ALLOCATE-MSGHDR in DEFUN STYLE-WARNING: redefining FREE-MSGHDR in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/sockets.lisp" (written 03 JUN 2006 10:31:33 PM): ; compiling (IN-PACKAGE "SB-BSD-SOCKETS") ; compiling (DEFCLASS SOCKET ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFGENERIC MAKE-SOCKADDR-FOR ...) ; compiling (DEFGENERIC FREE-SOCKADDR-FOR ...) ; compiling (DEFMACRO WITH-SOCKADDR-FOR ...) ; compiling (DEFGENERIC SOCKET-BIND ...) ; compiling (DEFMETHOD SOCKET-BIND ...) ; compiling (DEFGENERIC SOCKET-ACCEPT ...) ; compiling (DEFMETHOD SOCKET-ACCEPT ...) ; compiling (DEFGENERIC SOCKET-CONNECT ...) ; compiling (DEFMETHOD SOCKET-CONNECT ...) ; compiling (DEFGENERIC SOCKET-PEERNAME ...) ; compiling (DEFMETHOD SOCKET-PEERNAME ...) ; compiling (DEFGENERIC SOCKET-NAME ...) ; compiling (DEFMETHOD SOCKET-NAME ...) ; compiling (DEFGENERIC SOCKET-RECEIVE ...) ; compiling (DEFMETHOD SOCKET-RECEIVE ...) ; compiling (DEFMACRO WITH-VECTOR-SAP ...) ; compiling (DEFGENERIC SOCKET-SEND ...) ; compiling (DEFMETHOD SOCKET-SEND ...) ; compiling (DEFGENERIC SOCKET-LISTEN ...) ; compiling (DEFMETHOD SOCKET-LISTEN ...) ; compiling (DEFGENERIC SOCKET-OPEN-P ...) ; compiling (DEFMETHOD SOCKET-OPEN-P ...) ; compiling (DEFGENERIC SOCKET-CLOSE ...) ; compiling (DEFMETHOD SOCKET-CLOSE ...) ; compiling (DEFGENERIC SOCKET-MAKE-STREAM ...) ; compiling (DEFMETHOD SOCKET-MAKE-STREAM ...) ; compiling (DEFINE-CONDITION SOCKET-ERROR ...) ; compiling (DEFMACRO DEFINE-SOCKET-CONDITION ...) ; compiling (DEFPARAMETER *CONDITIONS-FOR-ERRNO* ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EADDRINUSE ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EAGAIN ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EBADF ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ECONNREFUSED ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ETIMEDOUT ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EINTR ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EINVAL ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOBUFS ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOMEM ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EOPNOTSUPP ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EPERM ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EPROTONOSUPPORT ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ESOCKTNOSUPPORT ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENETUNREACH ...) ; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOTCONN ...) ; compiling (DEFUN CONDITION-FOR-ERRNO ...) ; compiling (DEFUN SOCKET-ERROR ...) ; compiling (DEFGENERIC BITS-OF-SOCKADDR ...) ; compiling (DEFGENERIC SIZE-OF-SOCKADDR ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;SOCKETS.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/sockopt.lisp" (written 05 APR 2006 09:47:17 AM): ; compiling (IN-PACKAGE :SB-BSD-SOCKETS) ; compiling (DEFMACRO DEFINE-SOCKET-OPTION ...) ; compiling (DEFUN FOREIGN-INT-TO-INTEGER ...) ; compiling (DEFMACRO DEFINE-SOCKET-OPTION-INT ...) ; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-RECEIVE-LOW-WATER ...) ; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-SEND-LOW-WATER ...) ; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-TYPE ...) ; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-SEND-BUFFER ...) ; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-RECEIVE-BUFFER ...) ; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-PRIORITY ...) ; compiling (DEFUN FOREIGN-INT-TO-BOOL ...) ; compiling (DEFUN BOOL-TO-FOREIGN-INT ...) ; compiling (DEFMACRO DEFINE-SOCKET-OPTION-BOOL ...) ; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-REUSE-ADDRESS ...) ; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-KEEP-ALIVE ...) ; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-OOB-INLINE ...) ; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-BSD-COMPATIBLE ...) ; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-PASS-CREDENTIALS ...) ; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-DEBUG ...) ; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-DONT-ROUTE ...) ; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-BROADCAST ...) ; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-TCP-NODELAY ...) ; compiling (DEFUN IDENTITY-1 ...) ; compiling (DEFINE-SOCKET-OPTION SOCKOPT-BIND-TO-DEVICE ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;SOCKOPT.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/inet.lisp" (written 05 APR 2006 09:47:17 AM): ; compiling (IN-PACKAGE :SB-BSD-SOCKETS) ; compiling (DEFCLASS INET-SOCKET ...) ; compiling (DEFPARAMETER INET-ADDRESS-ANY ...) ; compiling (DEFUN MAKE-INET-ADDRESS ...) ; compiling (DEFINE-CONDITION UNKNOWN-PROTOCOL ...) ; compiling (DEFUN GET-PROTOCOL-BY-NAME ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/inet.lisp ; in: DEFUN GET-PROTOCOL-BY-NAME ; (SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNAME SB-BSD-SOCKETS::NAME) ; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES ; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...) ; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...) ; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...) ; compiling (DEFMETHOD BITS-OF-SOCKADDR ...) ; compiling (DEFUN MAKE-INET-SOCKET ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;INET.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/local.lisp" (written 14 JUL 2005 05:30:08 PM): ; compiling (IN-PACKAGE :SB-BSD-SOCKETS) ; compiling (DEFCLASS LOCAL-SOCKET ...) ; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/local.lisp ; in: DEFMETHOD MAKE-SOCKADDR-FOR (LOCAL-SOCKET) ; (SETF (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-PATH SB-BSD-SOCKETS::SOCKADDR) ; SB-BSD-SOCKETS::FILENAME) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :VARS (SB-GROVEL::NEW-VAL STRUCT) {51176D91}> {51175B49}> ; --> BLOCK SETF LET* SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...) ; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...) ; compiling (DEFMETHOD BITS-OF-SOCKADDR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/local.lisp ; in: DEFMETHOD BITS-OF-SOCKADDR (LOCAL-SOCKET T) ; (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-PATH SB-BSD-SOCKETS::SOCKADDR) ; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; SYS:CONTRIB;SB-BSD-SOCKETS;LOCAL.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/name-service.lisp" (written 06 APR 2006 11:39:33 AM): ; compiling (IN-PACKAGE :SB-BSD-SOCKETS) ; compiling (DEFCLASS HOST-ENT ...) ; compiling (DEFGENERIC HOST-ENT-ADDRESS ...) ; compiling (DEFMETHOD HOST-ENT-ADDRESS ...) ; compiling (DEFUN MAKE-HOST-ENT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/name-service.lisp ; in: DEFUN MAKE-HOST-ENT ; (DEREF (SB-BSD-SOCKETS-INTERNAL::HOSTENT-ADDRESSES SB-BSD-SOCKETS::H) ; SB-BSD-SOCKETS::I) ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-BSD-SOCKETS-INTERNAL::HOSTENT-NAME SB-BSD-SOCKETS::H) ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (DEFUN GET-HOST-BY-NAME ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/name-service.lisp ; in: DEFUN GET-HOST-BY-NAME ; (SB-BSD-SOCKETS-INTERNAL::GETHOSTBYNAME SB-BSD-SOCKETS::HOST-NAME) ; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES ; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFUN GET-HOST-BY-ADDRESS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/name-service.lisp ; in: DEFUN GET-HOST-BY-ADDRESS ; (SB-BSD-SOCKETS-INTERNAL::GETHOSTBYADDR SB-BSD-SOCKETS::PACKED-ADDR 4 ; SB-BSD-SOCKETS-INTERNAL::AF-INET) ; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES ; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-BSD-SOCKETS-INTERNAL::WITH-IN-ADDR SB-BSD-SOCKETS::PACKED-ADDR NIL ; (LET ((SB-BSD-SOCKETS::ADDR-VECTOR ; (COERCE SB-BSD-SOCKETS::ADDRESS ; 'VECTOR))) ; (LOOP SB-BSD-SOCKETS::FOR ; SB-BSD-SOCKETS::I ; SB-BSD-SOCKETS::FROM 0 ; SB-BSD-SOCKETS::BELOW ; (LENGTH ; SB-BSD-SOCKETS::ADDR-VECTOR) ; DO ; (SETF (DEREF # ; SB-BSD-SOCKETS::I) ; (ELT ; SB-BSD-SOCKETS::ADDR-VECTOR ; SB-BSD-SOCKETS::I))) ; (SB-BSD-SOCKETS::MAKE-HOST-ENT ; (SB-BSD-SOCKETS-INTERNAL::GETHOSTBYADDR ; SB-BSD-SOCKETS::PACKED-ADDR 4 ; SB-BSD-SOCKETS-INTERNAL::AF-INET)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 ; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50B9B579}> ; --> SB-BSD-SOCKETS::PACKED-ADDR SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFVAR *NAME-SERVICE-ERRNO* ...) ; compiling (DEFUN NAME-SERVICE-ERROR ...) ; compiling (DEFINE-CONDITION NAME-SERVICE-ERROR ...) ; compiling (DEFMACRO DEFINE-NAME-SERVICE-CONDITION ...) ; compiling (DEFPARAMETER *CONDITIONS-FOR-NAME-SERVICE-ERRNO* ...) ; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NETDB-INTERNAL ...) ; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NETDB-SUCCESS ...) ; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::HOST-NOT-FOUND ...) ; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::TRY-AGAIN ...) ; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NO-RECOVERY ...) ; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NO-ADDRESS ...) ; compiling (DEFUN CONDITION-FOR-NAME-SERVICE-ERRNO ...) ; compiling (DEFUN GET-NAME-SERVICE-ERRNO ...) ; compiling (SB-ALIEN:DEFINE-ALIEN-ROUTINE "hstrerror" ...) ; compiling (DEFUN GET-NAME-SERVICE-ERROR-MESSAGE ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;NAME-SERVICE.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/misc.lisp" (written 06 APR 2006 11:39:33 AM): ; compiling (IN-PACKAGE :SB-BSD-SOCKETS) ; compiling (DEFGENERIC NON-BLOCKING-MODE ...) ; compiling (DEFMETHOD NON-BLOCKING-MODE ...) ; compiling (DEFGENERIC (SETF NON-BLOCKING-MODE) ...) ; compiling (DEFMETHOD (SETF NON-BLOCKING-MODE) ...) ; SYS:CONTRIB;SB-BSD-SOCKETS;MISC.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/defpackage.lisp" (written 19 NOV 2006 04:27:04 PM): ; compiling (DEFPACKAGE :SB-POSIX ...) ; SYS:CONTRIB;SB-POSIX;DEFPACKAGE.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/designator.lisp" (written 11 JAN 2006 09:32:20 PM): ; compiling (IN-PACKAGE :SB-POSIX) ; compiling (DEFVAR *DESIGNATOR-TYPES* ...) ; compiling (DEFMACRO DEFINE-DESIGNATOR ...) ; SYS:CONTRIB;SB-POSIX;DESIGNATOR.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/macros.lisp" (written 19 NOV 2006 04:27:05 PM): ; compiling (IN-PACKAGE :SB-POSIX) ; compiling (DEFINE-DESIGNATOR FILENAME ...) ; compiling (DEFINE-DESIGNATOR FILE-DESCRIPTOR ...) ; compiling (DEFINE-DESIGNATOR SAP-OR-NIL ...) ; compiling (DEFINE-DESIGNATOR ALIEN-POINTER-TO-ANYTHING-OR-NIL ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/macros.lisp ; in: DEFINE-DESIGNATOR ALIEN-POINTER-TO-ANYTHING-OR-NIL ; (SAP-ALIEN (SB-SYS:INT-SAP 0) (* T)) ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-SYS:INT-SAP 0) ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFUN LISP-FOR-C-SYMBOL ...) ; compiling (DEFUN REAL-C-NAME ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/macros.lisp ; in: DEFUN REAL-C-NAME ; (DESTRUCTURING-BIND ; (SB-POSIX::NAME &REST SB-POSIX::OPTIONS) ; SB-POSIX::NAME ; (COND (T SB-POSIX::NAME))) ; --> LET LET* ; ==> ; (LET* ((SB-POSIX::NAME (CAR #:WHOLE121)) (SB-POSIX::OPTIONS (CDR #:WHOLE121))) ; (COND (T SB-POSIX::NAME))) ; ; caught STYLE-WARNING: ; The variable OPTIONS is defined but never used. ; compiling (DEFMACRO DEFINE-CALL-INTERNALLY ...) ; compiling (DEFMACRO DEFINE-CALL ...) ; compiling (DEFMACRO DEFINE-ENTRY-POINT ...) ; SYS:CONTRIB;SB-POSIX;MACROS.FASL.NEWEST written ; compilation finished in 0:00:01 WARNING: COMPILE-FILE warned while performing # on #. (SYS:CONTRIB;SB-POSIX;CONSTANTS.LISP.NEWEST SYS:CONTRIB;SB-POSIX;CONSTANTS.FASL.NEWEST /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/constants.fasl /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/a.out /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/constants.lisp-temp) /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c: In function 'main': /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1181: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1190: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1197: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1204: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1211: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1218: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1225: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1232: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1241: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1248: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1255: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1262: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1269: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1276: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1283: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1290: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1297: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1304: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1510: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1517: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1524: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1531: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1538: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1547: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1554: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1563: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/foo.c:1570: warning: format '%d' expects type 'int', but argument 4 has type 'long unsigned int' ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/constants.lisp-temp" (written 29 DEC 2006 10:26:44 PM): ; compiling (IN-PACKAGE #:SB-POSIX) ; compiling (DEFCONSTANT AF-INET ...) ; compiling (EXPORT (QUOTE AF-INET)) ; compiling (DEFINE-ALIEN-TYPE UID-T ...) ; compiling (DEFINE-ALIEN-TYPE GID-T ...) ; compiling (DEFINE-ALIEN-TYPE NLINK-T ...) ; compiling (DEFINE-ALIEN-TYPE PID-T ...) ; compiling (DEFINE-ALIEN-TYPE INO-T ...) ; compiling (DEFINE-ALIEN-TYPE TIME-T ...) ; compiling (DEFINE-ALIEN-TYPE DEV-T ...) ; compiling (DEFCONSTANT SIGHUP ...) ; compiling (EXPORT (QUOTE SIGHUP)) ; compiling (DEFCONSTANT SIGINT ...) ; compiling (EXPORT (QUOTE SIGINT)) ; compiling (DEFCONSTANT SIGQUIT ...) ; compiling (EXPORT (QUOTE SIGQUIT)) ; compiling (DEFCONSTANT SIGILL ...) ; compiling (EXPORT (QUOTE SIGILL)) ; compiling (DEFCONSTANT SIGTRAP ...) ; compiling (EXPORT (QUOTE SIGTRAP)) ; compiling (DEFCONSTANT SIGABRT ...) ; compiling (EXPORT (QUOTE SIGABRT)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for SIGEMT (unknown to the C compiler).") ; compiling (EXPORT (QUOTE SIGEMT)) ; compiling (DEFCONSTANT SIGFPE ...) ; compiling (EXPORT (QUOTE SIGFPE)) ; compiling (DEFCONSTANT SIGKILL ...) ; compiling (EXPORT (QUOTE SIGKILL)) ; compiling (DEFCONSTANT SIGBUS ...) ; compiling (EXPORT (QUOTE SIGBUS)) ; compiling (DEFCONSTANT SIGSEGV ...) ; compiling (EXPORT (QUOTE SIGSEGV)) ; compiling (DEFCONSTANT SIGSYS ...) ; compiling (EXPORT (QUOTE SIGSYS)) ; compiling (DEFCONSTANT SIGPIPE ...) ; compiling (EXPORT (QUOTE SIGPIPE)) ; compiling (DEFCONSTANT SIGALRM ...) ; compiling (EXPORT (QUOTE SIGALRM)) ; compiling (DEFCONSTANT SIGTERM ...) ; compiling (EXPORT (QUOTE SIGTERM)) ; compiling (DEFCONSTANT SIGURG ...) ; compiling (EXPORT (QUOTE SIGURG)) ; compiling (DEFCONSTANT SIGSTOP ...) ; compiling (EXPORT (QUOTE SIGSTOP)) ; compiling (DEFCONSTANT SIGTSTP ...) ; compiling (EXPORT (QUOTE SIGTSTP)) ; compiling (DEFCONSTANT SIGCONT ...) ; compiling (EXPORT (QUOTE SIGCONT)) ; compiling (DEFCONSTANT SIGCHLD ...) ; compiling (EXPORT (QUOTE SIGCHLD)) ; compiling (DEFCONSTANT SIGTTIN ...) ; compiling (EXPORT (QUOTE SIGTTIN)) ; compiling (DEFCONSTANT SIGTTOU ...) ; compiling (EXPORT (QUOTE SIGTTOU)) ; compiling (DEFCONSTANT SIGIO ...) ; compiling (EXPORT (QUOTE SIGIO)) ; compiling (DEFCONSTANT SIGXCPU ...) ; compiling (EXPORT (QUOTE SIGXCPU)) ; compiling (DEFCONSTANT SIGXFSZ ...) ; compiling (EXPORT (QUOTE SIGXFSZ)) ; compiling (DEFCONSTANT SIGVTALRM ...) ; compiling (EXPORT (QUOTE SIGVTALRM)) ; compiling (DEFCONSTANT SIGPROF ...) ; compiling (EXPORT (QUOTE SIGPROF)) ; compiling (DEFCONSTANT SIGWINCH ...) ; compiling (EXPORT (QUOTE SIGWINCH)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for SIGINFO (unknown to the C compiler).") ; compiling (EXPORT (QUOTE SIGINFO)) ; compiling (DEFCONSTANT SIGUSR1 ...) ; compiling (EXPORT (QUOTE SIGUSR1)) ; compiling (DEFCONSTANT SIGUSR2 ...) ; compiling (EXPORT (QUOTE SIGUSR2)) ; compiling (DEFCONSTANT SIGRTMIN ...) ; compiling (EXPORT (QUOTE SIGRTMIN)) ; compiling (DEFCONSTANT SIGRTMAX ...) ; compiling (EXPORT (QUOTE SIGRTMAX)) ; compiling (DEFCONSTANT EPERM ...) ; compiling (EXPORT (QUOTE EPERM)) ; compiling (DEFCONSTANT ENOENT ...) ; compiling (EXPORT (QUOTE ENOENT)) ; compiling (DEFCONSTANT ESRCH ...) ; compiling (EXPORT (QUOTE ESRCH)) ; compiling (DEFCONSTANT EINTR ...) ; compiling (EXPORT (QUOTE EINTR)) ; compiling (DEFCONSTANT EIO ...) ; compiling (EXPORT (QUOTE EIO)) ; compiling (DEFCONSTANT ENXIO ...) ; compiling (EXPORT (QUOTE ENXIO)) ; compiling (DEFCONSTANT E2BIG ...) ; compiling (EXPORT (QUOTE E2BIG)) ; compiling (DEFCONSTANT ENOEXEC ...) ; compiling (EXPORT (QUOTE ENOEXEC)) ; compiling (DEFCONSTANT EBADF ...) ; compiling (EXPORT (QUOTE EBADF)) ; compiling (DEFCONSTANT ECHILD ...) ; compiling (EXPORT (QUOTE ECHILD)) ; compiling (DEFCONSTANT EAGAIN ...) ; compiling (EXPORT (QUOTE EAGAIN)) ; compiling (DEFCONSTANT ENOMEM ...) ; compiling (EXPORT (QUOTE ENOMEM)) ; compiling (DEFCONSTANT EACCES ...) ; compiling (EXPORT (QUOTE EACCES)) ; compiling (DEFCONSTANT EFAULT ...) ; compiling (EXPORT (QUOTE EFAULT)) ; compiling (DEFCONSTANT ENOTBLK ...) ; compiling (EXPORT (QUOTE ENOTBLK)) ; compiling (DEFCONSTANT EBUSY ...) ; compiling (EXPORT (QUOTE EBUSY)) ; compiling (DEFCONSTANT EEXIST ...) ; compiling (EXPORT (QUOTE EEXIST)) ; compiling (DEFCONSTANT EXDEV ...) ; compiling (EXPORT (QUOTE EXDEV)) ; compiling (DEFCONSTANT ENODEV ...) ; compiling (EXPORT (QUOTE ENODEV)) ; compiling (DEFCONSTANT ENOTDIR ...) ; compiling (EXPORT (QUOTE ENOTDIR)) ; compiling (DEFCONSTANT EISDIR ...) ; compiling (EXPORT (QUOTE EISDIR)) ; compiling (DEFCONSTANT EINVAL ...) ; compiling (EXPORT (QUOTE EINVAL)) ; compiling (DEFCONSTANT ENFILE ...) ; compiling (EXPORT (QUOTE ENFILE)) ; compiling (DEFCONSTANT EMFILE ...) ; compiling (EXPORT (QUOTE EMFILE)) ; compiling (DEFCONSTANT ENOTTY ...) ; compiling (EXPORT (QUOTE ENOTTY)) ; compiling (DEFCONSTANT ETXTBSY ...) ; compiling (EXPORT (QUOTE ETXTBSY)) ; compiling (DEFCONSTANT EFBIG ...) ; compiling (EXPORT (QUOTE EFBIG)) ; compiling (DEFCONSTANT ENOSPC ...) ; compiling (EXPORT (QUOTE ENOSPC)) ; compiling (DEFCONSTANT ESPIPE ...) ; compiling (EXPORT (QUOTE ESPIPE)) ; compiling (DEFCONSTANT EROFS ...) ; compiling (EXPORT (QUOTE EROFS)) ; compiling (DEFCONSTANT EMLINK ...) ; compiling (EXPORT (QUOTE EMLINK)) ; compiling (DEFCONSTANT EPIPE ...) ; compiling (EXPORT (QUOTE EPIPE)) ; compiling (DEFCONSTANT EDOM ...) ; compiling (EXPORT (QUOTE EDOM)) ; compiling (DEFCONSTANT ERANGE ...) ; compiling (EXPORT (QUOTE ERANGE)) ; compiling (DEFCONSTANT EDEADLK ...) ; compiling (EXPORT (QUOTE EDEADLK)) ; compiling (DEFCONSTANT ENAMETOOLONG ...) ; compiling (EXPORT (QUOTE ENAMETOOLONG)) ; compiling (DEFCONSTANT ENOLCK ...) ; compiling (EXPORT (QUOTE ENOLCK)) ; compiling (DEFCONSTANT ENOSYS ...) ; compiling (EXPORT (QUOTE ENOSYS)) ; compiling (DEFCONSTANT ENOTEMPTY ...) ; compiling (EXPORT (QUOTE ENOTEMPTY)) ; compiling (DEFCONSTANT ELOOP ...) ; compiling (EXPORT (QUOTE ELOOP)) ; compiling (DEFCONSTANT EWOULDBLOCK ...) ; compiling (EXPORT (QUOTE EWOULDBLOCK)) ; compiling (DEFCONSTANT ENOMSG ...) ; compiling (EXPORT (QUOTE ENOMSG)) ; compiling (DEFCONSTANT EIDRM ...) ; compiling (EXPORT (QUOTE EIDRM)) ; compiling (DEFCONSTANT ECHRNG ...) ; compiling (EXPORT (QUOTE ECHRNG)) ; compiling (DEFCONSTANT EL2NSYNC ...) ; compiling (EXPORT (QUOTE EL2NSYNC)) ; compiling (DEFCONSTANT EL3HLT ...) ; compiling (EXPORT (QUOTE EL3HLT)) ; compiling (DEFCONSTANT EL3RST ...) ; compiling (EXPORT (QUOTE EL3RST)) ; compiling (DEFCONSTANT ELNRNG ...) ; compiling (EXPORT (QUOTE ELNRNG)) ; compiling (DEFCONSTANT EUNATCH ...) ; compiling (EXPORT (QUOTE EUNATCH)) ; compiling (DEFCONSTANT ENOCSI ...) ; compiling (EXPORT (QUOTE ENOCSI)) ; compiling (DEFCONSTANT EL2HLT ...) ; compiling (EXPORT (QUOTE EL2HLT)) ; compiling (DEFCONSTANT EBADE ...) ; compiling (EXPORT (QUOTE EBADE)) ; compiling (DEFCONSTANT EBADR ...) ; compiling (EXPORT (QUOTE EBADR)) ; compiling (DEFCONSTANT EXFULL ...) ; compiling (EXPORT (QUOTE EXFULL)) ; compiling (DEFCONSTANT ENOANO ...) ; compiling (EXPORT (QUOTE ENOANO)) ; compiling (DEFCONSTANT EBADRQC ...) ; compiling (EXPORT (QUOTE EBADRQC)) ; compiling (DEFCONSTANT EBADSLT ...) ; compiling (EXPORT (QUOTE EBADSLT)) ; compiling (DEFCONSTANT EDEADLOCK ...) ; compiling (EXPORT (QUOTE EDEADLOCK)) ; compiling (DEFCONSTANT EBFONT ...) ; compiling (EXPORT (QUOTE EBFONT)) ; compiling (DEFCONSTANT ENOSTR ...) ; compiling (EXPORT (QUOTE ENOSTR)) ; compiling (DEFCONSTANT ENODATA ...) ; compiling (EXPORT (QUOTE ENODATA)) ; compiling (DEFCONSTANT ETIME ...) ; compiling (EXPORT (QUOTE ETIME)) ; compiling (DEFCONSTANT ENOSR ...) ; compiling (EXPORT (QUOTE ENOSR)) ; compiling (DEFCONSTANT ENONET ...) ; compiling (EXPORT (QUOTE ENONET)) ; compiling (DEFCONSTANT ENOPKG ...) ; compiling (EXPORT (QUOTE ENOPKG)) ; compiling (DEFCONSTANT EREMOTE ...) ; compiling (EXPORT (QUOTE EREMOTE)) ; compiling (DEFCONSTANT ENOLINK ...) ; compiling (EXPORT (QUOTE ENOLINK)) ; compiling (DEFCONSTANT EADV ...) ; compiling (EXPORT (QUOTE EADV)) ; compiling (DEFCONSTANT ESRMNT ...) ; compiling (EXPORT (QUOTE ESRMNT)) ; compiling (DEFCONSTANT ECOMM ...) ; compiling (EXPORT (QUOTE ECOMM)) ; compiling (DEFCONSTANT EPROTO ...) ; compiling (EXPORT (QUOTE EPROTO)) ; compiling (DEFCONSTANT EMULTIHOP ...) ; compiling (EXPORT (QUOTE EMULTIHOP)) ; compiling (DEFCONSTANT EDOTDOT ...) ; compiling (EXPORT (QUOTE EDOTDOT)) ; compiling (DEFCONSTANT EBADMSG ...) ; compiling (EXPORT (QUOTE EBADMSG)) ; compiling (DEFCONSTANT EOVERFLOW ...) ; compiling (EXPORT (QUOTE EOVERFLOW)) ; compiling (DEFCONSTANT ENOTUNIQ ...) ; compiling (EXPORT (QUOTE ENOTUNIQ)) ; compiling (DEFCONSTANT EBADFD ...) ; compiling (EXPORT (QUOTE EBADFD)) ; compiling (DEFCONSTANT EREMCHG ...) ; compiling (EXPORT (QUOTE EREMCHG)) ; compiling (DEFCONSTANT ELIBACC ...) ; compiling (EXPORT (QUOTE ELIBACC)) ; compiling (DEFCONSTANT ELIBBAD ...) ; compiling (EXPORT (QUOTE ELIBBAD)) ; compiling (DEFCONSTANT ELIBSCN ...) ; compiling (EXPORT (QUOTE ELIBSCN)) ; compiling (DEFCONSTANT ELIBMAX ...) ; compiling (EXPORT (QUOTE ELIBMAX)) ; compiling (DEFCONSTANT ELIBEXEC ...) ; compiling (EXPORT (QUOTE ELIBEXEC)) ; compiling (DEFCONSTANT EILSEQ ...) ; compiling (EXPORT (QUOTE EILSEQ)) ; compiling (DEFCONSTANT ERESTART ...) ; compiling (EXPORT (QUOTE ERESTART)) ; compiling (DEFCONSTANT ESTRPIPE ...) ; compiling (EXPORT (QUOTE ESTRPIPE)) ; compiling (DEFCONSTANT EUSERS ...) ; compiling (EXPORT (QUOTE EUSERS)) ; compiling (DEFCONSTANT ENOTSOCK ...) ; compiling (EXPORT (QUOTE ENOTSOCK)) ; compiling (DEFCONSTANT EDESTADDRREQ ...) ; compiling (EXPORT (QUOTE EDESTADDRREQ)) ; compiling (DEFCONSTANT EMSGSIZE ...) ; compiling (EXPORT (QUOTE EMSGSIZE)) ; compiling (DEFCONSTANT EPROTOTYPE ...) ; compiling (EXPORT (QUOTE EPROTOTYPE)) ; compiling (DEFCONSTANT ENOPROTOOPT ...) ; compiling (EXPORT (QUOTE ENOPROTOOPT)) ; compiling (DEFCONSTANT EPROTONOSUPPORT ...) ; compiling (EXPORT (QUOTE EPROTONOSUPPORT)) ; compiling (DEFCONSTANT ESOCKTNOSUPPORT ...) ; compiling (EXPORT (QUOTE ESOCKTNOSUPPORT)) ; compiling (DEFCONSTANT EOPNOTSUPP ...) ; compiling (EXPORT (QUOTE EOPNOTSUPP)) ; compiling (DEFCONSTANT EPFNOSUPPORT ...) ; compiling (EXPORT (QUOTE EPFNOSUPPORT)) ; compiling (DEFCONSTANT EAFNOSUPPORT ...) ; compiling (EXPORT (QUOTE EAFNOSUPPORT)) ; compiling (DEFCONSTANT EADDRINUSE ...) ; compiling (EXPORT (QUOTE EADDRINUSE)) ; compiling (DEFCONSTANT EADDRNOTAVAIL ...) ; compiling (EXPORT (QUOTE EADDRNOTAVAIL)) ; compiling (DEFCONSTANT ENETDOWN ...) ; compiling (EXPORT (QUOTE ENETDOWN)) ; compiling (DEFCONSTANT ENETUNREACH ...) ; compiling (EXPORT (QUOTE ENETUNREACH)) ; compiling (DEFCONSTANT ENETRESET ...) ; compiling (EXPORT (QUOTE ENETRESET)) ; compiling (DEFCONSTANT ECONNABORTED ...) ; compiling (EXPORT (QUOTE ECONNABORTED)) ; compiling (DEFCONSTANT ECONNRESET ...) ; compiling (EXPORT (QUOTE ECONNRESET)) ; compiling (DEFCONSTANT ENOBUFS ...) ; compiling (EXPORT (QUOTE ENOBUFS)) ; compiling (DEFCONSTANT EISCONN ...) ; compiling (EXPORT (QUOTE EISCONN)) ; compiling (DEFCONSTANT ENOTCONN ...) ; compiling (EXPORT (QUOTE ENOTCONN)) ; compiling (DEFCONSTANT ESHUTDOWN ...) ; compiling (EXPORT (QUOTE ESHUTDOWN)) ; compiling (DEFCONSTANT ETOOMANYREFS ...) ; compiling (EXPORT (QUOTE ETOOMANYREFS)) ; compiling (DEFCONSTANT ETIMEDOUT ...) ; compiling (EXPORT (QUOTE ETIMEDOUT)) ; compiling (DEFCONSTANT ECONNREFUSED ...) ; compiling (EXPORT (QUOTE ECONNREFUSED)) ; compiling (DEFCONSTANT EHOSTDOWN ...) ; compiling (EXPORT (QUOTE EHOSTDOWN)) ; compiling (DEFCONSTANT EHOSTUNREACH ...) ; compiling (EXPORT (QUOTE EHOSTUNREACH)) ; compiling (DEFCONSTANT EALREADY ...) ; compiling (EXPORT (QUOTE EALREADY)) ; compiling (DEFCONSTANT EINPROGRESS ...) ; compiling (EXPORT (QUOTE EINPROGRESS)) ; compiling (DEFCONSTANT ESTALE ...) ; compiling (EXPORT (QUOTE ESTALE)) ; compiling (DEFCONSTANT EUCLEAN ...) ; compiling (EXPORT (QUOTE EUCLEAN)) ; compiling (DEFCONSTANT ENOTNAM ...) ; compiling (EXPORT (QUOTE ENOTNAM)) ; compiling (DEFCONSTANT ENAVAIL ...) ; compiling (EXPORT (QUOTE ENAVAIL)) ; compiling (DEFCONSTANT EREMOTEIO ...) ; compiling (EXPORT (QUOTE EREMOTEIO)) ; compiling (DEFCONSTANT EDQUOT ...) ; compiling (EXPORT (QUOTE EDQUOT)) ; compiling (DEFCONSTANT ENOMEDIUM ...) ; compiling (EXPORT (QUOTE ENOMEDIUM)) ; compiling (DEFCONSTANT EMEDIUMTYPE ...) ; compiling (EXPORT (QUOTE EMEDIUMTYPE)) ; compiling (DEFCONSTANT WNOHANG ...) ; compiling (DEFCONSTANT WUNTRACED ...) ; compiling (DEFINE-ALIEN-TYPE MODE-T ...) ; compiling (DEFCONSTANT S-ISUID ...) ; compiling (EXPORT (QUOTE S-ISUID)) ; compiling (DEFCONSTANT S-ISGID ...) ; compiling (EXPORT (QUOTE S-ISGID)) ; compiling (DEFCONSTANT S-ISVTX ...) ; compiling (EXPORT (QUOTE S-ISVTX)) ; compiling (DEFCONSTANT S-IRUSR ...) ; compiling (EXPORT (QUOTE S-IRUSR)) ; compiling (DEFCONSTANT S-IWUSR ...) ; compiling (EXPORT (QUOTE S-IWUSR)) ; compiling (DEFCONSTANT S-IXUSR ...) ; compiling (EXPORT (QUOTE S-IXUSR)) ; compiling (DEFCONSTANT S-IREAD ...) ; compiling (EXPORT (QUOTE S-IREAD)) ; compiling (DEFCONSTANT S-IWRITE ...) ; compiling (EXPORT (QUOTE S-IWRITE)) ; compiling (DEFCONSTANT S-IEXEC ...) ; compiling (EXPORT (QUOTE S-IEXEC)) ; compiling (DEFCONSTANT S-IRGRP ...) ; compiling (EXPORT (QUOTE S-IRGRP)) ; compiling (DEFCONSTANT S-IWGRP ...) ; compiling (EXPORT (QUOTE S-IWGRP)) ; compiling (DEFCONSTANT S-IXGRP ...) ; compiling (EXPORT (QUOTE S-IXGRP)) ; compiling (DEFCONSTANT S-IROTH ...) ; compiling (EXPORT (QUOTE S-IROTH)) ; compiling (DEFCONSTANT S-IWOTH ...) ; compiling (EXPORT (QUOTE S-IWOTH)) ; compiling (DEFCONSTANT S-IXOTH ...) ; compiling (EXPORT (QUOTE S-IXOTH)) ; compiling (DEFCONSTANT R-OK ...) ; compiling (EXPORT (QUOTE R-OK)) ; compiling (DEFCONSTANT W-OK ...) ; compiling (EXPORT (QUOTE W-OK)) ; compiling (DEFCONSTANT X-OK ...) ; compiling (EXPORT (QUOTE X-OK)) ; compiling (DEFCONSTANT F-OK ...) ; compiling (EXPORT (QUOTE F-OK)) ; compiling (DEFINE-ALIEN-TYPE OFF-T ...) ; compiling (DEFCONSTANT PROT-NONE ...) ; compiling (EXPORT (QUOTE PROT-NONE)) ; compiling (DEFCONSTANT PROT-READ ...) ; compiling (EXPORT (QUOTE PROT-READ)) ; compiling (DEFCONSTANT PROT-WRITE ...) ; compiling (EXPORT (QUOTE PROT-WRITE)) ; compiling (DEFCONSTANT PROT-EXEC ...) ; compiling (EXPORT (QUOTE PROT-EXEC)) ; compiling (DEFCONSTANT MAP-SHARED ...) ; compiling (EXPORT (QUOTE MAP-SHARED)) ; compiling (DEFCONSTANT MAP-PRIVATE ...) ; compiling (EXPORT (QUOTE MAP-PRIVATE)) ; compiling (DEFCONSTANT MAP-FIXED ...) ; compiling (EXPORT (QUOTE MAP-FIXED)) ; compiling (DEFCONSTANT MS-ASYNC ...) ; compiling (EXPORT (QUOTE MS-ASYNC)) ; compiling (DEFCONSTANT MS-SYNC ...) ; compiling (EXPORT (QUOTE MS-SYNC)) ; compiling (DEFCONSTANT MS-INVALIDATE ...) ; compiling (EXPORT (QUOTE MS-INVALIDATE)) ; compiling (SB-GROVEL::DEFINE-C-STRUCT DIRENT ...); in: LAMBDA NIL ; (SLOT STRUCT 'SB-POSIX::NAME) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT DIRENT ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::DIRENT 268 ; (SB-POSIX::NAME C-STRING "char *" 11 256)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-POSIX::NAME) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF LET* SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-PASSWD ...); in: LAMBDA NIL ; (SLOT STRUCT 'SB-POSIX::NAME) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-PASSWD ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-PASSWD 28 ; (SB-POSIX::NAME SB-POSIX::C-STRING-POINTER ; "char *" 0 4) ; (SB-POSIX::PASSWD SB-POSIX::C-STRING-POINTER ; "char *" 4 4) ; (SB-POSIX::UID SB-POSIX::UID-T "uid_t" 8 4) ; (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 12 4) ; (SB-POSIX::GECOS SB-POSIX::C-STRING-POINTER ; "char *" 16 4) ; (SB-POSIX::DIR SB-POSIX::C-STRING-POINTER ; "char *" 20 4) ; (SB-POSIX::SHELL SB-POSIX::C-STRING-POINTER ; "char *" 24 4)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-POSIX::NAME) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-POSIX::PASSWD) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-POSIX::PASSWD) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-UID (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-PASSWD-UID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-UID (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-PASSWD-UID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-UID (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-PASSWD-UID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-GID (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-PASSWD-GID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-GID (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-PASSWD-GID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-GID (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-PASSWD-GID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-POSIX::GECOS) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-POSIX::GECOS) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-POSIX::DIR) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-POSIX::DIR) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-POSIX::SHELL) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-POSIX::SHELL) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; --> IF ; ==> ; (SB-ALIEN::C-STRING-TO-STRING ALIEN ; (SB-ALIEN::C-STRING-EXTERNAL-FORMAT ; #) ; (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; #)) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-STAT ...); in: LAMBDA NIL ; (SLOT STRUCT 'SB-POSIX::DEV) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> SB-SYS:SAP-REF-64 LOGIOR ; ==> ; (ASH (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET) 32) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (MOD 18446744069414584321) ; &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 (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18446744069414584321) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST ; T). ; etc. ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> SB-SYS:SAP-REF-64 ; ==> ; (LOGIOR (ASH (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET) 32) ; (SB-SYS:SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4))) ; ; 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 (MOD 18446744069414584321), not a FIXNUM. ; The second argument is a (UNSIGNED-BYTE 32), 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 3) because: ; The first argument is a (MOD 18446744069414584321), not a (SIGNED-BYTE ; 32). ; The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> SB-SYS:SAP-REF-64 LOGIOR ; ==> ; (ASH (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET) 32) ; ; note: doing unsigned word to integer coercion (cost 20) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> SB-SYS:SAP-REF-64 ; ==> ; (LOGIOR (ASH (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET) 32) ; (SB-SYS:SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4))) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the second argument of static-fun Two-arg-ior ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-STAT ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-STAT 88 ; (SB-POSIX::MODE SB-POSIX::MODE-T "mode_t" 16 4) ; (SB-POSIX::NLINK SB-POSIX::NLINK-T "nlink_t" 20 ; 4) ; (SB-POSIX::UID SB-POSIX::UID-T "uid_t" 24 4) ; (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 28 4) ; (SB-POSIX::SIZE SB-POSIX::OFF-T "off_t" 44 4) ; (SB-POSIX::ATIME SB-POSIX::TIME-T "time_t" 56 4) ; (SB-POSIX::MTIME SB-POSIX::TIME-T "time_t" 64 4) ; (SB-POSIX::CTIME SB-POSIX::TIME-T "time_t" 72 4)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> SB-SYS:SAP-REF-64 LOGIOR ; ==> ; (ASH (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET) 32) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (MOD 18446744069414584321) ; &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 (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18446744069414584321) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST ; T). ; etc. ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> SB-SYS:SAP-REF-64 ; ==> ; (LOGIOR (ASH (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET) 32) ; (SB-SYS:SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4))) ; ; 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 (MOD 18446744069414584321), not a FIXNUM. ; The second argument is a (UNSIGNED-BYTE 32), 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 3) because: ; The first argument is a (MOD 18446744069414584321), not a (SIGNED-BYTE ; 32). ; The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> SB-SYS:SAP-REF-64 LOGIOR ; ==> ; (ASH (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET) 32) ; ; note: doing unsigned word to integer coercion (cost 20) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; --> SB-SYS:SAP-REF-64 ; ==> ; (LOGIOR (ASH (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET) 32) ; (SB-SYS:SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4))) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the second argument of static-fun Two-arg-ior ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-POSIX::DEV) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SETF SB-KERNEL:%SET-SAP-REF-64 ; --> PROGN SB-KERNEL:%SET-SAP-REF-32 ; ==> ; (ASH SB-VM::VALUE -32) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; unable to do inline constant ASH (cost 4) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32). ; etc. ; ==> ; (LOGAND SB-VM::VALUE 4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32). ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SETF SB-KERNEL:%SET-SAP-REF-64 ; --> PROGN SB-KERNEL:%SET-SAP-REF-32 ; ==> ; (ASH SB-VM::VALUE -32) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; unable to do inline constant ASH (cost 4) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32). ; etc. ; ==> ; (LOGAND SB-VM::VALUE 4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 64), not a (UNSIGNED-BYTE 32). ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-INO (STRUCT) ; (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-INO ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::INO) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-INO (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-INO ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::INO) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-INO (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-INO ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::INO) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MODE (STRUCT) ; (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-MODE ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::MODE) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MODE (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-MODE ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::MODE) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MODE (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-MODE ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::MODE) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-NLINK (STRUCT) ; (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-NLINK ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::NLINK) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-NLINK (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-NLINK ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::NLINK) 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-NLINK (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-NLINK ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::NLINK) 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-UID (STRUCT) ; (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-UID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-UID (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-UID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-UID (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-UID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-GID (STRUCT) ; (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-GID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-GID (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-GID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-GID (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-GID ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID) ; 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-SIZE (STRUCT) ; (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-SIZE ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::SIZE) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-SIZE (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-SIZE ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::SIZE) ; 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-SIZE (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-SIZE ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::SIZE) ; 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-ATIME (STRUCT) ; (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-ATIME ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::ATIME) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-ATIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-ATIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::ATIME) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-ATIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-ATIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::ATIME) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MTIME (STRUCT) ; (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-MTIME ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::MTIME) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MTIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-MTIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::MTIME) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MTIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-MTIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::MTIME) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-CTIME (STRUCT) ; (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-CTIME ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::CTIME) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-CTIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-CTIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::CTIME) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-CTIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-STAT-CTIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::CTIME) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DEFCONSTANT O-RDONLY ...) ; compiling (EXPORT (QUOTE O-RDONLY)) ; compiling (DEFCONSTANT O-WRONLY ...) ; compiling (EXPORT (QUOTE O-WRONLY)) ; compiling (DEFCONSTANT O-RDWR ...) ; compiling (EXPORT (QUOTE O-RDWR)) ; compiling (DEFCONSTANT O-CREAT ...) ; compiling (EXPORT (QUOTE O-CREAT)) ; compiling (DEFCONSTANT O-EXCL ...) ; compiling (EXPORT (QUOTE O-EXCL)) ; compiling (DEFCONSTANT O-NOCTTY ...) ; compiling (EXPORT (QUOTE O-NOCTTY)) ; compiling (DEFCONSTANT O-TRUNC ...) ; compiling (EXPORT (QUOTE O-TRUNC)) ; compiling (DEFCONSTANT O-APPEND ...) ; compiling (EXPORT (QUOTE O-APPEND)) ; compiling (DEFCONSTANT O-NONBLOCK ...) ; compiling (EXPORT (QUOTE O-NONBLOCK)) ; compiling (DEFCONSTANT O-NDELAY ...) ; compiling (EXPORT (QUOTE O-NDELAY)) ; compiling (DEFCONSTANT O-SYNC ...) ; compiling (EXPORT (QUOTE O-SYNC)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for O_NOFOLLOW (unknown to the C compiler).") ; compiling (EXPORT (QUOTE O-NOFOLLOW)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for O_DIRECTORY (unknown to the C compiler).") ; compiling (EXPORT (QUOTE O-DIRECTORY)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for O_DIRECT (unknown to the C compiler).") ; compiling (EXPORT (QUOTE O-DIRECT)) ; compiling (DEFCONSTANT O-ASYNC ...) ; compiling (EXPORT (QUOTE O-ASYNC)) ; compiling (SB-INT:STYLE-WARN "Couldn't grovel for O_LARGEFILE (unknown to the C compiler).") ; compiling (EXPORT (QUOTE O-LARGEFILE)) ; compiling (DEFCONSTANT O-DSYNC ...) ; compiling (EXPORT (QUOTE O-DSYNC)) ; compiling (DEFCONSTANT O-RSYNC ...) ; compiling (EXPORT (QUOTE O-RSYNC)) ; compiling (DEFCONSTANT SEEK-SET ...) ; compiling (EXPORT (QUOTE SEEK-SET)) ; compiling (DEFCONSTANT SEEK-CUR ...) ; compiling (EXPORT (QUOTE SEEK-CUR)) ; compiling (DEFCONSTANT SEEK-END ...) ; compiling (EXPORT (QUOTE SEEK-END)) ; compiling (DEFCONSTANT F-DUPFD ...) ; compiling (EXPORT (QUOTE F-DUPFD)) ; compiling (DEFCONSTANT F-GETFD ...) ; compiling (EXPORT (QUOTE F-GETFD)) ; compiling (DEFCONSTANT F-SETFD ...) ; compiling (EXPORT (QUOTE F-SETFD)) ; compiling (DEFCONSTANT F-GETFL ...) ; compiling (EXPORT (QUOTE F-GETFL)) ; compiling (DEFCONSTANT F-SETFL ...) ; compiling (EXPORT (QUOTE F-SETFL)) ; compiling (DEFCONSTANT F-GETLK ...) ; compiling (EXPORT (QUOTE F-GETLK)) ; compiling (DEFCONSTANT F-SETLK ...) ; compiling (EXPORT (QUOTE F-SETLK)) ; compiling (DEFCONSTANT F-SETLKW ...) ; compiling (EXPORT (QUOTE F-SETLKW)) ; compiling (DEFCONSTANT F-GETOWN ...) ; compiling (EXPORT (QUOTE F-GETOWN)) ; compiling (DEFCONSTANT F-SETOWN ...) ; compiling (EXPORT (QUOTE F-SETOWN)) ; compiling (DEFINE-ALIEN-TYPE CC-T ...) ; compiling (DEFINE-ALIEN-TYPE SPEED-T ...) ; compiling (EXPORT (QUOTE SPEED-T)) ; compiling (DEFINE-ALIEN-TYPE TCFLAG-T ...) ; compiling (EXPORT (QUOTE TCFLAG-T)) ; compiling (DEFCONSTANT NCCS ...) ; compiling (EXPORT (QUOTE NCCS)) ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TERMIOS ...); in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-IFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-IFLAG ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::IFLAG) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-IFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-IFLAG ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::IFLAG) 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TERMIOS ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TERMIOS 60 ; (SB-POSIX::IFLAG SB-POSIX::TCFLAG-T "tcflag_t" 0 ; 4) ; (SB-POSIX::OFLAG SB-POSIX::TCFLAG-T "tcflag_t" 4 ; 4) ; (SB-POSIX::CFLAG SB-POSIX::TCFLAG-T "tcflag_t" 8 ; 4) ; (SB-POSIX::LFLAG SB-POSIX::TCFLAG-T "tcflag_t" 12 ; 4) ; (SB-POSIX::CC (ARRAY SB-POSIX::CC-T) "cc_t" 17 ; 32)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-IFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-IFLAG ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::IFLAG) 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-OFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-OFLAG ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::OFLAG) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-OFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-OFLAG ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::OFLAG) 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-OFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-OFLAG ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::OFLAG) 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-CFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-CFLAG ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::CFLAG) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-CFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-CFLAG ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::CFLAG) 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-CFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-CFLAG ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::CFLAG) 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-LFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-LFLAG ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::LFLAG) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-LFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-LFLAG ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::LFLAG) 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-LFLAG (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TERMIOS-LFLAG ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::LFLAG) 4))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SLOT STRUCT 'SB-POSIX::CC) ; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SETF (SLOT STRUCT 'SB-POSIX::CC) SB-GROVEL::NEW-VAL) ; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SETF SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT ; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-UTIMBUF ...); in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-ACTIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-UTIMBUF-ACTIME ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::ACTIME) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-ACTIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-UTIMBUF-ACTIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::ACTIME) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-UTIMBUF ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-UTIMBUF 8 ; (SB-POSIX::ACTIME SB-POSIX::TIME-T "time_t" 0 4) ; (SB-POSIX::MODTIME SB-POSIX::TIME-T "time_t" 4 4)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-ACTIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-UTIMBUF-ACTIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::ACTIME) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-MODTIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-UTIMBUF-MODTIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::MODTIME) 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-MODTIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-UTIMBUF-MODTIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::MODTIME) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-MODTIME (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-UTIMBUF-MODTIME ; (SB-GROVEL::IDENTITY-1 ; (SLOT STRUCT 'SB-POSIX::MODTIME) 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMEVAL ...); in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-SEC (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TIMEVAL-SEC ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::SEC) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-SEC (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TIMEVAL-SEC ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::SEC) ; 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/constants.lisp-temp ; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMEVAL ; (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TIMEVAL 8 ; (SB-POSIX::SEC LONG "long" 0 4) ; (SB-POSIX::USEC LONG "long" 4 4)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-SEC (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TIMEVAL-SEC ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::SEC) ; 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-USEC (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TIMEVAL-USEC ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::USEC) ; 4))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-USEC (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TIMEVAL-USEC ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::USEC) ; 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-USEC (STRUCT) ; (DECLARE ; (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT) ; (OPTIMIZE (SPEED 3))) ; (BLOCK SB-POSIX::ALIEN-TIMEVAL-USEC ; (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::USEC) ; 4))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; compiling (DEFCONSTANT VEOF ...) ; compiling (EXPORT (QUOTE VEOF)) ; compiling (DEFCONSTANT VEOL ...) ; compiling (EXPORT (QUOTE VEOL)) ; compiling (DEFCONSTANT VERASE ...) ; compiling (EXPORT (QUOTE VERASE)) ; compiling (DEFCONSTANT VINTR ...) ; compiling (EXPORT (QUOTE VINTR)) ; compiling (DEFCONSTANT VKILL ...) ; compiling (EXPORT (QUOTE VKILL)) ; compiling (DEFCONSTANT VMIN ...) ; compiling (EXPORT (QUOTE VMIN)) ; compiling (DEFCONSTANT VQUIT ...) ; compiling (EXPORT (QUOTE VQUIT)) ; compiling (DEFCONSTANT VSTART ...) ; compiling (EXPORT (QUOTE VSTART)) ; compiling (DEFCONSTANT VSTOP ...) ; compiling (EXPORT (QUOTE VSTOP)) ; compiling (DEFCONSTANT VSUSP ...) ; compiling (EXPORT (QUOTE VSUSP)) ; compiling (DEFCONSTANT VTIME ...) ; compiling (EXPORT (QUOTE VTIME)) ; compiling (DEFCONSTANT BRKINT ...) ; compiling (EXPORT (QUOTE BRKINT)) ; compiling (DEFCONSTANT ICRNL ...) ; compiling (EXPORT (QUOTE ICRNL)) ; compiling (DEFCONSTANT IGNBRK ...) ; compiling (EXPORT (QUOTE IGNBRK)) ; compiling (DEFCONSTANT IGNCR ...) ; compiling (EXPORT (QUOTE IGNCR)) ; compiling (DEFCONSTANT IGNPAR ...) ; compiling (EXPORT (QUOTE IGNPAR)) ; compiling (DEFCONSTANT INLCR ...) ; compiling (EXPORT (QUOTE INLCR)) ; compiling (DEFCONSTANT INPCK ...) ; compiling (EXPORT (QUOTE INPCK)) ; compiling (DEFCONSTANT ISTRIP ...) ; compiling (EXPORT (QUOTE ISTRIP)) ; compiling (DEFCONSTANT IXOFF ...) ; compiling (EXPORT (QUOTE IXOFF)) ; compiling (DEFCONSTANT IXON ...) ; compiling (EXPORT (QUOTE IXON)) ; compiling (DEFCONSTANT PARMRK ...) ; compiling (EXPORT (QUOTE PARMRK)) ; compiling (DEFCONSTANT OPOST ...) ; compiling (EXPORT (QUOTE OPOST)) ; compiling (DEFCONSTANT OCRNL ...) ; compiling (EXPORT (QUOTE OCRNL)) ; compiling (DEFCONSTANT ONLRET ...) ; compiling (EXPORT (QUOTE ONLRET)) ; compiling (DEFCONSTANT OFILL ...) ; compiling (EXPORT (QUOTE OFILL)) ; compiling (DEFCONSTANT NLDLY ...) ; compiling (EXPORT (QUOTE NLDLY)) ; compiling (DEFCONSTANT NL0 ...) ; compiling (EXPORT (QUOTE NL0)) ; compiling (DEFCONSTANT NL1 ...) ; compiling (EXPORT (QUOTE NL1)) ; compiling (DEFCONSTANT CRDLY ...) ; compiling (EXPORT (QUOTE CRDLY)) ; compiling (DEFCONSTANT CR0 ...) ; compiling (EXPORT (QUOTE CR0)) ; compiling (DEFCONSTANT CR1 ...) ; compiling (EXPORT (QUOTE CR1)) ; compiling (DEFCONSTANT CR2 ...) ; compiling (EXPORT (QUOTE CR2)) ; compiling (DEFCONSTANT CR3 ...) ; compiling (EXPORT (QUOTE CR3)) ; compiling (DEFCONSTANT TABDLY ...) ; compiling (EXPORT (QUOTE TABDLY)) ; compiling (DEFCONSTANT TAB0 ...) ; compiling (EXPORT (QUOTE TAB0)) ; compiling (DEFCONSTANT TAB1 ...) ; compiling (EXPORT (QUOTE TAB1)) ; compiling (DEFCONSTANT TAB2 ...) ; compiling (EXPORT (QUOTE TAB2)) ; compiling (DEFCONSTANT TAB3 ...) ; compiling (EXPORT (QUOTE TAB3)) ; compiling (DEFCONSTANT BSDLY ...) ; compiling (EXPORT (QUOTE BSDLY)) ; compiling (DEFCONSTANT BS0 ...) ; compiling (EXPORT (QUOTE BS0)) ; compiling (DEFCONSTANT BS1 ...) ; compiling (EXPORT (QUOTE BS1)) ; compiling (DEFCONSTANT VTDLY ...) ; compiling (EXPORT (QUOTE VTDLY)) ; compiling (DEFCONSTANT VT0 ...) ; compiling (EXPORT (QUOTE VT0)) ; compiling (DEFCONSTANT VT1 ...) ; compiling (EXPORT (QUOTE VT1)) ; compiling (DEFCONSTANT FFDLY ...) ; compiling (EXPORT (QUOTE FFDLY)) ; compiling (DEFCONSTANT FF0 ...) ; compiling (EXPORT (QUOTE FF0)) ; compiling (DEFCONSTANT FF1 ...) ; compiling (EXPORT (QUOTE FF1)) ; compiling (DEFCONSTANT B0 ...) ; compiling (EXPORT (QUOTE B0)) ; compiling (DEFCONSTANT B50 ...) ; compiling (EXPORT (QUOTE B50)) ; compiling (DEFCONSTANT B75 ...) ; compiling (EXPORT (QUOTE B75)) ; compiling (DEFCONSTANT B110 ...) ; compiling (EXPORT (QUOTE B110)) ; compiling (DEFCONSTANT B134 ...) ; compiling (EXPORT (QUOTE B134)) ; compiling (DEFCONSTANT B150 ...) ; compiling (EXPORT (QUOTE B150)) ; compiling (DEFCONSTANT B200 ...) ; compiling (EXPORT (QUOTE B200)) ; compiling (DEFCONSTANT B300 ...) ; compiling (EXPORT (QUOTE B300)) ; compiling (DEFCONSTANT B600 ...) ; compiling (EXPORT (QUOTE B600)) ; compiling (DEFCONSTANT B1200 ...) ; compiling (EXPORT (QUOTE B1200)) ; compiling (DEFCONSTANT B1800 ...) ; compiling (EXPORT (QUOTE B1800)) ; compiling (DEFCONSTANT B2400 ...) ; compiling (EXPORT (QUOTE B2400)) ; compiling (DEFCONSTANT B4800 ...) ; compiling (EXPORT (QUOTE B4800)) ; compiling (DEFCONSTANT B9600 ...) ; compiling (EXPORT (QUOTE B9600)) ; compiling (DEFCONSTANT B19200 ...) ; compiling (EXPORT (QUOTE B19200)) ; compiling (DEFCONSTANT B38400 ...) ; compiling (EXPORT (QUOTE B38400)) ; compiling (DEFCONSTANT B57600 ...) ; compiling (EXPORT (QUOTE B57600)) ; compiling (DEFCONSTANT B115200 ...) ; compiling (EXPORT (QUOTE B115200)) ; compiling (DEFCONSTANT B230400 ...) ; compiling (EXPORT (QUOTE B230400)) ; compiling (DEFCONSTANT CSIZE ...) ; compiling (EXPORT (QUOTE CSIZE)) ; compiling (DEFCONSTANT CS5 ...) ; compiling (EXPORT (QUOTE CS5)) ; compiling (DEFCONSTANT CS6 ...) ; compiling (EXPORT (QUOTE CS6)) ; compiling (DEFCONSTANT CS7 ...) ; compiling (EXPORT (QUOTE CS7)) ; compiling (DEFCONSTANT CS8 ...) ; compiling (EXPORT (QUOTE CS8)) ; compiling (DEFCONSTANT CSTOPB ...) ; compiling (EXPORT (QUOTE CSTOPB)) ; compiling (DEFCONSTANT CREAD ...) ; compiling (EXPORT (QUOTE CREAD)) ; compiling (DEFCONSTANT PARENB ...) ; compiling (EXPORT (QUOTE PARENB)) ; compiling (DEFCONSTANT PARODD ...) ; compiling (EXPORT (QUOTE PARODD)) ; compiling (DEFCONSTANT HUPCL ...) ; compiling (EXPORT (QUOTE HUPCL)) ; compiling (DEFCONSTANT CLOCAL ...) ; compiling (EXPORT (QUOTE CLOCAL)) ; compiling (DEFCONSTANT ECHO ...) ; compiling (EXPORT (QUOTE ECHO)) ; compiling (DEFCONSTANT ECHOE ...) ; compiling (EXPORT (QUOTE ECHOE)) ; compiling (DEFCONSTANT ECHOK ...) ; compiling (EXPORT (QUOTE ECHOK)) ; compiling (DEFCONSTANT ECHONL ...) ; compiling (EXPORT (QUOTE ECHONL)) ; compiling (DEFCONSTANT ICANON ...) ; compiling (EXPORT (QUOTE ICANON)) ; compiling (DEFCONSTANT IEXTEN ...) ; compiling (EXPORT (QUOTE IEXTEN)) ; compiling (DEFCONSTANT ISIG ...) ; compiling (EXPORT (QUOTE ISIG)) ; compiling (DEFCONSTANT NOFLSH ...) ; compiling (EXPORT (QUOTE NOFLSH)) ; compiling (DEFCONSTANT TOSTOP ...) ; compiling (EXPORT (QUOTE TOSTOP)) ; compiling (DEFCONSTANT TCSANOW ...) ; compiling (EXPORT (QUOTE TCSANOW)) ; compiling (DEFCONSTANT TCSADRAIN ...) ; compiling (EXPORT (QUOTE TCSADRAIN)) ; compiling (DEFCONSTANT TCSAFLUSH ...) ; compiling (EXPORT (QUOTE TCSAFLUSH)) ; compiling (DEFCONSTANT TCIFLUSH ...) ; compiling (EXPORT (QUOTE TCIFLUSH)) ; compiling (DEFCONSTANT TCIOFLUSH ...) ; compiling (EXPORT (QUOTE TCIOFLUSH)) ; compiling (DEFCONSTANT TCOFLUSH ...) ; compiling (EXPORT (QUOTE TCOFLUSH)) ; compiling (DEFCONSTANT TCIOFF ...) ; compiling (EXPORT (QUOTE TCIOFF)) ; compiling (DEFCONSTANT TCION ...) ; compiling (EXPORT (QUOTE TCION)) ; compiling (DEFCONSTANT TCOOFF ...) ; compiling (EXPORT (QUOTE TCOOFF)) ; compiling (DEFCONSTANT TCOON ...) ; compiling (EXPORT (QUOTE TCOON)) ; SYS:CONTRIB;SB-POSIX;CONSTANTS.FASL.NEWEST written ; compilation finished in 0:00:01 STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for SIGINFO (unknown to the C compiler). STYLE-WARNING: redefining DIRENT-NAME in DEFUN STYLE-WARNING: redefining (SETF DIRENT-NAME) in DEFUN STYLE-WARNING: redefining ALLOCATE-DIRENT in DEFUN STYLE-WARNING: redefining FREE-DIRENT in DEFUN STYLE-WARNING: redefining ALIEN-PASSWD-NAME in DEFUN STYLE-WARNING: redefining (SETF ALIEN-PASSWD-NAME) in DEFUN STYLE-WARNING: redefining ALIEN-PASSWD-PASSWD in DEFUN STYLE-WARNING: redefining (SETF ALIEN-PASSWD-PASSWD) in DEFUN STYLE-WARNING: redefining ALIEN-PASSWD-UID in DEFUN STYLE-WARNING: redefining (SETF ALIEN-PASSWD-UID) in DEFUN STYLE-WARNING: redefining ALIEN-PASSWD-GID in DEFUN STYLE-WARNING: redefining (SETF ALIEN-PASSWD-GID) in DEFUN STYLE-WARNING: redefining ALIEN-PASSWD-GECOS in DEFUN STYLE-WARNING: redefining (SETF ALIEN-PASSWD-GECOS) in DEFUN STYLE-WARNING: redefining ALIEN-PASSWD-DIR in DEFUN STYLE-WARNING: redefining (SETF ALIEN-PASSWD-DIR) in DEFUN STYLE-WARNING: redefining ALIEN-PASSWD-SHELL in DEFUN STYLE-WARNING: redefining (SETF ALIEN-PASSWD-SHELL) in DEFUN STYLE-WARNING: redefining ALLOCATE-ALIEN-PASSWD in DEFUN STYLE-WARNING: redefining FREE-ALIEN-PASSWD in DEFUN STYLE-WARNING: redefining ALIEN-STAT-DEV in DEFUN STYLE-WARNING: redefining (SETF ALIEN-STAT-DEV) in DEFUN STYLE-WARNING: redefining ALIEN-STAT-INO in DEFUN STYLE-WARNING: redefining (SETF ALIEN-STAT-INO) in DEFUN STYLE-WARNING: redefining ALIEN-STAT-MODE in DEFUN STYLE-WARNING: redefining (SETF ALIEN-STAT-MODE) in DEFUN STYLE-WARNING: redefining ALIEN-STAT-NLINK in DEFUN STYLE-WARNING: redefining (SETF ALIEN-STAT-NLINK) in DEFUN STYLE-WARNING: redefining ALIEN-STAT-UID in DEFUN STYLE-WARNING: redefining (SETF ALIEN-STAT-UID) in DEFUN STYLE-WARNING: redefining ALIEN-STAT-GID in DEFUN STYLE-WARNING: redefining (SETF ALIEN-STAT-GID) in DEFUN STYLE-WARNING: redefining ALIEN-STAT-SIZE in DEFUN STYLE-WARNING: redefining (SETF ALIEN-STAT-SIZE) in DEFUN STYLE-WARNING: redefining ALIEN-STAT-ATIME in DEFUN STYLE-WARNING: redefining (SETF ALIEN-STAT-ATIME) in DEFUN STYLE-WARNING: redefining ALIEN-STAT-MTIME in DEFUN STYLE-WARNING: redefining (SETF ALIEN-STAT-MTIME) in DEFUN STYLE-WARNING: redefining ALIEN-STAT-CTIME in DEFUN STYLE-WARNING: redefining (SETF ALIEN-STAT-CTIME) in DEFUN STYLE-WARNING: redefining ALLOCATE-ALIEN-STAT in DEFUN STYLE-WARNING: redefining FREE-ALIEN-STAT in DEFUN STYLE-WARNING: Couldn't grovel for O_NOFOLLOW (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECTORY (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler). STYLE-WARNING: redefining ALIEN-TERMIOS-IFLAG in DEFUN STYLE-WARNING: redefining (SETF ALIEN-TERMIOS-IFLAG) in DEFUN STYLE-WARNING: redefining ALIEN-TERMIOS-OFLAG in DEFUN STYLE-WARNING: redefining (SETF ALIEN-TERMIOS-OFLAG) in DEFUN STYLE-WARNING: redefining ALIEN-TERMIOS-CFLAG in DEFUN STYLE-WARNING: redefining (SETF ALIEN-TERMIOS-CFLAG) in DEFUN STYLE-WARNING: redefining ALIEN-TERMIOS-LFLAG in DEFUN STYLE-WARNING: redefining (SETF ALIEN-TERMIOS-LFLAG) in DEFUN STYLE-WARNING: redefining ALIEN-TERMIOS-CC in DEFUN STYLE-WARNING: redefining (SETF ALIEN-TERMIOS-CC) in DEFUN STYLE-WARNING: redefining ALLOCATE-ALIEN-TERMIOS in DEFUN STYLE-WARNING: redefining FREE-ALIEN-TERMIOS in DEFUN STYLE-WARNING: redefining ALIEN-UTIMBUF-ACTIME in DEFUN STYLE-WARNING: redefining (SETF ALIEN-UTIMBUF-ACTIME) in DEFUN STYLE-WARNING: redefining ALIEN-UTIMBUF-MODTIME in DEFUN STYLE-WARNING: redefining (SETF ALIEN-UTIMBUF-MODTIME) in DEFUN STYLE-WARNING: redefining ALLOCATE-ALIEN-UTIMBUF in DEFUN STYLE-WARNING: redefining FREE-ALIEN-UTIMBUF in DEFUN STYLE-WARNING: redefining ALIEN-TIMEVAL-SEC in DEFUN STYLE-WARNING: redefining (SETF ALIEN-TIMEVAL-SEC) in DEFUN STYLE-WARNING: redefining ALIEN-TIMEVAL-USEC in DEFUN STYLE-WARNING: redefining (SETF ALIEN-TIMEVAL-USEC) in DEFUN STYLE-WARNING: redefining ALLOCATE-ALIEN-TIMEVAL in DEFUN STYLE-WARNING: redefining FREE-ALIEN-TIMEVAL in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp" (written 21 DEC 2006 03:17:17 AM): ; compiling (IN-PACKAGE :SB-POSIX) ; compiling (DEFMACRO DEFINE-PROTOCOL-CLASS ...) ; compiling (DEFINE-CONDITION SYSCALL-ERROR ...) ; compiling (DEFUN SYSCALL-ERROR ...) ; compiling (DECLAIM (INLINE NEVER-FAILS)) ; compiling (DEFUN NEVER-FAILS ...) ; compiling (DEFMACRO DEFINE-CALL* ...) ; compiling (DEFINE-CALL* "access" ...) ; compiling (DEFINE-CALL* "chdir" ...) ; compiling (DEFINE-CALL* "chmod" ...) ; compiling (DEFINE-CALL* "close" ...) ; compiling (DEFINE-CALL* "creat" ...) ; compiling (DEFINE-CALL* "dup" ...) ; compiling (DEFINE-CALL* "dup2" ...) ; compiling (DEFINE-CALL* ("lseek" :LARGEFILE) ...) ; compiling (DEFINE-CALL* "mkdir" ...) ; compiling (DEF "open") ; compiling (DEFINE-CALL "rename" ...) ; compiling (DEFINE-CALL* "rmdir" ...) ; compiling (DEFINE-CALL* "unlink" ...) ; compiling (DEFINE-CALL "opendir" ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFINE-CALL "opendir" ; (SB-POSIX::DEFINE-CALL "opendir" (* T) NULL-ALIEN ; (PATHNAME SB-POSIX::FILENAME)) ; --> PROGN SB-POSIX::DEFINE-CALL-INTERNALLY PROGN DEFUN PROGN EVAL-WHEN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-CALL ("readdir" :LARGEFILE) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFINE-CALL ("readdir" :LARGEFILE) ; (SB-POSIX::DEFINE-CALL ("readdir" :LARGEFILE) (* SB-POSIX::DIRENT) NOT ; (SB-POSIX::DIR (* T))) ; --> PROGN SB-POSIX::DEFINE-CALL-INTERNALLY PROGN DEFUN PROGN EVAL-WHEN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ALIEN-FUNCALL ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-CALL "closedir" ...) ; compiling (DEFINE-CALL* "umask" ...) ; compiling (DEFINE-CALL* "getpid" ...) ; compiling (DEFINE-CALL "chown" ...) ; compiling (DEFINE-CALL "chroot" ...) ; compiling (DEFINE-CALL "fchdir" ...) ; compiling (DEFINE-CALL "fchmod" ...) ; compiling (DEFINE-CALL "fchown" ...) ; compiling (DEFINE-CALL "fdatasync" ...) ; compiling (DEFINE-CALL ("ftruncate" :LARGEFILE) ...) ; compiling (DEFINE-CALL "fsync" ...) ; compiling (DEFINE-CALL "lchown" ...) ; compiling (DEFINE-CALL "link" ...) ; compiling (DEFINE-CALL "mkfifo" ...) ; compiling (DEFINE-CALL "symlink" ...) ; compiling (DEFINE-CALL "sync" ...) ; compiling (DEFINE-CALL ("truncate" :LARGEFILE) ...) ; compiling (DEFINE-CALL "mkstemp" ...) ; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITHOUT-ARG ...) ; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITH-INT-ARG ...) ; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITH-POINTER-ARG ...) ; compiling (DEFINE-ENTRY-POINT "ioctl" ...) ; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITHOUT-ARG ...) ; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITH-INT-ARG ...) ; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITH-POINTER-ARG ...) ; compiling (DEFINE-ENTRY-POINT "fcntl" ...) ; compiling (DEFINE-CALL "geteuid" ...) ; compiling (DEFINE-CALL "getresuid" ...) ; compiling (DEFINE-CALL "getuid" ...) ; compiling (DEFINE-CALL "seteuid" ...) ; compiling (DEFINE-CALL "setfsuid" ...) ; compiling (DEFINE-CALL "setreuid" ...) ; compiling (DEFINE-CALL "setresuid" ...) ; compiling (DEFINE-CALL "setuid" ...) ; compiling (DEFINE-CALL "getegid" ...) ; compiling (DEFINE-CALL "getgid" ...) ; compiling (DEFINE-CALL "getresgid" ...) ; compiling (DEFINE-CALL "setegid" ...) ; compiling (DEFINE-CALL "setfsgid" ...) ; compiling (DEFINE-CALL "setgid" ...) ; compiling (DEFINE-CALL "setregid" ...) ; compiling (DEFINE-CALL "setresgid" ...) ; compiling (DEFINE-CALL "alarm" ...) ; compiling (DEFINE-CALL "fork" ...) ; compiling (DEFINE-CALL "getpgid" ...) ; compiling (DEFINE-CALL "getppid" ...) ; compiling (DEFINE-CALL "getpgrp" ...) ; compiling (DEFINE-CALL "getsid" ...) ; compiling (DEFINE-CALL "kill" ...) ; compiling (DEFINE-CALL "killpg" ...) ; compiling (DEFINE-CALL "pause" ...) ; compiling (DEFINE-CALL "setpgid" ...) ; compiling (DEFINE-CALL "setpgrp" ...) ; compiling (EXPORT (QUOTE WAIT) ...) ; compiling (DECLAIM (INLINE WAIT)) ; compiling (DEFUN WAIT ...) ; compiling (EXPORT (QUOTE WAITPID) ...) ; compiling (DECLAIM (INLINE WAITPID)) ; compiling (DEFUN WAITPID ...) ; compiling (DEFINE-CALL "wifexited" ...) ; compiling (DEFINE-CALL "wexitstatus" ...) ; compiling (DEFINE-CALL "wifsignaled" ...) ; compiling (DEFINE-CALL "wtermsig" ...) ; compiling (DEFINE-CALL "wifstopped" ...) ; compiling (DEFINE-CALL "wstopsig" ...) ; compiling (DEFINE-CALL ("mmap" :LARGEFILE) ...) ; compiling (DEFINE-CALL "munmap" ...) ; compiling (DEFINE-CALL "msync" ...) ; compiling (DEFINE-CALL "getpagesize" ...) ; compiling (DEFINE-PROTOCOL-CLASS PASSWD ...) ; compiling (DEFMACRO DEFINE-PW-CALL ...) ; compiling (DEFINE-PW-CALL "getpwnam" ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFMACRO DEFINE-PW-CALL ; (IF (NULL SB-POSIX::R) SB-POSIX::R (SB-POSIX::ALIEN-TO-PASSWD SB-POSIX::R)) ; ==> ; SB-POSIX::R ; ; note: deleting unreachable code ; in: DEFINE-PW-CALL "getpwnam" ; (SB-POSIX::DEFINE-PW-CALL "getpwnam" SB-POSIX::LOGIN-NAME ; (FUNCTION (* SB-POSIX::ALIEN-PASSWD) C-STRING)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-PW-CALL "getpwuid" ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFMACRO DEFINE-PW-CALL ; (IF (NULL SB-POSIX::R) SB-POSIX::R (SB-POSIX::ALIEN-TO-PASSWD SB-POSIX::R)) ; ==> ; SB-POSIX::R ; ; note: deleting unreachable code ; in: DEFINE-PW-CALL "getpwuid" ; (SB-POSIX::DEFINE-PW-CALL "getpwuid" SB-POSIX::UID ; (FUNCTION (* SB-POSIX::ALIEN-PASSWD) ; SB-POSIX::UID-T)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-PROTOCOL-CLASS STAT ...) ; compiling (DEFMACRO DEFINE-STAT-CALL ...) ; compiling (DEFINE-STAT-CALL "stat" ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFINE-STAT-CALL "stat" ; (SB-POSIX::DEFINE-STAT-CALL "stat" PATHNAME SB-POSIX::FILENAME ; (FUNCTION INT C-STRING (* SB-POSIX::ALIEN-STAT))) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50E489B1}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: DEFMACRO DEFINE-STAT-CALL ; (SB-POSIX::ALIEN-TO-STAT SB-POSIX::A-STAT SB-POSIX::STAT) ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-STAT-CALL "lstat" ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFINE-STAT-CALL "lstat" ; (SB-POSIX::DEFINE-STAT-CALL "lstat" PATHNAME SB-POSIX::FILENAME ; (FUNCTION INT C-STRING (* SB-POSIX::ALIEN-STAT))) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {51397E69}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: DEFMACRO DEFINE-STAT-CALL ; (SB-POSIX::ALIEN-TO-STAT SB-POSIX::A-STAT SB-POSIX::STAT) ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-STAT-CALL "fstat" ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFINE-STAT-CALL "fstat" ; (SB-POSIX::DEFINE-STAT-CALL "fstat" SB-POSIX::FD SB-POSIX::FILE-DESCRIPTOR ; (FUNCTION INT INT (* SB-POSIX::ALIEN-STAT))) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50894959}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: DEFMACRO DEFINE-STAT-CALL ; (SB-POSIX::ALIEN-TO-STAT SB-POSIX::A-STAT SB-POSIX::STAT) ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-CALL "s_isreg" ...) ; compiling (DEFINE-CALL "s_isdir" ...) ; compiling (DEFINE-CALL "s_ischr" ...) ; compiling (DEFINE-CALL "s_isblk" ...) ; compiling (DEFINE-CALL "s_isfifo" ...) ; compiling (DEFINE-CALL "s_islnk" ...) ; compiling (DEFINE-CALL "s_issock" ...) ; compiling (EXPORT (QUOTE PIPE) ...) ; compiling (DECLAIM (INLINE PIPE)) ; compiling (DEFUN PIPE ...) ; compiling (DEFINE-PROTOCOL-CLASS TERMIOS ...) ; compiling (EXPORT (QUOTE TCSETATTR) ...) ; compiling (DECLAIM (INLINE TCSETATTR)) ; compiling (DEFUN TCSETATTR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFUN TCSETATTR ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS) ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS ; SB-POSIX::A-TERMIOS) ; (LET ((SB-POSIX::FD ; (SB-POSIX::FILE-DESCRIPTOR ; SB-POSIX::FD))) ; (LET* ((SB-POSIX::R #)) ; (WHEN (MINUSP SB-POSIX::R) ; (SB-POSIX:SYSCALL-ERROR))) ; (VALUES))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 ; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {51321031}> ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE TCGETATTR) ...) ; compiling (DECLAIM (INLINE TCGETATTR)) ; compiling (DEFUN TCGETATTR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFUN TCGETATTR ; (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL ; (LET ((SB-POSIX::R ; (ALIEN-FUNCALL # # SB-POSIX::A-TERMIOS))) ; (WHEN (MINUSP SB-POSIX::R) ; (SB-POSIX:SYSCALL-ERROR)) ; (SETF SB-POSIX::TERMIOS ; (SB-POSIX::ALIEN-TO-TERMIOS ; SB-POSIX::A-TERMIOS ; SB-POSIX::TERMIOS)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 ; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {514CF051}> ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS) ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE CFSETISPEED) ...) ; compiling (DECLAIM (INLINE CFSETISPEED)) ; compiling (DEFUN CFSETISPEED ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFUN CFSETISPEED ; (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL ; (LET ((SB-POSIX::R ; (ALIEN-FUNCALL # SB-POSIX::A-TERMIOS ; SPEED))) ; (WHEN (MINUSP SB-POSIX::R) ; (SB-POSIX:SYSCALL-ERROR)) ; (SETF SB-POSIX::TERMIOS ; (SB-POSIX::ALIEN-TO-TERMIOS ; SB-POSIX::A-TERMIOS ; SB-POSIX::TERMIOS)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 ; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {516A0001}> ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS) ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE CFSETOSPEED) ...) ; compiling (DECLAIM (INLINE CFSETOSPEED)) ; compiling (DEFUN CFSETOSPEED ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFUN CFSETOSPEED ; (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL ; (LET ((SB-POSIX::R ; (ALIEN-FUNCALL # SB-POSIX::A-TERMIOS ; SPEED))) ; (WHEN (MINUSP SB-POSIX::R) ; (SB-POSIX:SYSCALL-ERROR)) ; (SETF SB-POSIX::TERMIOS ; (SB-POSIX::ALIEN-TO-TERMIOS ; SB-POSIX::A-TERMIOS ; SB-POSIX::TERMIOS)))) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 ; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {519395D9}> ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS) ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE CFGETISPEED) ...) ; compiling (DECLAIM (INLINE CFGETISPEED)) ; compiling (DEFUN CFGETISPEED ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFUN CFGETISPEED ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS) ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS ; SB-POSIX::A-TERMIOS) ; (ALIEN-FUNCALL ; (EXTERN-ALIEN "cfgetispeed" ; (FUNCTION SB-POSIX:SPEED-T ; (* SB-POSIX::ALIEN-TERMIOS))) ; SB-POSIX::A-TERMIOS)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 ; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50DFBD91}> ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE CFGETOSPEED) ...) ; compiling (DECLAIM (INLINE CFGETOSPEED)) ; compiling (DEFUN CFGETOSPEED ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFUN CFGETOSPEED ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS) ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL ; (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS ; SB-POSIX::A-TERMIOS) ; (ALIEN-FUNCALL ; (EXTERN-ALIEN "cfgetospeed" ; (FUNCTION SB-POSIX:SPEED-T ; (* SB-POSIX::ALIEN-TERMIOS))) ; SB-POSIX::A-TERMIOS)) ; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 ; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50F949F9}> ; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE TIME) ...) ; compiling (DEFUN TIME ...) ; compiling (EXPORT (QUOTE UTIME) ...) ; compiling (DEFUN UTIME ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFUN UTIME ; (EXTERN-ALIEN "utime" (FUNCTION INT C-STRING (* SB-POSIX::ALIEN-UTIMBUF))) ; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE UTIMES) ...) ; compiling (DEFUN UTIMES ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFUN UTIMES ; (EXTERN-ALIEN "utimes" ; (FUNCTION INT C-STRING (* (ARRAY SB-POSIX::ALIEN-TIMEVAL 2)))) ; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (DEREF SB-POSIX::BUF 0) ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (DEREF SB-POSIX::BUF 1) ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (EXPORT (QUOTE GETENV) ...) ; compiling (DEFUN GETENV ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/interface.lisp ; in: DEFUN GETENV ; (ALIEN-FUNCALL (EXTERN-ALIEN "getenv" (FUNCTION (* CHAR) C-STRING)) ; SB-POSIX::NAME) ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (DEFINE-CALL "putenv" ...) ; SYS:CONTRIB;SB-POSIX;INTERFACE.FASL.NEWEST written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf-install/defpackage.lisp" (written 12 JAN 2006 01:26:41 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFPACKAGE :ASDF-INSTALL ...) ; compiling (DEFPACKAGE :ASDF-INSTALL-CUSTOMIZE ...) ; SYS:CONTRIB;ASDF-INSTALL;DEFPACKAGE.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf-install/installer.lisp" (written 07 SEP 2006 09:49:39 AM): ; compiling (IN-PACKAGE :ASDF-INSTALL) ; compiling (DEFVAR *PROXY* ...) ; compiling (DEFVAR *CCLAN-MIRROR* ...) ; compiling (DEFUN DIRECTORIFY ...) ; compiling (DEFVAR *SBCL-HOME* ...) ; compiling (DEFVAR *DOT-SBCL* ...) ; compiling (DEFPARAMETER *TRUSTED-UIDS* ...) ; compiling (DEFVAR *LOCATIONS* ...) ; compiling (LET* (# #) ...) ; compiling (DEFINE-CONDITION DOWNLOAD-ERROR ...) ; compiling (DEFINE-CONDITION SIGNATURE-ERROR ...) ; compiling (DEFINE-CONDITION GPG-ERROR ...) ; compiling (DEFINE-CONDITION NO-SIGNATURE ...) ; compiling (DEFINE-CONDITION KEY-NOT-FOUND ...) ; compiling (DEFINE-CONDITION KEY-NOT-TRUSTED ...) ; compiling (DEFINE-CONDITION AUTHOR-NOT-TRUSTED ...) ; compiling (DEFUN URL-HOST ...) ; compiling (DEFUN URL-PORT ...) ; compiling (DEFUN REQUEST-URI ...) ; compiling (DEFUN URL-CONNECTION ...) ; compiling (DEFUN COPY-STREAM ...) ; compiling (DEFUN DOWNLOAD-FILES-FOR-PACKAGE ...) ; compiling (DEFUN READ-UNTIL-EOF ...) ; compiling (DEFUN VERIFY-GPG-SIGNATURE/STRING ...) ; compiling (DEFUN VERIFY-GPG-SIGNATURE/URL ...) ; compiling (DEFUN WHERE ...) ; compiling (DEFPARAMETER *TAR-PROGRAM* ...) ; compiling (DEFUN GET-TAR-DIRECTORY ...) ; compiling (DEFUN UNTAR-PACKAGE ...) ; compiling (DEFUN INSTALL-PACKAGE ...) ; compiling (DEFVAR *TEMPORARY-FILES*) ; compiling (DEFUN TEMP-FILE-NAME ...) ; compiling (DEFUN INSTALL ...) ; compiling (DEFUN UNINSTALL ...) ; SYS:CONTRIB;ASDF-INSTALL;INSTALLER.FASL.NEWEST written ; compilation finished in 0:00:01 ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 218 notes ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf-install/asdf-install.lisp" (written 29 DEC 2006 10:26:51 PM): ; compiling (UNLESS (MEMBER "ASDF" ...) ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf-install/asdf-install.fasl written ; compilation finished in 0:00:00 echo "(asdf:operate (quote asdf:load-op) :asdf-install)" \ "(asdf:operate (quote asdf:test-op) :asdf-install)" | \ /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")' * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf-install/asdf-install.asd ; into # ; registering # as ASDF-INSTALL ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/sb-bsd-sockets.asd ; into # ; registering # as SB-BSD-SOCKETS ; registering # as SB-BSD-SOCKETS-TESTS ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/sb-posix.asd ; into # ; registering # as SB-POSIX ; registering # as SB-POSIX-TESTS STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for SIGINFO (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_NOFOLLOW (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECTORY (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler). NIL * NIL * make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf-install' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl' make -C ../asdf make[2]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' make[2]: `asdf.fasl' is up to date. make[2]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-aclrepl")' --load ../asdf-stub.lisp --eval '(quit)' ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/sb-aclrepl.asd ; into # ; registering # as SB-ACLREPL ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-ACLREPL-TESTS ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/toplevel.lisp" (written 14 JUL 2005 05:30:07 PM): ; compiling (DEFPACKAGE :SB-ACLREPL ...) ; compiling (IN-PACKAGE :SB-ACLREPL) ; compiling (DEFVAR *NOPRINT* ...) ; compiling (DEFVAR *BREAK-LEVEL* ...) ; compiling (DEFVAR *INSPECT-BREAK* ...) ; compiling (DEFVAR *CONTINUABLE-BREAK* ...) ; compiling (DEFUN REPL ...) ; compiling (DEFUN REP-ONE ...) ; SYS:CONTRIB;SB-ACLREPL;TOPLEVEL.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/repl.lisp" (written 14 JUL 2005 05:30:07 PM): ; compiling (IN-PACKAGE :SB-ACLREPL) ; compiling (DEFSTRUCT USER-CMD ...) ; compiling (DEFSTRUCT CMD-TABLE-ENTRY ...) ; compiling (DEFPARAMETER *DEFAULT-PROMPT* ...) ; compiling (DEFPARAMETER *PROMPT* ...) ; compiling (DEFPARAMETER *USE-SHORT-PACKAGE-NAME* ...) ; compiling (DEFPARAMETER *DIR-STACK* ...) ; compiling (DEFPARAMETER *COMMAND-CHAR* ...) ; compiling (DEFVAR *MAX-HISTORY* ...) ; compiling (DEFVAR *EXIT-ON-EOF* ...) ; compiling (DEFPARAMETER *HISTORY* ...) ; compiling (DEFPARAMETER *CMD-NUMBER* ...) ; compiling (DEFVAR *INPUT*) ; compiling (DEFVAR *OUTPUT*) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *EOF-MARKER* ...) ; compiling (DEFVAR *EOF-CMD* ...) ; compiling (DEFVAR *NULL-CMD* ...) ; compiling (DEFPARAMETER *CMD-TABLE-HASH* ...) ; compiling (DEFUN PROMPT-PACKAGE-NAME ...) ; compiling (DEFUN READ-CMD ...) ; compiling (DEFUN DISPATCH-COMMAND-LINE ...) ; compiling (DEFUN PROCESS-CMD-NUMERIC ...) ; compiling (DEFUN MAYBE-RETURN-HISTORY-CMD ...) ; compiling (DEFUN FIND-HISTORY-MATCHING-PATTERN ...) ; compiling (DEFUN PROCESS-HISTORY-SEARCH ...) ; compiling (DEFUN PROCESS-CMD-TEXT ...) ; compiling (DEFUN MAKE-CTE ...) ; compiling (DEFUN %ADD-ENTRY ...) ; compiling (DEFUN ADD-CMD-TABLE-ENTRY ...) ; compiling (DEFUN FIND-CMD ...) ; compiling (DEFUN USER-CMD= ...) ; compiling (DEFUN ADD-TO-HISTORY ...) ; compiling (DEFUN GET-HISTORY ...) ; compiling (DEFUN GET-CMD-DOC-LIST ...) ; compiling (DEFUN CD-CMD ...) ; compiling (DEFUN PWD-CMD ...) ; compiling (DEFUN TRACE-CMD ...) ; compiling (DEFUN UNTRACE-CMD ...) ; compiling (DEFUN EXIT-CMD ...) ; compiling (DEFUN PACKAGE-CMD ...) ; compiling (DEFUN STRING-TO-LIST-SKIP-SPACES ...) ; compiling (LET (#) ...) ; compiling (DEFUN CF-CMD ...) ; compiling (DEFUN >-NUM ...) ; compiling (DEFUN NEWER-FILE-P ...) ; compiling (DEFUN COMPILE-FILE-AS-NEEDED ...) ; compiling (DEFUN APROPOS-CMD ...) ; compiling (LET (#) ...) ; compiling (DEFUN INSPECT-CMD ...) ; compiling (DEFUN ISTEP-CMD ...) ; compiling (DEFUN DESCRIBE-CMD ...) ; compiling (DEFUN MACROEXPAND-CMD ...) ; compiling (DEFUN HISTORY-CMD ...) ; compiling (DEFUN HELP-CMD ...) ; compiling (DEFUN ALIAS-CMD ...) ; compiling (DEFUN SHELL-CMD ...) ; compiling (DEFUN PUSHD-CMD ...) ; compiling (DEFUN POPD-CMD ...) ; compiling (DEFUN POP-CMD ...) ; compiling (DEFUN BT-CMD ...) ; compiling (DEFUN CURRENT-CMD ...) ; compiling (DEFUN TOP-CMD ...) ; compiling (DEFUN BOTTOM-CMD ...) ; compiling (DEFUN UP-CMD ...) ; compiling (DEFUN DN-CMD ...) ; compiling (DEFUN CONTINUE-CMD ...) ; compiling (DEFUN ERROR-CMD ...) ; compiling (DEFUN FRAME-CMD ...) ; compiling (DEFUN ZOOM-CMD ...) ; compiling (DEFUN LOCAL-CMD ...) ; compiling (DEFUN PROCESSES-CMD ...) ; compiling (DEFUN KILL-CMD ...) ; compiling (DEFUN FOCUS-CMD ...) ; compiling (DEFUN RESET-CMD ...) ; compiling (DEFUN DIRS-CMD ...) ; compiling (LET (#) ...) ; compiling (DEFSETF ALIAS ...) ; compiling (DEFMACRO ALIAS ...) ; compiling (DEFUN REMOVE-ALIAS ...) ; compiling (DEFUN PEEK-CHAR-NON-WHITESPACE ...) ; compiling (DEFUN STRING-TRIM-WHITESPACE ...) ; compiling (DEFUN WHITESPACE-CHAR-P ...) ; compiling (DEFUN WHITESPACE-CHAR-NOT-NEWLINE-P ...) ; compiling (DEFUN REPL-PROMPT-FUN ...) ; compiling (DEFUN PROCESS-CMD ...) ; compiling (DEFUN REPL-READ-FORM-FUN ...) ; compiling (SETF *REPL-PROMPT-FUN* ...) ; compiling (DEFMACRO WITH-NEW-REPL-STATE ...) ; compiling (DEFUN MAKE-REPL-FUN ...) ; compiling (WHEN (BOUNDP #) ...) ; SYS:CONTRIB;SB-ACLREPL;REPL.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/inspect.lisp" (written 09 SEP 2005 03:16:18 PM): ; compiling (IN-PACKAGE #:SB-ACLREPL) ; compiling (DEFCONSTANT +DEFAULT-INSPECT-LENGTH+ ...) ; compiling (DEFSTRUCT (%INSPECT # ...) ...) ; compiling (DEFPARAMETER *CURRENT-INSPECT* ...) ; compiling (DEFPARAMETER *INSPECT-RAW* ...) ; compiling (DEFPARAMETER *INSPECT-LENGTH* ...) ; compiling (DEFPARAMETER *SKIP-ADDRESS-DISPLAY* ...) ; compiling (DEFVAR *INSPECT-HELP* ...) ; compiling (DEFVAR *INSPECT-UNBOUND-OBJECT-MARKER* ...) ; compiling (DEFUN INSPECTOR-FUN ...) ; compiling (SETQ SB-IMPL::*INSPECT-FUN* ...) ; compiling (DEFUN ISTEP ...) ; compiling (DEFUN ISTEP-DISPATCH ...) ; compiling (DEFUN SET-CURRENT-INSPECT ...) ; compiling (DEFUN RESET-STACK ...) ; compiling (DEFUN OUTPUT-INSPECT-NOTE ...) ; compiling (DEFUN STACK ...) ; compiling (DEFUN REDISPLAY ...) ; compiling (DEFUN ISTEP-CMD-REDISPLAY ...) ; compiling (DEFUN ISTEP-CMD-PARENT ...) ; compiling (DEFUN ISTEP-CMD-INSPECT-* ...) ; compiling (DEFUN ISTEP-CMD-INSPECT-NEW-FORM ...) ; compiling (DEFUN ISTEP-CMD-SELECT-PARENT-COMPONENT ...) ; compiling (DEFUN ISTEP-CMD-SET-RAW ...) ; compiling (DEFUN ISTEP-CMD-RESET ...) ; compiling (DEFUN ISTEP-CMD-HELP ...) ; compiling (DEFUN ISTEP-CMD-SKIP ...) ; compiling (DEFUN ISTEP-CMD-PRINT ...) ; compiling (DEFUN SELECT-DESCRIPTION ...) ; compiling (DEFUN ISTEP-CMD-TREE ...) ; compiling (DEFUN ISTEP-CMD-SET ...) ; compiling (DEFUN ISTEP-CMD-SELECT-COMPONENT ...) ; compiling (DEFUN ISTEP-CMD-SET-STACK ...) ; compiling (DEFUN NO-OBJECT-MSG ...) ; compiling (DEFUN DISPLAY-CURRENT ...) ; compiling (DEFUN DISPLAY-INSPECT ...) ; compiling (DEFUN ARRAY-LABEL-P ...) ; compiling (DEFUN NAMED-OR-ARRAY-LABEL-P ...) ; compiling (DEFUN HEX-LABEL-P ...) ; compiling (DEFUN DISPLAY-LABELED-ELEMENT ...) ; compiling (DEFUN FIND-PART-ID ...) ; compiling (DEFUN COMPONENT-AT ...) ; compiling (DEFUN ID-AT ...) ; compiling (DEFUN INSPECTED-ELEMENTS ...) ; compiling (DEFUN LAST-REQUESTED ...) ; compiling (DEFUN LAST-PART ...) ; compiling (DEFUN COMPUTE-ELEMENTS-COUNT ...) ; compiling (DEFUN SET-ELEMENT ...) ; compiling (DEFUN SET-ELEMENT-VALUES ...) ; compiling (DEFUN FIRST-ELEMENT-ELLIPSES-P ...) ; compiling (DEFUN LABEL-AT ...) ; compiling (DEFUN ARRAY-INDEX-STRING ...) ; compiling (DEFGENERIC INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFUN SIMPLE-CONS-PAIR-P ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFUN CONS-SAFE-LENGTH ...) ; compiling (DEFUN INSPECTED-DESCRIPTION-OF-NONTRIVIAL-LIST ...) ; compiling (DEFUN N-WORD-BITS-HEX-FORMAT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/inspect.lisp ; in: DEFUN N-WORD-BITS-HEX-FORMAT ; (CASE SB-VM:N-WORD-BITS (64 "~16,'0X") (32 "~8,'0X") (T "~X")) ; --> LET COND IF PROGN ; ==> ; "~16,'0X" ; ; note: deleting unreachable code ; --> LET COND IF COND IF COND IF PROGN ; ==> ; "~X" ; ; note: deleting unreachable code ; compiling (DEFUN REF32-HEXSTR ...) ; compiling (DEFUN REF32 ...) ; compiling (DEFUN DESCRIPTION-MAYBE-INTERNALS ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFUN BIGNUM-WORDS ...) ; compiling (DEFUN BIGNUM-COMPONENT-AT ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/inspect.lisp ; in: DEFUN BIGNUM-COMPONENT-AT ; (LET ((SB-ACLREPL::START (* 8 (1+ SB-ACLREPL::OFFSET)))) ; (+ (SB-ACLREPL::REF32 BIGNUM SB-ACLREPL::START) ; (ASH (SB-ACLREPL::REF32 BIGNUM (+ 4 SB-ACLREPL::START)) 32))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...) ; compiling (DECLAIM (INLINE PARTS-COMPONENTS)) ; compiling (DEFUN PARTS-COMPONENTS ...) ; compiling (DECLAIM (INLINE PARTS-COUNT)) ; compiling (DEFUN PARTS-COUNT ...) ; compiling (DECLAIM (INLINE PARTS-SEQ-TYPE)) ; compiling (DEFUN PARTS-SEQ-TYPE ...) ; compiling (DECLAIM (INLINE PARTS-SEQ-HINT)) ; compiling (DEFUN PARTS-SEQ-HINT ...) ; compiling (DEFGENERIC INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFUN INSPECTED-STRUCTURE-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFUN INSPECTED-STANDARD-OBJECT-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFUN INSPECTED-PARTS-OF-SIMPLE-CONS ...) ; compiling (DEFUN INSPECTED-PARTS-OF-NONTRIVIAL-LIST ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFMETHOD INSPECTED-PARTS ...) ; compiling (DEFGENERIC SET-COMPONENT-VALUE ...) ; compiling (DEFMETHOD SET-COMPONENT-VALUE ...) ; compiling (DEFMETHOD SET-COMPONENT-VALUE ...) ; compiling (DEFMETHOD SET-COMPONENT-VALUE ...) ; compiling (DEFMETHOD SET-COMPONENT-VALUE ...) ; compiling (DEFMETHOD SET-COMPONENT-VALUE ...) ; compiling (DEFMETHOD SET-COMPONENT-VALUE ...) ; SYS:CONTRIB;SB-ACLREPL;INSPECT.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/debug.lisp" (written 14 JUL 2005 05:30:07 PM): ; compiling (IN-PACKAGE :SB-ACLREPL) ; compiling (DEFUN DEBUG-LOOP ...) ; compiling (DEFUN CONTINUABLE-BREAK-P ...) ; compiling (DEFUN PRINT-RESTARTS ...) ; SYS:CONTRIB;SB-ACLREPL;DEBUG.FASL.NEWEST written ; compilation finished in 0:00:00 ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/toplevel.lisp ; in: DEFUN SB-ACLREPL::REPL ; (SETF SB-INT:*STEP* NIL SB-INT:*STEPPING* NIL) ; --> PROGN SETF ; ==> ; (SETQ SB-INT:*STEP* NIL) ; ; caught WARNING: ; undefined variable: SB-INT:*STEP* ; ; caught WARNING: ; This variable is undefined: ; SB-INT:*STEP* ; ; compilation unit finished ; caught 2 WARNING conditions ; printed 4 notes ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/sb-aclrepl.lisp" (written 29 DEC 2006 10:26:58 PM): ; compiling (UNLESS (MEMBER "ASDF" ...) ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/sb-aclrepl.fasl written ; compilation finished in 0:00:00 echo "(asdf:operate (quote asdf:load-op) :sb-aclrepl)" \ "(asdf:operate (quote asdf:test-op) :sb-aclrepl)" | \ /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")' * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/sb-aclrepl.asd ; into # ; registering # as SB-ACLREPL ; registering # as SB-ACLREPL-TESTS NIL CL-USER(1): ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/sb-rt.asd into ; # ; registering # as SB-RT ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/rt.lisp" (written 14 JUL 2005 05:30:09 PM): ; compiling (DEFPACKAGE :SB-RT ...) ; compiling (IN-PACKAGE :SB-RT) ; compiling (DEFVAR *TEST* ...) ; compiling (DEFVAR *DO-TESTS-WHEN-DEFINED* ...) ; compiling (DEFVAR *ENTRIES* ...) ; compiling (DEFVAR *IN-TEST* ...) ; compiling (DEFVAR *DEBUG* ...) ; compiling (DEFVAR *CATCH-ERRORS* ...) ; compiling (DEFVAR *PRINT-CIRCLE-ON-FAILURE* ...) ; compiling (DEFVAR *COMPILE-TESTS* ...) ; compiling (DEFVAR *OPTIMIZATION-SETTINGS* ...) ; compiling (DEFVAR *EXPECTED-FAILURES* ...) ; compiling (DEFSTRUCT (ENTRY # ...) ...) ; compiling (DEFMACRO VALS ...) ; compiling (DEFMACRO DEFN ...) ; compiling (DEFUN PENDING-TESTS ...) ; compiling (DEFUN REM-ALL-TESTS ...) ; compiling (DEFUN REM-TEST ...) ; compiling (DEFUN GET-TEST ...) ; compiling (DEFUN GET-ENTRY ...) ; compiling (DEFMACRO DEFTEST ...) ; compiling (DEFUN ADD-ENTRY ...) ; compiling (DEFUN REPORT-ERROR ...) ; compiling (DEFUN DO-TEST ...) ; compiling (DEFUN EQUALP-WITH-CASE ...) ; compiling (DEFUN DO-ENTRY ...) ; compiling (DEFUN CONTINUE-TESTING ...) ; compiling (DEFUN DO-TESTS ...) ; compiling (DEFUN DO-ENTRIES ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/rt.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/tests.lisp" (written 14 JUL 2005 05:30:07 PM): ; compiling (DEFPACKAGE #:ACLREPL-TESTS ...) ; compiling (IN-PACKAGE #:ACLREPL-TESTS) ; compiling (DECLAIM (SPECIAL SB-ACLREPL::*SKIP-ADDRESS-DISPLAY* ...)) ; compiling (SETF SB-RT::*CATCH-ERRORS* ...) ; compiling (REM-ALL-TESTS) ; compiling (DEFTEST HOOK.1 ...) ; compiling (DEFTEST HOOK.2 ...) ; compiling (DEFTEST HOOK.3 ...) ; compiling (DEFCLASS EMPTY-CLASS ...) ; compiling (DEFPARAMETER *EMPTY-CLASS* ...) ; compiling (DEFCLASS EMPTY-CLASS ...) ; compiling (DEFCLASS SIMPLE-CLASS ...) ; compiling (DEFSTRUCT EMPTY-STRUCT) ; compiling (DEFSTRUCT TINY-STRUCT ...) ; compiling (DEFSTRUCT SIMPLE-STRUCT ...) ; compiling (DEFPARAMETER *EMPTY-CLASS* ...) ; compiling (DEFPARAMETER *SIMPLE-CLASS* ...) ; compiling (DEFPARAMETER *EMPTY-STRUCT* ...) ; compiling (DEFPARAMETER *TINY-STRUCT* ...) ; compiling (DEFPARAMETER *SIMPLE-STRUCT* ...) ; compiling (DEFPARAMETER *NORMAL-LIST* ...) ; compiling (DEFPARAMETER *DOTTED-LIST* ...) ; compiling (DEFPARAMETER *CONS-PAIR* ...) ; compiling (DEFPARAMETER *COMPLEX* ...) ; compiling (DEFPARAMETER *RATIO* ...) ; compiling (DEFPARAMETER *DOUBLE* ...) ; compiling (DEFPARAMETER *BIGNUM* ...) ; compiling (DEFPARAMETER *ARRAY* ...) ; compiling (DEFPARAMETER *VECTOR* ...) ; compiling (DEFPARAMETER *CIRCLE-LIST1* ...) ; compiling (SETF (CAR *CIRCLE-LIST1*) ...) ; compiling (DEFPARAMETER *CIRCLE-LIST2* ...) ; compiling (SETF (CDR *CIRCLE-LIST2*) ...) ; compiling (DEFPARAMETER *CIRCLE-LIST3* ...) ; compiling (SETF (CAR *CIRCLE-LIST3*) ...) ; compiling (DEFPARAMETER *CIRCLE-LIST4* ...) ; compiling (SETF (SECOND *CIRCLE-LIST4*) ...) ; compiling (DEFPARAMETER *CIRCLE-LIST5* ...) ; compiling (SETF (CDDR *CIRCLE-LIST5*) ...) ; compiling (DEFUN FIND-POSITION ...) ; compiling (DEFUN PARTS ...) ; compiling (DEFUN DESCRIPTION ...) ; compiling (DEFUN ELEMENTS ...) ; compiling (DEFUN ELEMENTS-COMPONENTS ...) ; compiling (DEFUN ELEMENTS-LABELS ...) ; compiling (DEFUN ELEMENTS-COUNT ...) ; compiling (DEFUN LABELED-ELEMENT ...) ; compiling (DEFUN DISPLAY ...) ; compiling (DEFUN DO-INSPECT ...) ; compiling (DEFUN ISTEP ...) ; compiling (DEFTEST FIND.LIST.0 ...) ; compiling (DEFTEST FIND.LIST.1 ...) ; compiling (DEFTEST FIND.LIST.2 ...) ; compiling (DEFTEST FIND.LIST.3 ...) ; compiling (DEFTEST PARTS.LIST.1 ...) ; compiling (DEFTEST PARTS.LIST.2 ...) ; compiling (DEFTEST PARTS.LIST.3 ...) ; compiling (DEFTEST PARTS.LIST.4 ...) ; compiling (DEFTEST PARTS.LIST.5 ...) ; compiling (DEFTEST PARTS.LIST.6 ...) ; compiling (DEFTEST PARTS.LIST.7 ...) ; compiling (DEFTEST PARTS.LIST.8 ...) ; compiling (DEFUN BASENAME ...) ; compiling (DEFUN ELEMENTS-TESTS-NAME ...) ; compiling (DEFMACRO DEF-ELEMENTS-TESTS ...) ; compiling (DEF-ELEMENTS-TESTS *NORMAL-LIST* ...) ; compiling (DEF-ELEMENTS-TESTS *DOTTED-LIST* ...) ; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST1* ...) ; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST2* ...) ; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST3* ...) ; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST4* ...) ; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST5* ...) ; compiling (DEFTEST CIRCLE-LIST1-COMPONENTS ...) ; compiling (DEFTEST CIRCLE-LIST2-COMPONENTS.0 ...) ; compiling (DEFTEST CIRCLE-LIST2-COMPONENTS.1 ...) ; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.0 ...) ; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.1 ...) ; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.2 ...) ; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.0 ...) ; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.1 ...) ; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.2 ...) ; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.0 ...) ; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.1 ...) ; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.2 ...) ; compiling (DEF-ELEMENTS-TESTS *CONS-PAIR* ...) ; compiling (DEF-ELEMENTS-TESTS *COMPLEX* ...) ; compiling (DEF-ELEMENTS-TESTS *RATIO* ...) ; compiling (CASE SB-VM:N-WORD-BITS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/tests.lisp ; in: DEF-ELEMENTS-TESTS *BIGNUM* ; (ACLREPL-TESTS::DEF-ELEMENTS-TESTS ACLREPL-TESTS::*BIGNUM* 1 ; #(1234567890123456789) #((0 . :HEX64))) ; --> PROGN UNLESS COND IF NOT IF EQ ; ==> ; #(1234567890123456789) ; ; note: deleting unreachable code ; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...) ; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...) ; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...) ; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...) ; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...) ; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...) ; compiling (DEF-ELEMENTS-TESTS *ARRAY* ...) ; compiling (DEF-ELEMENTS-TESTS *EMPTY-CLASS* ...) ; compiling (DEF-ELEMENTS-TESTS *EMPTY-STRUCT* ...) ; compiling (DEF-ELEMENTS-TESTS *SIMPLE-STRUCT* ...) ; compiling (DEFUN LABEL-TEST-NAME ...) ; compiling (DEFMACRO DEF-LABEL-TEST ...) ; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...) ; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...) ; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...) ; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...) ; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...) ; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...) ; compiling (DEF-LABEL-TEST *COMPLEX* ...) ; compiling (DEF-LABEL-TEST *COMPLEX* ...) ; compiling (DEF-LABEL-TEST *RATIO* ...) ; compiling (DEF-LABEL-TEST *RATIO* ...) ; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...) ; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...) ; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...) ; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...) ; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...) ; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...) ; compiling (DEF-LABEL-TEST *VECTOR* ...) ; compiling (DEF-LABEL-TEST *VECTOR* ...) ; compiling (DEF-LABEL-TEST *VECTOR* ...) ; compiling (DEF-LABEL-TEST *VECTOR* ...) ; compiling (DEF-LABEL-TEST *CONS-PAIR* ...) ; compiling (DEF-LABEL-TEST *CONS-PAIR* ...) ; compiling (DEFTEST NIL.PARTS.0 ...) ; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...) ; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...) ; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...) ; compiling (DEF-ELEMENTS-TESTS *DOUBLE* ...) ; compiling (DEF-ELEMENTS-TESTS *DOUBLE* ...) ; compiling (DEFUN DISPLAY-TEST-NAME ...) ; compiling (DEFMACRO DEF-DISPLAY-TEST ...) ; compiling (DEF-DISPLAY-TEST *CONS-PAIR* ...) ; compiling (DEF-DISPLAY-TEST *SIMPLE-STRUCT* ...) ; compiling (DEF-DISPLAY-TEST *SIMPLE-STRUCT* ...) ; compiling (CASE SB-VM:N-WORD-BITS ...) ; compiling (DEF-DISPLAY-TEST *VECTOR* ...) ; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST1* ...) ; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST2* ...) ; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST3* ...) ; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST4* ...) ; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST5* ...) ; compiling (DEFTEST INSPECT.0 ...) ; compiling (DEFTEST ISTEP.0 ...) ; compiling (DEFTEST ISTEP.1 ...) ; compiling (DEFTEST ISTEP.2 ...) ; compiling (DEFTEST ISTEP.3 ...) ; compiling (DEFTEST ISTEP.4 ...) ; compiling (DEFTEST ISTEP.5 ...) ; compiling (DEFTEST ISTEP.6 ...) ; compiling (DEFTEST ISTEP.7 ...) ; compiling (DEFTEST ISTEP.8 ...) ; compiling (DEFTEST ISTEP.9 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/tests.fasl written ; compilation finished in 0:00:01 STYLE-WARNING: redefining BASENAME in DEFUN STYLE-WARNING: redefining ELEMENTS-TESTS-NAME in DEFUN STYLE-WARNING: redefining LABEL-TEST-NAME in DEFUN STYLE-WARNING: redefining DISPLAY-TEST-NAME in DEFUN Doing 144 pending tests of 144 tests total. ACLREPL-TESTS::HOOK.1 ACLREPL-TESTS::HOOK.2 ACLREPL-TESTS::HOOK.3 ACLREPL-TESTS::FIND.LIST.0 ACLREPL-TESTS::FIND.LIST.1 ACLREPL-TESTS::FIND.LIST.2 ACLREPL-TESTS::FIND.LIST.3 ACLREPL-TESTS::PARTS.LIST.1 ACLREPL-TESTS::PARTS.LIST.2 ACLREPL-TESTS::PARTS.LIST.3 ACLREPL-TESTS::PARTS.LIST.4 ACLREPL-TESTS::PARTS.LIST.5 ACLREPL-TESTS::PARTS.LIST.6 ACLREPL-TESTS::PARTS.LIST.7 ACLREPL-TESTS::PARTS.LIST.8 ACLREPL-TESTS::ELEM.NORMAL-LIST.COUNT ACLREPL-TESTS::ELEM.NORMAL-LIST.COMPONENTS ACLREPL-TESTS::ELEM.NORMAL-LIST.LABELS ACLREPL-TESTS::ELEM.DOTTED-LIST.COUNT ACLREPL-TESTS::ELEM.DOTTED-LIST.COMPONENTS ACLREPL-TESTS::ELEM.DOTTED-LIST.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST1.COUNT ACLREPL-TESTS::ELEM.CIRCLE-LIST1.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST2.COUNT ACLREPL-TESTS::ELEM.CIRCLE-LIST2.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST3.COUNT ACLREPL-TESTS::ELEM.CIRCLE-LIST3.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST4.COUNT ACLREPL-TESTS::ELEM.CIRCLE-LIST4.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST5.COUNT ACLREPL-TESTS::ELEM.CIRCLE-LIST5.LABELS ACLREPL-TESTS::CIRCLE-LIST1-COMPONENTS ACLREPL-TESTS::CIRCLE-LIST2-COMPONENTS.0 ACLREPL-TESTS::CIRCLE-LIST2-COMPONENTS.1 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.0 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.1 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.2 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.0 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.1 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.2 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.0 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.1 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.2 ACLREPL-TESTS::ELEM.CONS-PAIR.COUNT ACLREPL-TESTS::ELEM.CONS-PAIR.COMPONENTS ACLREPL-TESTS::ELEM.CONS-PAIR.LABELS ACLREPL-TESTS::ELEM.COMPLEX.COUNT ACLREPL-TESTS::ELEM.COMPLEX.COMPONENTS ACLREPL-TESTS::ELEM.COMPLEX.LABELS ACLREPL-TESTS::ELEM.RATIO.COUNT ACLREPL-TESTS::ELEM.RATIO.COMPONENTS ACLREPL-TESTS::ELEM.RATIO.LABELS ACLREPL-TESTS::ELEM.BIGNUM.COUNT ACLREPL-TESTS::ELEM.BIGNUM.COMPONENTS ACLREPL-TESTS::ELEM.BIGNUM.LABELS ACLREPL-TESTS::ELEM.VECTOR.COUNT ACLREPL-TESTS::ELEM.VECTOR.COMPONENTS ACLREPL-TESTS::ELEM.VECTOR.LABELS ACLREPL-TESTS::ELEM.VECTOR.S3.COUNT ACLREPL-TESTS::ELEM.VECTOR.S3.COMPONENTS ACLREPL-TESTS::ELEM.VECTOR.S3.LABELS ACLREPL-TESTS::ELEM.VECTOR.P10.S3.COUNT ACLREPL-TESTS::ELEM.VECTOR.P10.S3.COMPONENTS ACLREPL-TESTS::ELEM.VECTOR.P10.S3.LABELS ACLREPL-TESTS::ELEM.VECTOR.P5.S16.COUNT ACLREPL-TESTS::ELEM.VECTOR.P5.S16.COMPONENTS ACLREPL-TESTS::ELEM.VECTOR.P5.S16.LABELS ACLREPL-TESTS::ELEM.VECTOR.P2.S16.COUNT ACLREPL-TESTS::ELEM.VECTOR.P2.S16.COMPONENTS ACLREPL-TESTS::ELEM.VECTOR.P2.S16.LABELS ACLREPL-TESTS::ELEM.VECTOR.P2.S15.COUNT ACLREPL-TESTS::ELEM.VECTOR.P2.S15.COMPONENTS ACLREPL-TESTS::ELEM.VECTOR.P2.S15.LABELS ACLREPL-TESTS::ELEM.ARRAY.COUNT ACLREPL-TESTS::ELEM.ARRAY.COMPONENTS ACLREPL-TESTS::ELEM.ARRAY.LABELS ACLREPL-TESTS::ELEM.EMPTY-CLASS.COUNT ACLREPL-TESTS::ELEM.EMPTY-CLASS.COMPONENTS ACLREPL-TESTS::ELEM.EMPTY-CLASS.LABELS ACLREPL-TESTS::ELEM.EMPTY-STRUCT.COUNT ACLREPL-TESTS::ELEM.EMPTY-STRUCT.COMPONENTS ACLREPL-TESTS::ELEM.EMPTY-STRUCT.LABELS ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.COUNT ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.COMPONENTS ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.LABELS ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.0 ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.1 ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.2 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.0 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.1 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.2 ACLREPL-TESTS::LABEL.COMPLEX.0 ACLREPL-TESTS::LABEL.COMPLEX.1 ACLREPL-TESTS::LABEL.RATIO.0 ACLREPL-TESTS::LABEL.RATIO.1 ACLREPL-TESTS::LABEL.DOTTED-LIST.0 ACLREPL-TESTS::LABEL.DOTTED-LIST.1 ACLREPL-TESTS::LABEL.DOTTED-LIST.2 ACLREPL-TESTS::LABEL.NORMAL-LIST.0 ACLREPL-TESTS::LABEL.NORMAL-LIST.1 ACLREPL-TESTS::LABEL.NORMAL-LIST.2 ACLREPL-TESTS::LABEL.VECTOR.0 ACLREPL-TESTS::LABEL.VECTOR.1 ACLREPL-TESTS::LABEL.VECTOR.S2.0 ACLREPL-TESTS::LABEL.VECTOR.S2.1 ACLREPL-TESTS::LABEL.CONS-PAIR.0 ACLREPL-TESTS::LABEL.CONS-PAIR.1 ACLREPL-TESTS::NIL.PARTS.0 ACLREPL-TESTS::ELEM.TINY-STRUCT.COUNT ACLREPL-TESTS::ELEM.TINY-STRUCT.COMPONENTS ACLREPL-TESTS::ELEM.TINY-STRUCT.LABELS ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.COUNT ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.COMPONENTS ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.LABELS ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.COUNT ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.COMPONENTS ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.LABELS ACLREPL-TESTS::ELEM.DOUBLE.COUNT ACLREPL-TESTS::ELEM.DOUBLE.COMPONENTS ACLREPL-TESTS::ELEM.DOUBLE.LABELS ACLREPL-TESTS::ELEM.DOUBLE.S1.COUNT ACLREPL-TESTS::ELEM.DOUBLE.S1.COMPONENTS ACLREPL-TESTS::ELEM.DOUBLE.S1.LABELS ACLREPL-TESTS::DISPLAY.CONS-PAIR ACLREPL-TESTS::DISPLAY.SIMPLE-STRUCT ACLREPL-TESTS::DISPLAY.SIMPLE-STRUCT.S2 ACLREPL-TESTS::DISPLAY.BIGNUM ACLREPL-TESTS::DISPLAY.VECTOR.P5.S6 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST1 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST2 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST3 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST4 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST5 ACLREPL-TESTS::INSPECT.0 ACLREPL-TESTS::ISTEP.0 ACLREPL-TESTS::ISTEP.1 ACLREPL-TESTS::ISTEP.2 ACLREPL-TESTS::ISTEP.3 ACLREPL-TESTS::ISTEP.4 ACLREPL-TESTS::ISTEP.5 ACLREPL-TESTS::ISTEP.6 ACLREPL-TESTS::ISTEP.7 ACLREPL-TESTS::ISTEP.8 ACLREPL-TESTS::ISTEP.9 No tests failed. ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl/tests.lisp ; in: DEFUN ACLREPL-TESTS::DO-INSPECT ; (SB-ACLREPL::INSPECTOR `',ACLREPL-TESTS::OBJECT NIL ACLREPL-TESTS::STRM) ; ; caught STYLE-WARNING: ; undefined function: SB-ACLREPL::INSPECTOR ; ; caught STYLE-WARNING: ; This function is undefined: ; SB-ACLREPL::INSPECTOR ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 1 note NIL CL-USER(2): make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets' make -C ../asdf make[2]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' make[2]: `asdf.fasl' is up to date. make[2]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-bsd-sockets")' --load ../asdf-stub.lisp --eval '(quit)' ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/sb-bsd-sockets.asd ; into # ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-BSD-SOCKETS ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-BSD-SOCKETS-TESTS ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/sb-bsd-sockets.lisp" (written 29 DEC 2006 10:27:03 PM): ; compiling (UNLESS (MEMBER "ASDF" ...) ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/sb-bsd-sockets.fasl written ; compilation finished in 0:00:00 echo "(asdf:operate (quote asdf:load-op) :sb-bsd-sockets)" \ "(asdf:operate (quote asdf:test-op) :sb-bsd-sockets)" | \ /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")' * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/sb-bsd-sockets.asd ; into # ; registering # as SB-BSD-SOCKETS ; registering # as SB-BSD-SOCKETS-TESTS NIL * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/sb-posix.asd ; into # ; registering # as SB-POSIX ; registering # as SB-POSIX-TESTS ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/sb-rt.asd into ; # ; registering # as SB-RT STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for SIGINFO (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_NOFOLLOW (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECTORY (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler). ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/tests.lisp" (written 05 APR 2006 09:47:17 AM): ; compiling (DEFPACKAGE "SB-BSD-SOCKETS-TEST" ...) ; compiling (IN-PACKAGE :SB-BSD-SOCKETS-TEST) ; compiling (DEFTEST MAKE-INET-ADDRESS ...) ; compiling (DEFTEST MAKE-INET-ADDRESS2 ...) ; compiling (DEFTEST GET-PROTOCOL-BY-NAME/TCP ...) ; compiling (DEFTEST GET-PROTOCOL-BY-NAME/UDP ...) ; compiling (DEFTEST GET-PROTOCOL-BY-NAME/ERROR ...) ; compiling (DEFTEST MAKE-INET-SOCKET ...) ; compiling (DEFTEST MAKE-INET-SOCKET-KEYWORD ...) ; compiling (DEFTEST MAKE-INET-SOCKET-WRONG ...) ; compiling (DEFTEST MAKE-INET-SOCKET-KEYWORD-WRONG ...) ; compiling (DEFTEST NON-BLOCK-SOCKET ...) ; compiling (DEFUN DO-GC-PORTABLY ...) ; compiling (DEFTEST INET-SOCKET-BIND ...) ; compiling (DEFTEST SIMPLE-SOCKOPT-TEST ...) ; compiling (DEFUN READ-BUF-NONBLOCK ...) ; compiling (DEFTEST SIMPLE-LOCAL-CLIENT ...) ; compiling (DEFTEST GET-HOST-BY-NAME-WRONG ...) ; compiling (DEFUN HTTP-STREAM ...) ; compiling (DEFTEST SOCKET-OPEN-P-TRUE.1 ...) ; compiling (DEFTEST SOCKET-OPEN-P-FALSE ...) ; compiling (DEFUN UDP-SERVER ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/tests.fasl written ; compilation finished in 0:00:00 Doing 16 pending tests of 16 tests total. SB-BSD-SOCKETS:MAKE-INET-ADDRESS SB-BSD-SOCKETS-TEST::MAKE-INET-ADDRESS2 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/TCP SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/UDP SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/ERROR SB-BSD-SOCKETS:MAKE-INET-SOCKET SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-KEYWORD SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-WRONG SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-KEYWORD-WRONG SB-BSD-SOCKETS-TEST::NON-BLOCK-SOCKET SB-BSD-SOCKETS-TEST::INET-SOCKET-BIND SB-BSD-SOCKETS-TEST::SIMPLE-SOCKOPT-TESTConnecting #... ok. SB-BSD-SOCKETS-TEST::SIMPLE-LOCAL-CLIENT SB-BSD-SOCKETS-TEST::GET-HOST-BY-NAME-WRONG SB-BSD-SOCKETS-TEST::SOCKET-OPEN-P-TRUE.1 SB-BSD-SOCKETS-TEST::SOCKET-OPEN-P-FALSE No tests failed. NIL * make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2' make -C ../asdf make[2]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' make[2]: `asdf.fasl' is up to date. make[2]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-cltl2")' --load ../asdf-stub.lisp --eval '(quit)' ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2/sb-cltl2.asd ; into # ; registering # as SB-CLTL2 ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-CLTL2-TESTS ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2/defpackage.lisp" (written 02 SEP 2003 12:11:46 PM): ; compiling (DEFPACKAGE :SB-CLTL2 ...) ; SYS:CONTRIB;SB-CLTL2;DEFPACKAGE.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2/compiler-let.lisp" (written 13 SEP 2006 04:59:32 PM): ; compiling (IN-PACKAGE :SB-CLTL2) ; compiling (DEF-IR1-TRANSLATOR COMPILER-LET ...) ; compiling (DEFUN WALK-COMPILER-LET ...) ; compiling (SB-WALKER:DEFINE-WALKER-TEMPLATE COMPILER-LET ...) ; compiling (SETF (GETF SB-EVAL::*EVAL-DISPATCH-FUNCTIONS* ...) ...) ; SYS:CONTRIB;SB-CLTL2;COMPILER-LET.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2/macroexpand.lisp" (written 05 JUN 2003 06:25:28 PM): ; compiling (IN-PACKAGE :SB-CLTL2) ; compiling (DEFUN MACROEXPAND-ALL ...) ; SYS:CONTRIB;SB-CLTL2;MACROEXPAND.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2/env.lisp" (written 14 JUL 2005 05:30:08 PM): ; compiling (IN-PACKAGE :SB-CLTL2) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN VARIABLE-INFORMATION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DECLARATION-INFORMATION ...) ; compiling (DEFUN PARSE-MACRO ...) ; compiling (DEFUN ENCLOSE ...) ; SYS:CONTRIB;SB-CLTL2;ENV.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2/sb-cltl2.lisp" (written 29 DEC 2006 10:27:08 PM): ; compiling (UNLESS (MEMBER "ASDF" ...) ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2/sb-cltl2.fasl written ; compilation finished in 0:00:00 echo "(asdf:operate (quote asdf:load-op) :sb-cltl2)" \ "(asdf:operate (quote asdf:test-op) :sb-cltl2)" | \ /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")' * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2/sb-cltl2.asd ; into # ; registering # as SB-CLTL2 ; registering # as SB-CLTL2-TESTS NIL * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/sb-rt.asd into ; # ; registering # as SB-RT ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2/tests.lisp" (written 14 JUL 2005 05:30:08 PM): ; compiling (DEFPACKAGE :SB-CLTL2-TESTS ...) ; compiling (IN-PACKAGE :SB-CLTL2-TESTS) ; compiling (REM-ALL-TESTS) ; compiling (DEFMACRO *X*-VALUE ...) ; compiling (DEFTEST COMPILER-LET.1 ...) ; compiling (DEFVAR *EXPANSIONS* ...) ; compiling (DEFMACRO MACROEXPAND-MACRO ...) ; compiling (DEFTEST MACROEXPAND-ALL.1 ...) ; compiling (DEFTEST MACROEXPAND-ALL.2 ...) ; compiling (DEFTEST MACROEXPAND-ALL.3 ...) ; compiling (DEFUN SMV ...) ; compiling (DEFMACRO TESTR ...) ; compiling (DEFTEST MACROEXPAND-ALL.4 ...) ; compiling (DEFMACRO DINFO ...) ; compiling (DEF SPEED) ; compiling (DEF SAFETY) ; compiling (DEF DEBUG) ; compiling (DEF COMPILATION-SPEED) ; compiling (DEF SPACE) ; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.DEFAULT ...) ; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.1 ...) ; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.2 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2/tests.fasl written ; compilation finished in 0:00:01 Doing 38 pending tests of 38 tests total. SB-CLTL2-TESTS::COMPILER-LET.1 SB-CLTL2-TESTS::MACROEXPAND-ALL.1 SB-CLTL2-TESTS::MACROEXPAND-ALL.2 SB-CLTL2-TESTS::MACROEXPAND-ALL.3 SB-CLTL2-TESTS::MACROEXPAND-ALL.4 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.DEFAULT SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.0 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.1 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.2 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.3 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.IMPLICIT SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.DEFAULT SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.0 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.1 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.2 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.3 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.IMPLICIT SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.DEFAULT SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.0 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.1 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.2 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.3 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.IMPLICIT SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.DEFAULT SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.0 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.1 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.2 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.3 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.IMPLICIT SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.DEFAULT SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.0 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.1 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.2 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.3 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.IMPLICIT SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.DEFAULT SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.1 SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.2 No tests failed.; in: LAMBDA NIL ; (SB-CLTL2-TESTS::FOO ; (MACROLET ((SB-CLTL2-TESTS::BAR (SB-CLTL2-TESTS::KEY) ; (PUSH SB-CLTL2-TESTS::KEY SB-CLTL2-TESTS::*EXPANSIONS*) ; SB-CLTL2-TESTS::KEY)) ; (SB-CLTL2-TESTS::FOO 1))) ; ==> ; (SB-CLTL2-TESTS::BAR ; (MACROLET ((SB-CLTL2-TESTS::BAR (SB-CLTL2-TESTS::KEY) ; (LET* # ; #) ; SB-CLTL2-TESTS::KEY)) ; 1)) ; ; caught STYLE-WARNING: ; undefined function: SB-CLTL2-TESTS::BAR ; ; caught STYLE-WARNING: ; This function is undefined: ; SB-CLTL2-TESTS::BAR ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions NIL * make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-executable' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-executable" "sb-executable"))' ; registering # as SB-GROVEL ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/sb-grovel.lisp" (written 29 DEC 2006 10:27:12 PM): ; compiling (UNLESS (MEMBER "ASDF" ...) ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/sb-grovel.fasl written ; compilation finished in 0:00:00 echo "(asdf:operate (quote asdf:load-op) :sb-grovel)" \ "(asdf:operate (quote asdf:test-op) :sb-grovel)" | \ /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")' * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/sb-grovel.asd ; into # ; registering # as SB-GROVEL NIL * NIL * make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-introspect' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-introspect" "sb-introspect"))' PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-INTROSPECT::FUNCTION-DEBUG-SOURCE (FUNCTION) ; (BLOCK SB-INTROSPECT::FUNCTION-DEBUG-SOURCE ; (SB-INTROSPECT::DEBUG-INFO-SOURCE ; (SB-INTROSPECT::FUNCTION-DEBUG-INFO FUNCTION)))) ; ; note: type assertion too complex to check: ; (VALUES SB-C::DEBUG-SOURCE &REST T). ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DEBUG-INFO-SOURCE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DEBUG-INFO-DEBUG-FUNCTION ...) ; compiling (DEFUN VALID-FUNCTION-NAME-P ...) ; compiling (DEFSTRUCT DEFINITION-SOURCE ...) ; compiling (DEFUN FIND-DEFINITION-SOURCES-BY-NAME ...) ; compiling (DEFUN FIND-DEFINITION-SOURCE ...) ; compiling (DEFUN FIND-FUNCTION-DEFINITION-SOURCE ...) ; compiling (DEFUN TRANSLATE-SOURCE-LOCATION ...) ; compiling (DEFVAR *STRUCT-SLOTPLACE-READER* ...) ; compiling (DEFVAR *STRUCT-SLOTPLACE-WRITER* ...) ; compiling (DEFVAR *STRUCT-PREDICATE* ...) ; compiling (DEFUN STRUCT-ACCESSOR-P ...) ; compiling (DEFUN STRUCT-PREDICATE-P ...) ; compiling (DEFUN FUNCTION-ARGLIST ...) ; compiling (DEFUN STRUCT-ACCESSOR-STRUCTURE-CLASS ...) ; compiling (DEFUN STRUCT-PREDICATE-STRUCTURE-CLASS ...) ; compiling (DEFUN FIND-FUNCTION-CALLEES ...) ; compiling (DEFUN FIND-FUNCTION-CALLERS ...) ; compiling (DECLAIM (INLINE MAP-CODE-CONSTANTS)) ; compiling (DEFUN MAP-CODE-CONSTANTS ...) ; compiling (DECLAIM (INLINE MAP-ALLOCATED-CODE-COMPONENTS)) ; compiling (DEFUN MAP-ALLOCATED-CODE-COMPONENTS ...) ; compiling (DECLAIM (INLINE MAP-CALLER-CODE-COMPONENTS)) ; compiling (DEFUN MAP-CALLER-CODE-COMPONENTS ...) ; compiling (DEFUN GET-SIMPLE-FUN ...) ; compiling (DEFUN COLLECT-XREF ...) ; compiling (DEFUN WHO-CALLS ...) ; compiling (DEFUN WHO-BINDS ...) ; compiling (DEFUN WHO-REFERENCES ...) ; compiling (DEFUN WHO-SETS ...) ; compiling (DEFUN WHO-MACROEXPANDS ...) ; compiling (PROVIDE (QUOTE SB-INTROSPECT)); ; compilation unit finished ; printed 1 note ; SYS:CONTRIB;SB-INTROSPECT;SB-INTROSPECT.FASL.NEWEST written ; compilation finished in 0:00:01 * /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --disable-debugger --load test-driver.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-introspect/test.lisp" (written 06 NOV 2005 08:40:31 AM): ; compiling (DECLAIM (OPTIMIZE #)) ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN ONE ...) ; compiling (DEFGENERIC TWO ...) ; compiling (DEFMETHOD TWO ...) ; compiling (DEFSTRUCT THREE ...) ; compiling (WITH-COMPILATION-UNIT (:SOURCE-PLIST #) ...) ; compiling "oops-off-by-one" ; compiling (DEFPARAMETER *A* ...) ; compiling (DEFVAR *B* ...) ; compiling (DEFCLASS A ...) ; compiling (DEFINE-CONDITION B ...) ; compiling (DEFSTRUCT C ...) ; compiling (DEFSTRUCT (D #) ...) ; compiling (DEFPACKAGE E ...) ; compiling (DEFINE-SYMBOL-MACRO F ...) ; compiling (DEFTYPE G ...) ; compiling (DEFCONSTANT +H+ ...) ; compiling (DEFMETHOD J ...) ; compiling (DEFMETHOD J ...) ; compiling (DEFMACRO L ...) ; compiling (DEFINE-COMPILER-MACRO M ...) ; compiling (DEFSETF N ...) ; compiling (DEFUN (SETF O) ...) ; compiling (DEFMETHOD (SETF P) ...) ; compiling (DEFINE-MODIFY-MACRO Q ...) ; compiling (DEFINE-METHOD-COMBINATION R ...) ; compiling (DEFINE-SETF-EXPANDER S ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-introspect/test.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: implicitly creating new generic function J STYLE-WARNING: implicitly creating new generic function (SETF P) ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-introspect/xref-test-data.lisp" (written 05 DEC 2006 04:35:56 AM): ; compiling (DEFVAR *A* ...) ; compiling (DEFCONSTANT +Z+ ...) ; compiling (DEFUN FOO ...) ; compiling (DEFUN BAR ...) ; compiling (DEFUN XREF/1 ...) ; compiling (DEFUN XREF/2 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-introspect/xref-test-data.lisp ; in: DEFUN XREF/2 ; (SB-INTROSPECT-TEST/XREF::XREF/1) ; ; note: deleting unreachable code ; compiling (LET (#) ...) ; compiling (FLET (#) ...) ; compiling (DEFUN XREF/7 ...) ; compiling (LET (#) ...) ; compiling (DEFVAR *C* ...) ; compiling (DEFUN XREF/8 ...) ; compiling (DEFMETHOD XREF/10 ...) ; compiling (DEFMETHOD XREF/11 ...) ; compiling (DEFMETHOD XREF/11 ...) ; compiling (DECLAIM (INLINE INLINE/1)) ; compiling (DEFUN INLINE/1 ...) ; compiling (DEFUN XREF/12 ...) ; compiling (DEFMACRO MACRO/1 ...); in: LAMBDA NIL ; (SB-INTROSPECT-TEST/XREF::XREF/12) ; ; note: deleting unreachable code ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-introspect/xref-test-data.lisp ; in: DEFMACRO MACRO/1 ; (SB-INTROSPECT-TEST/XREF::XREF/12) ; ; note: deleting unreachable code ; compiling (DEFUN MACRO-USE/1 ...) ; compiling (DEFUN MACRO-USE/2 ...) ; compiling (FLET (#) ...) ; compiling (DEFUN MACRO-USE/4 ...) ; compiling (DECLAIM (INLINE INLINE/2)) ; compiling (DEFUN INLINE/2 ...) ; compiling (DEFUN MACRO-USE/5 ...); ; compilation unit finished ; printed 3 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-introspect/xref-test-data.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: implicitly creating new generic function XREF/10 STYLE-WARNING: implicitly creating new generic function XREF/11 STYLE-WARNING: redefining XREF/12 in DEFUN make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-introspect' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5' make -C ../asdf make[2]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' make[2]: `asdf.fasl' is up to date. make[2]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-md5")' --load ../asdf-stub.lisp --eval '(quit)' ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/sb-md5.asd ; into # ; registering # as SB-MD5 ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-MD5-TESTS ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/sb-rotate-byte.asd ; into # ; registering # as SB-ROTATE-BYTE ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/package.lisp" (written 11 FEB 2003 03:42:44 PM): ; compiling (DEFPACKAGE "SB-ROTATE-BYTE" ...) ; SYS:CONTRIB;SB-ROTATE-BYTE;PACKAGE.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/compiler.lisp" (written 26 AUG 2005 11:19:12 PM): ; compiling (IN-PACKAGE "SB-ROTATE-BYTE") ; compiling (DEFKNOWN ROTATE-BYTE ...) ; compiling (DEFKNOWN %ROTATE-BYTE ...) ; compiling (DEFKNOWN %UNSIGNED-32-ROTATE-BYTE ...) ; compiling (DEFINE-SOURCE-TRANSFORM ROTATE-BYTE ...) ; compiling (DEFOPTIMIZER (%ROTATE-BYTE DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %ROTATE-BYTE ...) ; compiling (DEFTRANSFORM %ROTATE-BYTE ...) ; SYS:CONTRIB;SB-ROTATE-BYTE;COMPILER.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/ppc-vm.lisp" (written 14 JUL 2005 05:30:09 PM): ; compiling (IN-PACKAGE "SB-ROTATE-BYTE") ; compiling (DEFINE-VOP (%32BIT-ROTATE-BYTE/C) ...) ; compiling (DEFINE-VOP (%32BIT-ROTATE-BYTE-FIXNUM/C) ...) ; compiling (DEF %32BIT-ROTATE-BYTE ...) ; compiling (DEF %32BIT-ROTATE-BYTE-FIXNUM ...) ; SYS:CONTRIB;SB-ROTATE-BYTE;PPC-VM.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/rotate-byte.lisp" (written 14 JUL 2005 05:30:09 PM): ; compiling (IN-PACKAGE "SB-ROTATE-BYTE") ; compiling (DEFUN ROTATE-BYTE ...) ; compiling (DEFUN %ROTATE-BYTE ...) ; compiling (DEFUN %UNSIGNED-32-ROTATE-BYTE ...) ; SYS:CONTRIB;SB-ROTATE-BYTE;ROTATE-BYTE.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp" (written 16 NOV 2005 03:07:06 PM): ; compiling (DEFPACKAGE :SB-MD5 ...) ; compiling (IN-PACKAGE :SB-MD5) ; compiling (DEFTYPE UB32 ...) ; compiling (DEFMACRO ASSEMBLE-UB32 ...) ; compiling (DECLAIM (INLINE F ...) ...) ; compiling (DEFUN F ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp ; in: DEFUN F ; (DEFUN SB-MD5::F (SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (LOGIOR (LOGAND SB-MD5::X SB-MD5::Y) (LOGANDC1 SB-MD5::X SB-MD5::Z))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-MD5::F (SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (DECLARE ; (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (BLOCK SB-MD5::F ; (LOGIOR (LOGAND SB-MD5::X SB-MD5::Y) ; (LOGANDC1 SB-MD5::X SB-MD5::Z)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; compiling (DEFUN G ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp ; in: DEFUN G ; (DEFUN SB-MD5::G (SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (LOGIOR (LOGAND SB-MD5::X SB-MD5::Z) (LOGANDC2 SB-MD5::Y SB-MD5::Z))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-MD5::G (SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (DECLARE ; (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (BLOCK SB-MD5::G ; (LOGIOR (LOGAND SB-MD5::X SB-MD5::Z) ; (LOGANDC2 SB-MD5::Y SB-MD5::Z)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; compiling (DEFUN H ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp ; in: DEFUN H ; (DEFUN SB-MD5::H (SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (LOGXOR SB-MD5::X SB-MD5::Y SB-MD5::Z)) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-MD5::H (SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (DECLARE ; (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (BLOCK SB-MD5::H ; (LOGXOR SB-MD5::X SB-MD5::Y SB-MD5::Z))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; compiling (DEFUN I ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp ; in: DEFUN I ; (DEFUN SB-MD5::I (SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (LDB (BYTE 32 0) (LOGXOR SB-MD5::Y (LOGORC2 SB-MD5::X SB-MD5::Z)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-MD5::I (SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (DECLARE ; (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (BLOCK SB-MD5::I ; (LDB (BYTE 32 0) ; (LOGXOR SB-MD5::Y ; (LOGORC2 SB-MD5::X SB-MD5::Z))))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; compiling (DECLAIM (INLINE MOD32+) ...) ; compiling (DEFUN MOD32+ ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp ; in: DEFUN MOD32+ ; (DEFUN SB-MD5::MOD32+ (SB-MD5::A SB-MD5::B) ; (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A SB-MD5::B) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (LDB (BYTE 32 0) (+ SB-MD5::A SB-MD5::B))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-MD5::MOD32+ (SB-MD5::A SB-MD5::B) ; (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A SB-MD5::B) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (BLOCK SB-MD5::MOD32+ ; (LDB (BYTE 32 0) (+ SB-MD5::A SB-MD5::B)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; compiling (DEFINE-COMPILER-MACRO MOD32+ ...) ; compiling (DECLAIM (INLINE ROL32) ...) ; compiling (DEFUN ROL32 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp ; in: DEFUN ROL32 ; (DEFUN SB-MD5::ROL32 (SB-MD5::A SB-MD5::S) ; (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A) (TYPE (UNSIGNED-BYTE 5) SB-MD5::S) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (SB-ROTATE-BYTE:ROTATE-BYTE SB-MD5::S (BYTE 32 0) SB-MD5::A)) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-MD5::ROL32 (SB-MD5::A SB-MD5::S) ; (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A) ; (TYPE (UNSIGNED-BYTE 5) SB-MD5::S) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0))) ; (BLOCK SB-MD5::ROL32 ; (SB-ROTATE-BYTE:ROTATE-BYTE SB-MD5::S (BYTE 32 0) ; SB-MD5::A))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; compiling (DEFPARAMETER *T* ...) ; compiling (DEFMACRO WITH-MD5-ROUND ...) ; compiling (DEFTYPE MD5-REGS ...) ; compiling (DEFMACRO MD5-REGS-A ...) ; compiling (DEFMACRO MD5-REGS-B ...) ; compiling (DEFMACRO MD5-REGS-C ...) ; compiling (DEFMACRO MD5-REGS-D ...) ; compiling (DEFCONSTANT +MD5-MAGIC-A+ ...) ; compiling (DEFCONSTANT +MD5-MAGIC-B+ ...) ; compiling (DEFCONSTANT +MD5-MAGIC-C+ ...) ; compiling (DEFCONSTANT +MD5-MAGIC-D+ ...) ; compiling (DECLAIM (INLINE INITIAL-MD5-REGS)) ; compiling (DEFUN INITIAL-MD5-REGS ...) ; compiling (DEFUN UPDATE-MD5-BLOCK ...) ; compiling (DECLAIM (INLINE FILL-BLOCK ...)) ; compiling (DEFUN FILL-BLOCK ...) ; compiling (DEFUN FILL-BLOCK-UB8 ...) ; compiling (DEFUN FILL-BLOCK-CHAR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp ; in: DEFUN FILL-BLOCK-CHAR ; (SB-MD5::ASSEMBLE-UB32 (CHAR-CODE (SCHAR SB-MD5::BUFFER SB-MD5::J)) ; (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 1))) ; (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 2))) ; (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 3)))) ; --> THE LOGIOR LOGIOR LOGIOR LOGIOR ; ==> ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 3))) 24) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 18691680894977) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 18691680894977) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 2))) 16) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 73014378497) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 73014378497) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> THE LOGIOR LOGIOR LOGIOR ; ==> ; (LOGIOR (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 3))) 24) ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 2))) 16)) ; ; 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 (MOD 18691680894977), not a FIXNUM. ; The second argument is a (MOD 73014378497), not a FIXNUM. ; The result is a (VALUES (MOD 18691697672192) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (MOD 18691680894977), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 73014378497), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18691697672192) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> THE LOGIOR LOGIOR ; ==> ; (LOGIOR ; (LOGIOR (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER #)) 24) ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER #)) 16)) ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 1))) 8)) ; ; 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 (MOD 18691697672192), not a FIXNUM. ; The result is a (VALUES (MOD 18691697672192) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18691697672192) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> THE LOGIOR ; ==> ; (LOGIOR ; (LOGIOR (LOGIOR (ASH (CHAR-CODE #) 24) (ASH (CHAR-CODE #) 16)) ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER #)) 8)) ; (CHAR-CODE (SCHAR SB-MD5::BUFFER SB-MD5::J))) ; ; 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 (MOD 18691697672192), 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 3) because: ; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; compiling (DECLAIM (INLINE MD5REGS-DIGEST)) ; compiling (DEFUN MD5REGS-DIGEST ...); in: LAMBDA (#:WHOLE803 #:ENVIRONMENT804) ; (+ SB-MD5::OFFSET 1) ; ; note: unable to ; optimize ; 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). ; (+ SB-MD5::OFFSET 2) ; ; note: unable to ; optimize ; 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). ; (+ SB-MD5::OFFSET 3) ; ; note: unable to ; optimize ; 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). ; (+ SB-MD5::OFFSET 1) ; ; 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-MD5::OFFSET 2) ; ; 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-MD5::OFFSET 3) ; ; 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. ; compiling (DEFSTRUCT (MD5-STATE # ...) ...) ; compiling (DECLAIM (INLINE COPY-TO-BUFFER)) ; compiling (DEFUN COPY-TO-BUFFER ...) ; compiling (DEFUN UPDATE-MD5-STATE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp ; in: DEFUN UPDATE-MD5-STATE ; (INCF (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE) LENGTH) ; --> LET* ; ==> ; (+ (SB-MD5::MD5-STATE-AMOUNT #:G1076) #:G1077) ; ; 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 safe inline fixnum arithmetic (cost 4) 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). ; etc. ; in: DEFUN FILL-BLOCK-CHAR ; (SB-MD5::ASSEMBLE-UB32 (CHAR-CODE (SCHAR SB-MD5::BUFFER SB-MD5::J)) ; (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 1))) ; (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 2))) ; (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 3)))) ; --> THE LOGIOR LOGIOR LOGIOR LOGIOR ; ==> ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 3))) 24) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 18691680894977) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 18691680894977) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 2))) 16) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 73014378497) &OPTIONAL), not a (VALUES ; FIXNUM &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 73014378497) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> THE LOGIOR LOGIOR LOGIOR ; ==> ; (LOGIOR (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 3))) 24) ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 2))) 16)) ; ; 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 (MOD 18691680894977), not a FIXNUM. ; The second argument is a (MOD 73014378497), not a FIXNUM. ; The result is a (VALUES (MOD 18691697672192) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (MOD 18691680894977), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 73014378497), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18691697672192) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> THE LOGIOR LOGIOR ; ==> ; (LOGIOR ; (LOGIOR (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER #)) 24) ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER #)) 16)) ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER (+ SB-MD5::J 1))) 8)) ; ; 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 (MOD 18691697672192), not a FIXNUM. ; The result is a (VALUES (MOD 18691697672192) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18691697672192) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> THE LOGIOR ; ==> ; (LOGIOR ; (LOGIOR (LOGIOR (ASH (CHAR-CODE #) 24) (ASH (CHAR-CODE #) 16)) ; (ASH (CHAR-CODE (SCHAR SB-MD5::BUFFER #)) 8)) ; (CHAR-CODE (SCHAR SB-MD5::BUFFER SB-MD5::J))) ; ; 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 (MOD 18691697672192), 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 3) because: ; The first argument is a (MOD 18691697672192), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; in: DEFUN UPDATE-MD5-STATE ; (+ (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE) LENGTH) ; ; 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 safe inline fixnum arithmetic (cost 4) 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). ; etc. ; compiling (DEFUN FINALIZE-MD5-STATE ...); in: LAMBDA (#:WHOLE1196 #:ENVIRONMENT1197) ; (+ SB-MD5::OFFSET 1) ; ; note: unable to ; optimize ; 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). ; (+ SB-MD5::OFFSET 2) ; ; note: unable to ; optimize ; 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). ; (+ SB-MD5::OFFSET 3) ; ; note: unable to ; optimize ; 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). ; (+ SB-MD5::OFFSET 1) ; ; 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-MD5::OFFSET 2) ; ; 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-MD5::OFFSET 3) ; ; 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. ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp ; in: DEFUN FINALIZE-MD5-STATE ; (* 8 (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE)) ; --> * ; ==> ; (ASH SB-C::X 3) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (LDB (BYTE 32 0) SB-MD5::TOTAL-LENGTH) ; --> SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; (LDB (BYTE 32 32) SB-MD5::TOTAL-LENGTH) ; --> SB-KERNEL:%LDB LOGAND ; ==> ; (ASH INT (- SB-C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first 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). ; unable to do inline constant ASH (cost 4) 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. ; --> SB-KERNEL:%LDB ; ==> ; (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; compiling (DEFUN MD5SUM-SEQUENCE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5.lisp ; in: DEFUN MD5SUM-SEQUENCE ; (SB-KERNEL:WITH-ARRAY-DATA ; ((SB-MD5::DATA SEQUENCE) (SB-MD5::REAL-START SB-MD5::START) ; (SB-MD5::REAL-END SB-MD5::END)) ; (DECLARE (IGNORE SB-MD5::REAL-END)) ; (SB-MD5:UPDATE-MD5-STATE SB-MD5::STATE SB-MD5::DATA :START ; SB-MD5::REAL-START :END ; (+ SB-MD5::REAL-START (- SB-MD5::END SB-MD5::START)))) ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G1425) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-1420 SB-C::START)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-1420 #:DEFAULTED-END-1418)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (SB-MD5:UPDATE-MD5-STATE SB-MD5::STATE SB-MD5::DATA :START SB-MD5::REAL-START ; :END (+ SB-MD5::REAL-START (- SB-MD5::END SB-MD5::START))) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFUN MD5SUM-STRING ...) ; compiling (DEFCONSTANT +BUFFER-SIZE+ ...) ; compiling (DEFTYPE BUFFER-INDEX ...) ; compiling (DEFUN MD5SUM-STREAM ...) ; compiling (DEFUN MD5SUM-FILE ...) ; SYS:CONTRIB;SB-MD5;MD5.FASL.NEWEST written ; compilation finished in 0:00:04 ; ; compilation unit finished ; printed 51 notes ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/sb-md5.lisp" (written 29 DEC 2006 10:27:21 PM): ; compiling (UNLESS (MEMBER "ASDF" ...) ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/sb-md5.fasl written ; compilation finished in 0:00:00 echo "(asdf:operate (quote asdf:load-op) :sb-md5)" \ "(asdf:operate (quote asdf:test-op) :sb-md5)" | \ /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")' * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/sb-md5.asd ; into # ; registering # as SB-MD5 ; registering # as SB-MD5-TESTS ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/sb-rotate-byte.asd ; into # ; registering # as SB-ROTATE-BYTE NIL * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/sb-rt.asd into ; # ; registering # as SB-RT ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5-tests.lisp" (written 29 MAR 2006 10:27:26 AM): ; compiling (DEFPACKAGE #:SB-MD5-TESTS ...) ; compiling (IN-PACKAGE #:SB-MD5-TESTS) ; compiling (DEFUN BYTE-ARRAY-TO-HEX-STRING ...) ; compiling (DEFUN ONE-SHOT-TEST ...) ; compiling (DEFUN INCREMENTAL-TEST ...) ; compiling (DEFUN FILL-POINTER-TEST ...) ; compiling (DEFUN TESTS-FOR-TEST-SUITE ...) ; compiling (DEFINE-RFC1321-TESTS (# # ...)) ; compiling (DEFINE-OTHER-TESTS (# # ...)) ; compiling (DEFTEST SB-MD5.MD5SUM-FILE.0 ...) ; compiling (DEFTEST SB-MD5.MD5SUM-SEQUENCE.ERROR.0 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5/md5-tests.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TESTS-FOR-TEST-SUITE in DEFUN Doing 236 pending tests of 236 tests total. SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.0 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.0 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.0 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.1 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.1 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.1 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.2 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.2 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.2 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.3 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.3 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.3 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.4 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.4 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.4 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.5 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.5 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.5 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.6 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.6 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.6 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.0 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.0 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.0 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.1 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.1 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.1 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.2 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.2 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.2 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.3 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.3 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.3 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.4 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.4 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.4 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.5 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.5 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.5 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.6 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.6 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.6 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.7 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.7 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.7 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.8 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.8 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.8 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.9 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.9 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.9 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.10 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.10 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.10 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.11 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.11 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.11 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.12 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.12 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.12 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.13 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.13 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.13 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.14 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.14 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.14 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.15 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.15 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.15 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.16 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.16 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.16 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.17 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.17 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.17 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.18 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.18 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.18 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.19 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.19 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.19 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.20 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.20 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.20 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.21 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.21 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.21 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.22 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.22 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.22 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.23 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.23 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.23 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.24 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.24 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.24 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.25 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.25 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.25 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.26 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.26 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.26 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.27 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.27 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.27 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.28 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.28 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.28 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.29 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.29 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.29 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.30 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.30 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.30 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.31 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.31 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.31 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.32 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.32 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.32 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.33 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.33 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.33 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.34 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.34 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.34 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.35 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.35 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.35 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.36 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.36 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.36 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.37 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.37 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.37 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.38 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.38 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.38 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.39 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.39 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.39 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.40 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.40 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.40 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.41 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.41 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.41 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.42 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.42 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.42 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.43 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.43 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.43 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.44 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.44 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.44 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.45 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.45 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.45 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.46 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.46 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.46 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.47 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.47 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.47 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.48 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.48 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.48 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.49 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.49 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.49 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.50 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.50 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.50 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.51 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.51 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.51 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.52 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.52 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.52 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.53 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.53 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.53 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.54 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.54 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.54 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.55 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.55 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.55 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.56 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.56 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.56 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.57 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.57 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.57 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.58 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.58 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.58 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.59 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.59 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.59 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.60 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.60 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.60 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.61 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.61 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.61 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.62 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.62 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.62 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.63 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.63 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.63 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.64 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.64 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.64 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.65 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.65 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.65 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.66 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.66 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.66 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.67 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.67 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.67 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.68 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.68 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.68 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.69 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.69 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.69 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.70 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.70 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.70 SB-MD5-TESTS::SB-MD5.MD5SUM-FILE.0 SB-MD5-TESTS::SB-MD5.MD5SUM-SEQUENCE.ERROR.0 No tests failed. NIL * make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix' make -C ../asdf make[2]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' make[2]: `asdf.fasl' is up to date. make[2]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-posix")' --load ../asdf-stub.lisp --eval '(quit)' ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/sb-posix.asd ; into # ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/sb-grovel.asd ; into # ; registering # as SB-GROVEL ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-POSIX ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-POSIX-TESTS STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for SIGINFO (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_NOFOLLOW (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECTORY (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler). ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/sb-posix.lisp" (written 29 DEC 2006 10:27:26 PM): ; compiling (UNLESS (MEMBER "ASDF" ...) ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/sb-posix.fasl written ; compilation finished in 0:00:00 echo "(asdf:operate (quote asdf:load-op) :sb-posix)" \ "(asdf:operate (quote asdf:test-op) :sb-posix)" | \ /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")' * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/sb-posix.asd ; into # ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/sb-grovel.asd ; into # ; registering # as SB-GROVEL ; registering # as SB-POSIX ; registering # as SB-POSIX-TESTS STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for SIGINFO (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_NOFOLLOW (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECTORY (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler). NIL * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/sb-rt.asd into ; # ; registering # as SB-RT ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/posix-tests.lisp" (written 21 DEC 2006 03:17:17 AM): ; compiling (DEFPACKAGE "SB-POSIX-TESTS" ...) ; compiling (IN-PACKAGE "SB-POSIX-TESTS") ; compiling (DEFVAR *TEST-DIRECTORY* ...) ; compiling (DEFVAR *CURRENT-DIRECTORY* ...) ; compiling (DEFVAR *THIS-FILE* ...) ; compiling (DEFCONSTANT +MODE-RWX-ALL+ ...) ; compiling (DEFMACRO DEFINE-EACCES-TEST ...) ; compiling (DEFTEST CHDIR.1 ...) ; compiling (DEFTEST CHDIR.2 ...) ; compiling (DEFTEST CHDIR.3 ...) ; compiling (DEFTEST CHDIR.4 ...) ; compiling (DEFTEST CHDIR.5 ...) ; compiling (DEFTEST CHDIR.6 ...) ; compiling (DEFTEST CHDIR.7 ...) ; compiling (DEFTEST CHDIR.8 ...) ; compiling (DEFTEST CHDIR.ERROR.1 ...) ; compiling (DEFTEST CHDIR.ERROR.2 ...) ; compiling (DEFTEST MKDIR.1 ...) ; compiling (DEFTEST MKDIR.2 ...) ; compiling (DEFTEST MKDIR.ERROR.1 ...) ; compiling (DEFTEST MKDIR.ERROR.2 ...) ; compiling (DEFINE-EACCES-TEST MKDIR.ERROR.3 ...) ; compiling (DEFTEST RMDIR.1 ...) ; compiling (DEFTEST RMDIR.2 ...) ; compiling (DEFTEST RMDIR.ERROR.1 ...) ; compiling (DEFTEST RMDIR.ERROR.2 ...) ; compiling (DEFTEST RMDIR.ERROR.3 ...) ; compiling (DEFTEST RMDIR.ERROR.4 ...) ; compiling (DEFINE-EACCES-TEST RMDIR.ERROR.5 ...) ; compiling (DEFTEST STAT.1 ...) ; compiling (DEFTEST STAT.2 ...) ; compiling (DEFTEST STAT.3 ...) ; compiling (DEFTEST STAT.4 ...) ; compiling (DEFTEST STAT.ERROR.1 ...) ; compiling (DEFINE-EACCES-TEST STAT.ERROR.2 ...) ; compiling (DEFMACRO WITH-STAT-MODE ...) ; compiling (DEFMACRO WITH-LSTAT-MODE ...) ; compiling (DEFTEST STAT-MODE.1 ...) ; compiling (DEFTEST STAT-MODE.2 ...) ; compiling (DEFTEST STAT-MODE.3 ...) ; compiling (DEFTEST STAT-MODE.4 ...) ; compiling (DEFTEST STAT-MODE.5 ...) ; compiling (DEFTEST STAT-MODE.6 ...) ; compiling (DEFTEST STAT-MODE.7 ...) ; compiling (DEFTEST STAT-MODE.8 ...) ; compiling (DEFTEST FILENAME-DESIGNATOR.1 ...) ; compiling (DEFTEST OPEN.1 ...) ; compiling (DEFTEST OPEN.ERROR.1 ...) ; compiling (DEFTEST FCNTL.1 ...) ; compiling (DEFTEST OPENDIR.1 ...) ; compiling (DEFTEST READDIR.1 ...) ; compiling (DEFTEST READDIR/DIRENT-NAME ...) ; compiling (DEFTEST PWENT.1 ...) ; compiling (DEFTEST PWENT.2 ...) ; compiling (DEFTEST TIME.1 ...) ; compiling (DEFTEST UTIME.1 ...) ; compiling (DEFTEST UTIMES.1 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/posix-tests.fasl written ; compilation finished in 0:00:00 Doing 48 pending tests of 48 tests total. SB-POSIX-TESTS::CHDIR.1 SB-POSIX-TESTS::CHDIR.2 SB-POSIX-TESTS::CHDIR.3 SB-POSIX-TESTS::CHDIR.4 SB-POSIX-TESTS::CHDIR.5 SB-POSIX-TESTS::CHDIR.6 SB-POSIX-TESTS::CHDIR.7 SB-POSIX-TESTS::CHDIR.8 SB-POSIX-TESTS::CHDIR.ERROR.1 SB-POSIX-TESTS::CHDIR.ERROR.2 SB-POSIX-TESTS::MKDIR.1 SB-POSIX-TESTS::MKDIR.2 SB-POSIX-TESTS::MKDIR.ERROR.1 SB-POSIX-TESTS::MKDIR.ERROR.2 SB-POSIX-TESTS::MKDIR.ERROR.3 SB-POSIX-TESTS::RMDIR.1 SB-POSIX-TESTS::RMDIR.2 SB-POSIX-TESTS::RMDIR.ERROR.1 SB-POSIX-TESTS::RMDIR.ERROR.2 SB-POSIX-TESTS::RMDIR.ERROR.3 SB-POSIX-TESTS::RMDIR.ERROR.4 ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50CEBAA9}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SB-POSIX:STAT "/") ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {517D6F19}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50AF5869}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure SB-POSIX-TESTS::RMDIR.ERROR.5 SB-POSIX-TESTS::STAT.1 SB-POSIX-TESTS::STAT.2 ; in: LAMBDA NIL ; (SB-POSIX:STAT (MAKE-PATHNAME :DIRECTORY '(:ABSOLUTE :UP))) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50FBD949}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SB-POSIX:STAT "") ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50B24519}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::FILE) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {51BF1FC1}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure SB-POSIX-TESTS::STAT.3 SB-POSIX-TESTS::STAT.4 SB-POSIX-TESTS::STAT.ERROR.1 ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {518D7879}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50E1FF99}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure SB-POSIX-TESTS::STAT.ERROR.2 SB-POSIX-TESTS::STAT-MODE.1 ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {51ED1849}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {509AFAB1}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure SB-POSIX-TESTS::STAT-MODE.2 SB-POSIX-TESTS::STAT-MODE.3 ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {5106B989}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {5173AB59}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure SB-POSIX-TESTS::STAT-MODE.4 SB-POSIX-TESTS::STAT-MODE.5 ; in: LAMBDA NIL ; (SB-POSIX-TESTS::WITH-LSTAT-MODE ; (SB-POSIX-TESTS::MODE SB-POSIX-TESTS::LINK-PATHNAME) ; (SB-POSIX:S-ISLNK SB-POSIX-TESTS::MODE)) ; --> LET* SB-POSIX:LSTAT BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50952989}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> LET* SB-POSIX:LSTAT BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SB-POSIX-TESTS::WITH-STAT-MODE (SB-POSIX-TESTS::MODE PATHNAME) ; (SB-POSIX:S-ISREG SB-POSIX-TESTS::MODE)) ; --> LET* SB-POSIX:STAT BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {511F6A81}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> LET* SB-POSIX:STAT BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure SB-POSIX-TESTS::STAT-MODE.6 SB-POSIX-TESTS::STAT-MODE.7 SB-POSIX-TESTS::STAT-MODE.8 SB-POSIX-TESTS::FILENAME-DESIGNATOR.1 ; in: LAMBDA NIL ; (SB-POSIX:OPENDIR "/") ; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure SB-POSIX-TESTS::OPEN.1 SB-POSIX-TESTS::OPEN.ERROR.1 SB-POSIX-TESTS::FCNTL.1 ; in: LAMBDA NIL ; (SB-POSIX:OPENDIR "/") ; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX:READDIR SB-POSIX-TESTS::DIR) ; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX:DIRENT-NAME SB-POSIX-TESTS::DIRENT) ; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) ; in: LAMBDA NIL ; (SB-POSIX:OPENDIR SB-POSIX-TESTS::*CURRENT-DIRECTORY*) ; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX:READDIR SB-POSIX-TESTS::DIR) ; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB-POSIX:DIRENT-NAME SB-POSIX-TESTS::ENTRY) ; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; 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) SB-POSIX-TESTS::OPENDIR.1 SB-POSIX-TESTS::READDIR.1 SB-POSIX-TESTS::READDIR/DIRENT-NAME SB-POSIX-TESTS::PWENT.1 ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::FILE) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50F03BA1}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: LAMBDA NIL ; (SB-POSIX:STAT SB-POSIX-TESTS::FILE) ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {50CEFD81}> ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET ; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT ; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure SB-POSIX-TESTS::PWENT.2 SB-POSIX-TESTS::TIME.1 SB-POSIX-TESTS::UTIME.1 SB-POSIX-TESTS::UTIMES.1 No tests failed.; ; compilation unit finished ; printed 41 notes NIL * make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte' make -C ../asdf make[2]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' make[2]: `asdf.fasl' is up to date. make[2]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-rotate-byte")' --load ../asdf-stub.lisp --eval '(quit)' ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/sb-rotate-byte.asd ; into # ; registering # as SB-ROTATE-BYTE ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/sb-rotate-byte.lisp" (written 29 DEC 2006 10:27:35 PM): ; compiling (UNLESS (MEMBER "ASDF" ...) ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/sb-rotate-byte.fasl written ; compilation finished in 0:00:00 echo "(asdf:operate (quote asdf:load-op) :sb-rotate-byte)" \ "(asdf:operate (quote asdf:test-op) :sb-rotate-byte)" | \ /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")' * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/sb-rotate-byte.asd ; into # ; registering # as SB-ROTATE-BYTE NIL * ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/rotate-byte-tests.lisp" (written 26 AUG 2005 06:52:25 PM): ; compiling (IN-PACKAGE "SB-ROTATE-BYTE") ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (FLET (#) ...) ; compiling (DEFUN PFIXNUM/C ...) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (DEFUN PFIXNUM ...) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (DEFUN UB32/C ...) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (DEFUN UB32 ...) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (DEFUN UB32-REG-PRESSURE ...) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte/rotate-byte-tests.fasl written ; compilation finished in 0:00:00 NIL * make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt' make -C ../asdf make[2]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' make[2]: `asdf.fasl' is up to date. make[2]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-rt")' --load ../asdf-stub.lisp --eval '(quit)' ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/sb-rt.asd into ; # ; registering # as SB-RT ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/sb-rt.lisp" (written 29 DEC 2006 10:27:37 PM): ; compiling (UNLESS (MEMBER "ASDF" ...) ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/sb-rt.fasl written ; compilation finished in 0:00:00 echo "(asdf:operate (quote asdf:load-op) :sb-rt)" \ "(asdf:operate (quote asdf:test-op) :sb-rt)" | \ /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")' * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/sb-rt.asd into ; # ; registering # as SB-RT NIL * NIL * make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams' make -C ../asdf make[2]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' make[2]: `asdf.fasl' is up to date. make[2]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-simple-streams")' --load ../asdf-stub.lisp --eval '(quit)' ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/sb-simple-streams.asd ; into # ; registering # as SB-SIMPLE-STREAMS ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as ; SB-SIMPLE-STREAMS-TESTS ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/sb-posix.asd ; into # ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/sb-grovel.asd ; into # ; registering # as SB-GROVEL ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-POSIX ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-POSIX-TESTS ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/sb-bsd-sockets.asd ; into # ; registering # as SB-BSD-SOCKETS ; in: LAMBDA NIL ; (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*) ; ==> ; *LOAD-TRUENAME* ; ; note: deleting unreachable code ; (OR (ASDF::PATHNAME-SANS-NAME+TYPE (ASDF::RESOLVE-SYMLINKS *LOAD-TRUENAME*)) ; *DEFAULT-PATHNAME-DEFAULTS*) ; --> LET IF OR ; ==> ; *DEFAULT-PATHNAME-DEFAULTS* ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; registering # as SB-BSD-SOCKETS-TESTS STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for SIGINFO (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_NOFOLLOW (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECTORY (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler). ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/package.lisp" (written 29 JUN 2004 09:50:57 AM): ; compiling (DEFPACKAGE SB-SIMPLE-STREAMS ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;PACKAGE.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/fndb.lisp" (written 07 DEC 2005 03:57:22 PM): ; compiling (IN-PACKAGE "COMMON-LISP") ; compiling (HANDLER-BIND (#) ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;FNDB.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/iodefs.lisp" (written 14 JUL 2005 05:30:09 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEFMACRO DEF-STREAM-CLASS ...) ; compiling (SB-INT:DEFCONSTANT-EQX +FLAG-BITS+ ...) ; compiling (DEFUN %FLAGS ...) ; compiling (DEFMACRO WITH-STREAM-CLASS ...) ; compiling (DEFMACRO SM ...) ; compiling (DEFMACRO FUNCALL-STM-HANDLER ...) ; compiling (DEFMACRO FUNCALL-STM-HANDLER-2 ...) ; compiling (DEFMACRO ADD-STREAM-INSTANCE-FLAGS ...) ; compiling (DEFMACRO REMOVE-STREAM-INSTANCE-FLAGS ...) ; compiling (DEFMACRO ANY-STREAM-INSTANCE-FLAGS ...) ; compiling (DEFMACRO SIMPLE-STREAM-DISPATCH ...) ; compiling (DEFMACRO SIMPLE-STREAM-DISPATCH-2 ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;IODEFS.FASL.NEWEST written ; compilation finished in 0:00:01 STYLE-WARNING: redefining %FLAGS in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/classes.lisp" (written 14 JUL 2005 05:30:09 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEFTYPE SIMPLE-STREAM-BUFFER ...) ; compiling (DEFTYPE BLOCKING ...) ; compiling (DEFTYPE J-LISTEN-FN ...) ; compiling (DEFTYPE J-READ-CHAR-FN ...) ; compiling (DEFTYPE J-READ-CHARS-FN ...) ; compiling (DEFTYPE J-WRITE-CHAR-FN ...) ; compiling (DEFTYPE J-WRITE-CHARS-FN ...) ; compiling (DEFTYPE J-UNREAD-CHAR-FN ...) ; compiling (DEF-STREAM-CLASS SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS SINGLE-CHANNEL-SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS DUAL-CHANNEL-SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS STRING-SIMPLE-STREAM ...) ; compiling (DEFGENERIC DEVICE-OPEN ...) ; compiling (DEFGENERIC DEVICE-CLOSE ...) ; compiling (DEFGENERIC DEVICE-BUFFER-LENGTH ...) ; compiling (DEFGENERIC DEVICE-FILE-POSITION ...) ; compiling (DEFGENERIC (SETF DEVICE-FILE-POSITION) ...) ; compiling (DEFGENERIC DEVICE-FILE-LENGTH ...) ; compiling (DEFGENERIC DEVICE-READ ...) ; compiling (DEFGENERIC DEVICE-CLEAR-INPUT ...) ; compiling (DEFGENERIC DEVICE-WRITE ...) ; compiling (DEFGENERIC DEVICE-CLEAR-OUTPUT ...) ; compiling (DEFGENERIC DEVICE-FINISH-RECORD ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFMETHOD DEVICE-CLOSE ...) ; compiling (DEFMETHOD DEVICE-CLOSE ...) ; compiling (DEFMETHOD DEVICE-BUFFER-LENGTH ...) ; compiling (DEFMETHOD DEVICE-FILE-POSITION ...) ; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...) ; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...) ; compiling (DEFGENERIC (SETF STREAM-EXTERNAL-FORMAT) ...) ; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...) ; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...) ; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...) ; compiling (DEFMETHOD DEVICE-READ ...) ; compiling (DEFMETHOD DEVICE-READ ...) ; compiling (DEFMETHOD DEVICE-CLEAR-INPUT ...) ; compiling (DEFMETHOD DEVICE-WRITE ...) ; compiling (DEFMETHOD DEVICE-WRITE ...) ; compiling (DEFMETHOD DEVICE-CLEAR-OUTPUT ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;CLASSES.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/internal.lisp" (written 13 APR 2006 11:52:56 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DECLAIM (INLINE BUFFER-SAP ...)) ; compiling (DEFUN BUFFER-SAP ...) ; compiling (DEFUN BREF ...) ; compiling (DEFUN (SETF BREF) ...) ; compiling (DEFUN BUFFER-COPY ...) ; compiling (DEFUN ALLOCATE-BUFFER ...) ; compiling (DEFUN FREE-BUFFER ...) ; compiling (DEFUN MAKE-CONTROL-TABLE ...) ; compiling (DEFUN STD-NEWLINE-OUT-HANDLER ...) ; compiling (DEFUN STD-TAB-OUT-HANDLER ...) ; compiling (DEFUN STD-DC-NEWLINE-IN-HANDLER ...) ; compiling (DEFVAR *STD-CONTROL-OUT-TABLE* ...) ; compiling (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...) ; compiling (DEFVAR *EXTERNAL-FORMATS* ...) ; compiling (DEFVAR *EXTERNAL-FORMAT-ALIASES* ...) ; compiling (DEFSTRUCT (EXTERNAL-FORMAT # ...) ...) ; compiling (DEFUN %PRINT-EXTERNAL-FORMAT ...) ; compiling (DEFMACRO DEFINE-EXTERNAL-FORMAT ...) ; compiling (DEFUN LOAD-EXTERNAL-FORMAT-ALIASES ...) ; compiling (DEFUN FIND-EXTERNAL-FORMAT ...) ; compiling (DEFINE-CONDITION VOID-EXTERNAL-FORMAT ...) ; compiling (DEFINE-EXTERNAL-FORMAT :VOID ...) ; compiling (DEFINE-EXTERNAL-FORMAT :ISO8859-1 ...) ; compiling (DEFMACRO OCTETS-TO-CHAR ...) ; compiling (DEFMACRO CHAR-TO-OCTETS ...) ; compiling (DEFUN STRING-TO-OCTETS ...) ; compiling (DEFUN OCTETS-TO-STRING ...) ; compiling (DEFUN VECTOR-ELT-WIDTH ...) ; compiling (DEFUN ENDIAN-SWAP-VALUE ...) ; compiling (DEFUN READ-OCTETS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/internal.lisp ; in: DEFUN READ-OCTETS ; (SB-UNIX:UNIX-READ SB-SIMPLE-STREAMS::FD ; (SB-SIMPLE-STREAMS::BUFFER-SAP SB-SIMPLE-STREAMS::BUFFER ; SB-SIMPLE-STREAMS::START) ; (THE FIXNUM ; (- SB-SIMPLE-STREAMS::END SB-SIMPLE-STREAMS::START))) ; ; note: doing SAP to pointer coercion (cost 20) ; compiling (DEFUN WRITE-OCTETS ...) ; compiling (DEFUN DO-SOME-OUTPUT ...) ; compiling (DEFUN QUEUE-WRITE ...) ; compiling (DEFUN %FD-OPEN ...) ; compiling (DEFUN OPEN-FD-STREAM ...) ; compiling (DEFSTRUCT (FILESPEC-PARSER #) ...) ; compiling (DEFVAR *FILESPEC-PARSERS* ...) ; compiling (DEFUN ADD-FILESPEC ...) ; compiling (DEFMACRO DEFINE-FILESPEC ...) ; compiling (DEFUN PARSE-FILESPEC ...) ; compiling (DEFINE-FILESPEC PATHNAME ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;INTERNAL.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/strategy.lisp" (written 14 JUL 2005 05:30:09 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEFUN REFILL-BUFFER ...) ; compiling (DEFUN SC-SET-DIRTY ...) ; compiling (DEFUN SC-SET-CLEAN ...) ; compiling (DEFUN SC-DIRTY-P ...) ; compiling (DEFUN FLUSH-BUFFER ...) ; compiling (DEFUN FLUSH-OUT-BUFFER ...) ; compiling (DEFUN READ-BYTE-INTERNAL ...) ; compiling (DECLAIM (FTYPE J-LISTEN-FN ...)) ; compiling (DEFUN SC-LISTEN-EF ...) ; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...)) ; compiling (DEFUN SC-READ-CHAR-EF ...) ; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...)) ; compiling (DEFUN SC-READ-CHAR-EF-MAPPED ...) ; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...)) ; compiling (DEFUN SC-READ-CHARS-EF ...) ; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...)) ; compiling (DEFUN SC-READ-CHARS-EF-MAPPED ...) ; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...)) ; compiling (DEFUN SC-UNREAD-CHAR-EF ...) ; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...)) ; compiling (DEFUN SC-WRITE-CHAR-EF ...) ; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...)) ; compiling (DEFUN SC-WRITE-CHARS-EF ...) ; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...)) ; compiling (DEFUN DC-WRITE-CHAR-EF ...) ; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...)) ; compiling (DEFUN DC-WRITE-CHARS-EF ...) ; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...)) ; compiling (DEFUN STR-READ-CHAR ...) ; compiling (DECLAIM (FTYPE J-LISTEN-FN ...)) ; compiling (DEFUN STR-LISTEN-E-CRLF ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/strategy.lisp ; in: DEFUN STR-LISTEN-E-CRLF ; (DEFUN SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF (STREAM) ; (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS ; (SB-SIMPLE-STREAMS:COMPOSING-STREAM STREAM) ; (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-LISTEN ; (SB-SIMPLE-STREAMS:SM ; SB-SIMPLE-STREAMS::MELDED-STREAM ; STREAM)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF (STREAM) ; (BLOCK SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF ; (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS ; (SB-SIMPLE-STREAMS:COMPOSING-STREAM STREAM) ; (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER ; SB-SIMPLE-STREAMS::J-LISTEN ; (SB-SIMPLE-STREAMS:SM ; SB-SIMPLE-STREAMS::MELDED-STREAM STREAM))))) ; ; note: type assertion too complex to check: ; (VALUES &OPTIONAL (MEMBER NIL T) &REST T). ; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...)) ; compiling (DEFUN STR-READ-CHAR-E-CRLF ...) ; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...)) ; compiling (DEFUN STR-UNREAD-CHAR-E-CRLF ...) ; compiling (DEFUN MELDING-STREAM ...) ; compiling (DEFUN MELD ...) ; compiling (DEFUN UNMELD ...) ; compiling (DEFUN %SF ...) ; compiling (DEFUN INSTALL-SINGLE-CHANNEL-CHARACTER-STRATEGY ...) ; compiling (DEFUN INSTALL-DUAL-CHANNEL-CHARACTER-STRATEGY ...) ; compiling (DEFUN INSTALL-STRING-CHARACTER-STRATEGY ...) ; compiling (DEFUN INSTALL-STRING-INPUT-CHARACTER-STRATEGY ...) ; compiling (DEFUN INSTALL-STRING-OUTPUT-CHARACTER-STRATEGY ...) ; compiling (DEFUN INSTALL-COMPOSING-FORMAT-CHARACTER-STRATEGY ...) ; compiling (DEFUN COMPOSE-ENCAPSULATING-STREAMS ...) ; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...) ; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...)) ; compiling (DEFUN NULL-READ-CHAR ...) ; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...)) ; compiling (DEFUN NULL-READ-CHARS ...) ; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...)) ; compiling (DEFUN NULL-UNREAD-CHAR ...) ; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...)) ; compiling (DEFUN NULL-WRITE-CHAR ...) ; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...)) ; compiling (DEFUN NULL-WRITE-CHARS ...) ; compiling (DECLAIM (FTYPE J-LISTEN-FN ...)) ; compiling (DEFUN NULL-LISTEN ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;STRATEGY.FASL.NEWEST written ; compilation finished in 0:00:05 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/string.lisp" (written 14 JUL 2005 05:30:10 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEF-STREAM-CLASS STRING-INPUT-SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS STRING-OUTPUT-SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS COMPOSING-STREAM ...) ; compiling (DEF-STREAM-CLASS FILL-POINTER-OUTPUT-SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS XP-SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS ANNOTATION-OUTPUT-SIMPLE-STREAM ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFMETHOD DEVICE-FILE-POSITION ...) ; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...) ; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFMETHOD DEVICE-FILE-POSITION ...) ; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;STRING.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/file.lisp" (written 06 SEP 2006 09:27:10 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEF-STREAM-CLASS FILE-SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS MAPPED-FILE-SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS PROBE-SIMPLE-STREAM ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFUN OPEN-FILE-STREAM ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFUN REVERT-FILE ...) ; compiling (DEFUN DELETE-ORIGINAL ...) ; compiling (DEFMETHOD DEVICE-CLOSE ...) ; compiling (DEFMETHOD DEVICE-FILE-POSITION ...) ; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...) ; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFMETHOD DEVICE-CLOSE ...) ; compiling (DEFMETHOD DEVICE-WRITE ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;FILE.FASL.NEWEST written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/impl.lisp" (written 10 AUG 2005 08:57:33 AM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEFUN %UNINITIALIZED ...) ; compiling (DEFUN %CHECK ...) ; compiling (DEFMETHOD INPUT-STREAM-P ...) ; compiling (DEFMETHOD OUTPUT-STREAM-P ...) ; compiling (DEFMETHOD OPEN-STREAM-P ...) ; compiling (DEFMETHOD CLOSE ...) ; compiling (DEFUN %FILE-POSITION ...) ; compiling (DEFUN %FILE-LENGTH ...) ; compiling (DEFUN %FILE-NAME ...) ; compiling (DEFUN %FILE-RENAME ...) ; compiling (DEFUN %FILE-STRING-LENGTH ...) ; compiling (DEFUN %READ-LINE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/impl.lisp ; in: DEFUN %READ-LINE ; (REPLACE SB-SIMPLE-STREAMS::CBUF SB-SIMPLE-STREAMS::BUF :START1 ; SB-SIMPLE-STREAMS::IDX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (REPLACE STRING SB-SIMPLE-STREAMS::BUF :START1 SB-SIMPLE-STREAMS::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-READ-CHARS ; SB-SIMPLE-STREAMS::ENCAP ; SB-SIMPLE-STREAMS::CBUF #\Newline ; SB-SIMPLE-STREAMS::INDEX ; (LENGTH SB-SIMPLE-STREAMS::CBUF) T) ; --> LET FUNCALL SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; compiling (DEFUN %READ-CHAR ...) ; compiling (DEFUN %UNREAD-CHAR ...) ; compiling (DEFUN %PEEK-CHAR ...) ; compiling (DEFUN %LISTEN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/impl.lisp ; in: DEFUN %LISTEN ; (LET ((SB-SIMPLE-STREAMS::LCRS ; (SB-SIMPLE-STREAMS:SM SB-SIMPLE-STREAMS::LAST-CHAR-READ-SIZE STREAM))) ; (WHEN ; (AND ; (NOT ; (SB-SIMPLE-STREAMS::ANY-STREAM-INSTANCE-FLAGS STREAM :DUAL :STRING)) ; (>= (SB-SIMPLE-STREAMS:SM SB-SIMPLE-STREAMS::MODE STREAM) 0)) ; (SB-SIMPLE-STREAMS::FLUSH-BUFFER STREAM NIL)) ; (>= (SB-SIMPLE-STREAMS::REFILL-BUFFER STREAM NIL) SB-SIMPLE-STREAMS::WIDTH)) ; ; caught STYLE-WARNING: ; The variable LCRS is defined but never used. ; compiling (DEFUN %CLEAR-INPUT ...) ; compiling (DEFUN %READ-BYTE ...) ; compiling (DEFUN %WRITE-CHAR ...) ; compiling (DEFUN %FRESH-LINE ...) ; compiling (DEFUN %WRITE-STRING ...) ; compiling (DEFUN %LINE-LENGTH ...) ; compiling (DEFUN %FINISH-OUTPUT ...) ; compiling (DEFUN %FORCE-OUTPUT ...) ; compiling (DEFUN %CLEAR-OUTPUT ...) ; compiling (DEFUN %WRITE-BYTE ...) ; compiling (DEFUN %READ-SEQUENCE ...) ; compiling (DEFUN %WRITE-SEQUENCE ...) ; compiling (DEFUN READ-VECTOR ...) ; compiling (DEFMETHOD OPEN-STREAM-P ...) ; compiling (DEFMETHOD INPUT-STREAM-P ...) ; compiling (DEFMETHOD OUTPUT-STREAM-P ...) ; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...) ; compiling (DEFUN INTERACTIVE-STREAM-P ...) ; compiling (DEFUN (SETF INTERACTIVE-STREAM-P) ...) ; compiling (DEFUN FILE-STRING-LENGTH ...) ; compiling (DEFUN STREAM-EXTERNAL-FORMAT ...) ; compiling (DEFUN OPEN ...) ; compiling (DECLAIM (INLINE READ-BYTE ...)) ; compiling (DEFUN READ-BYTE ...) ; compiling (DEFUN READ-CHAR ...) ; compiling (DEFUN READ-CHAR-NO-HANG ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/impl.lisp ; in: DEFUN READ-CHAR-NO-HANG ; (SB-IMPL::ANSI-STREAM-READ-CHAR-NO-HANG STREAM SB-SIMPLE-STREAMS::EOF-ERROR-P ; SB-SIMPLE-STREAMS::EOF-VALUE ; SB-SIMPLE-STREAMS::RECURSIVE-P) ; ==> ; SB-SIMPLE-STREAMS::RECURSIVE-P ; ; caught STYLE-WARNING: ; reading an ignored variable: RECURSIVE-P ; compiling (DEFUN UNREAD-CHAR ...) ; compiling (DECLAIM (NOTINLINE READ-BYTE ...)) ; compiling (DEFUN PEEK-CHAR ...) ; compiling (DEFUN LISTEN ...) ; compiling (DEFUN READ-LINE ...) ; compiling (DEFUN READ-SEQUENCE ...) ; compiling (DEFUN CLEAR-INPUT ...) ; compiling (DEFUN WRITE-BYTE ...) ; compiling (DEFUN WRITE-CHAR ...) ; compiling (DEFUN WRITE-STRING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/impl.lisp ; in: DEFUN WRITE-STRING ; (DEFUN WRITE-STRING ; (STRING ; &OPTIONAL (STREAM *STANDARD-OUTPUT*) ; &KEY (SB-SIMPLE-STREAMS::START 0) (SB-SIMPLE-STREAMS::END NIL)) ; "Outputs the String to the given Stream." ; (LET ((STREAM (SB-IMPL::OUT-SYNONYM-OF STREAM)) ; (SB-SIMPLE-STREAMS::END ; (SB-KERNEL:%CHECK-VECTOR-SEQUENCE-BOUNDS STRING ; SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END))) ; (ETYPECASE STREAM ; (SB-SIMPLE-STREAMS:SIMPLE-STREAM ; (SB-SIMPLE-STREAMS::%WRITE-STRING STREAM STRING ; SB-SIMPLE-STREAMS::START SB-SIMPLE-STREAMS::END) ; STRING) ; (SB-KERNEL:ANSI-STREAM ; (SB-IMPL::ANSI-STREAM-WRITE-STRING STRING STREAM ; SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END)) ; (FUNDAMENTAL-STREAM ; (STREAM-WRITE-STRING STREAM STRING SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA WRITE-STRING ; (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY ; (SB-SIMPLE-STREAMS::START 0) ; (SB-SIMPLE-STREAMS::END NIL)) ; (BLOCK WRITE-STRING ; (LET ((STREAM #) (SB-SIMPLE-STREAMS::END #)) ; (ETYPECASE STREAM ; (SB-SIMPLE-STREAMS:SIMPLE-STREAM # STRING) ; (SB-KERNEL:ANSI-STREAM #) ; (FUNDAMENTAL-STREAM #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (STRING &OPTIONAL ; (STREAM ; *STANDARD-OUTPUT*) ; &KEY (START 0) ; (END NIL)) ; compiling (DEFUN WRITE-LINE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/impl.lisp ; in: DEFUN WRITE-LINE ; (DEFUN WRITE-LINE ; (STRING ; &OPTIONAL (STREAM *STANDARD-OUTPUT*) ; &KEY (SB-SIMPLE-STREAMS::START 0) SB-SIMPLE-STREAMS::END) ; (DECLARE (TYPE STRING STRING)) ; (LET ((STREAM (SB-IMPL::OUT-SYNONYM-OF STREAM)) ; (SB-SIMPLE-STREAMS::END ; (SB-KERNEL:%CHECK-VECTOR-SEQUENCE-BOUNDS STRING ; SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END))) ; (ETYPECASE STREAM ; (SB-SIMPLE-STREAMS:SIMPLE-STREAM ; (SB-SIMPLE-STREAMS::%CHECK STREAM :OUTPUT) ; (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS # # #)) ; (SB-KERNEL:ANSI-STREAM ; (SB-IMPL::ANSI-STREAM-WRITE-STRING STRING STREAM ; SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END) ; (FUNCALL # STREAM #\Newline)) ; (FUNDAMENTAL-STREAM ; (STREAM-WRITE-STRING STREAM STRING SB-SIMPLE-STREAMS::START ; SB-SIMPLE-STREAMS::END) ; (STREAM-TERPRI STREAM)))) ; STRING) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA WRITE-LINE ; (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY ; (SB-SIMPLE-STREAMS::START 0) ; SB-SIMPLE-STREAMS::END) ; (DECLARE (TYPE STRING STRING)) ; (BLOCK WRITE-LINE ; (LET ((STREAM #) (SB-SIMPLE-STREAMS::END #)) ; (ETYPECASE STREAM ; (SB-SIMPLE-STREAMS:SIMPLE-STREAM # #) ; (SB-KERNEL:ANSI-STREAM # #) ; (FUNDAMENTAL-STREAM # #))) ; STRING)) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (STRING &OPTIONAL ; (STREAM ; *STANDARD-OUTPUT*) ; &KEY (START 0) END) ; compiling (DEFUN WRITE-SEQUENCE ...) ; compiling (DEFUN TERPRI ...) ; compiling (DEFUN FRESH-LINE ...) ; compiling (DEFUN FINISH-OUTPUT ...) ; compiling (DEFUN FORCE-OUTPUT ...) ; compiling (DEFUN CLEAR-OUTPUT ...) ; compiling (DEFUN FILE-POSITION ...) ; compiling (DEFUN FILE-LENGTH ...) ; compiling (DEFUN CHARPOS ...) ; compiling (DEFUN LINE-LENGTH ...) ; compiling (DEFUN WAIT-FOR-INPUT-AVAILABLE ...) ; compiling (DEFUN SB-INT:FILE-NAME ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;IMPL.FASL.NEWEST written ; compilation finished in 0:00:10 WARNING: COMPILE-FILE warned while performing # on #. ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/direct.lisp" (written 14 JUL 2005 05:30:09 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEF-STREAM-CLASS DIRECT-SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS BUFFER-INPUT-SIMPLE-STREAM ...) ; compiling (DEF-STREAM-CLASS BUFFER-OUTPUT-SIMPLE-STREAM ...) ; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;DIRECT.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/null.lisp" (written 14 JUL 2005 05:30:09 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEF-STREAM-CLASS NULL-SIMPLE-STREAM ...) ; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...)) ; compiling (DEFUN NULL-READ-CHAR ...) ; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...)) ; compiling (DEFUN NULL-READ-CHARS ...) ; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...)) ; compiling (DEFUN NULL-UNREAD-CHAR ...) ; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...)) ; compiling (DEFUN NULL-WRITE-CHAR ...) ; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...)) ; compiling (DEFUN NULL-WRITE-CHARS ...) ; compiling (DECLAIM (FTYPE J-LISTEN-FN ...)) ; compiling (DEFUN NULL-LISTEN ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFMETHOD DEVICE-BUFFER-LENGTH ...) ; compiling (DEFMETHOD DEVICE-READ ...) ; compiling (DEFMETHOD DEVICE-WRITE ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;NULL.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/socket.lisp" (written 14 JUL 2005 05:30:09 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEF-STREAM-CLASS SOCKET-SIMPLE-STREAM ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEF-STREAM-CLASS SOCKET-BASE-SIMPLE-STREAM ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFMETHOD DEVICE-CLOSE ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFMETHOD DEVICE-WRITE ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;SOCKET.FASL.NEWEST written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/terminal.lisp" (written 14 JUL 2005 05:30:10 PM): ; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS") ; compiling (DEFVAR *TERMINAL-CONTROL-IN-TABLE* ...) ; compiling (DEF-STREAM-CLASS TERMINAL-SIMPLE-STREAM ...) ; compiling (DEFMETHOD DEVICE-OPEN ...) ; compiling (DEFMETHOD DEVICE-READ ...) ; compiling (DEFMETHOD DEVICE-CLEAR-INPUT ...) ; SYS:CONTRIB;SB-SIMPLE-STREAMS;TERMINAL.FASL.NEWEST written ; compilation finished in 0:00:01 STYLE-WARNING: redefining OPEN-STREAM-P (SIMPLE-STREAM) in DEFMETHOD STYLE-WARNING: redefining INPUT-STREAM-P (SIMPLE-STREAM) in DEFMETHOD STYLE-WARNING: redefining OUTPUT-STREAM-P (SIMPLE-STREAM) in DEFMETHOD STYLE-WARNING: redefining INTERACTIVE-STREAM-P in DEFUN STYLE-WARNING: redefining FILE-STRING-LENGTH in DEFUN STYLE-WARNING: redefining STREAM-EXTERNAL-FORMAT in DEFUN STYLE-WARNING: redefining OPEN in DEFUN STYLE-WARNING: redefining READ-BYTE in DEFUN STYLE-WARNING: redefining READ-CHAR in DEFUN STYLE-WARNING: redefining READ-CHAR-NO-HANG in DEFUN STYLE-WARNING: redefining UNREAD-CHAR in DEFUN STYLE-WARNING: redefining PEEK-CHAR in DEFUN STYLE-WARNING: redefining LISTEN in DEFUN STYLE-WARNING: redefining READ-LINE in DEFUN STYLE-WARNING: redefining READ-SEQUENCE in DEFUN STYLE-WARNING: redefining CLEAR-INPUT in DEFUN STYLE-WARNING: redefining WRITE-BYTE in DEFUN STYLE-WARNING: redefining WRITE-CHAR in DEFUN STYLE-WARNING: redefining WRITE-STRING in DEFUN STYLE-WARNING: redefining WRITE-LINE in DEFUN STYLE-WARNING: redefining WRITE-SEQUENCE in DEFUN STYLE-WARNING: redefining TERPRI in DEFUN STYLE-WARNING: redefining FRESH-LINE in DEFUN STYLE-WARNING: redefining FINISH-OUTPUT in DEFUN STYLE-WARNING: redefining FORCE-OUTPUT in DEFUN STYLE-WARNING: redefining CLEAR-OUTPUT in DEFUN STYLE-WARNING: redefining FILE-POSITION in DEFUN STYLE-WARNING: redefining FILE-LENGTH in DEFUN STYLE-WARNING: redefining CHARPOS in DEFUN STYLE-WARNING: redefining LINE-LENGTH in DEFUN STYLE-WARNING: redefining SB-INT:FILE-NAME in DEFUN STYLE-WARNING: redefining NULL-READ-CHAR in DEFUN STYLE-WARNING: redefining NULL-READ-CHARS in DEFUN STYLE-WARNING: redefining NULL-UNREAD-CHAR in DEFUN STYLE-WARNING: redefining NULL-WRITE-CHAR in DEFUN STYLE-WARNING: redefining NULL-WRITE-CHARS in DEFUN STYLE-WARNING: redefining NULL-LISTEN in DEFUN ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/internal.lisp ; in: DEFUN SB-SIMPLE-STREAMS:READ-OCTETS ; (SB-SIMPLE-STREAMS::%READ-VECTOR SB-SIMPLE-STREAMS::BUFFER ; SB-SIMPLE-STREAMS::FD SB-SIMPLE-STREAMS::START SB-SIMPLE-STREAMS::END ; :BYTE-8 (IF SB-SIMPLE-STREAMS::BLOCKING :BNB NIL)) ; ; caught STYLE-WARNING: ; undefined function: SB-SIMPLE-STREAMS::%READ-VECTOR ; ; caught STYLE-WARNING: ; This function is undefined: ; SB-SIMPLE-STREAMS::%READ-VECTOR ; ; compilation unit finished ; caught 6 STYLE-WARNING conditions ; printed 5 notes ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/sb-simple-streams.lisp" (written 29 DEC 2006 10:28:02 PM): ; compiling (UNLESS (MEMBER "ASDF" ...) ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/sb-simple-streams.fasl written ; compilation finished in 0:00:00 echo "(asdf:operate (quote asdf:load-op) :sb-simple-streams)" \ "(asdf:operate (quote asdf:test-op) :sb-simple-streams)" | \ /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")' * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/sb-simple-streams.asd ; into # ; registering # as SB-SIMPLE-STREAMS ; registering # as ; SB-SIMPLE-STREAMS-TESTS ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/sb-posix.asd ; into # ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/sb-grovel.asd ; into # ; registering # as SB-GROVEL ; registering # as SB-POSIX ; registering # as SB-POSIX-TESTS ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets/sb-bsd-sockets.asd ; into # ; registering # as SB-BSD-SOCKETS ; registering # as SB-BSD-SOCKETS-TESTS STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for SIGINFO (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_NOFOLLOW (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECTORY (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler). STYLE-WARNING: redefining OPEN-STREAM-P (SIMPLE-STREAM) in DEFMETHOD STYLE-WARNING: redefining INPUT-STREAM-P (SIMPLE-STREAM) in DEFMETHOD STYLE-WARNING: redefining OUTPUT-STREAM-P (SIMPLE-STREAM) in DEFMETHOD STYLE-WARNING: redefining INTERACTIVE-STREAM-P in DEFUN STYLE-WARNING: redefining FILE-STRING-LENGTH in DEFUN STYLE-WARNING: redefining STREAM-EXTERNAL-FORMAT in DEFUN STYLE-WARNING: redefining OPEN in DEFUN STYLE-WARNING: redefining READ-BYTE in DEFUN STYLE-WARNING: redefining READ-CHAR in DEFUN STYLE-WARNING: redefining READ-CHAR-NO-HANG in DEFUN STYLE-WARNING: redefining UNREAD-CHAR in DEFUN STYLE-WARNING: redefining PEEK-CHAR in DEFUN STYLE-WARNING: redefining LISTEN in DEFUN STYLE-WARNING: redefining READ-LINE in DEFUN STYLE-WARNING: redefining READ-SEQUENCE in DEFUN STYLE-WARNING: redefining CLEAR-INPUT in DEFUN STYLE-WARNING: redefining WRITE-BYTE in DEFUN STYLE-WARNING: redefining WRITE-CHAR in DEFUN STYLE-WARNING: redefining WRITE-STRING in DEFUN STYLE-WARNING: redefining WRITE-LINE in DEFUN STYLE-WARNING: redefining WRITE-SEQUENCE in DEFUN STYLE-WARNING: redefining TERPRI in DEFUN STYLE-WARNING: redefining FRESH-LINE in DEFUN STYLE-WARNING: redefining FINISH-OUTPUT in DEFUN STYLE-WARNING: redefining FORCE-OUTPUT in DEFUN STYLE-WARNING: redefining CLEAR-OUTPUT in DEFUN STYLE-WARNING: redefining FILE-POSITION in DEFUN STYLE-WARNING: redefining FILE-LENGTH in DEFUN STYLE-WARNING: redefining CHARPOS in DEFUN STYLE-WARNING: redefining LINE-LENGTH in DEFUN STYLE-WARNING: redefining SB-INT:FILE-NAME in DEFUN STYLE-WARNING: redefining NULL-READ-CHAR in DEFUN STYLE-WARNING: redefining NULL-READ-CHARS in DEFUN STYLE-WARNING: redefining NULL-UNREAD-CHAR in DEFUN STYLE-WARNING: redefining NULL-WRITE-CHAR in DEFUN STYLE-WARNING: redefining NULL-WRITE-CHARS in DEFUN STYLE-WARNING: redefining NULL-LISTEN in DEFUN NIL * ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt/sb-rt.asd into ; # ; registering # as SB-RT ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/simple-stream-tests.lisp" (written 07 DEC 2005 03:57:22 PM): ; compiling (DEFPACKAGE SB-SIMPLE-STREAMS-TEST ...) ; compiling (IN-PACKAGE #:SB-SIMPLE-STREAMS-TEST) ; compiling (DEFPARAMETER *DUMB-STRING* ...) ; compiling (DEFPARAMETER *TEST-PATH* ...) ; compiling (DEFPARAMETER *TEST-FILE* ...) ; compiling (ENSURE-DIRECTORIES-EXIST *TEST-PATH* ...) ; compiling (DEFUN REMOVE-KEY ...) ; compiling (DEFUN CREATE-TEST-FILE ...) ; compiling (DEFUN REMOVE-TEST-FILE ...) ; compiling (DEFMACRO WITH-TEST-FILE ...) ; compiling (DEFTEST CREATE-FILE-1 ...) ; compiling (DEFTEST CREATE-FILE-2 ...) ; compiling (DEFTEST CREATE-READ-FILE-1 ...) ; compiling (DEFTEST CREATE-READ-MAPPED-FILE-1 ...) ; compiling (DEFTEST WRITE-READ-INET ...) ; compiling (DEFTEST WRITE-READ-LARGE-SC-1 ...) ; compiling (DEFTEST WRITE-READ-LARGE-SC-2 ...) ; compiling (DEFTEST WRITE-READ-LARGE-SC-3 ...) ; compiling (DEFTEST WRITE-READ-LARGE-DC-1 ...) ; compiling (DEFTEST FILE-POSITION-1 ...) ; compiling (DEFTEST FILE-POSITION-2 ...) ; compiling (DEFTEST FILE-POSITION-3 ...) ; compiling (DEFTEST FILE-POSITION-4 ...) ; compiling (DEFTEST FILE-POSITION-5 ...) ; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-1 ...) ; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-2 ...) ; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-3 ...) ; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-4 ...) ; compiling (DEFTEST WRITE-READ-APPEND-SC-1 ...) ; compiling (DEFTEST WRITE-READ-MIXED-SC-1 ...) ; compiling (DEFPARAMETER *MULTI-LINE-STRING* ...) ; compiling (DEFMACRO WITH-DC-TEST-STREAM ...) ; compiling (DEFMACRO WITH-SC-TEST-STREAM ...) ; compiling (DEFTEST LISTEN-DC-1 ...) ; compiling (DEFTEST LISTEN-DC-2 ...) ; compiling (DEFTEST LISTEN-DC-3 ...) ; compiling (DEFTEST CHARPOS-1 ...) ; compiling (DEFTEST CHARPOS-2 ...) ; compiling (DEFTEST READER-1 ...) ; compiling (DEFTEST LINE-LENGTH-DC-1 ...) ; compiling (DEFVAR *SYNONYM*) ; compiling (DEFTEST SYNONYM-STREAM-1 ...) ; compiling (DEFTEST SYNONYM-STREAM-2 ...) ; compiling (DEFTEST SYNONYM-STREAM-3 ...) ; compiling (DEFTEST SYNONYM-STREAM-4 ...) ; compiling (DEFTEST SYNONYM-STREAM-5 ...) ; compiling (DEFTEST SYNONYM-STREAM-6 ...) ; compiling (DEFTEST SYNONYM-STREAM-7 ...) ; compiling (DEFTEST SYNONYM-STREAM-8 ...) ; compiling (DEFTEST SYNONYM-STREAM-9 ...) ; compiling (DEFTEST SYNONYM-STREAM-10 ...) ; compiling (DEFTEST SYNONYM-STREAM-11 ...) ; compiling (DEFTEST SYNONYM-STREAM-12 ...) ; compiling (DEFTEST SYNONYM-STREAM-13 ...) ; compiling (DEFTEST SYNONYM-STREAM-14 ...) ; compiling (DEFTEST SYNONYM-STREAM-15 ...) ; compiling (DEFTEST SYNONYM-STREAM-16 ...) ; compiling (DEFTEST BROADCAST-STREAM-4 ...) ; compiling (DEFTEST BROADCAST-STREAM-5 ...) ; compiling (DEFTEST BROADCAST-STREAM-6 ...) ; compiling (DEFTEST BROADCAST-STREAM-9 ...) ; compiling (DEFTEST BROADCAST-STREAM-10 ...) ; compiling (DEFTEST BROADCAST-STREAM-11 ...) ; compiling (DEFTEST BROADCAST-STREAM-12 ...) ; compiling (DEFTEST BROADCAST-STREAM-13 ...) ; compiling (DEFTEST BROADCAST-STREAM-14 ...) ; compiling (DEFTEST BROADCAST-STREAM-16 ...) ; compiling (DEFTEST TWO-WAY-STREAM-1 ...) ; compiling (DEFTEST TWO-WAY-STREAM-2 ...) ; compiling (DEFTEST TWO-WAY-STREAM-3 ...) ; compiling (DEFTEST TWO-WAY-STREAM-4 ...) ; compiling (DEFTEST TWO-WAY-STREAM-5 ...) ; compiling (DEFTEST TWO-WAY-STREAM-6 ...) ; compiling (DEFTEST TWO-WAY-STREAM-7 ...) ; compiling (DEFTEST TWO-WAY-STREAM-8 ...) ; compiling (DEFTEST TWO-WAY-STREAM-9 ...) ; compiling (DEFTEST TWO-WAY-STREAM-10 ...) ; compiling (DEFTEST TWO-WAY-STREAM-11 ...) ; compiling (DEFTEST TWO-WAY-STREAM-12 ...) ; compiling (DEFTEST TWO-WAY-STREAM-13 ...) ; compiling (DEFTEST TWO-WAY-STREAM-14 ...) ; compiling (DEFTEST TWO-WAY-STREAM-16 ...) ; compiling (DEFTEST ECHO-STREAM-1 ...) ; compiling (DEFTEST ECHO-STREAM-2 ...) ; compiling (DEFTEST ECHO-STREAM-3 ...) ; compiling (DEFTEST ECHO-STREAM-7 ...) ; compiling (DEFTEST ECHO-STREAM-8 ...) ; compiling (DEFTEST ECHO-STREAM-11 ...) ; compiling (DEFTEST ECHO-STREAM-12 ...) ; compiling (DEFTEST ECHO-STREAM-13 ...) ; compiling (DEFTEST ECHO-STREAM-14 ...) ; compiling (DEFTEST ECHO-STREAM-16 ...) ; compiling (DEFTEST CONCATENATED-STREAM-1 ...) ; compiling (DEFTEST CONCATENATED-STREAM-2 ...) ; compiling (DEFTEST CONCATENATED-STREAM-3 ...) ; compiling (DEFTEST CONCATENATED-STREAM-7 ...) ; compiling (DEFTEST CONCATENATED-STREAM-8 ...) ; compiling (DEFTEST CONCATENATED-STREAM-11 ...) ; compiling (DEFTEST CONCATENATED-STREAM-12 ...) ; compiling (DEFTEST CONCATENATED-STREAM-13 ...) ; compiling (DEFTEST CONCATENATED-STREAM-14 ...) ; compiling (DEFTEST CONCATENATED-STREAM-16 ...) ; compiling (DEFTEST FILE-SIMPLE-STREAM-1 ...) ; compiling (DEFTEST STRING-SIMPLE-STREAM-1 ...) ; compiling (DEFTEST EXTERNAL-FORMAT-1 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams/simple-stream-tests.fasl written ; compilation finished in 0:00:00 Doing 91 pending tests of 91 tests total. SB-SIMPLE-STREAMS-TEST::CREATE-FILE-1 SB-SIMPLE-STREAMS-TEST::CREATE-FILE-2 SB-SIMPLE-STREAMS-TEST::CREATE-READ-FILE-1 SB-SIMPLE-STREAMS-TEST::CREATE-READ-MAPPED-FILE-1 SB-SIMPLE-STREAMS-TEST::WRITE-READ-INET SB-SIMPLE-STREAMS-TEST::WRITE-READ-LARGE-SC-1 SB-SIMPLE-STREAMS-TEST::WRITE-READ-LARGE-SC-2 SB-SIMPLE-STREAMS-TEST::WRITE-READ-LARGE-SC-3 SB-SIMPLE-STREAMS-TEST::WRITE-READ-LARGE-DC-1 SB-SIMPLE-STREAMS-TEST::FILE-POSITION-1 SB-SIMPLE-STREAMS-TEST::FILE-POSITION-2 SB-SIMPLE-STREAMS-TEST::FILE-POSITION-3 SB-SIMPLE-STREAMS-TEST::FILE-POSITION-4 SB-SIMPLE-STREAMS-TEST::FILE-POSITION-5 SB-SIMPLE-STREAMS-TEST::WRITE-READ-UNFLUSHED-SC-1 SB-SIMPLE-STREAMS-TEST::WRITE-READ-UNFLUSHED-SC-2 SB-SIMPLE-STREAMS-TEST::WRITE-READ-UNFLUSHED-SC-3 SB-SIMPLE-STREAMS-TEST::WRITE-READ-UNFLUSHED-SC-4 SB-SIMPLE-STREAMS-TEST::WRITE-READ-APPEND-SC-1 SB-SIMPLE-STREAMS-TEST::WRITE-READ-MIXED-SC-1 SB-SIMPLE-STREAMS-TEST::LISTEN-DC-1 SB-SIMPLE-STREAMS-TEST::LISTEN-DC-2 SB-SIMPLE-STREAMS-TEST::LISTEN-DC-3 SB-SIMPLE-STREAMS-TEST::CHARPOS-1 SB-SIMPLE-STREAMS-TEST::CHARPOS-2 SB-SIMPLE-STREAMS-TEST::READER-1 SB-SIMPLE-STREAMS-TEST::LINE-LENGTH-DC-1 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-1 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-2 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-3 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-4 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-5 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-6 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-7 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-8 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-9 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-10 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-11 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-12 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-13 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-14 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-15 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-16 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-4 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-5 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-6 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-9 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-10 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-11 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-12 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-13 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-14 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-16 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-1 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-2 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-3 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-4 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-5 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-6 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-7 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-8 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-9 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-10 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-11 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-12 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-13 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-14 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-16 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-1 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-2 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-3 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-7 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-8 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-11 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-12 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-13 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-14 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-16 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-1 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-2 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-3 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-7 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-8 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-11 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-12 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-13 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-14 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-16 SB-SIMPLE-STREAMS-TEST::FILE-SIMPLE-STREAM-1 SB-SIMPLE-STREAMS-TEST::STRING-SIMPLE-STREAM-1 SB-SIMPLE-STREAMS-TEST::EXTERNAL-FORMAT-1 No tests failed. NIL * make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-sprof' /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/src/runtime/sbcl --noinform --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-sprof" "sb-sprof"))' NODE*) ; compiling (DEFMACRO WITH-LOOKUP-TABLES ...) ; compiling (DEFUN LOOKUP-NODE ...) ; compiling (DEFUN COLLECT-NODES ...) ; compiling (DEFUN MAKE-CALL-GRAPH-1 ...) ; compiling (DEFUN REDUCE-CALL-GRAPH ...) ; compiling (DEFUN COMPUTE-ACCRUED-COUNTS ...) ; compiling (DEFUN MAKE-CALL-GRAPH ...) ; compiling (DEFUN PRINT-SEPARATOR ...) ; compiling (DEFUN SAMPLES-PERCENT ...) ; compiling (DEFUN PRINT-CALL-GRAPH-HEADER ...) ; compiling (DEFUN PRINT-FLAT ...) ; compiling (DEFUN PRINT-CYCLES ...) ; compiling (DEFUN PRINT-GRAPH ...) ; compiling (DEFUN REPORT ...) ; compiling (DEFUN SAMPLE-PC-FROM-PC-OR-OFFSET ...) ; compiling (DEFUN ADD-DISASSEMBLY-PROFILE-NOTE ...) ; compiling (PUSHNEW (QUOTE ADD-DISASSEMBLY-PROFILE-NOTE) ...) ; compiling (DEFUN TEST-0 ...) ; compiling (DEFUN TEST ...) ; compiling (PROVIDE (QUOTE SB-SPROF)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-sprof/sb-sprof.lisp ; in: DEFSTRUCT SAMPLES ; (DEFSTRUCT (SB-SPROF::SAMPLES) ; (VECTOR (MAKE-ARRAY (* SB-SPROF:*MAX-SAMPLES* 10 2)) :TYPE SIMPLE-VECTOR) ; (SB-SPROF::TRACE-COUNT 0 :TYPE SB-INT:INDEX) ; (SB-SPROF::INDEX 0 :TYPE SB-INT:INDEX) ; (SB-SPROF::MODE NIL :TYPE (MEMBER :CPU :ALLOC)) ; (SB-SPROF::SAMPLE-INTERVAL SB-SPROF:*SAMPLE-INTERVAL* :TYPE NUMBER) ; (SB-SPROF::ALLOC-INTERVAL SB-SPROF:*ALLOC-INTERVAL* :TYPE NUMBER) ; (SB-SPROF::MAX-DEPTH MOST-POSITIVE-FIXNUM :TYPE NUMBER) ; (SB-SPROF::MAX-SAMPLES SB-SPROF:*MAX-SAMPLES* :TYPE SB-INT:INDEX)) ; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; ==> ; (IF #:N-SUPPLIED-988 #:G954-DEFAULTING-TEMP SB-SPROF:*ALLOC-INTERVAL*) ; ; caught WARNING: ; undefined variable: *ALLOC-INTERVAL* ; ==> ; (IF #:N-SUPPLIED-989 #:G956-DEFAULTING-TEMP SB-SPROF:*MAX-SAMPLES*) ; ; caught WARNING: ; undefined variable: *MAX-SAMPLES* ; ==> ; (IF #:N-SUPPLIED-987 #:G953-DEFAULTING-TEMP SB-SPROF:*SAMPLE-INTERVAL*) ; ; caught WARNING: ; undefined variable: *SAMPLE-INTERVAL* ; ; caught WARNING: ; These variables are undefined: ; *ALLOC-INTERVAL* *MAX-SAMPLES* *SAMPLE-INTERVAL* ; ; compilation unit finished ; caught 4 WARNING conditions ; SYS:CONTRIB;SB-SPROF;SB-SPROF.FASL.NEWEST written ; compilation finished in 0:00:02 * true make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-sprof' real 1m41.666s user 1m6.605s sys 0m3.356s The build seems to have finished successfully, including 14 (out of 14) contributed modules. If you would like to run more extensive tests on the new SBCL, you can try: cd tests && sh ./run-tests.sh (All tests should pass on x86/Linux, x86/FreeBSD4, and ppc/Darwin. On other platforms some failures are currently expected; patches welcome as always.) To build documentation: cd doc/manual && make To install SBCL (more information in INSTALL): sh install.sh //build started: Fri Dec 29 22:09:41 GMT 2006 //build finished: Fri Dec 29 22:28:11 GMT 2006 + exit 0 Executing(%install): /bin/sh -e /var/tmp/rpm-tmp.6683 + umask 022 + cd /home/dwmw2/working/extras/sbcl/devel + cd sbcl-1.0.1 + LANG=C + export LANG + unset DISPLAY + rm -rf /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2 + mkdir -p /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/bin /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/share/man + unset SBCL_HOME + export INSTALL_ROOT=/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr + INSTALL_ROOT=/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr + export LIB_DIR=/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib + LIB_DIR=/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib + /bin/bash ./install.sh make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' cp asdf.fasl "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/asdf" make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf-install' tar cf - . | ( cd "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/asdf-install" && tar xpvf - ) ./ ./defpackage.lisp ./README ./installer.fasl ./asdf-install.asd ./asdf-install.fasl ./defpackage.fasl ./.cvsignore ./test-passed ./installer.lisp ./CVS/ ./CVS/Repository ./CVS/Entries ./CVS/Root ./Makefile make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/asdf-install' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl' tar cf - . | ( cd "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-aclrepl" && tar xpvf - ) ./ ./README ./repl.fasl ./toplevel.lisp ./repl.lisp ./sb-aclrepl.fasl ./debug.fasl ./sb-aclrepl.texinfo ./tests.lisp ./inspect.fasl ./tests.fasl ./.cvsignore ./inspect.lisp ./test-passed ./debug.lisp ./sb-aclrepl.asd ./CVS/ ./CVS/Repository ./CVS/Entries ./CVS/Root ./Makefile ./toplevel.fasl make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-aclrepl' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets' tar cf - . | ( cd "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-bsd-sockets" && tar xpvf - ) ./ ./split.lisp ./defpackage.lisp ./sb-bsd-sockets.texinfo ./constants.lisp ./NEWS ./local.lisp ./local.fasl ./sockets.lisp ./split.fasl ./constants.fasl ./a.out ./misc.lisp ./tests.lisp ./foo.c ./win32-lib.lisp ./inet.lisp ./sockets.fasl ./name-service.lisp ./win32-constants.lisp ./tests.fasl ./misc.fasl ./constants.lisp-temp ./defpackage.fasl ./FAQ ./.cvsignore ./TODO ./sb-bsd-sockets.fasl ./doc.lisp ./win32-sockets.lisp ./inet.fasl ./test-passed ./sockopt.lisp ./sockopt.fasl ./sb-bsd-sockets.asd ./CVS/ ./CVS/Repository ./CVS/Entries ./CVS/Root ./Makefile ./name-service.fasl make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-bsd-sockets' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2' tar cf - . | ( cd "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-cltl2" && tar xpvf - ) ./ ./defpackage.lisp ./sb-cltl2.asd ./macroexpand.fasl ./sb-cltl2.fasl ./compiler-let.fasl ./macroexpand.lisp ./compiler-let.lisp ./env.fasl ./env.lisp ./tests.lisp ./tests.fasl ./defpackage.fasl ./.cvsignore ./test-passed ./CVS/ ./CVS/Repository ./CVS/Entries ./CVS/Root ./Makefile make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-cltl2' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-executable' cp sb-executable.fasl "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-executable" make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-executable' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel' tar cf - . | ( cd "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-grovel" && tar xpvf - ) ./ ./def-to-lisp.lisp ./defpackage.lisp ./foreign-glue.lisp ./sb-grovel.texinfo ./example-constants.lisp ./def-to-lisp.fasl ./foreign-glue.fasl ./defpackage.fasl ./.cvsignore ./test-passed ./sb-grovel.asd ./CVS/ ./CVS/Repository ./CVS/Entries ./CVS/Root ./sb-grovel.fasl ./Makefile make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-introspect' cp sb-introspect.fasl "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-introspect" make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-introspect' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5' tar cf - . | ( cd "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-md5" && tar xpvf - ) ./ ./README ./sb-md5.asd ./sb-md5.fasl ./md5-tests.fasl ./.cvsignore ./md5.lisp ./test-passed ./md5-tests.lisp ./sb-md5.texinfo ./CVS/ ./CVS/Repository ./CVS/Entries ./CVS/Root ./Makefile ./md5.fasl make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-md5' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix' tar cf - . | ( cd "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-posix" && tar xpvf - ) ./ ./defpackage.lisp ./README ./constants.lisp ./posix-tests.lisp ./constants.fasl ./a.out ./sb-posix.fasl ./macros.lisp ./sb-posix.asd ./foo.c ./interface.fasl ./constants.lisp-temp ./defpackage.fasl ./.cvsignore ./TODO ./interface.lisp ./test-lab/ ./test-passed ./macros.fasl ./designator.lisp ./CVS/ ./CVS/Repository ./CVS/Entries ./CVS/Root ./posix-tests.fasl ./Makefile ./designator.fasl make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte' tar cf - . | ( cd "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-rotate-byte" && tar xpvf - ) ./ ./README ./sb-rotate-byte.fasl ./rotate-byte-tests.lisp ./ppc-vm.lisp ./rotate-byte.lisp ./x86-vm.lisp ./compiler.fasl ./compiler.lisp ./rotate-byte-tests.fasl ./package.fasl ./rotate-byte.fasl ./package.lisp ./sb-rotate-byte.asd ./.cvsignore ./ppc-vm.fasl ./test-passed ./CVS/ ./CVS/Repository ./CVS/Entries ./CVS/Root ./Makefile ./sb-rotate-byte.texinfo make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rotate-byte' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt' tar cf - . | ( cd "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-rt" && tar xpvf - ) ./ ./sb-rt.asd ./rt.lisp ./rt.fasl ./.cvsignore ./sb-rt.fasl ./test-passed ./CVS/ ./CVS/Repository ./CVS/Entries ./CVS/Root ./Makefile make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-rt' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams' tar cf - . | ( cd "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-simple-streams" && tar xpvf - ) ./ ./impl.fasl ./iodefs.lisp ./README ./classes.fasl ./terminal.fasl ./simple-stream-tests.lisp ./string.lisp ./null.lisp ./terminal.lisp ./package.fasl ./package.lisp ./direct.lisp ./iodefs.fasl ./strategy.fasl ./string.fasl ./null.fasl ./file.fasl ./fndb.fasl ./simple-stream-tests.fasl ./.cvsignore ./TODO ./sb-simple-streams.fasl ./classes.lisp ./internal.fasl ./fndb.lisp ./internal.lisp ./test-passed ./impl.lisp ./socket.fasl ./sb-simple-streams.asd ./socket.lisp ./test-data.tmp ./strategy.lisp ./CVS/ ./CVS/Repository ./CVS/Entries ./CVS/Root ./sb-simple-streams.texinfo ./file.lisp ./Makefile ./direct.fasl make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-simple-streams' make[1]: Entering directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-sprof' cp sb-sprof.fasl "/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-sprof" make[1]: Leaving directory `/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-sprof' SBCL has been installed: binary /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/bin/sbcl core and contribs in /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl Documentation: man /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/share/man/man1/sbcl.1 cp: cannot stat `doc/manual/*.info': No such file or directory cp: cannot stat `doc/manual/*.info-*': No such file or directory cp: cannot stat `doc/manual/*.pdf': No such file or directory + rm -rf /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/share/doc/sbcl + rm -f /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/share/info/dir + find /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2 -name CVS -type d + xargs rm -rf + find /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2 -name .cvsignore + xargs rm -f + find /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2 -name test-passed + xargs rm -vf removed `/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-rotate-byte/test-passed' removed `/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-bsd-sockets/test-passed' removed `/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/asdf-install/test-passed' removed `/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-md5/test-passed' removed `/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-simple-streams/test-passed' removed `/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-posix/test-passed' removed `/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-grovel/test-passed' removed `/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-rt/test-passed' removed `/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-aclrepl/test-passed' removed `/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-cltl2/test-passed' + /usr/lib/rpm/find-debuginfo.sh /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1 extracting debug info from /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/bin/sbcl extracting debug info from /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-bsd-sockets/a.out extracting debug info from /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-posix/a.out cpio: sbcl-1.0.1/src/runtime/: No such file or directory 1470 blocks + /usr/lib/rpm/redhat/brp-compress + /usr/lib/rpm/redhat/brp-strip-static-archive /usr/bin/strip + /usr/lib/rpm/redhat/brp-strip-comment-note /usr/bin/strip /usr/bin/objdump + /usr/lib/rpm/brp-python-bytecompile + /usr/lib/rpm/redhat/brp-java-repack-jars Executing(%check): /bin/sh -e /var/tmp/rpm-tmp.96799 + umask 022 + cd /home/dwmw2/working/extras/sbcl/devel + cd sbcl-1.0.1 + ERROR=0 + CONTRIBS='sb-posix sb-bsd-sockets' + for CONTRIB in '$CONTRIBS' + '[' '!' -d /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-posix ']' + for CONTRIB in '$CONTRIBS' + '[' '!' -d /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/lib/sbcl/sb-bsd-sockets ']' + pushd tests ~/working/extras/sbcl/devel/sbcl-1.0.1/tests ~/working/extras/sbcl/devel/sbcl-1.0.1 + /bin/bash ./run-tests.sh /running tests on SBCL='/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/../src/runtime/sbcl --core /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/../output/sbcl.core --noinform --sysinit /dev/null --userinit /dev/null --noprint --disable-debugger' /with SBCL_ALLOWING_CORE='/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/../src/runtime/sbcl' ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-posix/sb-posix.asd ; into # ; loading system definition from ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/contrib/sb-grovel/sb-grovel.asd ; into # ; registering # as SB-GROVEL ; registering # as SB-POSIX ; registering # as SB-POSIX-TESTS STYLE-WARNING: Couldn't grovel for SIGEMT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for SIGINFO (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_NOFOLLOW (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECTORY (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler). STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler). // Running pure tests (#) // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/arith.pure.lisp ; in: LAMBDA NIL ; (GO #:G1554) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (+ 4 2) 6) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1556) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (+ 2 4) 6) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1562) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (- 4 2) 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1564) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (- 2 4) -2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1570) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (* 4 2) 8) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1572) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (* 2 4) 8) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1578) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (/ 4 2) 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1580) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (/ 2 4) 1/2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1586) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (EXPT 4 2) 16) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1588) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (EXPT 2 4) 16) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (/ 2/3 0) ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; arithmetic error DIVISION-BY-ZERO signalled ; Operation was SB-KERNEL::BUILD-RATIO, operands (1 0). ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (/ (1+ MOST-POSITIVE-FIXNUM) 0) ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; arithmetic error DIVISION-BY-ZERO signalled ; Operation was SB-KERNEL::BUILD-RATIO, operands (1 0). ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (GO #:G1598) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (COERCE 1 '(COMPLEX FLOAT)) #C(1.0 0.0)) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1600) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (COERCE 1/2 '(COMPLEX FLOAT)) #C(0.5 0.0)) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1602) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (COERCE 1.0d0 '(COMPLEX FLOAT)) #C(1.0d0 0.0d0)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1604) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (COERCE #C(1 2) '(COMPLEX FLOAT)) #C(1.0 2.0)) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (COERCE 1 '(FLOAT 2.0 3.0)) ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; 1 can't be converted to type (FLOAT 2.0 3.0). ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (COERCE 1 '(SINGLE-FLOAT -1.0 0.0)) ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; 1 can't be converted to type (SINGLE-FLOAT -1.0 0.0). ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (GO #:G1610) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQL (COERCE 1 '(SINGLE-FLOAT -1.0 2.0)) 1.0) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1612) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NULL (IGNORE-ERRORS (MIN '#))) 'NIL NIL)) ; ; note: deleting unreachable code ; (MIN '(1 2 3)) ; --> LET VALUES PROG1 LET ; ==> ; (THE REAL #:ONCE-ONLY-3) ; ; caught WARNING: ; Asserted type REAL conflicts with derived type (VALUES CONS &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1614) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (MIN -1) -1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1616) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NULL (IGNORE-ERRORS (MIN 1 #))) 'NIL NIL)) ; ; note: deleting unreachable code ; (MIN 1 #(1 2 3)) ; --> LET LET MIN LET VALUES PROG1 LET ; ==> ; (THE REAL #:ONCE-ONLY-4) ; ; caught WARNING: ; Asserted type REAL conflicts with derived type ; (VALUES (SIMPLE-VECTOR 3) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1618) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (MIN 10 11) 10) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1620) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NULL (IGNORE-ERRORS (MIN # -5.0))) 'NIL NIL)) ; ; note: deleting unreachable code ; (MIN (FIND-PACKAGE "CL") -5.0) ; --> LET LET IF <= IF ; ==> ; (> #:ONCE-ONLY-3 SB-C::MINREST) ; ; caught WARNING: ; Asserted type REAL conflicts with derived type ; (VALUES (OR PACKAGE NULL) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1622) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (MIN 5.0 -3) -3) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1624) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NULL (IGNORE-ERRORS (MAX #C(4 3)))) 'NIL NIL)) ; ; note: deleting unreachable code ; (MAX #C(4 3)) ; --> LET VALUES PROG1 LET ; ==> ; (THE REAL #:ONCE-ONLY-3) ; ; caught WARNING: ; Asserted type REAL conflicts with derived type ; (VALUES (COMPLEX (INTEGER 3 4)) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1626) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (MAX 0) 0) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1628) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NULL (IGNORE-ERRORS (MAX "MIX" 3))) 'NIL NIL)) ; ; note: deleting unreachable code ; (MAX "MIX" 3) ; --> LET LET IF >= IF ; ==> ; (< #:ONCE-ONLY-3 SB-C::MAXREST) ; ; caught WARNING: ; Asserted type REAL conflicts with derived type ; (VALUES (SIMPLE-ARRAY CHARACTER (3)) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1630) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (MAX -1 10.0) 10.0) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1632) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NULL (IGNORE-ERRORS (MAX 3 #'MAX))) 'NIL NIL)) ; ; note: deleting unreachable code ; (MAX 3 #'MAX) ; --> LET LET MAX LET VALUES PROG1 LET ; ==> ; (THE REAL #:ONCE-ONLY-4) ; ; caught WARNING: ; Asserted type REAL conflicts with derived type ; (VALUES (FUNCTION (REAL &REST REAL) (VALUES REAL &OPTIONAL)) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1634) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (MAX -3 0) 0) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (CEILING MOST-NEGATIVE-FIXNUM (1+ MOST-POSITIVE-FIXNUM)) -1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (GO #:G1644) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (LCM 4 -10) 20) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1646) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (LCM 0 0) 0) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1653) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (* 966082078641 419216044685) 404997107848943140073085) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1655) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (ASH -129876 -1026) -1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1657) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (ASH (1- MOST-NEGATIVE-FIXNUM) (1- MOST-NEGATIVE-FIXNUM)) -1) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/array.pure.lisp ; ; caught WARNING: ; Too few arguments (0) to ERROR "error not thrown in FUNCALL COMPILE ~S": requires at least 1. ; See also: ; The ANSI Standard, Section 22.3.10.2 ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-ARRAY 11 :ELEMENT-TYPE 'CHARACTER) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF X 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-STRING 11 :INITIAL-ELEMENT #\ ) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF X 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-STRING 11 :INITIAL-ELEMENT #\*) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-STRING 11) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-STRING 11 :INITIAL-ELEMENT #\Nul) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-STRING 11 :INITIAL-ELEMENT #\x) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-ARRAY 11) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF X 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-ARRAY 11 :INITIAL-ELEMENT NIL) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-ARRAY 11 :INITIAL-ELEMENT 12) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-ARRAY 11 :ELEMENT-TYPE '(UNSIGNED-BYTE 4)) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF X 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-ARRAY 11 :ELEMENT-TYPE '(UNSIGNED-BYTE 4) :INITIAL-ELEMENT 12) 12) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (11)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (MOD 11) conflicts with derived type ; (VALUES (INTEGER 12 12) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (MAKE-ARRAY '(10 10) :ELEMENT-TYPE 'NIL) ; --> LET SETF LET* MULTIPLE-VALUE-BIND LET ; ==> ; (MAKE-ARRAY 100 :ELEMENT-TYPE SB-C::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUN) (WARN) (FAIL) &REST #:G1672) ; (DECLARE (IGNORE #:G1672)) ; (ASSERT (RAISES-ERROR? (FUNCALL FUN) TYPE-ERROR))) ; ; caught STYLE-WARNING: ; The variable WARN is defined but never used. ; ; caught STYLE-WARNING: ; The variable FAIL is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUN) (WARN) (FAIL) &REST #:G1673) ; (DECLARE (IGNORE #:G1673)) ; (ASSERT FAIL) ; (ASSERT (RAISES-ERROR? (FUNCALL FUN) TYPE-ERROR))) ; ; caught STYLE-WARNING: ; The variable WARN is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (AREF (MAKE-ARRAY 1) 1) ; --> LET* SB-KERNEL:%CHECK-BOUND ; ==> ; (THE (INTEGER 0 (1)) SB-INT:INDEX) ; ; caught WARNING: ; Asserted type (INTEGER 0 0) conflicts with derived type ; (VALUES (INTEGER 1 1) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUN) (WARN) (FAIL) &REST #:G1674) ; (DECLARE (IGNORE #:G1674)) ; (ASSERT WARN)) ; ; caught STYLE-WARNING: ; The variable FUN is defined but never used. ; ; caught STYLE-WARNING: ; The variable FAIL is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (MAKE-ARRAY 5 :ELEMENT-TYPE 'UNDEFINED-TYPE) ; ; caught STYLE-WARNING: ; undefined type: UNDEFINED-TYPE ; ; caught STYLE-WARNING: ; undefined type: UNDEFINED-TYPE ; ; caught STYLE-WARNING: ; This type is undefined: ; UNDEFINED-TYPE ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; in: LAMBDA NIL ; (LAMBDA (X Y) (LOGNOT X)) ; ==> ; #'(LAMBDA (X Y) (LOGNOT X)) ; ; caught STYLE-WARNING: ; The variable Y is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA (V) ; (BIT-AND V #*0) ; --> BIT-AND MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (V) ; (BIT-ANDC1 V #*0) ; --> BIT-ANDC1 MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (V) ; (BIT-ANDC2 V #*0) ; --> BIT-ANDC2 MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (V) ; (BIT-EQV V #*0) ; --> BIT-EQV MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (V) ; (BIT-IOR V #*0) ; --> BIT-IOR MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (V) ; (BIT-NAND V #*0) ; --> BIT-NAND MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (V) ; (BIT-NOR V #*0) ; --> BIT-NOR MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (V) ; (BIT-ORC1 V #*0) ; --> BIT-ORC1 MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (V) ; (BIT-ORC2 V #*0) ; --> BIT-ORC2 MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (V) ; (BIT-XOR V #*0) ; --> BIT-XOR MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (V) ; ((LAMBDA (X Y) (BIT-NOT X)) V #*0) ; ; caught STYLE-WARNING: ; The variable Y is defined but never used. ; (BIT-NOT X) ; --> BIT-NOT MAKE-ARRAY ; ==> ; (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ==> ; (BIT-NOT SB-C::BIT-ARRAY-1 ; (MAKE-ARRAY (ARRAY-DIMENSION SB-C::BIT-ARRAY-1 0) :ELEMENT-TYPE ; 'BIT)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a BIT-VECTOR, not a SIMPLE-BIT-VECTOR. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (ARRAY-HAS-FILL-POINTER-P ARRAY) ; --> BLOCK AND IF AND SB-KERNEL:%ARRAY-FILL-POINTER-P ; ==> ; ARRAY ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/character.pure.lisp ; in: LAMBDA NIL ; (GO #:G1688) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NULL (NAME-CHAR 'FOO)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos.pure.lisp NIL // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.pure.lisp ; in: LAMBDA NIL ; (TAGBODY TAG (FUN2) (GO TAG)) ; ; note: deleting unreachable code ; (FUN2) ; ; note: deleting unreachable code ; (TAGBODY TAG (FUN1) (GO TAG)) ; ; note: deleting unreachable code ; (FUN1) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 4 notes ; in: LAMBDA (X) ; (FROB (MRSTK X)) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; (DOLIST (Y STK) (UNLESS (REJECTED? Y) (RETURN-FROM USED-BY-SOME-Y? T))) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((Y (CAR #:N-LIST5))) ; (SETQ #:N-LIST5 (CDR #:N-LIST5)) ; (TAGBODY (UNLESS (REJECTED? Y) (RETURN-FROM USED-BY-SOME-Y? T)))) ; ; note: deleting unused function ; (LET ((Y (CAR "#<...>" . "#<...>"))) ; ) ; --> BLOCK ; ==> ; (LET ((#:N-LIST5 STK)) ; (TAGBODY ; #:START6 ; (UNLESS (ENDP #:N-LIST5) ; (LET (#) ; (SETQ #:N-LIST5 #) ; (TAGBODY #)) ; (GO #:START6)))) ; ; note: deleting unused function ; (LET ((#:N-LIST5 STK)) ; ) ; (FROB (MRSTK X)) ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE (FLET FROB)) ; (FROB (RSTK X)) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; (DOLIST (Y STK) (UNLESS (REJECTED? Y) (RETURN-FROM USED-BY-SOME-Y? T))) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((Y (CAR #:N-LIST7))) ; (SETQ #:N-LIST7 (CDR #:N-LIST7)) ; (TAGBODY (UNLESS (REJECTED? Y) (RETURN-FROM USED-BY-SOME-Y? T)))) ; ; note: deleting unused function ; (LET ((Y (CAR "#<...>" . "#<...>"))) ; ) ; --> BLOCK ; ==> ; (LET ((#:N-LIST7 STK)) ; (TAGBODY ; #:START8 ; (UNLESS (ENDP #:N-LIST7) ; (LET (#) ; (SETQ #:N-LIST7 #) ; (TAGBODY #)) ; (GO #:START8)))) ; ; note: deleting unused function ; (LET ((#:N-LIST7 STK)) ; ) ; (FROB (RSTK X)) ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE (FLET FROB)) ; in: LAMBDA (X) ; (MRSTK X) ; ; caught STYLE-WARNING: ; undefined function: MRSTK ; (REJECTED? Y) ; ; caught STYLE-WARNING: ; undefined function: REJECTED? ; (RSTK X) ; ; caught STYLE-WARNING: ; undefined function: RSTK ; ; caught STYLE-WARNING: ; These functions are undefined: ; MRSTK REJECTED? RSTK ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 8 notes ; in: LAMBDA NIL ; (GO #:G1695) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= 1 ; (LET (#) ; (DECLARE #) ; (LET # ; #))) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G1697) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= 1 ; (LET (#) ; (DECLARE #) ; (LET # ; #))) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LET (X (X 1)) ; (LIST X)) ; ; caught ERROR: ; The variable X occurs more than once in the lambda list. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA (N) ; (LET ((*X* N)) ; (FUNCALL (SYMBOL-FUNCTION 'X-GETTER)) ; (PRINT *X*)) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol *X*, not the ; dynamic binding, even though the symbol name follows the usual naming ; convention (names like *FOO*) for special variables ; ; compilation unit finished ; caught 1 STYLE-WARNING condition 1 1 3 5 7 9 11 ; in: LAMBDA NIL ; (LAMBDA (&REST) 12) ; ==> ; #'(LAMBDA (&REST) 12) ; ; caught ERROR: ; &REST without rest variable ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (SOME-UNDEFINED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SOME-UNDEFINED-FUNCTION ; ; caught STYLE-WARNING: ; This function is undefined: ; SOME-UNDEFINED-FUNCTION ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (LAMBDA ("foo") 12) ; ==> ; #'(LAMBDA ("foo") 12) ; ; caught ERROR: ; Required argument is not a symbol: "foo" ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LAMBDA (FOO) 12) ; ==> ; #'(LAMBDA (FOO) 12) ; ; caught STYLE-WARNING: ; The variable FOO is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LAMBDA (&OPTIONAL 12) "foo") ; ==> ; #'(LAMBDA (&OPTIONAL 12) "foo") ; ; caught ERROR: ; &OPTIONAL parameter is not a symbol or cons: 12 ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&OPTIONAL TWELVE) "foo") ; ==> ; #'(LAMBDA (&OPTIONAL TWELVE) "foo") ; ; caught STYLE-WARNING: ; The variable TWELVE is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LAMBDA (&OPTIONAL (12 12)) "foo") ; ==> ; #'(LAMBDA (&OPTIONAL (12 12)) "foo") ; ; caught ERROR: ; &OPTIONAL parameter name is not a symbol: 12 ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&OPTIONAL (TWELVE 12)) "foo") ; ==> ; #'(LAMBDA (&OPTIONAL (TWELVE 12)) "foo") ; ; caught STYLE-WARNING: ; The variable TWELVE is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LAMBDA (&KEY #\c) "foo") ; ==> ; #'(LAMBDA (&KEY #\c) "foo") ; ; caught ERROR: ; &KEY parameter is not a symbol or cons: #\c ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&KEY C) "foo") ; ==> ; #'(LAMBDA (&KEY C) "foo") ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LAMBDA (&KEY (#\c #\c)) "foo") ; ==> ; #'(LAMBDA (&KEY (#\c #\c)) "foo") ; ; caught ERROR: ; &KEY parameter name is not a symbol: #\c ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&KEY (C #\c)) "foo") ; ==> ; #'(LAMBDA (&KEY (C #\c)) "foo") ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LAMBDA (&KEY ((#\c #\c) #\c)) "foo") ; ==> ; #'(LAMBDA (&KEY ((#\c #\c) #\c)) "foo") ; ; caught ERROR: ; &KEY parameter name is not a symbol: #\c ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&KEY ((:C CBYANYOTHERNAME) #\c)) "foo") ; ==> ; #'(LAMBDA (&KEY ((:C CBYANYOTHERNAME) #\c)) "foo") ; ; caught STYLE-WARNING: ; The variable CBYANYOTHERNAME is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (GO #:G1735) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(LIST (COMPILE NIL '(LAMBDA # # X))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LAMBDA (X) (DECLARE (TYPE (0) X)) X) ; ; caught ERROR: ; bad thing to be a type specifier: (0) 13 fatal error, aborting compilation ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 1 ERROR condition ; in: LAMBDA (X) ; (LAMBDA (X) (MAKE-ARRAY 1 :ELEMENT-TYPE '(0))) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (MERGE 'FIXNUM NIL NIL #'<) ; ; caught STYLE-WARNING: ; The return value of MERGE should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (NREVERSE (LIST 1 2)) ; ; caught STYLE-WARNING: ; The return value of NREVERSE should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (NRECONC (LIST 1 2) (LIST 3 4)) ; ; caught STYLE-WARNING: ; The return value of NRECONC should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (SORT (LIST 1 2) #'<) ; --> BLOCK LET SB-IMPL::SEQ-DISPATCH IF LET ; ==> ; (SB-IMPL::STABLE-SORT-LIST SEQUENCE SB-IMPL::PREDICATE-FUN ; (IF SB-IMPL::KEY ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; SB-IMPL::KEY) ; #'IDENTITY)) ; ; caught STYLE-WARNING: ; The return value of STABLE-SORT-LIST should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (DELETE 2 (LIST 1 2)) ; ; caught STYLE-WARNING: ; The return value of DELETE should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (DELETE-IF #'EVENP (LIST 1 2)) ; ; caught STYLE-WARNING: ; The return value of DELETE-IF should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (DELETE-IF #'EVENP (VECTOR 1 2)) ; ; caught STYLE-WARNING: ; The return value of DELETE-IF should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (DELETE-IF-NOT #'EVENP (LIST 1 2)) ; ; caught STYLE-WARNING: ; The return value of DELETE-IF-NOT should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (DELETE-DUPLICATES (LIST 1 2)) ; ; caught STYLE-WARNING: ; The return value of DELETE-DUPLICATES should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (MERGE 'LIST (LIST 1 3) (LIST 2 4) #'<) ; ; caught STYLE-WARNING: ; The return value of MERGE should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (NRECONC (LIST 1 3) (LIST 2 4)) ; ; caught STYLE-WARNING: ; The return value of NRECONC should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (NUNION (LIST 1 3) (LIST 2 4)) ; ; caught STYLE-WARNING: ; The return value of NUNION should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (NINTERSECTION (LIST 1 3) (LIST 2 4)) ; ; caught STYLE-WARNING: ; The return value of NINTERSECTION should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (NSET-DIFFERENCE (LIST 1 3) (LIST 2 4)) ; ; caught STYLE-WARNING: ; The return value of NSET-DIFFERENCE should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (NSET-EXCLUSIVE-OR (LIST 1 3) (LIST 2 4)) ; ; caught STYLE-WARNING: ; The return value of NSET-EXCLUSIVE-OR should not be discarded. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (GO #:G1770) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(LIST (COMPILE NIL '(LAMBDA # #))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (SYMBOL-MACROLET ((S '(1 2))) ; (DECLARE (SPECIAL S)) ; S) ; ; caught ERROR: ; S is a symbol-macro and thus can't be declared special. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA (X) ; (LAMBDA (X) (DECLARE (FTYPE FUNCTION F)) (F X)) ; ; caught STYLE-WARNING: ; undefined function: F ; ; caught STYLE-WARNING: ; This function is undefined: ; F ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (PSETQ (CAR X) 3) ; ; caught ERROR: ; (in macroexpansion of (PSETQ # 3)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; variable (CAR X) in PSETQ is not a SYMBOL ; (LET ((X (LIST 1 2))) ; (PSETQ (CAR X) 3) ; X) ; ==> ; X ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 ERROR condition ; printed 1 note ; in: LAMBDA (A) ; (CAR A) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type LIST conflicts with derived type (VALUES ARRAY &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA (KEY TREE COLLECT-PATH-P) ; (KEY-EQUALP TREE) ; ; caught STYLE-WARNING: ; undefined function: KEY-EQUALP ; (KEY-LESSP TREE) ; ; caught STYLE-WARNING: ; undefined function: KEY-LESSP ; (LEFT-CHILD NODE) ; ; caught STYLE-WARNING: ; undefined function: LEFT-CHILD ; (NODE-KEY NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-KEY ; (RIGHT-CHILD NODE) ; ; caught STYLE-WARNING: ; undefined function: RIGHT-CHILD ; (ROOT-NODE TREE) ; ; caught STYLE-WARNING: ; undefined function: ROOT-NODE ; ; caught STYLE-WARNING: ; These functions are undefined: ; KEY-EQUALP KEY-LESSP LEFT-CHILD NODE-KEY RIGHT-CHILD ROOT-NODE ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; in: LAMBDA (&OPTIONAL *X*) ; (LAMBDA (&OPTIONAL *X*) *X*) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol *X*, not the ; dynamic binding, even though the symbol name follows the usual naming ; convention (names like *FOO*) for special variables ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA (&OPTIONAL *X* &REST Y) ; (LAMBDA (&OPTIONAL *X* &REST Y) (VALUES *X* Y)) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol *X*, not the ; dynamic binding, even though the symbol name follows the usual naming ; convention (names like *FOO*) for special variables ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (THE (VALUES &REST INTEGER) (EVAL '(VALUES 3))) ; ; note: type assertion too complex to check: ; (VALUES &REST INTEGER). ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (GO #:G1800) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(EQL ; (MACROLET (#) ; (MACROLET # ; #)) ; 1) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (HANDLER-CASE ; (COMPILE NIL ; `(LAMBDA ,NIL ; (MACROLET (# #) ; (BAR)))) ; (ERROR (C) (VALUES NIL T T))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((C #:G9)) ; (VALUES NIL T T)) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (THE (VALUES INTEGER SYMBOL) (VALUES 1 'FOO 13)) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: DEFMACRO #:FOO ; (RETURN-FROM #:FOO) ; ; caught ERROR: ; return for unknown block: #:FOO ; (DEFMACRO #:FOO (&OPTIONAL (X (RETURN-FROM #:FOO)))) ; --> EVAL-WHEN SB-C::%DEFMACRO FUNCTION LET* ; ==> ; (LET* ((X (IF #:SUPPLIEDP-3 (CAR #) (RETURN-FROM #:FOO)))) ; (BLOCK #:FOO)) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 STYLE-WARNING condition ; in: DEFINE-COMPILER-MACRO #:FOO ; (RETURN-FROM #:FOO) ; ; caught ERROR: ; return for unknown block: #:FOO ; (DEFINE-COMPILER-MACRO #:FOO (&OPTIONAL (X (RETURN-FROM #:FOO)))) ; --> EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO FUNCTION LET* ; ==> ; (LET* ((X (IF #:SUPPLIEDP-3 (CAR #) (RETURN-FROM #:FOO)))) ; (BLOCK #:FOO)) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 STYLE-WARNING condition ; in: DEFTYPE #:FOO ; (RETURN-FROM #:FOO) ; ; caught ERROR: ; return for unknown block: #:FOO ; (DEFTYPE #:FOO (&OPTIONAL (X (RETURN-FROM #:FOO)))) ; --> EVAL-WHEN SB-IMPL::%COMPILER-DEFTYPE LAMBDA FUNCTION LET* ; ==> ; (LET* ((X (IF #:SUPPLIEDP-2 (CAR #) (RETURN-FROM #:FOO)))) ; (BLOCK #:FOO)) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 STYLE-WARNING condition ; in: DEFINE-SETF-EXPANDER #:FOO ; (RETURN-FROM #:FOO) ; ; caught ERROR: ; return for unknown block: #:FOO ; (DEFINE-SETF-EXPANDER #:FOO (&OPTIONAL (X (RETURN-FROM #:FOO)))) ; --> EVAL-WHEN SB-IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION LET* ; ==> ; (LET* ((X (IF #:SUPPLIEDP-3 (CAR #) (RETURN-FROM #:FOO)))) ; (BLOCK #:FOO)) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 STYLE-WARNING condition ; in: DEFSETF #:FOO ; (RETURN-FROM #:FOO) ; ; caught ERROR: ; return for unknown block: #:FOO ; (DEFSETF #:FOO (&OPTIONAL (X (RETURN-FROM #:FOO))) NIL) ; --> EVAL-WHEN SB-IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION SB-IMPL::%DEFSETF ; --> LAMBDA FUNCTION LET* ; ==> ; (LET* ((X (IF #:SUPPLIEDP-7 (CAR #:REQUIRED-4) (RETURN-FROM #:FOO)))) ; (BLOCK #:FOO)) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (SVREF (MAKE-ARRAY '(8 9) :ADJUSTABLE T) 1) ; --> AREF ; ==> ; (THE SIMPLE-VECTOR (MAKE-ARRAY '(8 9) :ADJUSTABLE T)) ; ; caught WARNING: ; Asserted type SIMPLE-VECTOR conflicts with derived type ; (VALUES (ARRAY T (* *)) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA (X) ; (1+ (MAPCAR #'PRINT X)) ; ==> ; (+ (MAPCAR #'PRINT X) 1) ; ; caught WARNING: ; Asserted type NUMBER conflicts with derived type (VALUES LIST &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA (X) ; (1+ (MAPC #'PRINT X)) ; ==> ; (+ (MAPC #'PRINT X) 1) ; ; caught WARNING: ; Asserted type NUMBER conflicts with derived type (VALUES LIST &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA (X) ; (1+ (MAPLIST #'PRINT X)) ; ==> ; (+ (MAPLIST #'PRINT X) 1) ; ; caught WARNING: ; Asserted type NUMBER conflicts with derived type (VALUES LIST &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA (X) ; (1+ (MAPL #'PRINT X)) ; ==> ; (+ (MAPL #'PRINT X) 1) ; ; caught WARNING: ; Asserted type NUMBER conflicts with derived type (VALUES LIST &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (1+ (MAPCAR #'PRINT '(1 2 3))) ; ==> ; (+ (MAPCAR #'PRINT '(1 2 3)) 1) ; ; caught WARNING: ; Asserted type NUMBER conflicts with derived type (VALUES LIST &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA (N) ; (THE (INTEGER 0 *) (- I 11)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type UNSIGNED-BYTE conflicts with derived type ; (VALUES (INTEGER -10 -1) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; (RANDOM 10) ; --> REM SB-KERNEL:RANDOM-CHUNK BLOCK ; ==> ; (LET* ((SB-KERNEL::STATE (SB-KERNEL::RANDOM-STATE-STATE SB-KERNEL::STATE)) ; (SB-KERNEL::K (AREF SB-KERNEL::STATE 2))) ; (DECLARE (TYPE (MOD 628) SB-KERNEL::K)) ; (WHEN (= SB-KERNEL::K SB-KERNEL::MT19937-N) ; (SB-KERNEL::RANDOM-MT19937-UPDATE SB-KERNEL::STATE) ; (SETF SB-KERNEL::K 0)) ; (SETF (AREF SB-KERNEL::STATE 2) (1+ SB-KERNEL::K)) ; (LET ((SB-KERNEL::Y (AREF SB-KERNEL::STATE #))) ; (DECLARE (TYPE (UNSIGNED-BYTE 32) SB-KERNEL::Y)) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH SB-KERNEL::Y -11))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH # 7))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH # 15))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH SB-KERNEL::Y -18))) ; SB-KERNEL::Y)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-KERNEL::DIVISOR) ; ; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y ; ; compilation unit finished ; caught 1 WARNING condition ; printed 3 notes ; in: LAMBDA (N) ; (THE (REAL (-1) *) (- I 11)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type ; (OR (SINGLE-FLOAT (-1.0)) (DOUBLE-FLOAT (-1.0d0)) (RATIONAL (-1))) conflicts ; with derived type (VALUES (INTEGER -10 -1) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; (RANDOM 10) ; --> REM SB-KERNEL:RANDOM-CHUNK BLOCK ; ==> ; (LET* ((SB-KERNEL::STATE (SB-KERNEL::RANDOM-STATE-STATE SB-KERNEL::STATE)) ; (SB-KERNEL::K (AREF SB-KERNEL::STATE 2))) ; (DECLARE (TYPE (MOD 628) SB-KERNEL::K)) ; (WHEN (= SB-KERNEL::K SB-KERNEL::MT19937-N) ; (SB-KERNEL::RANDOM-MT19937-UPDATE SB-KERNEL::STATE) ; (SETF SB-KERNEL::K 0)) ; (SETF (AREF SB-KERNEL::STATE 2) (1+ SB-KERNEL::K)) ; (LET ((SB-KERNEL::Y (AREF SB-KERNEL::STATE #))) ; (DECLARE (TYPE (UNSIGNED-BYTE 32) SB-KERNEL::Y)) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH SB-KERNEL::Y -11))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH # 7))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH # 15))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH SB-KERNEL::Y -18))) ; SB-KERNEL::Y)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-KERNEL::DIVISOR) ; ; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y ; ; compilation unit finished ; caught 1 WARNING condition ; printed 3 notes ; in: LAMBDA (N) ; (THE FLOAT (- I 11)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type FLOAT conflicts with derived type ; (VALUES (INTEGER -10) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; (RANDOM 10) ; --> REM SB-KERNEL:RANDOM-CHUNK BLOCK ; ==> ; (LET* ((SB-KERNEL::STATE (SB-KERNEL::RANDOM-STATE-STATE SB-KERNEL::STATE)) ; (SB-KERNEL::K (AREF SB-KERNEL::STATE 2))) ; (DECLARE (TYPE (MOD 628) SB-KERNEL::K)) ; (WHEN (= SB-KERNEL::K SB-KERNEL::MT19937-N) ; (SB-KERNEL::RANDOM-MT19937-UPDATE SB-KERNEL::STATE) ; (SETF SB-KERNEL::K 0)) ; (SETF (AREF SB-KERNEL::STATE 2) (1+ SB-KERNEL::K)) ; (LET ((SB-KERNEL::Y (AREF SB-KERNEL::STATE #))) ; (DECLARE (TYPE (UNSIGNED-BYTE 32) SB-KERNEL::Y)) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH SB-KERNEL::Y -11))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH # 7))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH # 15))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH SB-KERNEL::Y -18))) ; SB-KERNEL::Y)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-KERNEL::DIVISOR) ; ; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y ; ; compilation unit finished ; caught 1 WARNING condition ; printed 3 notes ; in: LAMBDA (N) ; (THE (REAL * (-10)) (- I 11)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type ; (OR (SINGLE-FLOAT * (-10.0)) (DOUBLE-FLOAT * (-10.0d0)) (RATIONAL * (-10))) ; conflicts with derived type (VALUES (INTEGER -10) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; (RANDOM 10) ; --> REM SB-KERNEL:RANDOM-CHUNK BLOCK ; ==> ; (LET* ((SB-KERNEL::STATE (SB-KERNEL::RANDOM-STATE-STATE SB-KERNEL::STATE)) ; (SB-KERNEL::K (AREF SB-KERNEL::STATE 2))) ; (DECLARE (TYPE (MOD 628) SB-KERNEL::K)) ; (WHEN (= SB-KERNEL::K SB-KERNEL::MT19937-N) ; (SB-KERNEL::RANDOM-MT19937-UPDATE SB-KERNEL::STATE) ; (SETF SB-KERNEL::K 0)) ; (SETF (AREF SB-KERNEL::STATE 2) (1+ SB-KERNEL::K)) ; (LET ((SB-KERNEL::Y (AREF SB-KERNEL::STATE #))) ; (DECLARE (TYPE (UNSIGNED-BYTE 32) SB-KERNEL::Y)) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH SB-KERNEL::Y -11))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH # 7))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH # 15))) ; (SETF SB-KERNEL::Y (LOGXOR SB-KERNEL::Y (ASH SB-KERNEL::Y -18))) ; SB-KERNEL::Y)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-KERNEL::DIVISOR) ; ; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y ; ; compilation unit finished ; caught 1 WARNING condition ; printed 3 notes ; in: LAMBDA NIL ; (HANDLER-CASE ; (COMPILE NIL ; '(LAMBDA (I) ; (DECLARE (OPTIMIZE SPEED)) ; (DECLARE (TYPE INTEGER I)) ; (+ I 2))) ; (COMPILER-NOTE (C) (RETURN :GOOD))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((C #:G1)) ; (RETURN :GOOD)) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LET ((V7 (%F1))) ; (+ 359749 35728422)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (A B C) ; (REM B (MAX 44 (RETURN-FROM B6 A))) ; ; note: deleting unreachable code ; (LOGEQV (REM C -6758) (REM B (MAX 44 (RETURN-FROM B6 A)))) ; ; note: deleting unreachable code ; (REM B (MAX 44 (RETURN-FROM B6 A))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 3 notes ; in: LAMBDA NIL ; (FOO (RETURN 14) 2) ; ; note: deleting unreachable code ; (PRINT X) ; ==> ; X ; ; note: deleting unreachable code ; in: LAMBDA NIL ; (BAR) ; ; caught STYLE-WARNING: ; undefined function: BAR ; ; caught STYLE-WARNING: ; This function is undefined: ; BAR ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; in: LAMBDA NIL ; (LET ((A (SMOCK A)) (B (SMOCK B)) (B (SMOCK C))) ; ) ; ; caught ERROR: ; The variable B occurs more than once in the lambda list. ; (FLET ((TRULY (FN BBD) ; (LET (R3534) ; (LET # ; #) ; R3534)) ; (C (PD) ; (PDC PD))) ; (LET ((A (SMOCK A)) (B (SMOCK B)) (B (SMOCK C))) ; )) ; ; note: deleting unused function ; (FLET C) ; ; note: deleting unused function ; (FLET TRULY) ; in: LAMBDA NIL ; (BUBF BBD T) ; ; caught STYLE-WARNING: ; undefined function: BUBF ; (CDEC #'C-3536 (VECTOR BBD)) ; ; caught STYLE-WARNING: ; undefined function: CDEC ; (PDC PD) ; ; caught STYLE-WARNING: ; undefined function: PDC ; (WUM #'BBFN "hc3" (LIST)) ; ; caught STYLE-WARNING: ; undefined function: WUM ; ; caught STYLE-WARNING: ; These functions are undefined: ; BUBF CDEC PDC WUM ; ; compilation unit finished ; caught 1 ERROR condition ; caught 5 STYLE-WARNING conditions ; printed 2 notes ; in: LAMBDA NIL ; (FLET ((%F () ; (UNWIND-PROTECT NIL))) ; NIL) ; ; note: deleting unused function ; (FLET %F) ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (A C) ; (RESTART-CASE 980) ; --> BLOCK ; ==> ; (LET ((#:G7 NIL)) ; (TAGBODY (RESTART-BIND NIL (RETURN-FROM #:G6 980)))) ; ; caught STYLE-WARNING: ; The variable #:G7 is defined but never used. ; (- -554046873252388011622614991634432 (IGNORE-ERRORS C) ; (UNWIND-PROTECT 2791485)) ; --> - ; ==> ; (- -554046873252388011622614991634432 (IGNORE-ERRORS C)) ; ; caught WARNING: ; Asserted type NUMBER conflicts with derived type (VALUES NULL &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition ; in: LAMBDA (A B) ; (ABS ; (IGNORE-ERRORS ; (+ (LOGEQV B (BLOCK B6 #)) (IF (LOGBITP 1 A) B (SETQ A -1522022182249))))) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type NUMBER conflicts with derived type (VALUES NULL &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA (B C) ; (LOGBITP 0 (RETURN-FROM B7 (- -815145138 F1-2))) ; ; note: The second argument never returns a value. ; ; note: deleting unreachable code ; (RETURN-FROM B7 -2611670) ; ; note: deleting unreachable code ; (%F1 -2464 (%F1 -1146 C C) -2) ; ; note: deleting unreachable code ; (FLET ((%F1 (F1-1 F1-2 F1-3) ; (IF (LOGBITP 0 #) (RETURN-FROM B7 -2611670) 99345))) ; (LET ((V2 (%F1 -2464 # -2))) ; B)) ; ; caught STYLE-WARNING: ; The variable F1-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F1-3 is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 4 notes ; in: LAMBDA (B C) ; (IF (= C 8) B 82674) ; ==> ; B ; ; note: deleting unreachable code ; (FLOOR ; (LABELS ((%F2 () ; (BLOCK B6 #))) ; (%F2))) ; ==> ; (FLOOR ; (LABELS ((%F2 () ; (BLOCK B6 #))) ; (%F2)) ; 1) ; ; caught WARNING: ; Asserted type REAL conflicts with derived type (VALUES NULL T &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA (A) ; (ROUND (BLOCK B3 (RETURN-FROM B3 (IF (= 55957 A) -117 (IGNORE-ERRORS #))))) ; --> ROUND 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 second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (ROUND (BLOCK B3 (RETURN-FROM B3 (IF (= 55957 A) -117 (IGNORE-ERRORS #)))) 1) ; ; caught WARNING: ; Asserted type REAL conflicts with derived type (VALUES NULL T &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA (A) ; (* ; (RETURN-FROM B5 ; (LABELS ((%F11 # ; F11-1)) ; (%F11 87246015))) ; (RETURN-FROM B5 ; (SETQ V1 ; (LABELS (#) ; (DPB # # #))))) ; ; note: The first argument never returns a value. ; ; note: The second argument never returns a value. ; (UNWIND-PROTECT A) ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM ; ==> ; A ; ; note: deleting unreachable code ; (* ; (RETURN-FROM B5 ; (LABELS ((%F11 # ; F11-1)) ; (%F11 87246015))) ; (RETURN-FROM B5 ; (SETQ V1 ; (LABELS (#) ; (DPB # # #))))) ; ; note: deleting unreachable code ; (LET ((V8 (UNWIND-PROTECT 9365))) ; 8862008) ; ; caught STYLE-WARNING: ; The variable V8 is defined but never used. ; (%F4) ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 5 notes ; in: LAMBDA (A) ; (LET ((V4 (RETURN-FROM B3 V9))) ; (- (IGNORE-ERRORS (RETURN-FROM B3 V4)))) ; ; note: deleting unreachable code ; (RETURN-FROM B3 V4) ; ==> ; V4 ; ; note: deleting unreachable code ; (LET ((V4 (RETURN-FROM B3 V9))) ; (- (IGNORE-ERRORS (RETURN-FROM B3 V4)))) ; ; note: deleting unreachable code ; (SETQ V9 ; (LET ((V4 (RETURN-FROM B3 V9))) ; (- (IGNORE-ERRORS (RETURN-FROM B3 V4))))) ; ; note: deleting unreachable code ; (LET ((V9 (UNWIND-PROTECT 136707))) ; (BLOCK B3 ; (SETQ V9 ; (LET (#) ; (- #))))) ; ; note: deleting unreachable code ; (BLOCK B3 ; (SETQ V9 ; (LET ((V4 #)) ; (- (IGNORE-ERRORS #))))) ; ; note: deleting unreachable code ; (LET ((V9 (UNWIND-PROTECT 136707))) ; (BLOCK B3 ; (SETQ V9 ; (LET (#) ; (- #))))) ; ; note: deleting unreachable code ; (LOGBITP 3 ; (CASE -2 ; ((-96879 -1035 -57680 -106404 -94516 -125088) ; (UNWIND-PROTECT 90309179)) ; ((-20811 -86901 -9368 -98520 -71594) ; (LET (#) ; (BLOCK B3 #))) ; (T -50))) ; ; note: deleting unreachable code ; (IF ; (LOGBITP 3 ; (CASE -2 ; ((-96879 -1035 -57680 -106404 -94516 -125088) ; (UNWIND-PROTECT 90309179)) ; ((-20811 -86901 -9368 -98520 -71594) ; (LET # ; #)) ; (T -50))) ; -20343 A) ; ==> ; A ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 9 notes ; in: LAMBDA (A B C) ; (FLET ((%F17 ; (F17-1 F17-2 F17-3 ; &OPTIONAL (F17-4 185155520) (F17-5 C) (F17-6 37)) ; C)) ; (%F17 -1046 A 1115306 (%F17 B -146330 422) -337817)) ; ; caught STYLE-WARNING: ; The variable F17-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F17-2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F17-3 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F17-4 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F17-5 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F17-6 is defined but never used. ; (FLET ((%F15 (F15-1 F15-2 F15-3 &OPTIONAL (F15-4 #) (F15-5 A) (F15-6 -40)) ; (RETURN-FROM B3 -16))) ; (MULTIPLE-VALUE-CALL #'%F15 (VALUES -519354 A 121 C -1905))) ; ; caught STYLE-WARNING: ; The variable F15-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F15-2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F15-3 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F15-4 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F15-5 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F15-6 is defined but never used. ; ; compilation unit finished ; caught 12 STYLE-WARNING conditions ; in: LAMBDA (A B C) ; (LAMBDA (A B C) ; (DECLARE (NOTINLINE LIST APPLY)) ; (DECLARE (OPTIMIZE (SAFETY 3))) ; (DECLARE (OPTIMIZE (SPEED 0))) ; (DECLARE (OPTIMIZE (DEBUG 0))) ; (LABELS ((%F12 (F12-1 F12-2) ; (LABELS # ; #))) ; (APPLY #'%F12 (LIST 774 -4413)))) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; (LABELS ((%F2 (F2-1 F2-2) ; (FLET (#) ; (LABELS # ; F12-1)))) ; (%F2 B -36582571)) ; ; caught STYLE-WARNING: ; The variable F2-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F2-2 is defined but never used. ; (LABELS ((%F12 (F12-1 F12-2) ; (LABELS (#) ; (%F2 B -36582571)))) ; (APPLY #'%F12 (LIST 774 -4413))) ; ; caught STYLE-WARNING: ; The variable F12-2 is defined but never used. ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; in: LAMBDA (A B C) ; (FLET ((%F11 (F11-1 F11-2 &OPTIONAL (F11-3 C) (F11-4 7947114) (F11-5 #)) ; (SETQ C 555910))) ; (IF (AND NIL (%F11 A A)) ; (IF (%F11 A 421778 4030 1) ; (LABELS (#) ; (%F11 C B -25644)) ; 54) ; -32326608)) ; ; caught STYLE-WARNING: ; The variable F11-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F11-2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F11-3 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F11-4 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F11-5 is defined but never used. ; (%F11 A A) ; ==> ; A ; ; note: deleting unreachable code ; (FLET ((%F11 (F11-1 F11-2 &OPTIONAL (F11-3 C) (F11-4 7947114) (F11-5 #)) ; (SETQ C 555910))) ; (IF (AND NIL (%F11 A A)) ; (IF (%F11 A 421778 4030 1) ; (LABELS (#) ; (%F11 C B -25644)) ; 54) ; -32326608)) ; ; note: deleting unreachable code ; (%F11 A 421778 4030 1) ; ==> ; A ; ; note: deleting unreachable code ; (%F11 C B -25644) ; ==> ; C ; ; note: deleting unreachable code ; (FLET ((%F11 (F11-1 F11-2 &OPTIONAL (F11-3 C) (F11-4 7947114) (F11-5 #)) ; (SETQ C 555910))) ; (IF (AND NIL (%F11 A A)) ; (IF (%F11 A 421778 4030 1) ; (LABELS (#) ; (%F11 C B -25644)) ; 54) ; -32326608)) ; ; note: deleting unreachable code ; (MULTIPLE-VALUE-CALL #'%F3 (VALUES (%F3 -30637724 B) C)) ; ; note: deleting unreachable code ; (FLET ((%F11 (F11-1 F11-2 &OPTIONAL (F11-3 C) (F11-4 7947114) (F11-5 #)) ; (SETQ C 555910))) ; (IF (AND NIL (%F11 A A)) ; (IF (%F11 A 421778 4030 1) ; (LABELS (#) ; (%F11 C B -25644)) ; 54) ; -32326608)) ; ; note: deleting unreachable code ; (MULTIPLE-VALUE-CALL #'%F3 (VALUES (%F3 -30637724 B) C)) ; ; note: deleting unreachable code ; (SETQ C 555910) ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; printed 9 notes ; in: LAMBDA (A B C) ; (LET* ((V8 (%F4))) ; (SETQ F11-1 (%F4))) ; ; caught STYLE-WARNING: ; The variable V8 is defined but never used. ; (LABELS ((%F3 (F3-1) ; -162967612)) ; (%F3 ; (LET* ((V8 #)) ; (SETQ F11-1 (%F4))))) ; ; caught STYLE-WARNING: ; The variable F3-1 is defined but never used. ; (FLET ((%F11 (F11-1 F11-2) ; (LABELS (#) ; (LOGAND F11-1 #)))) ; (%F11 -120429363 (%F11 62362 B))) ; ; caught STYLE-WARNING: ; The variable F11-2 is defined but never used. ; (LOGAND F11-1 ; (LABELS ((%F3 (F3-1) ; -162967612)) ; (%F3 ; (LET* (#) ; (SETQ F11-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 T, 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 3) because: ; The first argument is a T, not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 1 note ; in: LAMBDA (A B C) ; (IF NIL (%F4) ; (FLET ((%F8 (F8-1 &OPTIONAL # #) ; F8-3)) ; 0)) ; ; note: deleting unreachable code ; (%F4) ; ; note: deleting unreachable code ; (MULTIPLE-VALUE-CALL #'%F15 (VALUES (%F15 C 0) (%F15 0))) ; ; note: deleting unreachable code ; (FLET ((%F4 () ; (MULTIPLE-VALUE-CALL #'%F15 (VALUES # #)))) ; (IF NIL (%F4) ; (FLET ((%F8 # ; F8-3)) ; 0))) ; ; note: deleting unreachable code ; #'%F15 ; ; note: deleting unreachable code ; (MULTIPLE-VALUE-CALL #'%F15 (VALUES (%F15 C 0) (%F15 0))) ; ; note: deleting unreachable code ; (LAMBDA (A B C) ; (DECLARE (TYPE (INTEGER 867934833 3293695878) A)) ; (DECLARE (TYPE (INTEGER -82111 1776797) B)) ; (DECLARE (TYPE (INTEGER -1432413516 54121964) C)) ; (DECLARE (OPTIMIZE (SPEED 3))) ; (DECLARE (OPTIMIZE (SAFETY 1))) ; (DECLARE (OPTIMIZE (DEBUG 1))) ; (IF NIL ; (FLET ((%F15 # ; #)) ; (FLET (#) ; (IF NIL # #))) ; 0)) ; ; caught STYLE-WARNING: ; The variable B is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 6 notes ; in: LAMBDA (A B) ; (LABELS ((%F9 (F9-1 F9-2 F9-3) ; (IGNORE-ERRORS 0))) ; (DOTIMES (IV4 5 A) (%F9 0 0 B))) ; ; caught STYLE-WARNING: ; The variable F9-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F9-2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F9-3 is defined but never used. ; (DOTIMES (IV4 5 A) (%F9 0 0 B)) ; --> DO BLOCK LET TAGBODY RETURN-FROM PROGN ; ==> ; A ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 1 note ; in: LAMBDA (A B C) ; (FLET ((%F3 (F3-1 F3-2 F3-3) ; 0)) ; (APPLY #'%F3 0 (CATCH 'FOO (RETURN-FROM B7 (%F3 0 B C))) C NIL)) ; ; caught STYLE-WARNING: ; The variable F3-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F3-2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F3-3 is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; in: LAMBDA (A B C) ; (- (IF (EQUAL A B) B (%F10 C A 0)) (CATCH 'CT2 (THROW 'CT2 C))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (LABELS ((%F10 (F10-1 F10-2 F10-3) ; 0)) ; (APPLY #'%F10 0 A ; (- (IF (EQUAL A B) B (%F10 C A 0)) (CATCH 'CT2 (THROW 'CT2 C))) NIL)) ; ; caught STYLE-WARNING: ; The variable F10-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F10-2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F10-3 is defined but never used. ; (FLET ((%F3 (F3-1 F3-2 F3-3 &OPTIONAL (F3-4 A) (F3-5 0) (F3-6 #)) ; 0)) ; (%F3 (%F3 (%F3 B 0 0 0) A 0) A B B B C)) ; ; caught STYLE-WARNING: ; The variable F3-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F3-2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F3-3 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F3-4 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F3-5 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F3-6 is defined but never used. ; (- (IF (EQUAL A B) B (%F10 C A 0)) (CATCH 'CT2 (THROW 'CT2 C))) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; caught 9 STYLE-WARNING conditions ; printed 4 notes ; in: LAMBDA (B C) ; (LABELS ((%F3 (F3-1 F3-2) ; F3-1)) ; (APPLY #'%F3 B (CATCH 'CT8 (THROW 'CT8 (LOGEQV #))) NIL)) ; ; caught STYLE-WARNING: ; The variable F3-2 is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA (B C) ; (LABELS ((%F3 (F3-1 F3-2) ; F3-1)) ; (APPLY #'%F3 B (CATCH 'CT8 (THROW 'CT8 (LOGEQV #))) NIL)) ; ; caught STYLE-WARNING: ; The variable F3-2 is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA (A B) ; (LET ((*S7* 0)) ; B) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol *S7*, not the ; dynamic binding, even though the symbol name follows the usual naming ; convention (names like *FOO*) for special variables ; ; caught STYLE-WARNING: ; The variable *S7* is defined but never used. ; (LET* ((V1 ; (LET (#) ; B))) ; 0) ; ; caught STYLE-WARNING: ; The variable V1 is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; in: LAMBDA (A B C) ; (LAMBDA (A B C) ; (DECLARE (NOTINLINE BOOLE VALUES DENOMINATOR LIST)) ; (DECLARE ; (OPTIMIZE (SPEED 2) (SPACE 0) (SAFETY 1) (DEBUG 0) (COMPILATION-SPEED 2))) ; (CATCH 'CT6 ; (PROGV ; '(*S8*) ; (LIST 0) ; (LET (#) ; (DENOMINATOR #))))) ; ; caught STYLE-WARNING: ; The variable A is defined but never used. ; ; caught STYLE-WARNING: ; The variable B is defined but never used. ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; (BOOLE BOOLE-AND 0 V9) ; ; note: deleting unreachable code ; (DENOMINATOR (PROGV NIL NIL (VALUES (BOOLE BOOLE-AND 0 V9)))) ; ; note: deleting unreachable code ; (BOOLE BOOLE-AND 0 V9) ; ; caught WARNING: ; Asserted type INTEGER conflicts with derived type (VALUES NULL T &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; caught 3 STYLE-WARNING conditions ; printed 2 notes ; in: LAMBDA (B G H) ; (RATIONAL (THROW 'CT5 0)) ; ; note: deleting unreachable code ; (LABELS ((%F15 (F15-1 F15-2 F15-3) ; (RATIONAL (THROW 'CT5 0)))) ; (%F15 0 (APPLY #'%F15 0 H (PROGN (PROGV '# # B) 0) NIL) 0)) ; ; caught STYLE-WARNING: ; The variable F15-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F15-2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F15-3 is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 1 note ; in: LAMBDA (B) ; (MIN (IF F12-1 (MULTIPLE-VALUE-PROG1 B (RETURN-FROM %F12 0)) 0)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (RETURN-FROM #:G1919 ; (LOCALLY (ERROR "Compiler does not trust result type assertion."))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (X) ; (SQRT (THE DOUBLE-FLOAT X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES (OR (DOUBLE-FLOAT 0.0d0) (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (RETURN-FROM #:G1922 (LOCALLY (ERROR "The code is not optimized."))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (RETURN-FROM #:G1925 (LOCALLY (ERROR "IDENTITY derive-type not applied."))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (A C) ; (RATIONAL (THROW 'CT7 0)) ; ; note: deleting unreachable code ; (IF (LDB-TEST (BYTE 0 0) (RATIONAL (THROW 'CT7 0))) 0 0) ; ; note: deleting unreachable code ; (LOGBITP 0 (IF (/= 0 A) C (IGNORE-ERRORS (PROGN (IF # 0 0) 0)))) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type INTEGER conflicts with derived type (VALUES NULL &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 3 notes ; in: LAMBDA NIL ; (RETURN-FROM #:G1938 ; (LET ((E #:G1939)) ; (ERROR "bad compiler note for ~S:~% ~A" '((FUNCALL X)) E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (COMPILE NIL '(LAMBDA (X) (DECLARE (OPTIMIZE SPEED)) (FUNCALL X))) ; (COMPILER-NOTE (E) (THROW :GOT-NOTE NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-NOTE NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (RETURN-FROM #:G1941 ; (LET ((E #:G1942)) ; (ERROR "bad compiler note for ~S:~% ~A" '((FIND X Y)) E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (COMPILE NIL '(LAMBDA (X Y) (DECLARE (OPTIMIZE SPEED)) (FIND X Y))) ; (COMPILER-NOTE (E) (THROW :GOT-NOTE NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-NOTE NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (RETURN-FROM #:G1944 ; (LET ((E #:G1945)) ; (ERROR "bad compiler note for ~S:~% ~A" '((FIND-IF X Y)) E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (COMPILE NIL '(LAMBDA (X Y) (DECLARE (OPTIMIZE SPEED)) (FIND-IF X Y))) ; (COMPILER-NOTE (E) (THROW :GOT-NOTE NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-NOTE NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (RETURN-FROM #:G1947 ; (LET ((E #:G1948)) ; (ERROR "bad compiler note for ~S:~% ~A" '((FIND-IF-NOT X Y)) E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (COMPILE NIL '(LAMBDA (X Y) (DECLARE (OPTIMIZE SPEED)) (FIND-IF-NOT X Y))) ; (COMPILER-NOTE (E) (THROW :GOT-NOTE NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-NOTE NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (RETURN-FROM #:G1950 ; (LET ((E #:G1951)) ; (ERROR "bad compiler note for ~S:~% ~A" '((POSITION X Y)) E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (COMPILE NIL '(LAMBDA (X Y) (DECLARE (OPTIMIZE SPEED)) (POSITION X Y))) ; (COMPILER-NOTE (E) (THROW :GOT-NOTE NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-NOTE NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (RETURN-FROM #:G1953 ; (LET ((E #:G1954)) ; (ERROR "bad compiler note for ~S:~% ~A" '((POSITION-IF X Y)) E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (COMPILE NIL '(LAMBDA (X Y) (DECLARE (OPTIMIZE SPEED)) (POSITION-IF X Y))) ; (COMPILER-NOTE (E) (THROW :GOT-NOTE NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-NOTE NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (RETURN-FROM #:G1956 ; (LET ((E #:G1957)) ; (ERROR "bad compiler note for ~S:~% ~A" '((POSITION-IF-NOT X Y)) E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (COMPILE NIL ; '(LAMBDA (X Y) (DECLARE (OPTIMIZE SPEED)) (POSITION-IF-NOT X Y))) ; (COMPILER-NOTE (E) (THROW :GOT-NOTE NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-NOTE NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (RETURN-FROM #:G1959 ; (LET ((E #:G1960)) ; (ERROR "bad compiler note for ~S:~% ~A" '((AREF X 0)) E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (COMPILE NIL '(LAMBDA (X) (DECLARE (OPTIMIZE SPEED)) (AREF X 0))) ; (COMPILER-NOTE (E) (THROW :GOT-NOTE NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-NOTE NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (HANDLER-CASE (EVAL '(LAMBDA (X &OPTIONAL Y &KEY Z) (LIST X Y Z))) ; (STYLE-WARNING (E) (THROW :GOT-STYLE-WARNING NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-STYLE-WARNING NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (RETURN-FROM #:G1966 ; (LET ((E #:G1967)) ; (ERROR "bad style-warning for ~S: ~A" ; '(LAMBDA (X &OPTIONAL Y Z) (LIST X Y Z)) E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (RETURN-FROM #:G1969 ; (LET ((E #:G1970)) ; (ERROR "bad style-warning for ~S: ~A" '(LAMBDA (X &KEY Y Z) (LIST X Y Z)) ; E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE (EVAL '(DEFGENERIC #:FOO (X &OPTIONAL Y &KEY Z))) ; (STYLE-WARNING (E) (THROW :GOT-STYLE-WARNING NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-STYLE-WARNING NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (RETURN-FROM #:G1972 ; (LET ((E #:G1973)) ; (ERROR "bad style-warning for ~S: ~A" ; '(DEFGENERIC #:FOO (X &OPTIONAL Y Z)) E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (RETURN-FROM #:G1975 ; (LET ((E #:G1976)) ; (ERROR "bad style-warning for ~S: ~A" '(DEFGENERIC #:FOO (X &KEY Y Z)) ; E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (EVAL ; '(DEFUN #:FOO (X) ; (FLET (#) ; (FOO X X :Z X)))) ; (STYLE-WARNING (E) (THROW :GOT-STYLE-WARNING NIL))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((E #:G2)) ; (THROW :GOT-STYLE-WARNING NIL)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA (X Y) ; (ASH X Y) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The second argument is a (UNSIGNED-BYTE 32), 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 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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (LOGAND 4294967295 (ASH X Y)) ; ==> ; (LOGAND SB-C::Y 4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (THE INTEGER (IF NIL 14 T)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type INTEGER conflicts with derived type (VALUES (MEMBER T) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA (A B C D) ; (LAMBDA (A B C D) ; (DECLARE (NOTINLINE LOGORC1 BYTE MASK-FIELD)) ; (DECLARE ; (OPTIMIZE (SPEED 1) (SPACE 1) (SAFETY 1) (DEBUG 3) (COMPILATION-SPEED 0))) ; (MASK-FIELD (BYTE 7 26) (PROGN (TAGBODY (THE INTEGER #) 1) B))) ; ; caught STYLE-WARNING: ; The variable A is defined but never used. ; ; caught STYLE-WARNING: ; The variable D is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA (A B) ; (LET ((*S5* 0)) ; (DOTIMES (IV1 2 0) ; (LET ((*S5* #)) ; 0))) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol *S5*, not the ; dynamic binding, even though the symbol name follows the usual naming ; convention (names like *FOO*) for special variables ; (LET ((*S5* (ELT '(1954479092053) (MIN 0 #)))) ; 0) ; ; caught STYLE-WARNING: ; using the lexical binding of the symbol *S5*, not the ; dynamic binding, even though the symbol name follows the usual naming ; convention (names like *FOO*) for special variables ; (LET ((*S5* 0)) ; (DOTIMES (IV1 2 0) ; (LET ((*S5* #)) ; 0))) ; ; caught STYLE-WARNING: ; The variable *S5* is defined but never used. ; (LET ((*S5* (ELT '(1954479092053) (MIN 0 #)))) ; 0) ; ; caught STYLE-WARNING: ; The variable *S5* is defined but never used. ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; in: LAMBDA (A B) ; (ASH IV1 IV1) ; ==> ; IV1 ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (A B C D) ; 'CT2 ; ; note: deleting unreachable code ; (LAMBDA (A B C D) ; (DECLARE (NOTINLINE AREF LOGANDC2 GCD MAKE-ARRAY)) ; (DECLARE ; (OPTIMIZE (SPACE 0) (SAFETY 0) (COMPILATION-SPEED 3) (SPEED 3) (DEBUG 1))) ; (PROGN ; (TAGBODY ; (LET* (#) ; (DECLARE #) ; (GCD # #)) ; TAG2) ; 0)) ; ; caught STYLE-WARNING: ; The variable A is defined but never used. ; ; caught STYLE-WARNING: ; The variable B is defined but never used. ; ; caught STYLE-WARNING: ; The variable D is defined but never used. ; (AREF V2) ; ==> ; V2 ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 2 notes ; in: LAMBDA (A B) ; (LOOP FOR LV1 BELOW 2 COUNT (LOGBITP 0 (1- (ASH B (MIN 8 #))))) ; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN COND IF PROGN SETQ ; ==> ; (THE # (1+ #:LOOP-SUM-0)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (GO #:G1990) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(COMPILE NIL '(LAMBDA (S EI X Y) (DECLARE # #) (FUNCALL # X Y))) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (S EI X Y) ; (LAMBDA (S EI X Y) ; (DECLARE (TYPE (SIMPLE-ARRAY FUNCTION (2)) S) (TYPE EI EI)) ; (FUNCALL (AREF S EI) X Y)) ; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; --> TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:G16 'EI) ; ; caught STYLE-WARNING: ; undefined type: EI ; --> LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF ; ==> ; (TYPEP #:G16 'EI) ; ; caught STYLE-WARNING: ; undefined type: EI ; ; caught STYLE-WARNING: ; undefined type: EI ; ; caught STYLE-WARNING: ; 2 more uses of undefined type EI ; ; caught STYLE-WARNING: ; This type is undefined: ; EI ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; in: LAMBDA (A B C D E) ; (FLET ((%F10 ; (F10-1 F10-2 F10-3 ; &OPTIONAL (F10-4 #) (F10-5 0) ; &KEY &ALLOW-OTHER-KEYS) ; (IF (OR # T) 0 (IF F10-1 0 0)))) ; (COMPLEX (MULTIPLE-VALUE-CALL #'%F10 (VALUES A C B 0 0)) 0)) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (F10-1 F10-2 F10-3 &OPTIONAL ; (F10-4 (IGNORE-ERRORS 0)) ; (F10-5 0) &KEY ; &ALLOW-OTHER-KEYS) ; (LAMBDA (A B C D E) ; (DECLARE (NOTINLINE VALUES COMPLEX EQL)) ; (DECLARE ; (OPTIMIZE (COMPILATION-SPEED 3) (SPEED 3) (DEBUG 1) (SAFETY 1) (SPACE 0))) ; (FLET ((%F10 (F10-1 F10-2 F10-3 &OPTIONAL # # &KEY &ALLOW-OTHER-KEYS) ; (IF # 0 #))) ; (COMPLEX (MULTIPLE-VALUE-CALL #'%F10 (VALUES A C B 0 0)) 0))) ; ; caught STYLE-WARNING: ; The variable D is defined but never used. ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; (FLET ((%F10 ; (F10-1 F10-2 F10-3 ; &OPTIONAL (F10-4 #) (F10-5 0) ; &KEY &ALLOW-OTHER-KEYS) ; (IF (OR # T) 0 (IF F10-1 0 0)))) ; (COMPLEX (MULTIPLE-VALUE-CALL #'%F10 (VALUES A C B 0 0)) 0)) ; ; caught STYLE-WARNING: ; The variable F10-2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F10-3 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F10-4 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F10-5 is defined but never used. ; (IF F10-1 0 0) ; ==> ; F10-1 ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 7 STYLE-WARNING conditions ; printed 1 note ; in: LAMBDA NIL ; (LET :BOGUS-LET ; :OOPS) ; ; caught ERROR: ; Malformed LET bindings: :BOGUS-LET. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LET* :BOGUS-LET* ; :OOPS) ; ; caught ERROR: ; Malformed LET* bindings: :BOGUS-LET*. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA (X) ; (PUSH X ; (LET ((Y 0)) ; Y)) ; --> LET* CONS ; ==> ; (LET #:G2 ; #:G1) ; ; caught ERROR: ; Malformed LET bindings: #:G2. ; --> LET* ; ==> ; (CONS #:G3 ; (LET #:G2 ; #:G1)) ; ; note: The second argument never returns a value. ; ((Y 0)) ; ; caught ERROR: ; illegal function call ; (PUSH X ; (LET ((Y 0)) ; Y)) ; --> LET* ; ==> ; Y ; ; note: deleting unreachable code ; in: LAMBDA (X) ; (PUSH X ; (LET ((Y 0)) ; Y)) ; --> LET* FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF LET) #:G0 #:G2 #:G1) ; ; caught WARNING: ; The function (SETF LET) is undefined, and its name is reserved by ANSI CL so ; that even if it were defined later, the code doing so would not be portable. ; ==> ; (LET* ((#:G3 X) ; (#:G2 ((Y 0))) ; (#:G1 Y) ; (#:G0 ; (CONS #:G3 ; (LET #:G2 ; #:G1)))) ; (FUNCALL #'(SETF LET) #:G0 #:G2 #:G1)) ; ; caught WARNING: ; undefined variable: Y ; ; caught WARNING: ; This variable is undefined: ; Y ; ; caught STYLE-WARNING: ; This function is undefined: ; (SETF LET) ; ; compilation unit finished ; caught 2 ERROR conditions ; caught 3 WARNING conditions ; caught 1 STYLE-WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (LAMBDA (C) (INVOKE-RESTART 'BLAH)) ; ==> ; #'(LAMBDA (C) (INVOKE-RESTART 'BLAH)) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (NOT FAILURE) ; --> IF ; ==> ; FAILURE ; ; caught STYLE-WARNING: ; reading an ignored variable: FAILURE ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA (STRUCT FIRST) ; (LENGTH NODES) ; ; 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. ; (FIND N NEW) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G62 #:G63) ; ; 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. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; in: LAMBDA (STRUCT FIRST) ; (BARS STRUCT) ; ; caught STYLE-WARNING: ; undefined function: BARS ; (NODE-NEIGHBOURS (AREF NEW J) BARS) ; ; caught STYLE-WARNING: ; undefined function: NODE-NEIGHBOURS ; (NODES STRUCT) ; ; caught STYLE-WARNING: ; undefined function: NODES ; ; caught STYLE-WARNING: ; These functions are undefined: ; BARS NODE-NEIGHBOURS NODES ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 7 notes ; in: LAMBDA (X Y A B C) ; (LAMBDA (X Y A B C) (- Y (* (SIGNUM X) (SQRT (ABS #))))) ; ; caught STYLE-WARNING: ; The variable A is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LAMBDA (C) (INCF COUNT1)) ; ==> ; #'(LAMBDA (C) (INCF COUNT1)) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; (LAMBDA (C) (INCF COUNT0)) ; ==> ; #'(LAMBDA (C) (INCF COUNT0)) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA (X) ; (1+ X) ; ==> ; (+ X 1) ; ; note: unable to ; optimize ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; printed 4 notes ; in: LAMBDA (SAP) ; (LET ((X (SETF (SB-SYS:SAP-REF-SINGLE SAP 0) 1.0d0))) ; (1+ X)) ; ; note: deleting unreachable code ; (SETF (SB-SYS:SAP-REF-SINGLE SAP 0) 1.0d0) ; ==> ; (SB-KERNEL:%SET-SAP-REF-SINGLE SAP 0 1.0d0) ; ; caught WARNING: ; Asserted type SINGLE-FLOAT conflicts with derived type ; (VALUES (DOUBLE-FLOAT 1.0d0 1.0d0) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA (A) ; (FLET ((%F3 (F3-1 F3-2) ; (LOOP FOR LV2 BELOW 1 COUNT (LOGBITP 29 #)))) ; (%F3 0 A)) ; ; caught STYLE-WARNING: ; The variable F3-1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F3-2 is defined but never used. ; (LET* ((V7 ; (FLET (#) ; (%F3 0 A)))) ; 0) ; ; caught STYLE-WARNING: ; The variable V7 is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; in: LAMBDA NIL ; (/ 1 0) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA (DAYS SHIFT) ; (LET* ((RESULT 0) ; (CANONICALIZED-SHIFT (+ SHIFT 1)) ; (FIRST-WRAPPING-DAY (- 1 CANONICALIZED-SHIFT))) ; (DECLARE (TYPE FIXNUM RESULT)) ; (DOTIMES (SOURCE-DAY 7) ; (DECLARE (TYPE (INTEGER 0 6) SOURCE-DAY)) ; (WHEN (LOGBITP SOURCE-DAY DAYS) (SETF RESULT (LOGIOR RESULT #)))) ; RESULT) ; ==> ; RESULT ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (FLET ((%F3 (F3-1 &KEY (KEY1 #)) ; 0)) ; (APPLY #'%F3 0 NIL)) ; ; caught STYLE-WARNING: ; The variable KEY1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable F3-1 is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/condition.pure.lisp printable now: error on file "foo" ; in: LAMBDA NIL ; (LAMBDA (C) ; (LET ((RESTARTS (REMOVE 'RES # :KEY #'RESTART-NAME :TEST-NOT #'EQL))) ; (ASSERT (= (LENGTH RESTARTS) 1)) ; (INVOKE-RESTART (FIRST RESTARTS)))) ; ==> ; #'(LAMBDA (C) ; (LET ((RESTARTS (REMOVE 'RES # :KEY #'RESTART-NAME :TEST-NOT #'EQL))) ; (ASSERT (= (LENGTH RESTARTS) 1)) ; (INVOKE-RESTART (FIRST RESTARTS)))) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LAMBDA (C) (RETURN (IF (FIND-RESTART 'CONTINUE) :PASSED :FAILED))) ; ==> ; #'(LAMBDA (C) (RETURN (IF (FIND-RESTART 'CONTINUE) :PASSED :FAILED))) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; (LAMBDA (C) (RETURN :FAILED)) ; ==> ; #'(LAMBDA (C) (RETURN :FAILED)) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (GO #:G2034) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NULL (HANDLER-CASE (ERROR "foo") (ERROR NIL #))) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys.pure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/float.pure.lisp ; in: LAMBDA NIL ; (FLOAT-RADIX "notfloat") ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type FLOAT conflicts with derived type ; (VALUES (SIMPLE-ARRAY CHARACTER (8)) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (GO #:G2057) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(EQL LEAST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SHORT-FLOAT) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (FROUND LEAST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT) 1.0) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= ; (MULTIPLE-VALUE-BIND ; (SIGNIFICAND EXPT SIGN) ; (INTEGER-DECODE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT) ; (* # SIGN)) ; LEAST-POSITIVE-DOUBLE-FLOAT) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= ; (MULTIPLE-VALUE-BIND ; (SIGNIFICAND EXPT SIGN) ; (DECODE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT) ; (* # SIGN)) ; LEAST-POSITIVE-DOUBLE-FLOAT) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (GO #:G2067) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= 0.0 (SCALE-FLOAT 1.0 MOST-NEGATIVE-FIXNUM)) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2069) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= 0.0d0 (SCALE-FLOAT 1.0d0 (1- MOST-NEGATIVE-FIXNUM))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (INTEGER-DECODE-FLOAT (COERCE -1756510900000000000 'SINGLE-FLOAT)) ; 12780299) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/gcd.pure.lisp ; in: LAMBDA NIL ; (GO #:G2078) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 3 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2080) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 9 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2082) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 1353 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2084) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 2755 13) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2086) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 3146 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2088) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 56 2) 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2090) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 223706 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2092) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 148665 2) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2094) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 71862 203) 203) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2096) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 14464263 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2098) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 21568911 41) 41) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2100) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 15295874 111) 37) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2102) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 167524732 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2104) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 20430054 41) 41) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2106) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 248255254 767) 13) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2108) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 510104442 5453) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2110) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 100809345 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2112) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 242162410 41) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2114) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 660070972 74) 74) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2116) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 6542405452 117) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2118) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 4641925173847 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2120) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 629448534 2) 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2122) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 163873565922 155) 31) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2124) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 1563464979842 442) 34) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2126) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 3712337724 576173) 23) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2128) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 4429248 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2130) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 4380921044390 5) 5) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2132) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 4097970629150 86) 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2134) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 2090198664 1118) 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2136) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 5275411661289 31857) 21) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2138) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 17015415976168 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2140) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 38602581835881 19) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2142) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 82578867500655 319) 29) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2144) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 363169800 20) 20) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2146) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 2033404107084 23374) 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2148) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 7438317458260 31213) 13) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2150) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 20223947479736 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2152) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 390609000 11) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2154) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 406117800 57) 3) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2156) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 1008217762344 4403) 37) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2158) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 136581511784536 67022) 62) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2160) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 43293168048 1344610) 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2162) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 154378910321790 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2164) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 608503422693864 47) 47) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2166) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 6945109296864 779) 19) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2168) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 1346702251365156 435) 87) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2170) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 1388225063690465 644) 7) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2172) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 1200780158492850 91686) 354) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2174) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 1551193257090906 2656731) 1749) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2176) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 2453369841000 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2178) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 386512944051107445 17) 17) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2180) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 1111364125679340 6) 6) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2182) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 15858537083857314 21793) 21793) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2184) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 44179338013272 280645) 41) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2186) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 64149298745840 43808357) 35131) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2188) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 4412914630225794 515823) 46893) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2190) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 7518817068019302045 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2192) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (GCD 169216424701305960 17) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2194) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 178335507754891305 817) 817) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2196) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 460683358924445799142 518) 518) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2198) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 113021475230160 74635) 6785) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2200) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 74228340534140364 363909) 1677) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2202) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 69242022961311060 48305942) 60458) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2204) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 286967952870300 2273388) 156) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2206) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 10593379420837191160 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2208) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 302822258393413362492399 29) 29) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2210) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 10491072879382200 133) 133) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2212) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 167206737423420464 609) 7) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2214) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 72212583812867784 4888799) 47) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2216) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 4170116471639397292390 1798025) 359605) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2218) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 83910330283522050 35224) 238) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2220) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 275373383775647594346 66884092) 104834) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2222) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 24798951106800092040 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2224) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 14656657495570695990 37) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2226) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 95470974177676509874110 1219) 1219) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2228) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 619506317623001424 5957) 7) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2230) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 11268171656665155960 9858) 186) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2232) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 6172860073826160 5167394) 3074) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2234) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 26457493095663264 1491412) 3956) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2236) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 8481384175941103284 313836405) 51) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2238) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 60356595775749199080 176098815946) 1716346) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2240) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 2062895192248935732930 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2242) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 611492274956002440 37) 37) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2244) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 164614611843685080 1711) 59) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2246) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 93177516542679418720 62197) 37) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2248) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 938959746797519770440 127558) 127558) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2250) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 137670522526899326250 200) 50) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2252) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 852063402206742880 41643478) 58406) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2254) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 55947291202307909360 188546228) 6364) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2256) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 12877971214039423262680 9832253830) 121730) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2258) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 2217480094627700577948 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2260) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 192158415774146059920 53) 53) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2262) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 902814024155808960 1829) 31) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2264) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 1265864304573235487120 4921) 259) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2266) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 14172662463567665400 95817) 57) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2268) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 32171996211745702482324 2368555) 259) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2270) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 971324258606045826300 4576748) 236) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2272) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 2400649320046378377000 1704690) 930) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2274) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 953233796456393760 18342152493) 574287) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2276) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 28906333140964843080 236206740) 823020) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2278) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 19478907070569571633008 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2280) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 775403093708557121609032 41) 41) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2282) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 12587009808135760402860 2491) 47) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2284) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 510685807527370566909720 76) 4) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2286) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 9842598153710524682146590 10089) 3363) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2288) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 44936631038618189620242012 30740) 6148) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2290) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 934589372977008750144 373650) 282) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2292) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 33027125273398900134069150 840577803) 840577803) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2294) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 4428219127938822420288 1695783782) 12502) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2296) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 29316428815807608915440 560764380) 153340) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2298) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 2366157559867828791011766 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2300) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 1364397376360544429904 19) 19) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2302) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 4991450791697293128313385277 329) 7) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2304) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 75448279792981695149550 3009) 3) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2306) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 181031604499464166188731133 3364) 1) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2308) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 405831142402606479845286 2746214) 161542) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2310) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 89170366469003867207160 25337230) 11470) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2312) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 13523725766340619200 1490114045) 28595) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2314) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 104705939487154940255412 192200052) 26196) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2316) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 7232591421499800642000 16584679460) 7820) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2318) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 14043796716396386984750160 33382708236) 358953852) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2320) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 11835771070979649489696 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2322) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 13894638105872256412416 23) 23) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2324) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 147611447155643499428400 118) 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2326) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 13356594697070649024 4558) 106) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2328) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 15089731174706036171537760 90) 30) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2330) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 307230141273924828960 1971507) 1581) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2332) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2582563944548247741930009096 22873474) 1759498) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2334) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1074296602920111687342072 146235518) 21758) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2336) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 774058642832724262993980 407557010) 2531410) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2338) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 291091930213008490369569480 13412544348) 26508) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2340) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2089068565149831833568 7302038455228) 68171356) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2342) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 15874791883700662031579460 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2344) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 1064437567441124038217970656 5) 1) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2346) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 142557826750459447787460 1333) 31) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2348) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 311779340580033594160200 23693) 23693) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2350) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 29314187023691666530559664 110143) 110143) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2352) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 222003853016244177637944900 857463) 857463) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2354) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 6247776111945111006243552 77976501) 2515371) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2356) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 1140058514761397155259712 5530338) 502758) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2358) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 580962736822969724865449808 55686036) 1505028) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2360) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 4100502596989506786787500 45333475410) 563730) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2362) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1497378750311599979536944 262630276090) 361046) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2364) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 105637634198318524045536 2633013240) 150072) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2366) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 70489308475051480717893899280 1) 1) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2368) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 11415822547029425161364106595632 7) 1) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2370) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 198305933339312916107438448 177) 3) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2372) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 3127415425979879537134790928 3335) 667) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2374) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 589703503861221139260034914750 13209) 357) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2376) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 3108579252052448504121792 14322) 462) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2378) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 636976201153021006473464400 66264077) 3487583) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2380) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 9544425315508129998909285900 1488396) 212628) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2382) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 458100280193857502802977376 260747103934) 6212554) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2384) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 114208186302155358124900650 22076867505) 6342105) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2386) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 90107067439719108194114160 28566806069714) 3408519994) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2388) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2976572787365723002218245484 110104803958578) 2966904798) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2390) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 981298276658071427286000 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2392) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 53453375725613238735360 17) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2394) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 888822833524306124874229800 106) 106) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2396) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 21275338550698297089687698855820 3021) 3021) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2398) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 417525245705449941528380320750068 5828) 5828) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2400) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1954871230146370370001829871352 22765249) 22765249) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2402) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 903057827710908645847577520 648545995) 520085) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2404) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 6002846634833433581621040 28493572159) 27869) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2406) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 26428903214964558277189300080 100428856) 3463064) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2408) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 470486531607553676511206181180 28495896) 2964) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2410) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 483599554429365539310928369206620 5577334078910) 105232718470) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2412) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 134511400157705323668887400 1285071093558916) 340069628) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2414) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 25897125642468049125349982599216 1183846707540) 26307704612) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2416) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 291543186498072665182448708000 1) 1) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2418) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 1118034209930460291955200 3) 3) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2420) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 16297594064835666104344589410644 413) 413) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2422) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 536762539932642345554192060100 1378) 1378) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2424) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 933250179448203335817687635834340 58029) 69) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2426) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 65573457048202714607131200 486115) 3655) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2428) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 85664559165674439863772868932 322014) 322014) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2430) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 7232817686074320060728552759760 11307940) 11307940) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2432) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 78400098291720425971762131120 5646921093) 5646921093) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2434) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 345445746644065669842240 19727989065) 2193705) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2436) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 627854758484491743169777558200 750371721805653) 156322329) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2438) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 788233263079483492974876830792850 7170146100) 5867550) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2440) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 18378856389802641496737518160 6247594493140) 824329660) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2442) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 24537811627839727524106800 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2444) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 9620902642431357480148667659080 59) 59) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2446) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 16008524600631853118144316000 629) 1) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2448) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 4342138447708715023205684275423920 53041) 1711) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2450) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2431833161592653384508687244500 47541) 47541) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2452) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 39424620224103957589082132160 1671734) 1671734) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2454) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 652830233576052788654372406432 552231327) 12842589) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2456) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 6892963340916411083970414000 3662431431) 77924073) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2458) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 29102758215190063506219566460000 10565720) 10565720) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2460) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 21253900104556838003127171970777418412 1182797770) 62698) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2462) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 3964268932242030284914943132662620 21244177854110) 18521515130) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2464) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 6070388091189460078138338240 40809131994181213) 274113073169) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2466) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 9685989954133695108793384134000 964113514382876) 169529367748) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2468) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 56468122001858834917195045500 429400787158167902) 2090772606538) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2470) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 329308642462818241932463312443600 1) 1) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2472) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 18843408973202596901221568364900 47) 47) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2474) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 7800980538292163259967028613764250 6) 6) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2476) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 270433907726619219545089642715200 3422) 58) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2478) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 45771666919597903071546708768 2342359) 2183) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2480) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 47198294949461301503537593835384892 314502) 5934) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2482) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 3165335901519110207943908102359110 14953473) 207) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2484) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 189219585097956261544520863361400 35605794) 35605794) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2486) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 38532137569034426600955256933810890813 1341358608707) 6436369) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2488) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1396277868664090735481380981225896 312520860) 62504172) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2490) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 864038349500762576564773759109700 714136202724) 16607818668) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2492) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 12514185871591242579049167322464 10706997440178) 200614518) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2494) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1981802660405609330969478067056636 33312289752) 14779188) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2496) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 979313401024175219420658240 125278417383795) 1551032145) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2498) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 1051433196834071287164549263315400 1) 1) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2500) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 4074026154111369481048033354344 29) 29) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2502) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 599666571180604695702511920885005100 129) 129) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2504) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 5703263639326551702474610108800 1978) 1978) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2506) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 134137932950214683609064669163440 190619) 143) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2508) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 344735091370772631136645455600 1048985) 1048985) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2510) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 6759508339299085316106145385400 4969610) 160310) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2512) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 700334422308861928135313594400 228529587) 432003) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2514) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 10277417891211405957191810814198480 2516552038) 228777458) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2516) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 490099971577877358878082782880 9282588354) 17547426) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2518) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1954558750269048828645390249600 5575829490) 327989970) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2520) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1360588454560018295496656378989200 7868178296420) 14873682980) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2522) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 4337552841738910859248770564912480 17722936528737830) ; 338114285990) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2524) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 215913068853045803981566931862756 7009479781500) 2930844) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2526) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 44890707654126305940250882318870941900 18329973480720) ; 1527497790060) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2528) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 811032943236714514667976787713600 1) 1) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2530) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 28579720891831355496720656680837200 3) 3) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2532) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 29332703209780553199747293473184160 1711) 29) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2534) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 3648979393315349438003046604440000 186) 186) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2536) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1159760236369472473822068077011807878780 25714) 25714) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2538) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 158186359726371025615685433600 31395) 4485) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2540) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 331091450443070201468559735703944 28424) 28424) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2542) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 9734443639363161342241553023288200 1961348207) 63269297) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2544) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 701896612128009033011419603540080 51300) 3420) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2546) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 86169288128517384618860929451245320 5032162527446) 180164066) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2548) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 64828800524794653881296183831741773624 4645294472) 6354712) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2550) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 49068907706533938991402184550000 268183371225) 742890225) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2552) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1708602980304476478496020543612288 4083128544) 131713824) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2554) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 17608179287674151740172985536160 980399424528) 91686096) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2556) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 43194437079731225735521919644800 178119261126453036) ; 80633436453804) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2558) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 25246290024325083695058170420074167420 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2560) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 817555977437791699707628651571149344 59) 59) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2562) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 19062946261334997559157066059536 533) 41) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2564) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 6533849124840489114353090499099000 598) 26) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2566) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 427663965127849896842400211428345149025 234) 117) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2568) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 352395507261316174741530450071590608 154734) 3774) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2570) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 391579493632653867660919800000 9221565) 645) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2572) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2618798923882923048581401148931738000 681876) 52452) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2574) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 174712575449141140214591110997980800 233260339838) 126154862) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2576) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 88598141227372995032227898284800 1929763976) 155288) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2578) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 210110141308655567793064872567302676320 720390430628) 468699044) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2580) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 668425085137718599277317523827419000 19898594339442) 58711254) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2582) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 89533471731097208414073727453200 4173840860670546) 2257350384354) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2584) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 113987439157802480362236410675251462620 21548296273949445) ; 1134120856523655) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2586) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 48129335993995093308894209644253760 1009442888504820) ; 84891337020) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2588) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 3497836376962291922989777163497680 138736290091634664) ; 3383811953454504) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2590) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1969012592912798752707609058217540160 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2592) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 11371924962562208722154622794880 3) 3) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2594) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 9451631862008339290824315653784000 703) 19) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2596) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 16869347753325980368094612370435598560 806) 806) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2598) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 4701845646467068759127854100132739552 3198) 6) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2600) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1029865193584911347147121232800485280 1005771) 24531) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2602) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 10657125216930337802109861408000 2415138) 2838) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2604) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 14382707743772734802155022983680 247913634) 144894) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2606) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 60134748581470366378101904574533857248 54828228) 493948) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2608) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 214830664120540781167218700750596000 505665810) 11759670) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2610) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 48933004118344447687599112101802800 6263883444) 106167516) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2612) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 5498670161558110606435630054129739400 262699548132) 1346604) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2614) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 35941673649029587182509620977230062500 25622409466332) 525598668) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2616) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1592802602494326390643157055239113248 736377633395508) ; 960075141324) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2618) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 4043816553144402557587143272522043028314 5011466158645380) ; 366067652202) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2620) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 7171921165220830707276631005512550 1765284492289500) ; 176528449228950) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2622) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1083389923993353036483083606295714771264 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2624) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2402189359210218692854826119405968750 23) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2626) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 26149068753160488131648964110990162400 1147) 31) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2628) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 556184059176863945810376239306506311552 4089) 4089) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2630) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 67871323087036310486238021899264593800 13395) 13395) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2632) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 12750401179065252879838440979200 7177173) 7177173) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2634) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 278110245000092733617125071646080 17748) 17748) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2636) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 13408203364935178481017292708752000 50619404) 1368092) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2638) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 124271828931784534297423756437875067000 8839796595) 4068015) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2640) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 11893442806922081156953529319100769836176 972789007267) ; 983608703) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2642) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 352581052555284857902053030133344488264100 923561430099) ; 54327142947) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2644) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 6108908012714804315575319947340956346976 31944833628092) ; 97096758748) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2646) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 67475643422116264959949054821520228800 22515435540) 326310660) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2648) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 470601888939348535946408832 5135943991060962937) 36905011) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2650) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 110759232155568113345545635903016614000 30159198663300) ; 30159198663300) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2652) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 146100914712024458707469587112300146320 26868173101560) 10304280) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2654) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 12173192708601511002951184416658091200 466645866900785428350) ; 1496624001041650) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2656) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 9286427982337931754305327867454626688 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2658) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 5784684831478746253226687170890240 13) 13) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2660) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 35042260655085685815432622412891903767500 667) 667) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2662) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2903871349270676921837488659419545120987500 530) 530) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2664) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 630123969240840167098426767919876491188000 77691) 25897) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2666) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 33192703032132982013024959634241667249800 4684718) 126614) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2668) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 4731525733734729472809717145544850000 90706055) 90706055) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2670) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 214011009809686092216200126896120006823232 50400042) 258) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2672) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 5854250735296111435541950856160000 24357777002) 817622) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2674) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 35348208247612761916374738259136697649608 156806713508) 8596388) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2676) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 612558317420289618714916924536521515286100 2377007388) 125105652) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2678) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 181857299802925368992522029882739454720 21606337755618) ; 21606337755618) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2680) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 4731635341196946327443020710970699860000 58092526675092) ; 776108892) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2682) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 22081740554432638182773611616166588288192 61419768950540) ; 12283953790108) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2684) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 125627844706077784535328068665849312000 30482033400) 32200) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2686) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1225504716872819103560254268197955520 510813364186125) ; 168863922045) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2688) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 5209185280578468690281136425214396728400 2327880739319250103818) ; 829166238) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2690) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 73754161795015038015868615941656064 1) 1) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2692) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 230425011604643097634961294406535254400 31) 31) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2694) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 13222608481676137093434201748083744000 893) 893) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2696) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 13348198818240350339028224064019716678960 651) 3) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2698) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 7236172685650198160266777676385295337308176 23426) 442) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2700) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 756264162229440667711265021676693350760 28899) 28899) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2702) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 40915062421030872924283823601517905600 36345062) 36345062) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2704) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1174590526522170015825602834292923520 4991486258) 145114) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2706) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2891892862328155581145450075391651333218020 35138529818) ; 35138529818) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2708) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1993335355070485984559797658834121810059400 535644500) 2612900) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2710) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 6324295450641455215591954662726515160 367472693133) 8962748613) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2712) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 6576388154814679090356195121505112000 15901952377630) 969690370) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2714) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 117828556355409428513249595788296238400 565992666495795) ; 33126555) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2716) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 592831716700236607285748949860604000 139641978135660) ; 343100683380) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2718) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 106766839071170184723986891291602032000 1584924526628112) ; 1983635202288) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2720) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 21677148858122146832326483307664860804937400 247815827510760) ; 9178363981880) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2722) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 14079549844487257384278196623697173813600 160967604100961853832) ; 42959600534344) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2724) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= ; (GCD 2696480372014145687016224877963234647656980 2219319031453896088860) ; 1258830987778727220) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2726) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (GCD 307212139856834093867812684883625600 1) 1) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2728) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 13545431257849875145060979241270859310160 29) 29) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2730) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 137485634482479300158725199474868559498162500 329) 47) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2732) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 529252417743761759027305009539254400 3243) 3243) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2734) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 133897419738958073238580385894509887148800 330455) 330455) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2736) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 3896215507210178905244623173635584334007288624 1005238) 1005238) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2738) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 17654511984514518592175290794029073043800 1060530) 36570) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2740) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 16470780256339082688310222474503880382858400 913836) 913836) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2742) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 57267105834722825210001789897760395576000 2958974018) 62956894) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2744) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 521977833444747522001426544601807810543216 1066521690) 4960566) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2746) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1699559962174727325529414216960251941390400 25883611479) ; 30924267) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2748) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 10654036597801063717295948399628964800 317449894126222) ; 19212606314) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2750) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 381902381115592200811990304316262139150724960 4640335440216) ; 4640335440216) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2752) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= ; (GCD 425968526187959807410151867411382902838703889232 1882826315615025) ; 4430179566153) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2754) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 174609167728518272531601927200939868792000 1712923655178450) ; 6189150) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2756) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 3325168366561555458817274989681612518000 1699726139891780) ; 130748164607060) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2758) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 11429650426242566426919762928176000 7414967839104) 5416338816) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2760) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2104794191230056678355480848036599377844400 16946684823025584) ; 182222417451888) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2762) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 5188454261655149422618327055938033890000 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2764) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 11894522530167763519415142641640874994880 7) 7) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2766) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 5906329981690378696996009087718418780000 185) 185) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2768) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 3056294774178096513474941936265025440000 658) 658) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2770) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 10491907660880423349353457742257185280 123369) 123369) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2772) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 673239479595593149777212259021965839229225628776 15470) 3094) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2774) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1506608574369860432616005754109397877696 1474070) 294814) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2776) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 4849814041048623250005708880379694793905000 2172220582) ; 2172220582) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2778) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 21154344928580705924176101470087564940000 5023204186) 5023204186) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2780) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 346448039376394135288065831861806112294000 776147372) 25037012) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2782) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2339009760844587560470606952218133142645504 194201967414) ; 5248701822) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2784) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2242982161480922111384667548175169152 21419749763490) 2316901002) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2786) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 4717315265246821759830981157482117120 45609714193992) ; 26227552728) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2788) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 16628111321698075419789804224660024289936 4643626415880804) ; 1653124391556) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2790) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 115557531507210992033160068979962880 88406536976058378) ; 36546728803662) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2792) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 21059511907771200155093927745003762840000 180298981648603620) ; 191197223381340) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2794) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2124921015128697258800067298086064536000 2282525112298516782924) ; 15103625661372) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2796) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 16015671538624533047089928322348864000 49817926936366875) ; 69075001125) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2798) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= ; (GCD 166517667014186289390514558017250969134523800 ; 43413708621878528404068) ; 1188862957578074004) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2800) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2321860177398622617128885988647241763878824640 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2802) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 2780796292789128359666429021610464935722000 47) 47) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2804) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 21297913114430245153455383503409684916193317960 58) 58) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2806) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1516745257039775143654568869485529015398000 6293) 6293) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2808) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 8447692776411453120390905608381515479808 2030) 14) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2810) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 958876033949638283967045624731391031146081240 9834415) 166685) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2812) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 4731349833403602529573388098680617532624192 14868) 14868) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2814) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 6375001358038970462026761077388061675464000 430513678) 430513678) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2816) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 254088526608579040642428151389718385042344800 4799428101) 255411) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2818) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 21140490542258031885408065086507444825621023648 164778747198) ; 13189686) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2820) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 34214837305812460226811046733375808000 4312787868) 746028) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2822) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 11450197571956515037245443769386989035470896800 75585518430279) ; 5814270648483) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2824) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1211397915863796187148880114197307052796506376580 538601201880) ; 11708721780) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2826) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 5454139401260819402160859765169199667337088 30452838731872) ; 48414687968) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2828) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 744935981632690384026127091216926530879171660 1032747922358460) ; 60868033380) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2830) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 324574326062026951443376280715122947502400 103751223626207988025) ; 3334229637375325) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2832) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 15272163751269260921486082393684080908800 6484309049057400) ; 341279423634600) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2834) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= ; (GCD 386527546655781220813671331401971490218262720 3481571963427119100) ; 1915440648660) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2836) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 3189682029126430413458911948222943640000 6724598925622907976570) ; 829921474949490) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2838) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 133126055001116059223314464992298215523836640 1) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2840) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 709403542855323660533377490060722241678400 7) 7) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2842) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 139803787314578422635552652090095842837312147438904 123) 123) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2844) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 171985399350431759069945935900956183322827030835560 18241) 18241) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2846) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 33090522521924986387051477884789600000 26187) 609) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2848) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1733723010009930088165729903139785699319986530 372945) 7935) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2850) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 56408303994570817306318494803635460247582000 5761730) 10810) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2852) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 25845509336769185412951159262424903513866295760 64371378271) ; 64371378271) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2854) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 624970361450506104794172455132584603069611058500 108222780) ; 108222780) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2856) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 82823962548382643645255524843049561752323600 135325929794) ; 12302357254) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2858) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 170620453449723034746079844571491973300000 9460614789626) ; 230746702186) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2860) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 125144597811313015929871740675462711600000 12764411911636) ; 12726233212) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2862) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 257193319319332344553297882967977761077115600 6510126541380) ; 158783574180) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2864) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 879624546681838385457288074812140664728758550 10045784120501316) ; 80757786714) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2866) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 18300938860777100857669855248554588369659200 118088077425391892) ; 1433647093268) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2868) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 8394780474625841647581984803260010511075000 746584618179400) ; 11198041400) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2870) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 146802334713757872619395774222116859916800 718775571956687400) ; 854667743111400) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2872) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= ; (GCD 240155883351717999820072393833707008014911556000 ; 1350921510529331832) ; 10157304590446104) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2874) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 918942437243241528855354123800826649596480 74343962238703160850) ; 3476056267530) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2876) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= (GCD 1361069299753299783990135442290762165844800 8281085446358585640) ; 8546011812547560) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/hash.pure.lisp ; in: LAMBDA NIL ; (GO #:G2878) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(NOT ; (TYPEP SB-IMPL::+MAGIC-HASH-VECTOR-VALUE+ '(AND FIXNUM UNSIGNED-BYTE))) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/interface.pure.lisp #0A0 is an array of dimension (). #(1 2 3) is a vector with 3 elements. #2A((1 2) (3 4)) is an array of dimension (2 2). ; in: LAMBDA NIL ; (GO #:G2888) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (SPECIAL-OPERATOR-P 'DECLARE)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (SLEEP 2) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; 4F3B39A0: .ENTRY +(&REST ARGS) ; (FUNCTION # *) ; 9BC: 3A7FFFD3 ADDI $CODE,$LIP,-45 ; 9C0: 3A0F0020 ADDI $CSP,$CFP,32 ; 9C4: 7E038378 MR $NL0,$CSP ; 9C8: 2C0B0000 CMPWI CR0,$NARGS,0 ; 9CC: 7E105A14 ADD $CSP,$CSP,$NARGS ; 9D0: 41820058 BT EQ,L6 ; 9D4: 348BFFF0 ADDIC. $NL1,$NARGS,-16 ; 9D8: 4081001C BF GT,L1 ; 9DC: 7E068378 MR $NL3,$CSP ; 9E0: 7CAF5A14 ADD $NL2,$CFP,$NARGS ; 9E4: L0: 8785FFFC LWZU $L0,-4($NL2) ; 9E8: 3484FFFC ADDIC. $NL1,$NL1,-4 ; 9EC: 9786FFFC STWU $L0,-4($NL3) ; 9F0: 4181FFF4 BT GT,L0 ; 9F4: L1: 348B0000 ADDIC. $NL1,$NARGS,0 ; 9F8: 41820030 BT EQ,L6 ; 9FC: 3484FFFC ADDIC. $NL1,$NL1,-4 ; A00: 93030000 STW $A0,0($NL0) ; A04: 41820024 BT EQ,L6 ; A08: 3484FFFC ADDIC. $NL1,$NL1,-4 ; A0C: 93230004 STW $A1,4($NL0) ; A10: 41820018 BT EQ,L6 ; A14: 3484FFFC ADDIC. $NL1,$NL1,-4 ; A18: 93430008 STW $A2,8($NL0) ; A1C: 4182000C BT EQ,L6 ; A20: 3484FFFC ADDIC. $NL1,$NL1,-4 ; A24: 9363000C STW $A3,12($NL0) ; A28: L2: L3: L4: L5: L6:916F0010 STW $NARGS,16($CFP) ; A2C: 92CF0000 STW $OCFP,0($CFP) ; A30: 92EF0004 STW $LRA,4($CFP) ; A34: 806F0010 LWZ $NL0,16($CFP) ; A38: 38830000 ADDI $NL1,$NL0,0 ; A3C: 7D448050 SUBF $FDEFN,$NL1,$CSP ; A40: 7D435378 MR $NL0,$FDEFN ; A44: 2C040000 CMPWI CR0,$NL1,0 ; A48: 7E589378 MR $A0,$NULL ; A4C: 41820080 BT EQ,L11 ; A50: 62310004 ORI $ALLOC,$ALLOC,4 ; A54: 548A083C RLWINM $FDEFN,$NL1,1,0,30 ; A58: 7D455378 MR $NL2,$FDEFN ; A5C: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A60: 38C663E8 ADDI $NL3,$NL3,25576 ; A64: 83060000 LWZ $A0,0($NL3) ; A68: 80C60004 LWZ $NL3,4($NL3) ; A6C: 7F182A14 ADD $A0,$A0,$NL2 ; A70: 7C183000 CMPW CR0,$A0,$NL3 ; A74: 4081000C BF GT,L7 ; A78: 7CB83008 TW LGE,$A0,$NL3 ; A7C: 48000010 B L8 ; A80: L7: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A84: 38C663E8 ADDI $NL3,$NL3,25576 ; A88: 93060000 STW $A0,0($NL3) ; A8C: L8: 7F05C050 SUBF $A0,$NL2,$A0 ; A90: 63180003 ORI $A0,$A0,3 ; A94: 7F05C378 MR $NL2,$A0 ; A98: 4800000C B L10 ; A9C: L9: 38A50008 ADDI $NL2,$NL2,8 ; AA0: 90A5FFF9 STW $NL2,-7($NL2) ; AA4: L10: 81430000 LWZ $FDEFN,0($NL0) ; AA8: 38630004 ADDI $NL0,$NL0,4 ; AAC: 3484FFFC ADDIC. $NL1,$NL1,-4 ; AB0: 9145FFFD STW $FDEFN,-3($NL2) ; AB4: 4181FFE8 BT GT,L9 ; AB8: 92450001 STW $NULL,1($NL2) ; ABC: 38C0FFFB ADDI $NL3,$ZERO,-5 ; AC0: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; AC4: 72260001 ANDI. $NL3,$ALLOC,1 ; AC8: 0F060000 TWI NE,$NL3,0 ; ACC: L11: 7C189000 CMPW CR0,$A0,$NULL ; AD0: 418200AC BT EQ,L18 ; AD4: 81580001 LWZ $FDEFN,1($A0) ; AD8: 8318FFFD LWZ $A0,-3($A0) ; ADC: 73030003 ANDI. $NL0,$A0,3 ; AE0: 4182001C BT EQ,L12 ; AE4: 73030007 ANDI. $NL0,$A0,7 ; AE8: 2C030007 CMPWI CR0,$NL0,7 ; AEC: 40820080 BF EQ,L17 ; AF0: 8878FFFC LBZ $NL0,-4($A0) ; AF4: 2C030022 CMPWI CR0,$NL0,34 ; AF8: 41810074 BT GT,L17 ; AFC: L12: 48000048 B L14 ; B00: L13: 71430007 ANDI. $NL0,$FDEFN,7 ; B04: 0C0A0002 TWI F,$FDEFN,2 ; B08: 0F030003 TWI NE,$NL0,3 ; B0C: 7D595378 MR $A1,$FDEFN ; B10: 83390001 LWZ $A1,1($A1) ; B14: 932F000C STW $A1,12($CFP) ; B18: 832AFFFD LWZ $A1,-3($FDEFN) ; B1C: 3AF301A8 ADDI $LRA,$CODE,424 ; B20: 3CA00400 ADDIS $NL2,$ZERO,1024 ; B24: 38A50218 ADDI $NL2,$NL2,536 ; B28: 7CA803A6 MTLR $NL2 ; B2C: 4E800020 BLR ; B30: 00006A36 BYTE #X00, #X00, #X6A, #X36 ; possible LRA header ; B34: 7ED0B378 MR $CSP,$OCFP ; B38: 60000000 NOP ; B3C: 3A73FE58 ADDI $CODE,$CODE,-424 ; B40: 814F000C LWZ $FDEFN,12($CFP) ; B44: L14: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; B48: 4082FFB8 BF EQ,L13 ; B4C: L15: 806F0000 LWZ $NL0,0($CFP) ; B50: 814F0004 LWZ $FDEFN,4($CFP) ; B54: 7DF07B78 MR $CSP,$CFP ; B58: 7C6F1B78 MR $CFP,$NL0 ; B5C: 3BEA0005 ADDI $LIP,$FDEFN,5 ; B60: 7FE803A6 MTLR $LIP ; B64: 7D535378 MR $CODE,$FDEFN ; B68: 4E800020 BLR ; B6C: L16: L17:8153000D LWZ $FDEFN,13($CODE) ; 'NUMBER ; B70: 0CC0000A UNIMP 10 ; Error trap ; B74: 07 BYTE #X07 ; B75: 1F BYTE #X1F ; OBJECT-NOT-TYPE-ERROR ; B76: FE0603 BYTE #XFE, #X06, #X03 ; A0 ; B79: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; B7C: L18: 7C180378 MR $A0,$ZERO ; B80: 4BFFFFCC B L15 ; B84: 00000000 BYTE #X00, #X00, #X00, #X00 ; ; 4FA49D20: .ENTRY RUN-PROGRAM(PROGRAM ARGS &KEY (ENV NIL ENV-P) (ENVIRONMENT (IF ENV-P (UNIX-ENVIRONMENT-SBCL-FROM-CMUCL ENV) (POSIX-ENVIRON)) ENVIRONMENT-P) (WAIT T) SEARCH PTY INPUT IF-INPUT-DOES-NOT-EXIST OUTPUT (IF-OUTPUT-EXISTS ERROR) (ERROR OUTPUT) (IF-ERROR-EXISTS ERROR) STATUS-HOOK) ; (FUNCTION ; # ..) ; 9D3C: 3A7FFEC3 ADDI $CODE,$LIP,-317 ; 9D40: 3A0F0100 ADDI $CSP,$CFP,256 ; 9D44: 7E038378 MR $NL0,$CSP ; 9D48: 348BFFF8 ADDIC. $NL1,$NARGS,-8 ; 9D4C: 40810044 BF GT,L4 ; 9D50: 7E102214 ADD $CSP,$CSP,$NL1 ; 9D54: 348BFFF0 ADDIC. $NL1,$NARGS,-16 ; 9D58: 4081001C BF GT,L1 ; 9D5C: 7E068378 MR $NL3,$CSP ; 9D60: 7CAF5A14 ADD $NL2,$CFP,$NARGS ; 9D64: L0: 8785FFFC LWZU $L0,-4($NL2) ; 9D68: 3484FFFC ADDIC. $NL1,$NL1,-4 ; 9D6C: 9786FFFC STWU $L0,-4($NL3) ; 9D70: 4181FFF4 BT GT,L0 ; 9D74: L1: 348BFFF8 ADDIC. $NL1,$NARGS,-8 ; 9D78: 41820018 BT EQ,L4 ; 9D7C: 3484FFFC ADDIC. $NL1,$NL1,-4 ; 9D80: 93430000 STW $A2,0($NL0) ; 9D84: 4182000C BT EQ,L4 ; 9D88: 3484FFFC ADDIC. $NL1,$NL1,-4 ; 9D8C: 93630004 STW $A3,4($NL0) ; 9D90: L2: L3: L4:7EC5B378 MR $NL2,$OCFP ; 9D94: 2C0B0008 CMPWI CR0,$NARGS,8 ; 9D98: 41800018 BT LT,L5 ; 9D9C: 38EBFFF8 ADDI $NL4,$NARGS,-8 ; 9DA0: 7F478050 SUBF $A2,$NL4,$CSP ; 9DA4: 930F0024 STW $A0,36($CFP) ; 9DA8: 932F0028 STW $A1,40($CFP) ; 9DAC: 48000010 B L6 ; 9DB0: L5: 0CC0000A UNIMP 10 ; Error trap ; 9DB4: 04 BYTE #X04 ; 9DB5: 18 BYTE #X18 ; INVALID-ARG-COUNT-ERROR ; 9DB6: FE6501 BYTE #XFE, #X65, #X01 ; NARGS ; 9DB9: .ALIGN 4 ; 9DBC: L6: 92EF0004 STW $LRA,4($CFP) ; 9DC0: 3887FFFC ADDI $NL1,$NL4,-4 ; 9DC4: 7E4A9378 MR $FDEFN,$NULL ; 9DC8: 914F002C STW $FDEFN,44($CFP) ; 9DCC: 7E4A9378 MR $FDEFN,$NULL ; 9DD0: 7E5B9378 MR $A3,$NULL ; 9DD4: 7E569378 MR $OCFP,$NULL ; 9DD8: 7E579378 MR $LRA,$NULL ; 9DDC: 7E549378 MR $CNAME,$NULL ; 9DE0: 3AB2001C ADDI $LEXENV,$NULL,28 ; T ; 9DE4: 7E5C9378 MR $L0,$NULL ; 9DE8: 7E5D9378 MR $L1,$NULL ; 9DEC: 7E5E9378 MR $L2,$NULL ; 9DF0: 7E4A9378 MR $FDEFN,$NULL ; 9DF4: 914F0014 STW $FDEFN,20($CFP) ; 9DF8: 7E4A9378 MR $FDEFN,$NULL ; 9DFC: 914F0008 STW $FDEFN,8($CFP) ; 9E00: 81530011 LWZ $FDEFN,17($CODE) ; :ERROR ; 9E04: 914F000C STW $FDEFN,12($CFP) ; 9E08: 81530015 LWZ $FDEFN,21($CODE) ; :OUTPUT ; 9E0C: 914F0010 STW $FDEFN,16($CFP) ; 9E10: 81530011 LWZ $FDEFN,17($CODE) ; :ERROR ; 9E14: 914F0018 STW $FDEFN,24($CFP) ; 9E18: 7E4A9378 MR $FDEFN,$NULL ; 9E1C: 914F001C STW $FDEFN,28($CFP) ; 9E20: 7E4A9378 MR $FDEFN,$NULL ; 9E24: 914F0020 STW $FDEFN,32($CFP) ; 9E28: 7E599378 MR $A1,$NULL ; 9E2C: 70E30004 ANDI. $NL0,$NL4,4 ; 9E30: 4082024C BF EQ,L39 ; 9E34: 480001B0 B L36 ; 9E38: L7: 7C862378 MR $NL3,$NL1 ; 9E3C: 38660000 ADDI $NL0,$NL3,0 ; 9E40: 7F1A182E LWZX $A0,$A2,$NL0 ; 9E44: 930F002C STW $A0,44($CFP) ; 9E48: 3884FFFC ADDI $NL1,$NL1,-4 ; 9E4C: 7C862378 MR $NL3,$NL1 ; 9E50: 38660000 ADDI $NL0,$NL3,0 ; 9E54: 7D5A182E LWZX $FDEFN,$A2,$NL0 ; 9E58: 3884FFFC ADDI $NL1,$NL1,-4 ; 9E5C: 83130019 LWZ $A0,25($CODE) ; :ENV ; 9E60: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9E64: 40820010 BF EQ,L8 ; 9E68: 3B72001C ADDI $A3,$NULL,28 ; T ; 9E6C: 82CF002C LWZ $OCFP,44($CFP) ; 9E70: 48000174 B L36 ; 9E74: L8: 8313001D LWZ $A0,29($CODE) ; :ENVIRONMENT ; 9E78: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9E7C: 418200EC BT EQ,L11 ; 9E80: 83130021 LWZ $A0,33($CODE) ; :WAIT ; 9E84: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9E88: 418200EC BT EQ,L12 ; 9E8C: 83130025 LWZ $A0,37($CODE) ; :SEARCH ; 9E90: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9E94: 418200E8 BT EQ,L13 ; 9E98: 83130029 LWZ $A0,41($CODE) ; :PTY ; 9E9C: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9EA0: 418200E4 BT EQ,L14 ; 9EA4: 8313002D LWZ $A0,45($CODE) ; :INPUT ; 9EA8: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9EAC: 418200E0 BT EQ,L15 ; 9EB0: 83130031 LWZ $A0,49($CODE) ; :IF-INPUT-DOES-NOT-EXIST ; 9EB4: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9EB8: 418200DC BT EQ,L16 ; 9EBC: 83130015 LWZ $A0,21($CODE) ; :OUTPUT ; 9EC0: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9EC4: 418200DC BT EQ,L17 ; 9EC8: 83130035 LWZ $A0,53($CODE) ; :IF-OUTPUT-EXISTS ; 9ECC: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9ED0: 418200DC BT EQ,L18 ; 9ED4: 83130011 LWZ $A0,17($CODE) ; :ERROR ; 9ED8: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9EDC: 418200DC BT EQ,L19 ; 9EE0: 83130039 LWZ $A0,57($CODE) ; :IF-ERROR-EXISTS ; 9EE4: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9EE8: 418200DC BT EQ,L20 ; 9EEC: 8313003D LWZ $A0,61($CODE) ; :STATUS-HOOK ; 9EF0: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9EF4: 418200DC BT EQ,L21 ; 9EF8: 83130041 LWZ $A0,65($CODE) ; :ALLOW-OTHER-KEYS ; 9EFC: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 9F00: 418200DC BT EQ,L22 ; 9F04: 62310004 ORI $ALLOC,$ALLOC,4 ; 9F08: 38600008 ADDI $NL0,$ZERO,8 ; 9F0C: 3CC01003 ADDIS $NL3,$ZERO,4099 ; 9F10: 38C663E8 ADDI $NL3,$NL3,25576 ; 9F14: 83060000 LWZ $A0,0($NL3) ; 9F18: 80C60004 LWZ $NL3,4($NL3) ; 9F1C: 7F181A14 ADD $A0,$A0,$NL0 ; 9F20: 7C183000 CMPW CR0,$A0,$NL3 ; 9F24: 4081000C BF GT,L9 ; 9F28: 7CB83008 TW LGE,$A0,$NL3 ; 9F2C: 48000010 B L10 ; 9F30: L9: 3CC01003 ADDIS $NL3,$ZERO,4099 ; 9F34: 38C663E8 ADDI $NL3,$NL3,25576 ; 9F38: 93060000 STW $A0,0($NL3) ; 9F3C: L10: 7F03C050 SUBF $A0,$NL0,$A0 ; 9F40: 63180003 ORI $A0,$A0,3 ; 9F44: 38C0FFFB ADDI $NL3,$ZERO,-5 ; 9F48: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; 9F4C: 72260001 ANDI. $NL3,$ALLOC,1 ; 9F50: 0F060000 TWI NE,$NL3,0 ; 9F54: 9158FFFD STW $FDEFN,-3($A0) ; 9F58: 7E4A9378 MR $FDEFN,$NULL ; 9F5C: 91580001 STW $FDEFN,1($A0) ; 9F60: 7F19C378 MR $A1,$A0 ; 9F64: 48000080 B L36 ; 9F68: L11: 3AF2001C ADDI $LRA,$NULL,28 ; T ; 9F6C: 828F002C LWZ $CNAME,44($CFP) ; 9F70: 48000074 B L36 ; 9F74: L12: 82AF002C LWZ $LEXENV,44($CFP) ; 9F78: 4800006C B L36 ; 9F7C: L13: 838F002C LWZ $L0,44($CFP) ; 9F80: 48000064 B L36 ; 9F84: L14: 83AF002C LWZ $L1,44($CFP) ; 9F88: 4800005C B L36 ; 9F8C: L15: 83CF002C LWZ $L2,44($CFP) ; 9F90: 48000054 B L36 ; 9F94: L16: 814F002C LWZ $FDEFN,44($CFP) ; 9F98: 914F0014 STW $FDEFN,20($CFP) ; 9F9C: 48000048 B L36 ; 9FA0: L17: 814F002C LWZ $FDEFN,44($CFP) ; 9FA4: 914F0008 STW $FDEFN,8($CFP) ; 9FA8: 4800003C B L36 ; 9FAC: L18: 814F002C LWZ $FDEFN,44($CFP) ; 9FB0: 914F000C STW $FDEFN,12($CFP) ; 9FB4: 48000030 B L36 ; 9FB8: L19: 814F002C LWZ $FDEFN,44($CFP) ; 9FBC: 914F0010 STW $FDEFN,16($CFP) ; 9FC0: 48000024 B L36 ; 9FC4: L20: 814F002C LWZ $FDEFN,44($CFP) ; 9FC8: 914F0018 STW $FDEFN,24($CFP) ; 9FCC: 48000018 B L36 ; 9FD0: L21: 814F002C LWZ $FDEFN,44($CFP) ; 9FD4: 914F001C STW $FDEFN,28($CFP) ; 9FD8: 4800000C B L36 ; 9FDC: L22: 814F002C LWZ $FDEFN,44($CFP) ; 9FE0: 914F0020 STW $FDEFN,32($CFP) ; 9FE4: L23: L24: L25: L26: L27: L28: L29: L30: L31: L32: L33: L34: L35: L36:2C040000 CMPWI CR0,$NL1,0 ; 9FE8: 4080FE50 BF LT,L7 ; 9FEC: 7C199000 CMPW CR0,$A1,$NULL ; 9FF0: 40820070 BF EQ,L38 ; 9FF4: L37: 814F0024 LWZ $FDEFN,36($CFP) ; 9FF8: 914F0038 STW $FDEFN,56($CFP) ; 9FFC: 814F0028 LWZ $FDEFN,40($CFP) ; A000: 914F0044 STW $FDEFN,68($CFP) ; A004: 92CF0058 STW $OCFP,88($CFP) ; A008: 936F0048 STW $A3,72($CFP) ; A00C: 928F005C STW $CNAME,92($CFP) ; A010: 92EF004C STW $LRA,76($CFP) ; A014: 92AF0060 STW $LEXENV,96($CFP) ; A018: 938F0064 STW $L0,100($CFP) ; A01C: 93AF0068 STW $L1,104($CFP) ; A020: 93CF006C STW $L2,108($CFP) ; A024: 814F0014 LWZ $FDEFN,20($CFP) ; A028: 914F0070 STW $FDEFN,112($CFP) ; A02C: 814F0008 LWZ $FDEFN,8($CFP) ; A030: 914F0074 STW $FDEFN,116($CFP) ; A034: 814F000C LWZ $FDEFN,12($CFP) ; A038: 914F0078 STW $FDEFN,120($CFP) ; A03C: 814F0010 LWZ $FDEFN,16($CFP) ; A040: 914F0050 STW $FDEFN,80($CFP) ; A044: 814F0018 LWZ $FDEFN,24($CFP) ; A048: 914F007C STW $FDEFN,124($CFP) ; A04C: 814F001C LWZ $FDEFN,28($CFP) ; A050: 914F0054 STW $FDEFN,84($CFP) ; A054: 90AF0000 STW $NL2,0($CFP) ; A058: 82EF0004 LWZ $LRA,4($CFP) ; A05C: 48000028 B L40 ; A060: L38: 814F0020 LWZ $FDEFN,32($CFP) ; A064: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; A068: 4082FF8C BF EQ,L37 ; A06C: 8159FFFD LWZ $FDEFN,-3($A1) ; A070: 0CC0000A UNIMP 10 ; Error trap ; A074: 04 BYTE #X04 ; A075: 21 BYTE #X21 ; UNKNOWN-KEY-ARG-ERROR ; A076: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; A079: .ALIGN 4 ; A07C: L39: 0CC0000A UNIMP 10 ; Error trap ; A080: 01 BYTE #X01 ; A081: 20 BYTE #X20 ; ODD-KEY-ARGS-ERROR ; A082: .ALIGN 4 ; A084: L40: 92EF0004 STW $LRA,4($CFP) ; A088: 814F004C LWZ $FDEFN,76($CFP) ; A08C: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; A090: 418209D0 BT EQ,L72 ; A094: 814F005C LWZ $FDEFN,92($CFP) ; A098: L41: L42:914F0034 STW $FDEFN,52($CFP) ; A09C: 814F0048 LWZ $FDEFN,72($CFP) ; A0A0: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; A0A4: 4082097C BF EQ,L71 ; A0A8: L43: 81530045 LWZ $FDEFN,69($CODE) ; # ; A0AC: 832A0001 LWZ $A1,1($FDEFN) ; A0B0: 7C199000 CMPW CR0,$A1,$NULL ; A0B4: 418214D4 BT EQ,L120 ; A0B8: 3B000044 ADDI $A0,$ZERO,68 ; A0BC: 81530049 LWZ $FDEFN,73($CODE) ; # ; A0C0: 39600008 ADDI $NARGS,$ZERO,8 ; A0C4: 83EA0005 LWZ $LIP,5($FDEFN) ; A0C8: 3AF304E8 ADDI $LRA,$CODE,1256 ; A0CC: 7DF67B78 MR $OCFP,$CFP ; A0D0: 7E0F8378 MR $CFP,$CSP ; A0D4: 7FE903A6 MTCTR $LIP ; A0D8: 4E800420 BCTR ; A0DC: 00000000 BYTE #X00, #X00, #X00, #X00 ; A0E0: 00013A36 BYTE #X00, #X01, #X3A, #X36 ; possible LRA header ; A0E4: 7ED0B378 MR $CSP,$OCFP ; A0E8: 60000000 NOP ; A0EC: 3A73FB18 ADDI $CODE,$CODE,-1256 ; A0F0: 830F0038 LWZ $A0,56($CFP) ; A0F4: 8153004D LWZ $FDEFN,77($CODE) ; # ; A0F8: 39600004 ADDI $NARGS,$ZERO,4 ; A0FC: 83EA0005 LWZ $LIP,5($FDEFN) ; A100: 3AF30520 ADDI $LRA,$CODE,1312 ; A104: 7DF67B78 MR $OCFP,$CFP ; A108: 7E0F8378 MR $CFP,$CSP ; A10C: 7FE903A6 MTCTR $LIP ; A110: 4E800420 BCTR ; A114: 00000000 BYTE #X00, #X00, #X00, #X00 ; A118: 00014836 BYTE #X00, #X01, #X48, #X36 ; possible LRA header ; A11C: 7ED0B378 MR $CSP,$OCFP ; A120: 60000000 NOP ; A124: 3A73FAE0 ADDI $CODE,$CODE,-1312 ; A128: 62310004 ORI $ALLOC,$ALLOC,4 ; A12C: 38600008 ADDI $NL0,$ZERO,8 ; A130: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A134: 38C663E8 ADDI $NL3,$NL3,25576 ; A138: 81460000 LWZ $FDEFN,0($NL3) ; A13C: 80C60004 LWZ $NL3,4($NL3) ; A140: 7D4A1A14 ADD $FDEFN,$FDEFN,$NL0 ; A144: 7C0A3000 CMPW CR0,$FDEFN,$NL3 ; A148: 4081000C BF GT,L44 ; A14C: 7CAA3008 TW LGE,$FDEFN,$NL3 ; A150: 48000010 B L45 ; A154: L44: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A158: 38C663E8 ADDI $NL3,$NL3,25576 ; A15C: 91460000 STW $FDEFN,0($NL3) ; A160: L45: 7D435050 SUBF $FDEFN,$NL0,$FDEFN ; A164: 614A0003 ORI $FDEFN,$FDEFN,3 ; A168: 38C0FFFB ADDI $NL3,$ZERO,-5 ; A16C: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; A170: 72260001 ANDI. $NL3,$ALLOC,1 ; A174: 0F060000 TWI NE,$NL3,0 ; A178: 930AFFFD STW $A0,-3($FDEFN) ; A17C: 830F0044 LWZ $A0,68($CFP) ; A180: 930A0001 STW $A0,1($FDEFN) ; A184: 914F0044 STW $FDEFN,68($CFP) ; A188: 62310004 ORI $ALLOC,$ALLOC,4 ; A18C: 38600008 ADDI $NL0,$ZERO,8 ; A190: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A194: 38C663E8 ADDI $NL3,$NL3,25576 ; A198: 81460000 LWZ $FDEFN,0($NL3) ; A19C: 80C60004 LWZ $NL3,4($NL3) ; A1A0: 7D4A1A14 ADD $FDEFN,$FDEFN,$NL0 ; A1A4: 7C0A3000 CMPW CR0,$FDEFN,$NL3 ; A1A8: 4081000C BF GT,L46 ; A1AC: 7CAA3008 TW LGE,$FDEFN,$NL3 ; A1B0: 48000010 B L47 ; A1B4: L46: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A1B8: 38C663E8 ADDI $NL3,$NL3,25576 ; A1BC: 91460000 STW $FDEFN,0($NL3) ; A1C0: L47: 7D435050 SUBF $FDEFN,$NL0,$FDEFN ; A1C4: 614A0003 ORI $FDEFN,$FDEFN,3 ; A1C8: 38C0FFFB ADDI $NL3,$ZERO,-5 ; A1CC: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; A1D0: 72260001 ANDI. $NL3,$ALLOC,1 ; A1D4: 0F060000 TWI NE,$NL3,0 ; A1D8: 7E589378 MR $A0,$NULL ; A1DC: 930AFFFD STW $A0,-3($FDEFN) ; A1E0: 7E589378 MR $A0,$NULL ; A1E4: 930A0001 STW $A0,1($FDEFN) ; A1E8: 7D585378 MR $A0,$FDEFN ; A1EC: 930F000C STW $A0,12($CFP) ; A1F0: 7D585378 MR $A0,$FDEFN ; A1F4: 836F0044 LWZ $A3,68($CFP) ; A1F8: L48: 73630007 ANDI. $NL0,$A3,7 ; A1FC: 0C1B0002 TWI F,$A3,2 ; A200: 0F030003 TWI NE,$NL0,3 ; A204: 7F6ADB78 MR $FDEFN,$A3 ; A208: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; A20C: 418200B8 BT EQ,L51 ; A210: 936F0014 STW $A3,20($CFP) ; A214: 930F0010 STW $A0,16($CFP) ; A218: 831BFFFD LWZ $A0,-3($A3) ; A21C: 83330051 LWZ $A1,81($CODE) ; 'SIMPLE-STRING ; A220: 81530055 LWZ $FDEFN,85($CODE) ; # ; A224: 39600008 ADDI $NARGS,$ZERO,8 ; A228: 83EA0005 LWZ $LIP,5($FDEFN) ; A22C: 3AF30648 ADDI $LRA,$CODE,1608 ; A230: 7DF67B78 MR $OCFP,$CFP ; A234: 7E0F8378 MR $CFP,$CSP ; A238: 7FE903A6 MTCTR $LIP ; A23C: 4E800420 BCTR ; A240: 00019236 BYTE #X00, #X01, #X92, #X36 ; possible LRA header ; A244: 7ED0B378 MR $CSP,$OCFP ; A248: 60000000 NOP ; A24C: 3A73F9B8 ADDI $CODE,$CODE,-1608 ; A250: 836F0014 LWZ $A3,20($CFP) ; A254: 62310004 ORI $ALLOC,$ALLOC,4 ; A258: 38600008 ADDI $NL0,$ZERO,8 ; A25C: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A260: 38C663E8 ADDI $NL3,$NL3,25576 ; A264: 81460000 LWZ $FDEFN,0($NL3) ; A268: 80C60004 LWZ $NL3,4($NL3) ; A26C: 7D4A1A14 ADD $FDEFN,$FDEFN,$NL0 ; A270: 7C0A3000 CMPW CR0,$FDEFN,$NL3 ; A274: 4081000C BF GT,L49 ; A278: 7CAA3008 TW LGE,$FDEFN,$NL3 ; A27C: 48000010 B L50 ; A280: L49: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A284: 38C663E8 ADDI $NL3,$NL3,25576 ; A288: 91460000 STW $FDEFN,0($NL3) ; A28C: L50: 7D435050 SUBF $FDEFN,$NL0,$FDEFN ; A290: 614A0003 ORI $FDEFN,$FDEFN,3 ; A294: 38C0FFFB ADDI $NL3,$ZERO,-5 ; A298: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; A29C: 72260001 ANDI. $NL3,$ALLOC,1 ; A2A0: 0F060000 TWI NE,$NL3,0 ; A2A4: 930AFFFD STW $A0,-3($FDEFN) ; A2A8: 7E589378 MR $A0,$NULL ; A2AC: 930A0001 STW $A0,1($FDEFN) ; A2B0: 7D585378 MR $A0,$FDEFN ; A2B4: 832F0010 LWZ $A1,16($CFP) ; A2B8: 91590001 STW $FDEFN,1($A1) ; A2BC: 837B0001 LWZ $A3,1($A3) ; A2C0: 4BFFFF38 B L48 ; A2C4: L51: 814F000C LWZ $FDEFN,12($CFP) ; A2C8: 814A0001 LWZ $FDEFN,1($FDEFN) ; A2CC: 7E599378 MR $A1,$NULL ; A2D0: 62310004 ORI $ALLOC,$ALLOC,4 ; A2D4: 38600008 ADDI $NL0,$ZERO,8 ; A2D8: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A2DC: 38C663E8 ADDI $NL3,$NL3,25576 ; A2E0: 83060000 LWZ $A0,0($NL3) ; A2E4: 80C60004 LWZ $NL3,4($NL3) ; A2E8: 7F181A14 ADD $A0,$A0,$NL0 ; A2EC: 7C183000 CMPW CR0,$A0,$NL3 ; A2F0: 4081000C BF GT,L52 ; A2F4: 7CB83008 TW LGE,$A0,$NL3 ; A2F8: 48000010 B L53 ; A2FC: L52: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A300: 38C663E8 ADDI $NL3,$NL3,25576 ; A304: 93060000 STW $A0,0($NL3) ; A308: L53: 7F03C050 SUBF $A0,$NL0,$A0 ; A30C: 63180007 ORI $A0,$A0,7 ; A310: 3860013A ADDI $NL0,$ZERO,314 ; A314: 9078FFF9 STW $NL0,-7($A0) ; A318: 9338FFFD STW $A1,-3($A0) ; A31C: 38C0FFFB ADDI $NL3,$ZERO,-5 ; A320: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; A324: 72260001 ANDI. $NL3,$ALLOC,1 ; A328: 0F060000 TWI NE,$NL3,0 ; A32C: 930F00B8 STW $A0,184($CFP) ; A330: 914F0030 STW $FDEFN,48($CFP) ; A334: 7E589378 MR $A0,$NULL ; A338: 83330059 LWZ $A1,89($CODE) ; 'SB-IMPL::*CLOSE-ON-ERROR* ; A33C: 8159FFFD LWZ $FDEFN,-3($A1) ; A340: 39CE0008 ADDI $BSP,$BSP,8 ; A344: 914EFFF8 STW $FDEFN,-8($BSP) ; A348: 932EFFFC STW $A1,-4($BSP) ; A34C: 9319FFFD STW $A0,-3($A1) ; A350: 7E589378 MR $A0,$NULL ; A354: 8333005D LWZ $A1,93($CODE) ; 'SB-IMPL::*CLOSE-IN-PARENT* ; A358: 8159FFFD LWZ $FDEFN,-3($A1) ; A35C: 39CE0008 ADDI $BSP,$BSP,8 ; A360: 914EFFF8 STW $FDEFN,-8($BSP) ; A364: 932EFFFC STW $A1,-4($BSP) ; A368: 9319FFFD STW $A0,-3($A1) ; A36C: 7E589378 MR $A0,$NULL ; A370: 83330061 LWZ $A1,97($CODE) ; 'SB-IMPL::*HANDLERS-INSTALLED* ; A374: 8159FFFD LWZ $FDEFN,-3($A1) ; A378: 39CE0008 ADDI $BSP,$BSP,8 ; A37C: 914EFFF8 STW $FDEFN,-8($BSP) ; A380: 932EFFFC STW $A1,-4($BSP) ; A384: 9319FFFD STW $A0,-3($A1) ; A388: 7DC37378 MR $NL0,$BSP ; A38C: 906F00DC STW $NL0,220($CFP) ; A390: 81520091 LWZ $FDEFN,145($NULL) ; A394: 7C390B78 MR $A1,$NSP ; A398: 914F00D8 STW $FDEFN,216($CFP) ; A39C: 930F00D4 STW $A0,212($CFP) ; A3A0: 932F00D0 STW $A1,208($CFP) ; A3A4: 7E038378 MR $NL0,$CSP ; A3A8: 906F00E0 STW $NL0,224($CFP) ; A3AC: 388F009C ADDI $NL1,$CFP,156 ; A3B0: 815200A9 LWZ $FDEFN,169($NULL) ; A3B4: 91440000 STW $FDEFN,0($NL1) ; A3B8: 91E40004 STW $CFP,4($NL1) ; A3BC: 92640008 STW $CODE,8($NL1) ; A3C0: 39530EF0 ADDI $FDEFN,$CODE,3824 ; A3C4: 9144000C STW $FDEFN,12($NL1) ; A3C8: 394F009C ADDI $FDEFN,$CFP,156 ; A3CC: 915200A9 STW $FDEFN,169($NULL) ; A3D0: 814F0064 LWZ $FDEFN,100($CFP) ; A3D4: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; A3D8: 40820608 BF EQ,L70 ; A3DC: 830F0038 LWZ $A0,56($CFP) ; A3E0: 81530065 LWZ $FDEFN,101($CODE) ; # ; A3E4: 39600004 ADDI $NARGS,$ZERO,4 ; A3E8: 83EA0005 LWZ $LIP,5($FDEFN) ; A3EC: 3AF30808 ADDI $LRA,$CODE,2056 ; A3F0: 7DF67B78 MR $OCFP,$CFP ; A3F4: 7E0F8378 MR $CFP,$CSP ; A3F8: 7FE903A6 MTCTR $LIP ; A3FC: 4E800420 BCTR ; A400: 00020236 BYTE #X00, #X02, #X02, #X36 ; possible LRA header ; A404: 7ED0B378 MR $CSP,$OCFP ; A408: 60000000 NOP ; A40C: 3A73F7F8 ADDI $CODE,$CODE,-2056 ; A410: 7F0AC378 MR $FDEFN,$A0 ; A414: L54: 62310004 ORI $ALLOC,$ALLOC,4 ; A418: 38600008 ADDI $NL0,$ZERO,8 ; A41C: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A420: 38C663E8 ADDI $NL3,$NL3,25576 ; A424: 83060000 LWZ $A0,0($NL3) ; A428: 80C60004 LWZ $NL3,4($NL3) ; A42C: 7F181A14 ADD $A0,$A0,$NL0 ; A430: 7C183000 CMPW CR0,$A0,$NL3 ; A434: 4081000C BF GT,L55 ; A438: 7CB83008 TW LGE,$A0,$NL3 ; A43C: 48000010 B L56 ; A440: L55: 3CC01003 ADDIS $NL3,$ZERO,4099 ; A444: 38C663E8 ADDI $NL3,$NL3,25576 ; A448: 93060000 STW $A0,0($NL3) ; A44C: L56: 7F03C050 SUBF $A0,$NL0,$A0 ; A450: 63180003 ORI $A0,$A0,3 ; A454: 38C0FFFB ADDI $NL3,$ZERO,-5 ; A458: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; A45C: 72260001 ANDI. $NL3,$ALLOC,1 ; A460: 0F060000 TWI NE,$NL3,0 ; A464: 930F000C STW $A0,12($CFP) ; A468: 830F000C LWZ $A0,12($CFP) ; A46C: 38600000 ADDI $NL0,$ZERO,0 ; A470: 9078FFFD STW $NL0,-3($A0) ; A474: 830F000C LWZ $A0,12($CFP) ; A478: 7E599378 MR $A1,$NULL ; A47C: 93380001 STW $A1,1($A0) ; A480: 7D585378 MR $A0,$FDEFN ; A484: 930F0028 STW $A0,40($CFP) ; A488: 830F000C LWZ $A0,12($CFP) ; A48C: 930F002C STW $A0,44($CFP) ; A490: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; A494: 41820514 BT EQ,L69 ; A498: 7D585378 MR $A0,$FDEFN ; A49C: 81530069 LWZ $FDEFN,105($CODE) ; # ; A4A0: 39600004 ADDI $NARGS,$ZERO,4 ; A4A4: 83EA0005 LWZ $LIP,5($FDEFN) ; A4A8: 3AF308C8 ADDI $LRA,$CODE,2248 ; A4AC: 7DF67B78 MR $OCFP,$CFP ; A4B0: 7E0F8378 MR $CFP,$CSP ; A4B4: 7FE903A6 MTCTR $LIP ; A4B8: 4E800420 BCTR ; A4BC: 00000000 BYTE #X00, #X00, #X00, #X00 ; A4C0: 00023236 BYTE #X00, #X02, #X32, #X36 ; possible LRA header ; A4C4: 7ED0B378 MR $CSP,$OCFP ; A4C8: 60000000 NOP ; A4CC: 3A73F738 ADDI $CODE,$CODE,-2248 ; A4D0: 7C189000 CMPW CR0,$A0,$NULL ; A4D4: 4182049C BT EQ,L68 ; A4D8: 7E048378 MR $NL1,$CSP ; A4DC: 3A100018 ADDI $CSP,$CSP,24 ; A4E0: 830F006C LWZ $A0,108($CFP) ; A4E4: 832F000C LWZ $A1,12($CFP) ; A4E8: 8353006D LWZ $A2,109($CODE) ; :DIRECTION ; A4EC: 8373002D LWZ $A3,45($CODE) ; :INPUT ; A4F0: 81530071 LWZ $FDEFN,113($CODE) ; :IF-DOES-NOT-EXIST ; A4F4: 91440010 STW $FDEFN,16($NL1) ; A4F8: 814F0070 LWZ $FDEFN,112($CFP) ; A4FC: 91440014 STW $FDEFN,20($NL1) ; A500: 81530075 LWZ $FDEFN,117($CODE) ; # ; A504: 39600018 ADDI $NARGS,$ZERO,24 ; A508: 83EA0005 LWZ $LIP,5($FDEFN) ; A50C: 3AF30928 ADDI $LRA,$CODE,2344 ; A510: 7DF67B78 MR $OCFP,$CFP ; A514: 7C8F2378 MR $CFP,$NL1 ; A518: 7FE903A6 MTCTR $LIP ; A51C: 4E800420 BCTR ; A520: 00024A36 BYTE #X00, #X02, #X4A, #X36 ; possible LRA header ; A524: 7ED0B378 MR $CSP,$OCFP ; A528: 48000008 B L57 ; A52C: 7E599378 MR $A1,$NULL ; A530: L57: 3A73F6D8 ADDI $CODE,$CODE,-2344 ; A534: 930F0020 STW $A0,32($CFP) ; A538: 932F0024 STW $A1,36($CFP) ; A53C: 7E048378 MR $NL1,$CSP ; A540: 3A100018 ADDI $CSP,$CSP,24 ; A544: 830F0074 LWZ $A0,116($CFP) ; A548: 832F000C LWZ $A1,12($CFP) ; A54C: 8353006D LWZ $A2,109($CODE) ; :DIRECTION ; A550: 83730015 LWZ $A3,21($CODE) ; :OUTPUT ; A554: 81530079 LWZ $FDEFN,121($CODE) ; :IF-EXISTS ; A558: 91440010 STW $FDEFN,16($NL1) ; A55C: 814F0078 LWZ $FDEFN,120($CFP) ; A560: 91440014 STW $FDEFN,20($NL1) ; A564: 81530075 LWZ $FDEFN,117($CODE) ; # ; A568: 39600018 ADDI $NARGS,$ZERO,24 ; A56C: 83EA0005 LWZ $LIP,5($FDEFN) ; A570: 3AF30990 ADDI $LRA,$CODE,2448 ; A574: 7DF67B78 MR $OCFP,$CFP ; A578: 7C8F2378 MR $CFP,$NL1 ; A57C: 7FE903A6 MTCTR $LIP ; A580: 4E800420 BCTR ; A584: 00000000 BYTE #X00, #X00, #X00, #X00 ; A588: 00026436 BYTE #X00, #X02, #X64, #X36 ; possible LRA header ; A58C: 7ED0B378 MR $CSP,$OCFP ; A590: 48000008 B L58 ; A594: 7E599378 MR $A1,$NULL ; A598: L58: 3A73F670 ADDI $CODE,$CODE,-2448 ; A59C: 7F0AC378 MR $FDEFN,$A0 ; A5A0: 914F0018 STW $FDEFN,24($CFP) ; A5A4: 7F2ACB78 MR $FDEFN,$A1 ; A5A8: 914F001C STW $FDEFN,28($CFP) ; A5AC: 814F0050 LWZ $FDEFN,80($CFP) ; A5B0: 83530015 LWZ $A2,21($CODE) ; :OUTPUT ; A5B4: 7C0AD000 CMPW CR0,$FDEFN,$A2 ; A5B8: 40820350 BF EQ,L66 ; A5BC: 7F0AC378 MR $FDEFN,$A0 ; A5C0: 7F38CB78 MR $A0,$A1 ; A5C4: L59: 7D545378 MR $CNAME,$FDEFN ; A5C8: 928F00E8 STW $CNAME,232($CFP) ; A5CC: 7F15C378 MR $LEXENV,$A0 ; A5D0: 92AF00EC STW $LEXENV,236($CFP) ; A5D4: 830F0068 LWZ $A0,104($CFP) ; A5D8: 832F000C LWZ $A1,12($CFP) ; A5DC: 8153007D LWZ $FDEFN,125($CODE) ; # ; A5E0: 39600008 ADDI $NARGS,$ZERO,8 ; A5E4: 83EA0005 LWZ $LIP,5($FDEFN) ; A5E8: 3AF30A08 ADDI $LRA,$CODE,2568 ; A5EC: 7DF67B78 MR $OCFP,$CFP ; A5F0: 7E0F8378 MR $CFP,$CSP ; A5F4: 7FE903A6 MTCTR $LIP ; A5F8: 4E800420 BCTR ; A5FC: 00000000 BYTE #X00, #X00, #X00, #X00 ; A600: 00028236 BYTE #X00, #X02, #X82, #X36 ; possible LRA header ; A604: 7ED0B378 MR $CSP,$OCFP ; A608: 48000008 B L60 ; A60C: 7E599378 MR $A1,$NULL ; A610: L60: 3A73F5F8 ADDI $CODE,$CODE,-2568 ; A614: 82AF00EC LWZ $LEXENV,236($CFP) ; A618: 828F00E8 LWZ $CNAME,232($CFP) ; A61C: 7F3ACB78 MR $A2,$A1 ; A620: 7F19C378 MR $A1,$A0 ; A624: 3952013C ADDI $FDEFN,$NULL,316 ; 'SB-UNIX::*INTERRUPTS-ENABLED* ; A628: 830AFFFD LWZ $A0,-3($FDEFN) ; A62C: 2C18004A CMPWI CR0,$A0,74 ; A630: 41820F64 BT EQ,L121 ; A634: 7C189000 CMPW CR0,$A0,$NULL ; A638: 4082017C BF EQ,L65 ; A63C: 7DE37B78 MR $NL0,$CFP ; A640: 7E048378 MR $NL1,$CSP ; A644: 3A100100 ADDI $CSP,$CSP,256 ; A648: 836F0034 LWZ $A3,52($CFP) ; A64C: 830F0030 LWZ $A0,48($CFP) ; A650: 814F00B8 LWZ $FDEFN,184($CFP) ; A654: 91440040 STW $FDEFN,64($NL1) ; A658: 814F002C LWZ $FDEFN,44($CFP) ; A65C: 9144003C STW $FDEFN,60($NL1) ; A660: 814F0028 LWZ $FDEFN,40($CFP) ; A664: 9144000C STW $FDEFN,12($NL1) ; A668: 814F0024 LWZ $FDEFN,36($CFP) ; A66C: 91440024 STW $FDEFN,36($NL1) ; A670: 814F0020 LWZ $FDEFN,32($CFP) ; A674: 91440010 STW $FDEFN,16($NL1) ; A678: 814F001C LWZ $FDEFN,28($CFP) ; A67C: 91440028 STW $FDEFN,40($NL1) ; A680: 814F0018 LWZ $FDEFN,24($CFP) ; A684: 91440014 STW $FDEFN,20($NL1) ; A688: 92A4002C STW $LEXENV,44($NL1) ; A68C: 92840018 STW $CNAME,24($NL1) ; A690: 93440020 STW $A2,32($NL1) ; A694: 9324001C STW $A1,28($NL1) ; A698: 814F0054 LWZ $FDEFN,84($CFP) ; A69C: 91440034 STW $FDEFN,52($NL1) ; A6A0: 90640000 STW $NL0,0($NL1) ; A6A4: 7C8F2378 MR $CFP,$NL1 ; A6A8: 39530AB8 ADDI $FDEFN,$CODE,2744 ; A6AC: 480006E0 B L94 ; A6B0: 0002AE36 BYTE #X00, #X02, #XAE, #X36 ; possible LRA header ; A6B4: 807200A9 LWZ $NL0,169($NULL) ; A6B8: 80630000 LWZ $NL0,0($NL0) ; A6BC: 907200A9 STW $NL0,169($NULL) ; A6C0: 7DE37B78 MR $NL0,$CFP ; A6C4: 7E048378 MR $NL1,$CSP ; A6C8: 3A100100 ADDI $CSP,$CSP,256 ; A6CC: 834F00B8 LWZ $A2,184($CFP) ; A6D0: 90640000 STW $NL0,0($NL1) ; A6D4: 7C8F2378 MR $CFP,$NL1 ; A6D8: 39530AE8 ADDI $FDEFN,$CODE,2792 ; A6DC: 48000D20 B L112 ; A6E0: 0002BA36 BYTE #X00, #X02, #XBA, #X36 ; possible LRA header ; A6E4: L61: 814F0060 LWZ $FDEFN,96($CFP) ; A6E8: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; A6EC: 40820078 BF EQ,L64 ; A6F0: L62: L63:814F00B8 LWZ $FDEFN,184($CFP) ; A6F4: 832AFFFD LWZ $A1,-3($FDEFN) ; A6F8: 814EFFFC LWZ $FDEFN,-4($BSP) ; A6FC: 830EFFF8 LWZ $A0,-8($BSP) ; A700: 930AFFFD STW $A0,-3($FDEFN) ; A704: 900EFFFC STW $ZERO,-4($BSP) ; A708: 900EFFF8 STW $ZERO,-8($BSP) ; A70C: 39CEFFF8 ADDI $BSP,$BSP,-8 ; A710: 814EFFFC LWZ $FDEFN,-4($BSP) ; A714: 830EFFF8 LWZ $A0,-8($BSP) ; A718: 930AFFFD STW $A0,-3($FDEFN) ; A71C: 900EFFFC STW $ZERO,-4($BSP) ; A720: 900EFFF8 STW $ZERO,-8($BSP) ; A724: 39CEFFF8 ADDI $BSP,$BSP,-8 ; A728: 814EFFFC LWZ $FDEFN,-4($BSP) ; A72C: 830EFFF8 LWZ $A0,-8($BSP) ; A730: 930AFFFD STW $A0,-3($FDEFN) ; A734: 900EFFFC STW $ZERO,-4($BSP) ; A738: 900EFFF8 STW $ZERO,-8($BSP) ; A73C: 39CEFFF8 ADDI $BSP,$BSP,-8 ; A740: 7F38CB78 MR $A0,$A1 ; A744: 806F0000 LWZ $NL0,0($CFP) ; A748: 814F0004 LWZ $FDEFN,4($CFP) ; A74C: 7DF07B78 MR $CSP,$CFP ; A750: 7C6F1B78 MR $CFP,$NL0 ; A754: 3BEA0005 ADDI $LIP,$FDEFN,5 ; A758: 7FE803A6 MTLR $LIP ; A75C: 7D535378 MR $CODE,$FDEFN ; A760: 4E800020 BLR ; A764: L64: 814F00B8 LWZ $FDEFN,184($CFP) ; A768: 814AFFFD LWZ $FDEFN,-3($FDEFN) ; A76C: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; A770: 4182FF80 BT EQ,L63 ; A774: 814F00B8 LWZ $FDEFN,184($CFP) ; A778: 830AFFFD LWZ $A0,-3($FDEFN) ; A77C: 81530081 LWZ $FDEFN,129($CODE) ; # ; A780: 39600004 ADDI $NARGS,$ZERO,4 ; A784: 83EA0005 LWZ $LIP,5($FDEFN) ; A788: 3AF30BA8 ADDI $LRA,$CODE,2984 ; A78C: 7DF67B78 MR $OCFP,$CFP ; A790: 7E0F8378 MR $CFP,$CSP ; A794: 7FE903A6 MTCTR $LIP ; A798: 4E800420 BCTR ; A79C: 00000000 BYTE #X00, #X00, #X00, #X00 ; A7A0: 0002EA36 BYTE #X00, #X02, #XEA, #X36 ; possible LRA header ; A7A4: 7ED0B378 MR $CSP,$OCFP ; A7A8: 60000000 NOP ; A7AC: 3A73F458 ADDI $CODE,$CODE,-2984 ; A7B0: 4BFFFF40 B L63 ; A7B4: L65: 7DC37378 MR $NL0,$BSP ; A7B8: 906F00C8 STW $NL0,200($CFP) ; A7BC: 81520091 LWZ $FDEFN,145($NULL) ; A7C0: 7C3B0B78 MR $A3,$NSP ; A7C4: 914F00C4 STW $FDEFN,196($CFP) ; A7C8: 930F00C0 STW $A0,192($CFP) ; A7CC: 936F00BC STW $A3,188($CFP) ; A7D0: 7E038378 MR $NL0,$CSP ; A7D4: 906F00CC STW $NL0,204($CFP) ; A7D8: 388F0080 ADDI $NL1,$CFP,128 ; A7DC: 815200A9 LWZ $FDEFN,169($NULL) ; A7E0: 91440000 STW $FDEFN,0($NL1) ; A7E4: 91E40004 STW $CFP,4($NL1) ; A7E8: 92640008 STW $CODE,8($NL1) ; A7EC: 39530F98 ADDI $FDEFN,$CODE,3992 ; A7F0: 9144000C STW $FDEFN,12($NL1) ; A7F4: 394F0080 ADDI $FDEFN,$CFP,128 ; A7F8: 915200A9 STW $FDEFN,169($NULL) ; A7FC: 7E589378 MR $A0,$NULL ; A800: 3B72013C ADDI $A3,$NULL,316 ; 'SB-UNIX::*INTERRUPTS-ENABLED* ; A804: 815BFFFD LWZ $FDEFN,-3($A3) ; A808: 39CE0008 ADDI $BSP,$BSP,8 ; A80C: 914EFFF8 STW $FDEFN,-8($BSP) ; A810: 936EFFFC STW $A3,-4($BSP) ; A814: 931BFFFD STW $A0,-3($A3) ; A818: 7DE37B78 MR $NL0,$CFP ; A81C: 7E048378 MR $NL1,$CSP ; A820: 3A100100 ADDI $CSP,$CSP,256 ; A824: 836F0034 LWZ $A3,52($CFP) ; A828: 830F0030 LWZ $A0,48($CFP) ; A82C: 814F00B8 LWZ $FDEFN,184($CFP) ; A830: 91440040 STW $FDEFN,64($NL1) ; A834: 814F002C LWZ $FDEFN,44($CFP) ; A838: 9144003C STW $FDEFN,60($NL1) ; A83C: 814F0028 LWZ $FDEFN,40($CFP) ; A840: 9144000C STW $FDEFN,12($NL1) ; A844: 814F0024 LWZ $FDEFN,36($CFP) ; A848: 91440024 STW $FDEFN,36($NL1) ; A84C: 814F0020 LWZ $FDEFN,32($CFP) ; A850: 91440010 STW $FDEFN,16($NL1) ; A854: 814F001C LWZ $FDEFN,28($CFP) ; A858: 91440028 STW $FDEFN,40($NL1) ; A85C: 814F0018 LWZ $FDEFN,24($CFP) ; A860: 91440014 STW $FDEFN,20($NL1) ; A864: 92A4002C STW $LEXENV,44($NL1) ; A868: 92840018 STW $CNAME,24($NL1) ; A86C: 93440020 STW $A2,32($NL1) ; A870: 9324001C STW $A1,28($NL1) ; A874: 814F0054 LWZ $FDEFN,84($CFP) ; A878: 91440034 STW $FDEFN,52($NL1) ; A87C: 90640000 STW $NL0,0($NL1) ; A880: 7C8F2378 MR $CFP,$NL1 ; A884: 39530C98 ADDI $FDEFN,$CODE,3224 ; A888: 48000504 B L94 ; A88C: 00000000 BYTE #X00, #X00, #X00, #X00 ; A890: 00032636 BYTE #X00, #X03, #X26, #X36 ; possible LRA header ; A894: 814EFFFC LWZ $FDEFN,-4($BSP) ; A898: 830EFFF8 LWZ $A0,-8($BSP) ; A89C: 930AFFFD STW $A0,-3($FDEFN) ; A8A0: 900EFFFC STW $ZERO,-4($BSP) ; A8A4: 900EFFF8 STW $ZERO,-8($BSP) ; A8A8: 39CEFFF8 ADDI $BSP,$BSP,-8 ; A8AC: 807200A9 LWZ $NL0,169($NULL) ; A8B0: 80630000 LWZ $NL0,0($NL0) ; A8B4: 907200A9 STW $NL0,169($NULL) ; A8B8: 7DE47B78 MR $NL1,$CFP ; A8BC: 7E058378 MR $NL2,$CSP ; A8C0: 3A100100 ADDI $CSP,$CSP,256 ; A8C4: 7CAF2B78 MR $CFP,$NL2 ; A8C8: 39530CD8 ADDI $FDEFN,$CODE,3288 ; A8CC: 48000360 B L81 ; A8D0: 00033636 BYTE #X00, #X03, #X36, #X36 ; possible LRA header ; A8D4: 807200A9 LWZ $NL0,169($NULL) ; A8D8: 80630000 LWZ $NL0,0($NL0) ; A8DC: 907200A9 STW $NL0,169($NULL) ; A8E0: 7DE37B78 MR $NL0,$CFP ; A8E4: 7E048378 MR $NL1,$CSP ; A8E8: 3A100100 ADDI $CSP,$CSP,256 ; A8EC: 834F00B8 LWZ $A2,184($CFP) ; A8F0: 90640000 STW $NL0,0($NL1) ; A8F4: 7C8F2378 MR $CFP,$NL1 ; A8F8: 39530D08 ADDI $FDEFN,$CODE,3336 ; A8FC: 48000B00 B L112 ; A900: 00034236 BYTE #X00, #X03, #X42, #X36 ; possible LRA header ; A904: 4BFFFDE0 B L61 ; A908: L66: 7E048378 MR $NL1,$CSP ; A90C: 3A100018 ADDI $CSP,$CSP,24 ; A910: 830F0050 LWZ $A0,80($CFP) ; A914: 832F000C LWZ $A1,12($CFP) ; A918: 8353006D LWZ $A2,109($CODE) ; :DIRECTION ; A91C: 83730015 LWZ $A3,21($CODE) ; :OUTPUT ; A920: 81530079 LWZ $FDEFN,121($CODE) ; :IF-EXISTS ; A924: 91440010 STW $FDEFN,16($NL1) ; A928: 814F007C LWZ $FDEFN,124($CFP) ; A92C: 91440014 STW $FDEFN,20($NL1) ; A930: 81530075 LWZ $FDEFN,117($CODE) ; # ; A934: 39600018 ADDI $NARGS,$ZERO,24 ; A938: 83EA0005 LWZ $LIP,5($FDEFN) ; A93C: 3AF30D58 ADDI $LRA,$CODE,3416 ; A940: 7DF67B78 MR $OCFP,$CFP ; A944: 7C8F2378 MR $CFP,$NL1 ; A948: 7FE903A6 MTCTR $LIP ; A94C: 4E800420 BCTR ; A950: 00035636 BYTE #X00, #X03, #X56, #X36 ; possible LRA header ; A954: 7ED0B378 MR $CSP,$OCFP ; A958: 48000008 B L67 ; A95C: 7E599378 MR $A1,$NULL ; A960: L67: 3A73F2A8 ADDI $CODE,$CODE,-3416 ; A964: 7F0AC378 MR $FDEFN,$A0 ; A968: 7F38CB78 MR $A0,$A1 ; A96C: 4BFFFC58 B L59 ; A970: L68: 83130085 LWZ $A0,133($CODE) ; "not executable: ~S" ; A974: 832F0038 LWZ $A1,56($CFP) ; A978: 81530089 LWZ $FDEFN,137($CODE) ; # ; A97C: 39600008 ADDI $NARGS,$ZERO,8 ; A980: 83EA0005 LWZ $LIP,5($FDEFN) ; A984: 3AF30DA0 ADDI $LRA,$CODE,3488 ; A988: 7DF67B78 MR $OCFP,$CFP ; A98C: 7E0F8378 MR $CFP,$CSP ; A990: 7FE903A6 MTCTR $LIP ; A994: 4E800420 BCTR ; A998: 00036836 BYTE #X00, #X03, #X68, #X36 ; possible LRA header ; A99C: 7ED0B378 MR $CSP,$OCFP ; A9A0: 60000000 NOP ; A9A4: 3A73F260 ADDI $CODE,$CODE,-3488 ; A9A8: L69: 8313008D LWZ $A0,141($CODE) ; "no such program: ~S" ; A9AC: 832F0038 LWZ $A1,56($CFP) ; A9B0: 81530089 LWZ $FDEFN,137($CODE) ; # ; A9B4: 39600008 ADDI $NARGS,$ZERO,8 ; A9B8: 83EA0005 LWZ $LIP,5($FDEFN) ; A9BC: 3AF30DD8 ADDI $LRA,$CODE,3544 ; A9C0: 7DF67B78 MR $OCFP,$CFP ; A9C4: 7E0F8378 MR $CFP,$CSP ; A9C8: 7FE903A6 MTCTR $LIP ; A9CC: 4E800420 BCTR ; A9D0: 00037636 BYTE #X00, #X03, #X76, #X36 ; possible LRA header ; A9D4: 7ED0B378 MR $CSP,$OCFP ; A9D8: 60000000 NOP ; A9DC: 3A73F228 ADDI $CODE,$CODE,-3544 ; A9E0: L70: 830F0038 LWZ $A0,56($CFP) ; A9E4: 81530091 LWZ $FDEFN,145($CODE) ; # ; A9E8: 39600004 ADDI $NARGS,$ZERO,4 ; A9EC: 83EA0005 LWZ $LIP,5($FDEFN) ; A9F0: 3AF30E10 ADDI $LRA,$CODE,3600 ; A9F4: 7DF67B78 MR $OCFP,$CFP ; A9F8: 7E0F8378 MR $CFP,$CSP ; A9FC: 7FE903A6 MTCTR $LIP ; AA00: 4E800420 BCTR ; AA04: 00000000 BYTE #X00, #X00, #X00, #X00 ; AA08: 00038436 BYTE #X00, #X03, #X84, #X36 ; possible LRA header ; AA0C: 7ED0B378 MR $CSP,$OCFP ; AA10: 60000000 NOP ; AA14: 3A73F1F0 ADDI $CODE,$CODE,-3600 ; AA18: 7F0AC378 MR $FDEFN,$A0 ; AA1C: 4BFFF9F8 B L54 ; AA20: L71: 814F004C LWZ $FDEFN,76($CFP) ; AA24: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; AA28: 4182F680 BT EQ,L43 ; AA2C: 83130095 LWZ $A0,149($CODE) ; "can't specify :ENV and :ENVIRONMENT simultaneously" ; AA30: 81530089 LWZ $FDEFN,137($CODE) ; # ; AA34: 39600004 ADDI $NARGS,$ZERO,4 ; AA38: 83EA0005 LWZ $LIP,5($FDEFN) ; AA3C: 3AF30E58 ADDI $LRA,$CODE,3672 ; AA40: 7DF67B78 MR $OCFP,$CFP ; AA44: 7E0F8378 MR $CFP,$CSP ; AA48: 7FE903A6 MTCTR $LIP ; AA4C: 4E800420 BCTR ; AA50: 00039636 BYTE #X00, #X03, #X96, #X36 ; possible LRA header ; AA54: 7ED0B378 MR $CSP,$OCFP ; AA58: 60000000 NOP ; AA5C: 3A73F1A8 ADDI $CODE,$CODE,-3672 ; AA60: L72: 814F0048 LWZ $FDEFN,72($CFP) ; AA64: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; AA68: 40820040 BF EQ,L73 ; AA6C: 81530099 LWZ $FDEFN,153($CODE) ; # ; AA70: 39600000 ADDI $NARGS,$ZERO,0 ; AA74: 83EA0005 LWZ $LIP,5($FDEFN) ; AA78: 3AF30E98 ADDI $LRA,$CODE,3736 ; AA7C: 7DF67B78 MR $OCFP,$CFP ; AA80: 7E0F8378 MR $CFP,$CSP ; AA84: 7FE903A6 MTCTR $LIP ; AA88: 4E800420 BCTR ; AA8C: 00000000 BYTE #X00, #X00, #X00, #X00 ; AA90: 0003A636 BYTE #X00, #X03, #XA6, #X36 ; possible LRA header ; AA94: 7ED0B378 MR $CSP,$OCFP ; AA98: 60000000 NOP ; AA9C: 3A73F168 ADDI $CODE,$CODE,-3736 ; AAA0: 7F0AC378 MR $FDEFN,$A0 ; AAA4: 4BFFF5F4 B L42 ; AAA8: L73: 830F0058 LWZ $A0,88($CFP) ; AAAC: 8153009D LWZ $FDEFN,157($CODE) ; # ; AAB0: 39600004 ADDI $NARGS,$ZERO,4 ; AAB4: 83EA0005 LWZ $LIP,5($FDEFN) ; AAB8: 3AF30ED8 ADDI $LRA,$CODE,3800 ; AABC: 7DF67B78 MR $OCFP,$CFP ; AAC0: 7E0F8378 MR $CFP,$CSP ; AAC4: 7FE903A6 MTCTR $LIP ; AAC8: 4E800420 BCTR ; AACC: 00000000 BYTE #X00, #X00, #X00, #X00 ; AAD0: 0003B636 BYTE #X00, #X03, #XB6, #X36 ; possible LRA header ; AAD4: 7ED0B378 MR $CSP,$OCFP ; AAD8: 60000000 NOP ; AADC: 3A73F128 ADDI $CODE,$CODE,-3800 ; AAE0: 7F0AC378 MR $FDEFN,$A0 ; AAE4: 4BFFF5B4 B L42 ; AAE8: 0003BC36 BYTE #X00, #X03, #XBC, #X36 ; possible LRA header ; AAEC: 930F000C STW $A0,12($CFP) ; AAF0: 92CF0010 STW $OCFP,16($CFP) ; AAF4: 7D6A5B78 MR $FDEFN,$NARGS ; AAF8: 914F0014 STW $FDEFN,20($CFP) ; AAFC: 814F00D8 LWZ $FDEFN,216($CFP) ; AB00: 830F00D4 LWZ $A0,212($CFP) ; AB04: 832F00D0 LWZ $A1,208($CFP) ; AB08: 91520091 STW $FDEFN,145($NULL) ; AB0C: 7F21CB78 MR $NSP,$A1 ; AB10: 806F00DC LWZ $NL0,220($CFP) ; AB14: 7C037000 CMPW CR0,$NL0,$BSP ; AB18: 4182002C BT EQ,L76 ; AB1C: L74: 814EFFFC LWZ $FDEFN,-4($BSP) ; AB20: 2C0A0000 CMPWI CR0,$FDEFN,0 ; AB24: 41820010 BT EQ,L75 ; AB28: 830EFFF8 LWZ $A0,-8($BSP) ; AB2C: 930AFFFD STW $A0,-3($FDEFN) ; AB30: 900EFFFC STW $ZERO,-4($BSP) ; AB34: L75: 900EFFF8 STW $ZERO,-8($BSP) ; AB38: 39CEFFF8 ADDI $BSP,$BSP,-8 ; AB3C: 7C037000 CMPW CR0,$NL0,$BSP ; AB40: 4082FFDC BF EQ,L74 ; AB44: L76: 7DE37B78 MR $NL0,$CFP ; AB48: 7E048378 MR $NL1,$CSP ; AB4C: 3A100100 ADDI $CSP,$CSP,256 ; AB50: 834F00B8 LWZ $A2,184($CFP) ; AB54: 90640000 STW $NL0,0($NL1) ; AB58: 7C8F2378 MR $CFP,$NL1 ; AB5C: 39530F70 ADDI $FDEFN,$CODE,3952 ; AB60: 4800089C B L112 ; AB64: 00000000 BYTE #X00, #X00, #X00, #X00 ; AB68: 0003DC36 BYTE #X00, #X03, #XDC, #X36 ; possible LRA header ; AB6C: 830F000C LWZ $A0,12($CFP) ; AB70: 82CF0010 LWZ $OCFP,16($CFP) ; AB74: 814F0014 LWZ $FDEFN,20($CFP) ; AB78: 7D4B5378 MR $NARGS,$FDEFN ; AB7C: 3CC00400 ADDIS $NL3,$ZERO,1024 ; AB80: 38C600E8 ADDI $NL3,$NL3,232 ; AB84: 7CC803A6 MTLR $NL3 ; AB88: 4E800021 BCLRL BO-U,LT ; AB8C: 00000000 BYTE #X00, #X00, #X00, #X00 ; AB90: 0003E636 BYTE #X00, #X03, #XE6, #X36 ; possible LRA header ; AB94: 930F000C STW $A0,12($CFP) ; AB98: 92CF0010 STW $OCFP,16($CFP) ; AB9C: 7D6A5B78 MR $FDEFN,$NARGS ; ABA0: 914F0014 STW $FDEFN,20($CFP) ; ABA4: 814F00C4 LWZ $FDEFN,196($CFP) ; ABA8: 830F00C0 LWZ $A0,192($CFP) ; ABAC: 832F00BC LWZ $A1,188($CFP) ; ABB0: 91520091 STW $FDEFN,145($NULL) ; ABB4: 7F21CB78 MR $NSP,$A1 ; ABB8: 806F00C8 LWZ $NL0,200($CFP) ; ABBC: 7C037000 CMPW CR0,$NL0,$BSP ; ABC0: 4182002C BT EQ,L79 ; ABC4: L77: 814EFFFC LWZ $FDEFN,-4($BSP) ; ABC8: 2C0A0000 CMPWI CR0,$FDEFN,0 ; ABCC: 41820010 BT EQ,L78 ; ABD0: 830EFFF8 LWZ $A0,-8($BSP) ; ABD4: 930AFFFD STW $A0,-3($FDEFN) ; ABD8: 900EFFFC STW $ZERO,-4($BSP) ; ABDC: L78: 900EFFF8 STW $ZERO,-8($BSP) ; ABE0: 39CEFFF8 ADDI $BSP,$BSP,-8 ; ABE4: 7C037000 CMPW CR0,$NL0,$BSP ; ABE8: 4082FFDC BF EQ,L77 ; ABEC: L79: 7DE47B78 MR $NL1,$CFP ; ABF0: 7E058378 MR $NL2,$CSP ; ABF4: 3A100100 ADDI $CSP,$CSP,256 ; ABF8: 7CAF2B78 MR $CFP,$NL2 ; ABFC: 39531010 ADDI $FDEFN,$CODE,4112 ; AC00: 4800002C B L81 ; AC04: 00000000 BYTE #X00, #X00, #X00, #X00 ; AC08: 00040436 BYTE #X00, #X04, #X04, #X36 ; possible LRA header ; AC0C: 830F000C LWZ $A0,12($CFP) ; AC10: 82CF0010 LWZ $OCFP,16($CFP) ; AC14: 814F0014 LWZ $FDEFN,20($CFP) ; AC18: 7D4B5378 MR $NARGS,$FDEFN ; AC1C: 3CC00400 ADDIS $NL3,$ZERO,1024 ; AC20: 38C600E8 ADDI $NL3,$NL3,232 ; AC24: 7CC803A6 MTLR $NL3 ; AC28: 4E800021 BCLRL BO-U,LT ; AC2C: L80: L81:7D595378 MR $A1,$FDEFN ; AC30: 39520154 ADDI $FDEFN,$NULL,340 ; 'SB-UNIX::*INTERRUPT-PENDING* ; AC34: 830AFFFD LWZ $A0,-3($FDEFN) ; AC38: 2C18004A CMPWI CR0,$A0,74 ; AC3C: 41820964 BT EQ,L122 ; AC40: 7C189000 CMPW CR0,$A0,$NULL ; AC44: 40820024 BF EQ,L83 ; AC48: L82: 7E589378 MR $A0,$NULL ; AC4C: 7C832378 MR $NL0,$NL1 ; AC50: 7F2ACB78 MR $FDEFN,$A1 ; AC54: 7DF07B78 MR $CSP,$CFP ; AC58: 7C6F1B78 MR $CFP,$NL0 ; AC5C: 3BEAFFFD ADDI $LIP,$FDEFN,-3 ; AC60: 7FE903A6 MTCTR $LIP ; AC64: 4E800420 BCTR ; AC68: L83: 0CC00009 UNIMP 9 ; Pending interrupt trap ; AC6C: 4BFFFFDC B L82 ; AC70: L84: L85:7D595378 MR $A1,$FDEFN ; AC74: 3952016C ADDI $FDEFN,$NULL,364 ; 'SB-KERNEL:*GC-INHIBIT* ; AC78: 830AFFFD LWZ $A0,-3($FDEFN) ; AC7C: 2C18004A CMPWI CR0,$A0,74 ; AC80: 4182092C BT EQ,L123 ; AC84: 7C189000 CMPW CR0,$A0,$NULL ; AC88: 41820024 BT EQ,L88 ; AC8C: L86: L87:7E589378 MR $A0,$NULL ; AC90: 7C832378 MR $NL0,$NL1 ; AC94: 7F2ACB78 MR $FDEFN,$A1 ; AC98: 7DF07B78 MR $CSP,$CFP ; AC9C: 7C6F1B78 MR $CFP,$NL0 ; ACA0: 3BEAFFFD ADDI $LIP,$FDEFN,-3 ; ACA4: 7FE903A6 MTCTR $LIP ; ACA8: 4E800420 BCTR ; ACAC: L88: 39520184 ADDI $FDEFN,$NULL,388 ; 'SB-KERNEL:*GC-PENDING* ; ACB0: 830AFFFD LWZ $A0,-3($FDEFN) ; ACB4: 2C18004A CMPWI CR0,$A0,74 ; ACB8: 41820900 BT EQ,L124 ; ACBC: 7C189000 CMPW CR0,$A0,$NULL ; ACC0: 4182FFCC BT EQ,L87 ; ACC4: 0CC00009 UNIMP 9 ; Pending interrupt trap ; ACC8: 4BFFFFC4 B L87 ; ACCC: L89: L90:914F0004 STW $FDEFN,4($CFP) ; ACD0: 90CF0000 STW $NL3,0($CFP) ; ACD4: 7C992378 MR $A1,$NL1 ; ACD8: 815300A1 LWZ $FDEFN,161($CODE) ; # ; ACDC: 39600008 ADDI $NARGS,$ZERO,8 ; ACE0: 83EA0005 LWZ $LIP,5($FDEFN) ; ACE4: 3AF31100 ADDI $LRA,$CODE,4352 ; ACE8: 7DF67B78 MR $OCFP,$CFP ; ACEC: 7E0F8378 MR $CFP,$CSP ; ACF0: 7FE903A6 MTCTR $LIP ; ACF4: 4E800420 BCTR ; ACF8: 00044036 BYTE #X00, #X04, #X40, #X36 ; possible LRA header ; ACFC: 7ED0B378 MR $CSP,$OCFP ; AD00: 60000000 NOP ; AD04: 3A73EF00 ADDI $CODE,$CODE,-4352 ; AD08: 80CF0000 LWZ $NL3,0($CFP) ; AD0C: 7E589378 MR $A0,$NULL ; AD10: 7CC33378 MR $NL0,$NL3 ; AD14: 814F0004 LWZ $FDEFN,4($CFP) ; AD18: 7DF07B78 MR $CSP,$CFP ; AD1C: 7C6F1B78 MR $CFP,$NL0 ; AD20: 3BEAFFFD ADDI $LIP,$FDEFN,-3 ; AD24: 7FE903A6 MTCTR $LIP ; AD28: 4E800420 BCTR ; AD2C: L91: L92:914F0004 STW $FDEFN,4($CFP) ; AD30: 90CF0000 STW $NL3,0($CFP) ; AD34: 7C992378 MR $A1,$NL1 ; AD38: 815300A1 LWZ $FDEFN,161($CODE) ; # ; AD3C: 39600008 ADDI $NARGS,$ZERO,8 ; AD40: 83EA0005 LWZ $LIP,5($FDEFN) ; AD44: 3AF31160 ADDI $LRA,$CODE,4448 ; AD48: 7DF67B78 MR $OCFP,$CFP ; AD4C: 7E0F8378 MR $CFP,$CSP ; AD50: 7FE903A6 MTCTR $LIP ; AD54: 4E800420 BCTR ; AD58: 00045836 BYTE #X00, #X04, #X58, #X36 ; possible LRA header ; AD5C: 7ED0B378 MR $CSP,$OCFP ; AD60: 60000000 NOP ; AD64: 3A73EEA0 ADDI $CODE,$CODE,-4448 ; AD68: 80CF0000 LWZ $NL3,0($CFP) ; AD6C: 7E589378 MR $A0,$NULL ; AD70: 7CC33378 MR $NL0,$NL3 ; AD74: 814F0004 LWZ $FDEFN,4($CFP) ; AD78: 7DF07B78 MR $CSP,$CFP ; AD7C: 7C6F1B78 MR $CFP,$NL0 ; AD80: 3BEAFFFD ADDI $LIP,$FDEFN,-3 ; AD84: 7FE903A6 MTCTR $LIP ; AD88: 4E800420 BCTR ; AD8C: L93: L94:914F0004 STW $FDEFN,4($CFP) ; AD90: 936F00E4 STW $A3,228($CFP) ; AD94: 815300A5 LWZ $FDEFN,165($CODE) ; # ; AD98: 39600004 ADDI $NARGS,$ZERO,4 ; AD9C: 83EA0005 LWZ $LIP,5($FDEFN) ; ADA0: 3AF311C0 ADDI $LRA,$CODE,4544 ; ADA4: 7DF67B78 MR $OCFP,$CFP ; ADA8: 7E0F8378 MR $CFP,$CSP ; ADAC: 7FE903A6 MTCTR $LIP ; ADB0: 4E800420 BCTR ; ADB4: 00000000 BYTE #X00, #X00, #X00, #X00 ; ADB8: 00047036 BYTE #X00, #X04, #X70, #X36 ; possible LRA header ; ADBC: 7ED0B378 MR $CSP,$OCFP ; ADC0: 4800000C B L95 ; ADC4: 7E599378 MR $A1,$NULL ; ADC8: 7E5A9378 MR $A2,$NULL ; ADCC: L95: 3A73EE40 ADDI $CODE,$CODE,-4544 ; ADD0: 836F00E4 LWZ $A3,228($CFP) ; ADD4: 932F0030 STW $A1,48($CFP) ; ADD8: 930F009C STW $A0,156($CFP) ; ADDC: 934F0098 STW $A2,152($CFP) ; ADE0: 7DC37378 MR $NL0,$BSP ; ADE4: 906F00DC STW $NL0,220($CFP) ; ADE8: 81520091 LWZ $FDEFN,145($NULL) ; ADEC: 7C390B78 MR $A1,$NSP ; ADF0: 914F00D8 STW $FDEFN,216($CFP) ; ADF4: 930F00D4 STW $A0,212($CFP) ; ADF8: 932F00D0 STW $A1,208($CFP) ; ADFC: 7E038378 MR $NL0,$CSP ; AE00: 906F00E0 STW $NL0,224($CFP) ; AE04: 388F007C ADDI $NL1,$CFP,124 ; AE08: 815200A9 LWZ $FDEFN,169($NULL) ; AE0C: 91440000 STW $FDEFN,0($NL1) ; AE10: 91E40004 STW $CFP,4($NL1) ; AE14: 92640008 STW $CODE,8($NL1) ; AE18: 39531618 ADDI $FDEFN,$CODE,5656 ; AE1C: 9144000C STW $FDEFN,12($NL1) ; AE20: 394F007C ADDI $FDEFN,$CFP,124 ; AE24: 915200A9 STW $FDEFN,169($NULL) ; AE28: 7F78DB78 MR $A0,$A3 ; AE2C: 815300A5 LWZ $FDEFN,165($CODE) ; # ; AE30: 39600004 ADDI $NARGS,$ZERO,4 ; AE34: 83EA0005 LWZ $LIP,5($FDEFN) ; AE38: 3AF31258 ADDI $LRA,$CODE,4696 ; AE3C: 7DF67B78 MR $OCFP,$CFP ; AE40: 7E0F8378 MR $CFP,$CSP ; AE44: 7FE903A6 MTCTR $LIP ; AE48: 4E800420 BCTR ; AE4C: 00000000 BYTE #X00, #X00, #X00, #X00 ; AE50: 00049636 BYTE #X00, #X04, #X96, #X36 ; possible LRA header ; AE54: 7ED0B378 MR $CSP,$OCFP ; AE58: 4800000C B L96 ; AE5C: 7E599378 MR $A1,$NULL ; AE60: 7E5A9378 MR $A2,$NULL ; AE64: L96: 3A73EDA8 ADDI $CODE,$CODE,-4696 ; AE68: 7F3BCB78 MR $A3,$A1 ; AE6C: 930F00A4 STW $A0,164($CFP) ; AE70: 934F00A0 STW $A2,160($CFP) ; AE74: 7DC37378 MR $NL0,$BSP ; AE78: 906F00C8 STW $NL0,200($CFP) ; AE7C: 81520091 LWZ $FDEFN,145($NULL) ; AE80: 7C390B78 MR $A1,$NSP ; AE84: 914F00C4 STW $FDEFN,196($CFP) ; AE88: 930F00C0 STW $A0,192($CFP) ; AE8C: 932F00BC STW $A1,188($CFP) ; AE90: 7E038378 MR $NL0,$CSP ; AE94: 906F00CC STW $NL0,204($CFP) ; AE98: 388F0060 ADDI $NL1,$CFP,96 ; AE9C: 815200A9 LWZ $FDEFN,169($NULL) ; AEA0: 91440000 STW $FDEFN,0($NL1) ; AEA4: 91E40004 STW $CFP,4($NL1) ; AEA8: 92640008 STW $CODE,8($NL1) ; AEAC: 395316C0 ADDI $FDEFN,$CODE,5824 ; AEB0: 9144000C STW $FDEFN,12($NL1) ; AEB4: 394F0060 ADDI $FDEFN,$CFP,96 ; AEB8: 915200A9 STW $FDEFN,169($NULL) ; AEBC: 7DC37378 MR $NL0,$BSP ; AEC0: 906F00B4 STW $NL0,180($CFP) ; AEC4: 81520091 LWZ $FDEFN,145($NULL) ; AEC8: 7C390B78 MR $A1,$NSP ; AECC: 914F00B0 STW $FDEFN,176($CFP) ; AED0: 930F00AC STW $A0,172($CFP) ; AED4: 932F00A8 STW $A1,168($CFP) ; AED8: 7E038378 MR $NL0,$CSP ; AEDC: 906F00B8 STW $NL0,184($CFP) ; AEE0: 388F0044 ADDI $NL1,$CFP,68 ; AEE4: 815200A9 LWZ $FDEFN,169($NULL) ; AEE8: 91440000 STW $FDEFN,0($NL1) ; AEEC: 91E40004 STW $CFP,4($NL1) ; AEF0: 92640008 STW $CODE,8($NL1) ; AEF4: 39531768 ADDI $FDEFN,$CODE,5992 ; AEF8: 9144000C STW $FDEFN,12($NL1) ; AEFC: 394F0044 ADDI $FDEFN,$CFP,68 ; AF00: 915200A9 STW $FDEFN,169($NULL) ; AF04: 3B12001C ADDI $A0,$NULL,28 ; T ; AF08: 3B32016C ADDI $A1,$NULL,364 ; 'SB-KERNEL:*GC-INHIBIT* ; AF0C: 8159FFFD LWZ $FDEFN,-3($A1) ; AF10: 39CE0008 ADDI $BSP,$BSP,8 ; AF14: 914EFFF8 STW $FDEFN,-8($BSP) ; AF18: 932EFFFC STW $A1,-4($BSP) ; AF1C: 9319FFFD STW $A0,-3($A1) ; AF20: 7E048378 MR $NL1,$CSP ; AF24: 3A10001C ADDI $CSP,$CSP,28 ; AF28: 830F000C LWZ $A0,12($CFP) ; AF2C: 832F0030 LWZ $A1,48($CFP) ; AF30: 7F7ADB78 MR $A2,$A3 ; AF34: 836F001C LWZ $A3,28($CFP) ; AF38: 814F0010 LWZ $FDEFN,16($CFP) ; AF3C: 91440010 STW $FDEFN,16($NL1) ; AF40: 814F0014 LWZ $FDEFN,20($CFP) ; AF44: 91440014 STW $FDEFN,20($NL1) ; AF48: 814F0018 LWZ $FDEFN,24($CFP) ; AF4C: 91440018 STW $FDEFN,24($NL1) ; AF50: 815300A9 LWZ $FDEFN,169($CODE) ; # ; AF54: 3960001C ADDI $NARGS,$ZERO,28 ; AF58: 83EA0005 LWZ $LIP,5($FDEFN) ; AF5C: 3AF31378 ADDI $LRA,$CODE,4984 ; AF60: 7DF67B78 MR $OCFP,$CFP ; AF64: 7C8F2378 MR $CFP,$NL1 ; AF68: 7FE903A6 MTCTR $LIP ; AF6C: 4E800420 BCTR ; AF70: 0004DE36 BYTE #X00, #X04, #XDE, #X36 ; possible LRA header ; AF74: 7ED0B378 MR $CSP,$OCFP ; AF78: 60000000 NOP ; AF7C: 3A73EC88 ADDI $CODE,$CODE,-4984 ; AF80: 7F19C378 MR $A1,$A0 ; AF84: 932F000C STW $A1,12($CFP) ; AF88: 814EFFFC LWZ $FDEFN,-4($BSP) ; AF8C: 830EFFF8 LWZ $A0,-8($BSP) ; AF90: 930AFFFD STW $A0,-3($FDEFN) ; AF94: 900EFFFC STW $ZERO,-4($BSP) ; AF98: 900EFFF8 STW $ZERO,-8($BSP) ; AF9C: 39CEFFF8 ADDI $BSP,$BSP,-8 ; AFA0: 807200A9 LWZ $NL0,169($NULL) ; AFA4: 80630000 LWZ $NL0,0($NL0) ; AFA8: 907200A9 STW $NL0,169($NULL) ; AFAC: 7DE47B78 MR $NL1,$CFP ; AFB0: 7E058378 MR $NL2,$CSP ; AFB4: 3A100100 ADDI $CSP,$CSP,256 ; AFB8: 7CAF2B78 MR $CFP,$NL2 ; AFBC: 395313D0 ADDI $FDEFN,$CODE,5072 ; AFC0: 4BFFFCB0 B L85 ; AFC4: 00000000 BYTE #X00, #X00, #X00, #X00 ; AFC8: 0004F436 BYTE #X00, #X04, #XF4, #X36 ; possible LRA header ; AFCC: 832F000C LWZ $A1,12($CFP) ; AFD0: 73230003 ANDI. $NL0,$A1,3 ; AFD4: 7F241670 SRAWI $NL1,$A1,2 ; AFD8: 41820008 BT EQ,L97 ; AFDC: 8099FFFD LWZ $NL1,-3($A1) ; AFE0: L97: 2C040000 CMPWI CR0,$NL1,0 ; AFE4: 418001C0 BT LT,L100 ; AFE8: 7E048378 MR $NL1,$CSP ; AFEC: 3A100040 ADDI $CSP,$CSP,64 ; AFF0: 831300AD LWZ $A0,173($CODE) ; :PID ; AFF4: 835300B1 LWZ $A2,177($CODE) ; :%STATUS ; AFF8: 837300B5 LWZ $A3,181($CODE) ; :RUNNING ; AFFC: 81530029 LWZ $FDEFN,41($CODE) ; :PTY ; B000: 91440010 STW $FDEFN,16($NL1) ; B004: 814F0020 LWZ $FDEFN,32($CFP) ; B008: 91440014 STW $FDEFN,20($NL1) ; B00C: 8153002D LWZ $FDEFN,45($CODE) ; :INPUT ; B010: 91440018 STW $FDEFN,24($NL1) ; B014: 814F0024 LWZ $FDEFN,36($CFP) ; B018: 9144001C STW $FDEFN,28($NL1) ; B01C: 81530015 LWZ $FDEFN,21($CODE) ; :OUTPUT ; B020: 91440020 STW $FDEFN,32($NL1) ; B024: 814F0028 LWZ $FDEFN,40($CFP) ; B028: 91440024 STW $FDEFN,36($NL1) ; B02C: 81530011 LWZ $FDEFN,17($CODE) ; :ERROR ; B030: 91440028 STW $FDEFN,40($NL1) ; B034: 814F002C LWZ $FDEFN,44($CFP) ; B038: 9144002C STW $FDEFN,44($NL1) ; B03C: 8153003D LWZ $FDEFN,61($CODE) ; :STATUS-HOOK ; B040: 91440030 STW $FDEFN,48($NL1) ; B044: 814F0034 LWZ $FDEFN,52($CFP) ; B048: 91440034 STW $FDEFN,52($NL1) ; B04C: 815300B9 LWZ $FDEFN,185($CODE) ; :COOKIE ; B050: 91440038 STW $FDEFN,56($NL1) ; B054: 814F003C LWZ $FDEFN,60($CFP) ; B058: 9144003C STW $FDEFN,60($NL1) ; B05C: 815300BD LWZ $FDEFN,189($CODE) ; # ; B060: 39600040 ADDI $NARGS,$ZERO,64 ; B064: 83EA0005 LWZ $LIP,5($FDEFN) ; B068: 3AF31488 ADDI $LRA,$CODE,5256 ; B06C: 7DF67B78 MR $OCFP,$CFP ; B070: 7C8F2378 MR $CFP,$NL1 ; B074: 7FE903A6 MTCTR $LIP ; B078: 4E800420 BCTR ; B07C: 00000000 BYTE #X00, #X00, #X00, #X00 ; B080: 00052236 BYTE #X00, #X05, #X22, #X36 ; possible LRA header ; B084: 7ED0B378 MR $CSP,$OCFP ; B088: 60000000 NOP ; B08C: 3A73EB78 ADDI $CODE,$CODE,-5256 ; B090: 814F0040 LWZ $FDEFN,64($CFP) ; B094: 930AFFFD STW $A0,-3($FDEFN) ; B098: 814F0040 LWZ $FDEFN,64($CFP) ; B09C: 830AFFFD LWZ $A0,-3($FDEFN) ; B0A0: 815300C1 LWZ $FDEFN,193($CODE) ; 'SB-IMPL::*ACTIVE-PROCESSES* ; B0A4: 832AFFFD LWZ $A1,-3($FDEFN) ; B0A8: 2C19004A CMPWI CR0,$A1,74 ; B0AC: 41820518 BT EQ,L125 ; B0B0: 62310004 ORI $ALLOC,$ALLOC,4 ; B0B4: 38600008 ADDI $NL0,$ZERO,8 ; B0B8: 3CC01003 ADDIS $NL3,$ZERO,4099 ; B0BC: 38C663E8 ADDI $NL3,$NL3,25576 ; B0C0: 81460000 LWZ $FDEFN,0($NL3) ; B0C4: 80C60004 LWZ $NL3,4($NL3) ; B0C8: 7D4A1A14 ADD $FDEFN,$FDEFN,$NL0 ; B0CC: 7C0A3000 CMPW CR0,$FDEFN,$NL3 ; B0D0: 4081000C BF GT,L98 ; B0D4: 7CAA3008 TW LGE,$FDEFN,$NL3 ; B0D8: 48000010 B L99 ; B0DC: L98: 3CC01003 ADDIS $NL3,$ZERO,4099 ; B0E0: 38C663E8 ADDI $NL3,$NL3,25576 ; B0E4: 91460000 STW $FDEFN,0($NL3) ; B0E8: L99: 7D435050 SUBF $FDEFN,$NL0,$FDEFN ; B0EC: 614A0003 ORI $FDEFN,$FDEFN,3 ; B0F0: 38C0FFFB ADDI $NL3,$ZERO,-5 ; B0F4: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; B0F8: 72260001 ANDI. $NL3,$ALLOC,1 ; B0FC: 0F060000 TWI NE,$NL3,0 ; B100: 914F000C STW $FDEFN,12($CFP) ; B104: 814F000C LWZ $FDEFN,12($CFP) ; B108: 930AFFFD STW $A0,-3($FDEFN) ; B10C: 814F000C LWZ $FDEFN,12($CFP) ; B110: 932A0001 STW $A1,1($FDEFN) ; B114: 815300C1 LWZ $FDEFN,193($CODE) ; 'SB-IMPL::*ACTIVE-PROCESSES* ; B118: 830F000C LWZ $A0,12($CFP) ; B11C: 930AFFFD STW $A0,-3($FDEFN) ; B120: 807200A9 LWZ $NL0,169($NULL) ; B124: 80630000 LWZ $NL0,0($NL0) ; B128: 907200A9 STW $NL0,169($NULL) ; B12C: 7DE67B78 MR $NL3,$CFP ; B130: 7E058378 MR $NL2,$CSP ; B134: 3A100100 ADDI $CSP,$CSP,256 ; B138: 808F00A0 LWZ $NL1,160($CFP) ; B13C: 830F00A4 LWZ $A0,164($CFP) ; B140: 7CAF2B78 MR $CFP,$NL2 ; B144: 39531558 ADDI $FDEFN,$CODE,5464 ; B148: 4BFFFB84 B L90 ; B14C: 00000000 BYTE #X00, #X00, #X00, #X00 ; B150: 00055636 BYTE #X00, #X05, #X56, #X36 ; possible LRA header ; B154: 807200A9 LWZ $NL0,169($NULL) ; B158: 80630000 LWZ $NL0,0($NL0) ; B15C: 907200A9 STW $NL0,169($NULL) ; B160: 7DE67B78 MR $NL3,$CFP ; B164: 7E058378 MR $NL2,$CSP ; B168: 3A100100 ADDI $CSP,$CSP,256 ; B16C: 808F0098 LWZ $NL1,152($CFP) ; B170: 830F009C LWZ $A0,156($CFP) ; B174: 7CAF2B78 MR $CFP,$NL2 ; B178: 39531588 ADDI $FDEFN,$CODE,5512 ; B17C: 4BFFFBB0 B L92 ; B180: 00056236 BYTE #X00, #X05, #X62, #X36 ; possible LRA header ; B184: 830F000C LWZ $A0,12($CFP) ; B188: 806F0000 LWZ $NL0,0($CFP) ; B18C: 814F0004 LWZ $FDEFN,4($CFP) ; B190: 7DF07B78 MR $CSP,$CFP ; B194: 7C6F1B78 MR $CFP,$NL0 ; B198: 3BEAFFFD ADDI $LIP,$FDEFN,-3 ; B19C: 7FE903A6 MTCTR $LIP ; B1A0: 4E800420 BCTR ; B1A4: L100: 815300C5 LWZ $FDEFN,197($CODE) ; # ; B1A8: 39600000 ADDI $NARGS,$ZERO,0 ; B1AC: 83EA0005 LWZ $LIP,5($FDEFN) ; B1B0: 3AF315D0 ADDI $LRA,$CODE,5584 ; B1B4: 7DF67B78 MR $OCFP,$CFP ; B1B8: 7E0F8378 MR $CFP,$CSP ; B1BC: 7FE903A6 MTCTR $LIP ; B1C0: 4E800420 BCTR ; B1C4: 00000000 BYTE #X00, #X00, #X00, #X00 ; B1C8: 00057436 BYTE #X00, #X05, #X74, #X36 ; possible LRA header ; B1CC: 7ED0B378 MR $CSP,$OCFP ; B1D0: 60000000 NOP ; B1D4: 3A73EA30 ADDI $CODE,$CODE,-5584 ; B1D8: 7F19C378 MR $A1,$A0 ; B1DC: 831300C9 LWZ $A0,201($CODE) ; "couldn't fork child process: ~A" ; B1E0: 81530089 LWZ $FDEFN,137($CODE) ; # ; B1E4: 39600008 ADDI $NARGS,$ZERO,8 ; B1E8: 83EA0005 LWZ $LIP,5($FDEFN) ; B1EC: 3AF31608 ADDI $LRA,$CODE,5640 ; B1F0: 7DF67B78 MR $OCFP,$CFP ; B1F4: 7E0F8378 MR $CFP,$CSP ; B1F8: 7FE903A6 MTCTR $LIP ; B1FC: 4E800420 BCTR ; B200: 00058236 BYTE #X00, #X05, #X82, #X36 ; possible LRA header ; B204: 7ED0B378 MR $CSP,$OCFP ; B208: 60000000 NOP ; B20C: 3A73E9F8 ADDI $CODE,$CODE,-5640 ; B210: 00058636 BYTE #X00, #X05, #X86, #X36 ; possible LRA header ; B214: 930F000C STW $A0,12($CFP) ; B218: 92CF0010 STW $OCFP,16($CFP) ; B21C: 7D6A5B78 MR $FDEFN,$NARGS ; B220: 914F0014 STW $FDEFN,20($CFP) ; B224: 814F00D8 LWZ $FDEFN,216($CFP) ; B228: 830F00D4 LWZ $A0,212($CFP) ; B22C: 832F00D0 LWZ $A1,208($CFP) ; B230: 91520091 STW $FDEFN,145($NULL) ; B234: 7F21CB78 MR $NSP,$A1 ; B238: 806F00DC LWZ $NL0,220($CFP) ; B23C: 7C037000 CMPW CR0,$NL0,$BSP ; B240: 4182002C BT EQ,L103 ; B244: L101: 814EFFFC LWZ $FDEFN,-4($BSP) ; B248: 2C0A0000 CMPWI CR0,$FDEFN,0 ; B24C: 41820010 BT EQ,L102 ; B250: 830EFFF8 LWZ $A0,-8($BSP) ; B254: 930AFFFD STW $A0,-3($FDEFN) ; B258: 900EFFFC STW $ZERO,-4($BSP) ; B25C: L102: 900EFFF8 STW $ZERO,-8($BSP) ; B260: 39CEFFF8 ADDI $BSP,$BSP,-8 ; B264: 7C037000 CMPW CR0,$NL0,$BSP ; B268: 4082FFDC BF EQ,L101 ; B26C: L103: 7DE67B78 MR $NL3,$CFP ; B270: 7E058378 MR $NL2,$CSP ; B274: 3A100100 ADDI $CSP,$CSP,256 ; B278: 808F0098 LWZ $NL1,152($CFP) ; B27C: 830F009C LWZ $A0,156($CFP) ; B280: 7CAF2B78 MR $CFP,$NL2 ; B284: 39531698 ADDI $FDEFN,$CODE,5784 ; B288: 4BFFFAA4 B L92 ; B28C: 00000000 BYTE #X00, #X00, #X00, #X00 ; B290: 0005A636 BYTE #X00, #X05, #XA6, #X36 ; possible LRA header ; B294: 830F000C LWZ $A0,12($CFP) ; B298: 82CF0010 LWZ $OCFP,16($CFP) ; B29C: 814F0014 LWZ $FDEFN,20($CFP) ; B2A0: 7D4B5378 MR $NARGS,$FDEFN ; B2A4: 3CC00400 ADDIS $NL3,$ZERO,1024 ; B2A8: 38C600E8 ADDI $NL3,$NL3,232 ; B2AC: 7CC803A6 MTLR $NL3 ; B2B0: 4E800021 BCLRL BO-U,LT ; B2B4: 00000000 BYTE #X00, #X00, #X00, #X00 ; B2B8: 0005B036 BYTE #X00, #X05, #XB0, #X36 ; possible LRA header ; B2BC: 930F000C STW $A0,12($CFP) ; B2C0: 92CF0010 STW $OCFP,16($CFP) ; B2C4: 7D6A5B78 MR $FDEFN,$NARGS ; B2C8: 914F0014 STW $FDEFN,20($CFP) ; B2CC: 814F00C4 LWZ $FDEFN,196($CFP) ; B2D0: 830F00C0 LWZ $A0,192($CFP) ; B2D4: 832F00BC LWZ $A1,188($CFP) ; B2D8: 91520091 STW $FDEFN,145($NULL) ; B2DC: 7F21CB78 MR $NSP,$A1 ; B2E0: 806F00C8 LWZ $NL0,200($CFP) ; B2E4: 7C037000 CMPW CR0,$NL0,$BSP ; B2E8: 4182002C BT EQ,L106 ; B2EC: L104: 814EFFFC LWZ $FDEFN,-4($BSP) ; B2F0: 2C0A0000 CMPWI CR0,$FDEFN,0 ; B2F4: 41820010 BT EQ,L105 ; B2F8: 830EFFF8 LWZ $A0,-8($BSP) ; B2FC: 930AFFFD STW $A0,-3($FDEFN) ; B300: 900EFFFC STW $ZERO,-4($BSP) ; B304: L105: 900EFFF8 STW $ZERO,-8($BSP) ; B308: 39CEFFF8 ADDI $BSP,$BSP,-8 ; B30C: 7C037000 CMPW CR0,$NL0,$BSP ; B310: 4082FFDC BF EQ,L104 ; B314: L106: 7DE67B78 MR $NL3,$CFP ; B318: 7E058378 MR $NL2,$CSP ; B31C: 3A100100 ADDI $CSP,$CSP,256 ; B320: 808F00A0 LWZ $NL1,160($CFP) ; B324: 830F00A4 LWZ $A0,164($CFP) ; B328: 7CAF2B78 MR $CFP,$NL2 ; B32C: 39531740 ADDI $FDEFN,$CODE,5952 ; B330: 4BFFF99C B L90 ; B334: 00000000 BYTE #X00, #X00, #X00, #X00 ; B338: 0005D036 BYTE #X00, #X05, #XD0, #X36 ; possible LRA header ; B33C: 830F000C LWZ $A0,12($CFP) ; B340: 82CF0010 LWZ $OCFP,16($CFP) ; B344: 814F0014 LWZ $FDEFN,20($CFP) ; B348: 7D4B5378 MR $NARGS,$FDEFN ; B34C: 3CC00400 ADDIS $NL3,$ZERO,1024 ; B350: 38C600E8 ADDI $NL3,$NL3,232 ; B354: 7CC803A6 MTLR $NL3 ; B358: 4E800021 BCLRL BO-U,LT ; B35C: 00000000 BYTE #X00, #X00, #X00, #X00 ; B360: 0005DA36 BYTE #X00, #X05, #XDA, #X36 ; possible LRA header ; B364: 930F000C STW $A0,12($CFP) ; B368: 92CF0010 STW $OCFP,16($CFP) ; B36C: 7D6A5B78 MR $FDEFN,$NARGS ; B370: 914F0014 STW $FDEFN,20($CFP) ; B374: 814F00B0 LWZ $FDEFN,176($CFP) ; B378: 830F00AC LWZ $A0,172($CFP) ; B37C: 832F00A8 LWZ $A1,168($CFP) ; B380: 91520091 STW $FDEFN,145($NULL) ; B384: 7F21CB78 MR $NSP,$A1 ; B388: 806F00B4 LWZ $NL0,180($CFP) ; B38C: 7C037000 CMPW CR0,$NL0,$BSP ; B390: 4182002C BT EQ,L109 ; B394: L107: 814EFFFC LWZ $FDEFN,-4($BSP) ; B398: 2C0A0000 CMPWI CR0,$FDEFN,0 ; B39C: 41820010 BT EQ,L108 ; B3A0: 830EFFF8 LWZ $A0,-8($BSP) ; B3A4: 930AFFFD STW $A0,-3($FDEFN) ; B3A8: 900EFFFC STW $ZERO,-4($BSP) ; B3AC: L108: 900EFFF8 STW $ZERO,-8($BSP) ; B3B0: 39CEFFF8 ADDI $BSP,$BSP,-8 ; B3B4: 7C037000 CMPW CR0,$NL0,$BSP ; B3B8: 4082FFDC BF EQ,L107 ; B3BC: L109: 7DE47B78 MR $NL1,$CFP ; B3C0: 7E058378 MR $NL2,$CSP ; B3C4: 3A100100 ADDI $CSP,$CSP,256 ; B3C8: 7CAF2B78 MR $CFP,$NL2 ; B3CC: 395317E0 ADDI $FDEFN,$CODE,6112 ; B3D0: 4BFFF8A0 B L85 ; B3D4: 00000000 BYTE #X00, #X00, #X00, #X00 ; B3D8: 0005F836 BYTE #X00, #X05, #XF8, #X36 ; possible LRA header ; B3DC: 830F000C LWZ $A0,12($CFP) ; B3E0: 82CF0010 LWZ $OCFP,16($CFP) ; B3E4: 814F0014 LWZ $FDEFN,20($CFP) ; B3E8: 7D4B5378 MR $NARGS,$FDEFN ; B3EC: 3CC00400 ADDIS $NL3,$ZERO,1024 ; B3F0: 38C600E8 ADDI $NL3,$NL3,232 ; B3F4: 7CC803A6 MTLR $NL3 ; B3F8: 4E800021 BCLRL BO-U,LT ; B3FC: L110: L111: L112:914F0004 STW $FDEFN,4($CFP) ; B400: 8153005D LWZ $FDEFN,93($CODE) ; 'SB-IMPL::*CLOSE-IN-PARENT* ; B404: 836AFFFD LWZ $A3,-3($FDEFN) ; B408: 2C1B004A CMPWI CR0,$A3,74 ; B40C: 418201C4 BT EQ,L126 ; B410: 48000050 B L114 ; B414: L113: 831BFFFD LWZ $A0,-3($A3) ; B418: 837B0001 LWZ $A3,1($A3) ; B41C: 936F000C STW $A3,12($CFP) ; B420: 934F0018 STW $A2,24($CFP) ; B424: 815300CD LWZ $FDEFN,205($CODE) ; # ; B428: 39600004 ADDI $NARGS,$ZERO,4 ; B42C: 83EA0005 LWZ $LIP,5($FDEFN) ; B430: 3AF31850 ADDI $LRA,$CODE,6224 ; B434: 7DF67B78 MR $OCFP,$CFP ; B438: 7E0F8378 MR $CFP,$CSP ; B43C: 7FE903A6 MTCTR $LIP ; B440: 4E800420 BCTR ; B444: 00000000 BYTE #X00, #X00, #X00, #X00 ; B448: 00061436 BYTE #X00, #X06, #X14, #X36 ; possible LRA header ; B44C: 7ED0B378 MR $CSP,$OCFP ; B450: 60000000 NOP ; B454: 3A73E7B0 ADDI $CODE,$CODE,-6224 ; B458: 834F0018 LWZ $A2,24($CFP) ; B45C: 836F000C LWZ $A3,12($CFP) ; B460: L114: 73630007 ANDI. $NL0,$A3,7 ; B464: 0C1B0002 TWI F,$A3,2 ; B468: 0F030003 TWI NE,$NL0,3 ; B46C: 7F6ADB78 MR $FDEFN,$A3 ; B470: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; B474: 4082FFA0 BF EQ,L113 ; B478: 815AFFFD LWZ $FDEFN,-3($A2) ; B47C: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; B480: 408200E4 BF EQ,L119 ; B484: 81530059 LWZ $FDEFN,89($CODE) ; 'SB-IMPL::*CLOSE-ON-ERROR* ; B488: 834AFFFD LWZ $A2,-3($FDEFN) ; B48C: 2C1A004A CMPWI CR0,$A2,74 ; B490: 4182014C BT EQ,L127 ; B494: 48000048 B L116 ; B498: L115: 831AFFFD LWZ $A0,-3($A2) ; B49C: 835A0001 LWZ $A2,1($A2) ; B4A0: 934F000C STW $A2,12($CFP) ; B4A4: 815300CD LWZ $FDEFN,205($CODE) ; # ; B4A8: 39600004 ADDI $NARGS,$ZERO,4 ; B4AC: 83EA0005 LWZ $LIP,5($FDEFN) ; B4B0: 3AF318D0 ADDI $LRA,$CODE,6352 ; B4B4: 7DF67B78 MR $OCFP,$CFP ; B4B8: 7E0F8378 MR $CFP,$CSP ; B4BC: 7FE903A6 MTCTR $LIP ; B4C0: 4E800420 BCTR ; B4C4: 00000000 BYTE #X00, #X00, #X00, #X00 ; B4C8: 00063436 BYTE #X00, #X06, #X34, #X36 ; possible LRA header ; B4CC: 7ED0B378 MR $CSP,$OCFP ; B4D0: 60000000 NOP ; B4D4: 3A73E730 ADDI $CODE,$CODE,-6352 ; B4D8: 834F000C LWZ $A2,12($CFP) ; B4DC: L116: 73430007 ANDI. $NL0,$A2,7 ; B4E0: 0C1A0002 TWI F,$A2,2 ; B4E4: 0F030003 TWI NE,$NL0,3 ; B4E8: 7F4AD378 MR $FDEFN,$A2 ; B4EC: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; B4F0: 4082FFA8 BF EQ,L115 ; B4F4: 81530061 LWZ $FDEFN,97($CODE) ; 'SB-IMPL::*HANDLERS-INSTALLED* ; B4F8: 834AFFFD LWZ $A2,-3($FDEFN) ; B4FC: 2C1A004A CMPWI CR0,$A2,74 ; B500: 418200E8 BT EQ,L128 ; B504: 48000048 B L118 ; B508: L117: 831AFFFD LWZ $A0,-3($A2) ; B50C: 835A0001 LWZ $A2,1($A2) ; B510: 934F000C STW $A2,12($CFP) ; B514: 815300D1 LWZ $FDEFN,209($CODE) ; # ; B518: 39600004 ADDI $NARGS,$ZERO,4 ; B51C: 83EA0005 LWZ $LIP,5($FDEFN) ; B520: 3AF31940 ADDI $LRA,$CODE,6464 ; B524: 7DF67B78 MR $OCFP,$CFP ; B528: 7E0F8378 MR $CFP,$CSP ; B52C: 7FE903A6 MTCTR $LIP ; B530: 4E800420 BCTR ; B534: 00000000 BYTE #X00, #X00, #X00, #X00 ; B538: 00065036 BYTE #X00, #X06, #X50, #X36 ; possible LRA header ; B53C: 7ED0B378 MR $CSP,$OCFP ; B540: 60000000 NOP ; B544: 3A73E6C0 ADDI $CODE,$CODE,-6464 ; B548: 834F000C LWZ $A2,12($CFP) ; B54C: L118: 73430007 ANDI. $NL0,$A2,7 ; B550: 0C1A0002 TWI F,$A2,2 ; B554: 0F030003 TWI NE,$NL0,3 ; B558: 7F4AD378 MR $FDEFN,$A2 ; B55C: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; B560: 4082FFA8 BF EQ,L117 ; B564: L119: 7E589378 MR $A0,$NULL ; B568: 806F0000 LWZ $NL0,0($CFP) ; B56C: 814F0004 LWZ $FDEFN,4($CFP) ; B570: 7DF07B78 MR $CSP,$CFP ; B574: 7C6F1B78 MR $CFP,$NL0 ; B578: 3BEAFFFD ADDI $LIP,$FDEFN,-3 ; B57C: 7FE903A6 MTCTR $LIP ; B580: 4E800420 BCTR ; B584: 00000000 BYTE #X00, #X00, #X00, #X00 ; B588: L120: 0CC0000A UNIMP 10 ; Error trap ; B58C: 04 BYTE #X04 ; B58D: 17 BYTE #X17 ; UNDEFINED-FUN-ERROR ; B58E: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; B591: .ALIGN 4 ; B594: L121: 0CC0000A UNIMP 10 ; Error trap ; B598: 04 BYTE #X04 ; B599: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; B59A: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; B59D: .ALIGN 4 ; B5A0: L122: 0CC0000A UNIMP 10 ; Error trap ; B5A4: 04 BYTE #X04 ; B5A5: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; B5A6: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; B5A9: .ALIGN 4 ; B5AC: L123: 0CC0000A UNIMP 10 ; Error trap ; B5B0: 04 BYTE #X04 ; B5B1: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; B5B2: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; B5B5: .ALIGN 4 ; B5B8: L124: 0CC0000A UNIMP 10 ; Error trap ; B5BC: 04 BYTE #X04 ; B5BD: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; B5BE: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; B5C1: .ALIGN 4 ; B5C4: L125: 0CC0000A UNIMP 10 ; Error trap ; B5C8: 04 BYTE #X04 ; B5C9: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; B5CA: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; B5CD: .ALIGN 4 ; B5D0: L126: 0CC0000A UNIMP 10 ; Error trap ; B5D4: 04 BYTE #X04 ; B5D5: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; B5D6: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; B5D9: .ALIGN 4 ; B5DC: L127: 0CC0000A UNIMP 10 ; Error trap ; B5E0: 04 BYTE #X04 ; B5E1: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; B5E2: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; B5E5: .ALIGN 4 ; B5E8: L128: 0CC0000A UNIMP 10 ; Error trap ; B5EC: 04 BYTE #X04 ; B5ED: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; B5EE: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; B5F1: .ALIGN 4 ; // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/lambda-list.pure.lisp ; in: LAMBDA NIL ; (LAMBDA (&AUX (FOO 1) &AUX (BAR 2)) 'OK) ; ==> ; #'(LAMBDA (&AUX (FOO 1) &AUX (BAR 2)) 'OK) ; ; caught ERROR: ; multiple &AUX in lambda list: (&AUX (FOO 1) &AUX (BAR 2)) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&AUX (FOO 1) &KEY BAR) 'OK) ; ==> ; #'(LAMBDA (&AUX (FOO 1) &KEY BAR) 'OK) ; ; caught ERROR: ; misplaced &KEY in lambda list: (&AUX (FOO 1) &KEY BAR) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&AUX (FOO 1) &OPTIONAL BAR) 'OK) ; ==> ; #'(LAMBDA (&AUX (FOO 1) &OPTIONAL BAR) 'OK) ; ; caught ERROR: ; misplaced &OPTIONAL in lambda list: (&AUX (FOO 1) &OPTIONAL BAR) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&AUX (FOO 1) &REST BAR) 'OK) ; ==> ; #'(LAMBDA (&AUX (FOO 1) &REST BAR) 'OK) ; ; caught ERROR: ; misplaced &REST in lambda list: (&AUX (FOO 1) &REST BAR) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&KEY FOO &ALLOW-OTHER-KEYS &ALLOW-OTHER-KEYS) 'OK) ; ==> ; #'(LAMBDA (&KEY FOO &ALLOW-OTHER-KEYS &ALLOW-OTHER-KEYS) 'OK) ; ; caught ERROR: ; misplaced &ALLOW-OTHER-KEYS in lambda list: (&KEY FOO &ALLOW-OTHER-KEYS ; &ALLOW-OTHER-KEYS) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&KEY FOO &KEY BAR) 'OK) ; ==> ; #'(LAMBDA (&KEY FOO &KEY BAR) 'OK) ; ; caught ERROR: ; misplaced &KEY in lambda list: (&KEY FOO &KEY BAR) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&KEY FOO &OPTIONAL BAR) 'OK) ; ==> ; #'(LAMBDA (&KEY FOO &OPTIONAL BAR) 'OK) ; ; caught ERROR: ; misplaced &OPTIONAL in lambda list: (&KEY FOO &OPTIONAL BAR) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&KEY FOO &REST BAR) 'OK) ; ==> ; #'(LAMBDA (&KEY FOO &REST BAR) 'OK) ; ; caught ERROR: ; misplaced &REST in lambda list: (&KEY FOO &REST BAR) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&OPTIONAL FOO &OPTIONAL BAR) 'OK) ; ==> ; #'(LAMBDA (&OPTIONAL FOO &OPTIONAL BAR) 'OK) ; ; caught ERROR: ; misplaced &OPTIONAL in lambda list: (&OPTIONAL FOO &OPTIONAL BAR) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&REST FOO &REST BAR) 'OK) ; ==> ; #'(LAMBDA (&REST FOO &REST BAR) 'OK) ; ; caught ERROR: ; misplaced &REST in lambda list: (&REST FOO &REST BAR) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA (&REST FOO &OPTIONAL BAR) 'OK) ; ==> ; #'(LAMBDA (&REST FOO &OPTIONAL BAR) 'OK) ; ; caught ERROR: ; misplaced &OPTIONAL in lambda list: (&REST FOO &OPTIONAL BAR) ; ; compilation unit finished ; caught 1 ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/list.pure.lisp ; in: LAMBDA NIL ; (LDIFF 1 2) ; ; note: deleting unreachable code ; (GO #:G2902) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NOT (IGNORE-ERRORS (LDIFF 1 2))) 'NIL NIL)) ; ; note: deleting unreachable code ; (LDIFF 1 2) ; ; caught WARNING: ; Asserted type LIST conflicts with derived type (VALUES (INTEGER 1 1) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 3 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load.pure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/loop.pure.lisp ; in: LAMBDA NIL ; (LIST A B) ; ==> ; A ; ; note: deleting unreachable code ; (LOOP WITH (A . B) OF-TYPE FLOAT = '(5 . 5) RETURN (LIST A B)) ; --> BLOCK LET SB-LOOP::LOOP-DESTRUCTURING-BIND DESTRUCTURING-BIND LET LET* ; ==> ; (LET* ((A (CAR #:WHOLE9)) (B (CDR #:WHOLE9))) ; (DECLARE (IGNORE)) ; (DECLARE (TYPE FLOAT B) (TYPE FLOAT A)) ; (SB-LOOP::LOOP-BODY NIL NIL ((RETURN-FROM NIL (LIST A B))) NIL NIL)) ; ; caught WARNING: ; Asserted type FLOAT conflicts with derived type ; (VALUES (INTEGER 5 5) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (LOOP WHILE T DO *PRINT-LEVEL* (PRINT T)) ; ; caught ERROR: ; (in macroexpansion of (LOOP WHILE T ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; A compound form was expected, but *PRINT-LEVEL* found. ; current LOOP context: DO *PRINT-LEVEL* (PRINT T). ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LOOP FOR (A . A) IN '((1 . 2) (3 . 4)) RETURN A) ; ; caught ERROR: ; (in macroexpansion of (LOOP FOR # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; duplicated variable A in a LOOP binding ; current LOOP context: FOR (A . A) IN '((1 . 2) (3 . 4)) RETURN. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LOOP FOR NIL BEING THE EXTERNAL-SYMBOLS OF :CL COUNT T) ; --> BLOCK LET WITH-PACKAGE-ITERATOR LET* MACROLET WHEN COND IF COND ; ==> ; NIL ; ; caught WARNING: ; This is not a NUMBER: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LOOP FOR X BEING THE EXTERNAL-SYMBOLS OF :CL COUNT X) ; --> BLOCK LET WITH-PACKAGE-ITERATOR LET* MACROLET WHEN COND IF COND ; ==> ; NIL ; ; caught WARNING: ; This is not a NUMBER: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LOOP FOR X BEING EACH EXTERNAL-SYMBOL COUNT T) ; --> BLOCK LET WITH-PACKAGE-ITERATOR LET* MACROLET WHEN COND IF COND ; ==> ; NIL ; ; caught WARNING: ; This is not a NUMBER: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (GO #:G2924) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQ (LOOP FOR A = (RETURN T) RETURN NIL) T) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2933) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(EQ (BLOCK NIL (LOOP NAMED FOO DO # FINALLY #) :BAD) :GOOD) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2935) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (LOOP WITH (A NIL) = '(1 2) RETURN A) 1) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2937) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (LOOP WITH (NIL A) = '(1 2) RETURN A) 2) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2939) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(= (LOOP WITH (A) = '(1 2) RETURN A) 1) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G2941) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(EQUAL (LOOP WITH (NIL . A) = '(1 2) RETURN A) '(2)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LOOP FOR I IN '(1 2 3) COLLECT I ALWAYS (< I 4)) ; ; caught ERROR: ; (in macroexpansion of (LOOP FOR I ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; This LOOP clause is not permitted with anonymous collectors. ; current LOOP context: ALWAYS (< I 4). ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LOOP FOR I IN '(1 2 3) ALWAYS (< I 4) COLLECT I) ; ; caught ERROR: ; (in macroexpansion of (LOOP FOR I ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; This anonymous collection LOOP clause is not permitted with aggregate booleans. ; current LOOP context: COLLECT I. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LOOP FOR I IN '(1 2 3) THEREIS (= I 3) COLLECT I) ; ; caught ERROR: ; (in macroexpansion of (LOOP FOR I ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; This anonymous collection LOOP clause is not permitted with aggregate booleans. ; current LOOP context: COLLECT I. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LOOP WITH I = 1 FOR X FROM 1 TO 3 COLLECT ...) ; ; caught ERROR: ; (in macroexpansion of (LOOP WITH I ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; Variable I in INTO clause is a duplicate ; current LOOP context: COLLECT X INTO I. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (LOOP WITH I = 1 WITH I = (1+ I) FOR X FROM ...) ; ; caught ERROR: ; (in macroexpansion of (LOOP WITH I ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; Variable I has already been used ; current LOOP context: WITH I = (1+ I) FOR. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G2960) ; (DECLARE (IGNORE #:G2960)) ; (ASSERT FAILURE-P)) ; ; caught STYLE-WARNING: ; The variable FUNCTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable WARNINGS-P is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (LOOP FOR (I J) FROM 4 TO 6 COLLECT NIL) ; ; caught ERROR: ; (in macroexpansion of (LOOP FOR # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; Arithmetic index must be an atom. ; current LOOP context: FOR (I J) FROM 4 TO 6 COLLECT. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G2961) ; (DECLARE (IGNORE #:G2961)) ; (ASSERT FAILURE-P)) ; ; caught STYLE-WARNING: ; The variable FUNCTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable WARNINGS-P is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (LOOP FOR (I J) TO 6 COLLECT NIL) ; ; caught ERROR: ; (in macroexpansion of (LOOP FOR # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; Arithmetic index must be an atom. ; current LOOP context: FOR (I J) TO 6 COLLECT. ; ; compilation unit finished ; caught 1 ERROR condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop.pure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/octets.pure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/reader.pure.lisp ; in: LAMBDA NIL ; (GO #:G2987) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQUAL (SYMBOL-NAME '#:|fdsA|) "fdsA") 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (HANDLER-CASE (WITH-INPUT-FROM-STRING (S "cl:") (READ S)) ; (END-OF-FILE (C) 'GOOD)) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((C #:G1)) ; 'GOOD) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/seq.pure.lisp SEQUENCE-AS-LIST=(1 (12) 1) SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6) SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6) SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6) SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6) SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6) SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6) SEQUENCE-AS-LIST=(1 (2) 3 (4) (5) 6) SEQUENCE-AS-LIST=(0 10 0 11 12) SEQUENCE-AS-LIST=(0 10 0 11 12) SEQUENCE-AS-LIST=(0 10 0 11 12) SEQUENCE-AS-LIST=(0 10 0 11 12) ; in: LAMBDA NIL ; (LAMBDA (X Y) (SORT (LIST 0 0 0) #'<) NIL) ; ==> ; #'(LAMBDA (X Y) (SORT (LIST 0 0 0) #'<) NIL) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; caught STYLE-WARNING: ; The variable Y is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (LET ((FN (COMPILE NIL '(LAMBDA # #)))) ; (LET* ((X #(1 2 3)) ; (Y (MAKE-ARRAY 2 :DISPLACED-TO X :DISPLACED-INDEX-OFFSET 1))) ; (ASSERT (= (POSITION 2 Y) 0)))) ; ; caught STYLE-WARNING: ; The variable FN is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA (X) ; (POSITION X) ; ; caught STYLE-WARNING: ; The function was called with one argument, but wants at least two. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/stream.pure.lisp ; in: LAMBDA NIL ; (FILE-POSITION STREAM -1) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type (OR UNSIGNED-BYTE (MEMBER :END :START)) conflicts with derived ; type (VALUES (INTEGER -1 -1) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (FILE-POSITION STREAM -1) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type (OR UNSIGNED-BYTE (MEMBER :END :START)) conflicts with derived ; type (VALUES (INTEGER -1 -1) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (FILE-POSITION STREAM -1) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type (OR UNSIGNED-BYTE (MEMBER :END :START)) conflicts with derived ; type (VALUES (INTEGER -1 -1) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/string.pure.lisp ; in: LAMBDA NIL ; (MAKE-ARRAY 1 :ELEMENT-TYPE NIL) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; (GO #:G3119) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(TYPEP (MAKE-ARRAY 1 :ELEMENT-TYPE NIL) 'STRING) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (MAKE-ARRAY 2 :ELEMENT-TYPE NIL) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; (GO #:G3121) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(NOT (TYPEP (MAKE-ARRAY 2 :ELEMENT-TYPE NIL) 'BASE-STRING)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3123) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(TYPEP (MAKE-STRING 3 :ELEMENT-TYPE NIL) 'SIMPLE-STRING) 'NIL NIL)) ; ; note: deleting unreachable code ; (MAKE-STRING 3 :ELEMENT-TYPE NIL) ; --> THE ; ==> ; (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (MAKE-STRING 4 :ELEMENT-TYPE NIL) ; --> THE ; ==> ; (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(NOT (TYPEP (MAKE-STRING 4 :ELEMENT-TYPE NIL) 'SIMPLE-BASE-STRING)) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (MAKE-ARRAY 1 :ELEMENT-TYPE NIL) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (MAKE-ARRAY 0 :ELEMENT-TYPE NIL) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (MAKE-ARRAY 0 :ELEMENT-TYPE NIL) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (MAKE-ARRAY 0 :ELEMENT-TYPE NIL) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; (MAKE-STRING 0 :ELEMENT-TYPE NIL) ; --> THE ; ==> ; (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (MAKE-ARRAY 2 :ELEMENT-TYPE NIL) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (MAKE-ARRAY 0 :ELEMENT-TYPE NIL) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (MAKE-STRING 5 :ELEMENT-TYPE T) ; ==> ; (THE SIMPLE-STRING ; (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE)) ; ; caught WARNING: ; Asserted type SIMPLE-STRING conflicts with derived type ; (VALUES (SIMPLE-VECTOR 5) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (MAKE-STRING 5 :ELEMENT-TYPE T) ; ==> ; (THE SIMPLE-STRING ; (MAKE-ARRAY (THE SB-INT:INDEX LENGTH) :ELEMENT-TYPE SB-C::ELEMENT-TYPE)) ; ; caught WARNING: ; Asserted type SIMPLE-STRING conflicts with derived type ; (VALUES (SIMPLE-VECTOR 5) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (STRING<= (COERCE "e99mo7yAJ6oU4" 'BASE-STRING) ; (COERCE "aaABAAbaa" 'BASE-STRING) :START1 A) ; ==> ; (SB-KERNEL:STRING<=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1 ; SB-C::START2 SB-C::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a BASE-STRING, not a SIMPLE-BASE-STRING. ; The second argument is a BASE-STRING, not a SIMPLE-BASE-STRING. ; ; compilation unit finished ; printed 1 note // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/symbol.pure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/time.pure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/type.pure.lisp ARITHMETIC-ERROR FUNCTION SIMPLE-CONDITION ARRAY GENERIC-FUNCTION SIMPLE-ERROR ATOM HASH-TABLE SIMPLE-STRING BASE-CHAR INTEGER SIMPLE-TYPE-ERROR BASE-STRING KEYWORD SIMPLE-VECTOR BIGNUM LIST SIMPLE-WARNING BIT LOGICAL-PATHNAME SINGLE-FLOAT BIT-VECTOR LONG-FLOAT STANDARD-CHAR BROADCAST-STREAM METHOD STANDARD-CLASS BUILT-IN-CLASS METHOD-COMBINATION STANDARD-GENERIC-FUNCTION CELL-ERROR NIL STANDARD-METHOD CHARACTER NULL STANDARD-OBJECT CLASS NUMBER STORAGE-CONDITION COMPILED-FUNCTION PACKAGE STREAM COMPLEX PACKAGE-ERROR STREAM-ERROR CONCATENATED-STREAM PARSE-ERROR STRING CONDITION PATHNAME STRING-STREAM CONS PRINT-NOT-READABLE STRUCTURE-CLASS CONTROL-ERROR PROGRAM-ERROR STRUCTURE-OBJECT DIVISION-BY-ZERO RANDOM-STATE STYLE-WARNING DOUBLE-FLOAT RATIO SYMBOL ECHO-STREAM RATIONAL SYNONYM-STREAM END-OF-FILE READER-ERROR T ERROR READTABLE TWO-WAY-STREAM EXTENDED-CHAR REAL TYPE-ERROR FILE-ERROR RESTART UNBOUND-SLOT FILE-STREAM SEQUENCE UNBOUND-VARIABLE FIXNUM SERIOUS-CONDITION UNDEFINED-FUNCTION FLOAT SHORT-FLOAT UNSIGNED-BYTE FLOATING-POINT-INEXACT SIGNED-BYTE VECTOR FLOATING-POINT-INVALID-OPERATION SIMPLE-ARRAY WARNING FLOATING-POINT-OVERFLOW SIMPLE-BASE-STRING FLOATING-POINT-UNDERFLOW SIMPLE-BIT-VECTOR ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP #C(1 2) '(MEMBER #C(2 1)))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP #C(1 2) '(MEMBER #C(1 2))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (GO #:G3222) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(TYPEP 0 ; '(REAL ; -19950631168807583848837421626835850838234968318861924548520089498529438830221946631919961684036194597899331129423209124271556491349413781117593785932096323957855730046793794526765246551266059895520550086918193311542508608460618104685509074866089624888090489894838009253941633257850621568309473902556912388065225096643874441046759871626985453222868538161694315775629640762836880760732228535091641476183956381458969463899410840960536267821064621427333394036525565649530603142680234969400335934316651459297773279665775606172582031407994198179607378245683762280037302885487251900834464581454650557929601414833921615734588139257095379769119277800826957735674444123062018757836325502728323789270710373802866393031428133241401624195671690574061419654342324638801248856147305207431992259611796250130992860241708340807605932320161268492288496255841312844061536738951487114256315111089745514203313820202931640957596464756010405845841566072044962867016515061920631004186422275908670900574606417856951911456055068251250406007519842261898059237118054444788072906395242548339221982707404473162376760846613033778706039803413197133493654622700563169937455508241780972810983291314403571877524768509857276937926433221599399876886660808368837838027643282775172273657572744784112294389733810861607423253291974813120197604178281965697475898164531258434135959862784130128185406283476649088690521047580882615823961985770122407044330583075869039319604603404973156583208672105913300903752823415539745394397715257455290510212310947321610753474825740775273986348298498340756937955646638621874569499279016572103701364433135817214311791398222983845847334440270964182851005072927748364550578634501100852987812389473928699540834346158807043959118985815145779177143619698728131459483783202081474982171858011389071228250905826817436220577475921417653715687725614904582904992461028630081535583308130101987675856234343538955409175623400844887526162643568648833519463720377293240094456246923254350400678027273837755376406726898636241037491410966718557050759098100246789880178271925953381282421954028302759408448955014676668389697996886241636313376393903373455801407636741877711055384225739499110186468219696581651485130494222369947714763069155468217682876200362777257723781365331611196811280792669481887201298643660768551639860534602297871557517947385246369446923087894265948217008051120322365496288169035739121368338393591756418733850510970271613915439590991598154654417336311656936031122249937969999226781732358023111862644575299135758175008199839236284615249881088960232244362173771618086357015468484058622329792853875623486556440536962622018963571028812361567512543338303270029097668650568557157505516727518899194129711337690149916181315171544007728650573189557450920330185304847113818315407324053319038462084036421763703911550639789000742853672196280903477974533320468368795868580237952218629120080742819551317948157624448298518461509704888027274721574688131594750409732115080498190455803416826949787141316063210686391511681774304792596709376 ; 19950631168807583848837421626835850838234968318861924548520089498529438830221946631919961684036194597899331129423209124271556491349413781117593785932096323957855730046793794526765246551266059895520550086918193311542508608460618104685509074866089624888090489894838009253941633257850621568309473902556912388065225096643874441046759871626985453222868538161694315775629640762836880760732228535091641476183956381458969463899410840960536267821064621427333394036525565649530603142680234969400335934316651459297773279665775606172582031407994198179607378245683762280037302885487251900834464581454650557929601414833921615734588139257095379769119277800826957735674444123062018757836325502728323789270710373802866393031428133241401624195671690574061419654342324638801248856147305207431992259611796250130992860241708340807605932320161268492288496255841312844061536738951487114256315111089745514203313820202931640957596464756010405845841566072044962867016515061920631004186422275908670900574606417856951911456055068251250406007519842261898059237118054444788072906395242548339221982707404473162376760846613033778706039803413197133493654622700563169937455508241780972810983291314403571877524768509857276937926433221599399876886660808368837838027643282775172273657572744784112294389733810861607423253291974813120197604178281965697475898164531258434135959862784130128185406283476649088690521047580882615823961985770122407044330583075869039319604603404973156583208672105913300903752823415539745394397715257455290510212310947321610753474825740775273986348298498340756937955646638621874569499279016572103701364433135817214311791398222983845847334440270964182851005072927748364550578634501100852987812389473928699540834346158807043959118985815145779177143619698728131459483783202081474982171858011389071228250905826817436220577475921417653715687725614904582904992461028630081535583308130101987675856234343538955409175623400844887526162643568648833519463720377293240094456246923254350400678027273837755376406726898636241037491410966718557050759098100246789880178271925953381282421954028302759408448955014676668389697996886241636313376393903373455801407636741877711055384225739499110186468219696581651485130494222369947714763069155468217682876200362777257723781365331611196811280792669481887201298643660768551639860534602297871557517947385246369446923087894265948217008051120322365496288169035739121368338393591756418733850510970271613915439590991598154654417336311656936031122249937969999226781732358023111862644575299135758175008199839236284615249881088960232244362173771618086357015468484058622329792853875623486556440536962622018963571028812361567512543338303270029097668650568557157505516727518899194129711337690149916181315171544007728650573189557450920330185304847113818315407324053319038462084036421763703911550639789000742853672196280903477974533320468368795868580237952218629120080742819551317948157624448298518461509704888027274721574688131594750409732115080498190455803416826949787141316063210686391511681774304792596709376)) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes testing type derivation: LOGAND-DERIVE-UNSIGNED-LOW-BOUND testing type derivation: LOGAND-DERIVE-UNSIGNED-HIGH-BOUND testing type derivation: LOGIOR-DERIVE-UNSIGNED-LOW-BOUND testing type derivation: LOGIOR-DERIVE-UNSIGNED-HIGH-BOUND testing type derivation: LOGXOR-DERIVE-UNSIGNED-LOW-BOUND testing type derivation: LOGXOR-DERIVE-UNSIGNED-HIGH-BOUND ; in: LAMBDA NIL ; (GO #:G3245) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP #P"" 'SB-KERNEL:INSTANCE) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/vector.pure.lisp ; in: LAMBDA NIL ; (VECTOR-PUSH-EXTEND #\b SIMPLE-T) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type ARRAY conflicts with derived type ; (VALUES (SIMPLE-VECTOR 35) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note // Running pure tests (#) // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.pure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.pure-cload.lisp" (written 14 JUL 2005 05:30:43 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (LET (# #) ...) ; compiling (PRINT (SETQ IMPROPERLY-DECLARED-VAR ...)) ; compiling (ASSERT (EQUAL # ...)) ; compiling (MAKUNBOUND (QUOTE IMPROPERLY-DECLARED-VAR)) ; compiling (PRINT (SETQ *PRINT-LEVEL* ...)) ; compiling (LET (#) ...) ; compiling (LET (# #) ...) ; compiling (FLET (#) ...) ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.pure-cload.lisp ; in: DEFUN #:FOO ; (>= 0 B) ; --> IF < > IF ; ==> ; (> SB-C::Y SB-C::X) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (> B C) ; ; 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 DOUBLE-FLOAT. ; ; 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LDB-TEST (BYTE 27 4) D) ; --> NOT IF ZEROP = MASK-FIELD SB-KERNEL:%MASK-FIELD ; ==> ; (LOGAND INT (ASH (ASH 4294967295 (- SB-C::SIZE 32)) SB-C::POSN)) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; (>= 0 B) ; --> 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 REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (> B C) ; ; note: forced to do GENERIC-> (cost 10) ; 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. ; 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. ; etc. ; (> D 224002) ; ; 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. ; (LOGANDC2 C D) ; ; note: forced to do full call ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) 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 INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; etc. ; (LOGIOR C B) ; ; 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 second argument is a REAL, 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 3) because: ; The first argument is a T, not a (SIGNED-BYTE 32). ; The second argument is a REAL, not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; etc. ; (LOGORC2 ; (IF (>= 0 B) (IF (> B C) (LOGANDC2 C D) (IF (> D 224002) 0 D)) ; (SIGNUM (LOGIOR C B))) ; (LOGIOR A -1)) ; ; note: forced to do full call ; 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). ; unable to do inline (signed-byte 32) arithmetic (cost 3) 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). ; (LOGXOR (IF (LDB-TEST (BYTE 27 4) D) -1 (MAX 55546856 -431)) ; (LOGORC2 ; (IF (>= 0 B) (IF (> B C) (LOGANDC2 C D) (IF # 0 D)) ; (SIGNUM (LOGIOR C B))) ; (LOGIOR A -1))) ; ; note: forced to do static-fun Two-arg-xor (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a INTEGER, 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 3) because: ; The second 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. ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.pure-cload.lisp ; in: DEFUN #:FOO ; (DEPOSIT-FIELD 4667947 (BYTE 14 26) B) ; ==> ; (SB-KERNEL:%DEPOSIT-FIELD 4667947 14 26 B) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (SIGNED-BYTE 41) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (SIGNED-BYTE 41) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; (DEPOSIT-FIELD B (BYTE 25 27) -30424886) ; ==> ; (SB-KERNEL:%DEPOSIT-FIELD B 25 27 -30424886) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (SIGNED-BYTE 53) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (SIGNED-BYTE 53) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; (DPB B (BYTE 23 29) C) ; ==> ; (SB-KERNEL:%DPB B 23 29 C) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (SIGNED-BYTE 53) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (SIGNED-BYTE 53) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; (LOGORC2 3 (DEPOSIT-FIELD 4667947 (BYTE 14 26) B)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (SIGNED-BYTE 41), not a FIXNUM. ; The result is a (VALUES (SIGNED-BYTE 41) &OPTIONAL), not a (VALUES FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The second argument is a (SIGNED-BYTE 41), not a (SIGNED-BYTE 32). ; The result is a (VALUES (SIGNED-BYTE 41) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; (* (LOGORC2 3 (DEPOSIT-FIELD 4667947 (BYTE 14 26) B)) ; (DEPOSIT-FIELD B (BYTE 25 27) -30424886)) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (SIGNED-BYTE 41), not a FIXNUM. ; The second argument is a (SIGNED-BYTE 53), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -4951760157141520000084869120 ; 4951760157141521099596496896) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 4) because: ; The first argument is a (SIGNED-BYTE 41), not a (SIGNED-BYTE 32). ; The second argument is a (SIGNED-BYTE 53), not a (SIGNED-BYTE 32). ; The result is a (VALUES ; (INTEGER -4951760157141520000084869120 ; 4951760157141521099596496896) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T). ; etc. ; (* ; (* (LOGORC2 3 (DEPOSIT-FIELD 4667947 (BYTE 14 26) B)) ; (DEPOSIT-FIELD B (BYTE 25 27) -30424886)) ; (DPB B (BYTE 23 29) C)) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -4951760157141520000084869120 ; 4951760157141521099596496896), not a FIXNUM. ; The second argument is a (SIGNED-BYTE 53), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -22300745198530623141535718272648361505980416 ; 22300745198530618189775561131127261909483520) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 4) because: ; The first argument is a (INTEGER -4951760157141520000084869120 ; 4951760157141521099596496896), not a (SIGNED-BYTE ; 32). ; The second argument is a (SIGNED-BYTE 53), not a (SIGNED-BYTE 32). ; The result is a (VALUES ; (INTEGER -22300745198530623141535718272648361505980416 ; 22300745198530618189775561131127261909483520) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T). ; etc. ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.pure-cload.lisp ; in: DEFUN #:FOO ; (* Y X) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -1 ; 1000000000000000000000000), not a FIXNUM. ; The second argument is a (INTEGER -1 ; 1000000000000000000000000), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -1000000000000000000000000 ; 1000000000000000000000000000000000000000000000000) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 4) because: ; The first argument is a (INTEGER -1 ; 1000000000000000000000000), not a (SIGNED-BYTE ; 32). ; The second argument is a (INTEGER -1 ; 1000000000000000000000000), not a (SIGNED-BYTE ; 32). ; The result is a (VALUES ; (INTEGER -1000000000000000000000000 ; 1000000000000000000000000000000000000000000000000) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T). ; etc. ; (* X (* Y X)) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -1 ; 1000000000000000000000000), not a FIXNUM. ; The second argument is a (INTEGER -1000000000000000000000000 ; 1000000000000000000000000000000000000000000000000), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1000000000000000000000000000000000000000000000000 ; 1000000000000000000000000000000000000000000000000000000000000000000000000) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 4) because: ; The first argument is a (INTEGER -1 ; 1000000000000000000000000), not a (SIGNED-BYTE ; 32). ; The second argument is a (INTEGER -1000000000000000000000000 ; 1000000000000000000000000000000000000000000000000), not a (SIGNED-BYTE ; 32). ; The result is a (VALUES ; (INTEGER ; -1000000000000000000000000000000000000000000000000 ; 1000000000000000000000000000000000000000000000000000000000000000000000000) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST T). ; etc. ; compiling (DEFUN #:FOO ...) ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.pure-cload.lisp ; in: DEFUN #:FOO ; (LABELS ((%F7 () ; (%F16))) ; D) ; ; note: deleting unused function ; (LABELS %F7) ; (LET ((V7 ; (FLET (#) ; (LABELS # ; D)))) ; 132887443) ; ; caught STYLE-WARNING: ; The variable V7 is defined but never used. ; compiling (ASSERT (EQ # ...)) ; compiling (ASSERT (EQ # ...)) ; compiling (FLET (#) ...) ; compiling (LET (#) ...) ; compiling (FLET (#) ...) ; compiling (LET (#) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.pure-cload.lisp ; in: PRINT (SETQ IMPROPERLY-DECLARED-VAR '(1 2)) ; (SETQ IMPROPERLY-DECLARED-VAR '(1 2)) ; ; caught WARNING: ; undefined variable: IMPROPERLY-DECLARED-VAR ; ; caught WARNING: ; This variable is undefined: ; IMPROPERLY-DECLARED-VAR ; ; compilation unit finished ; caught 2 WARNING conditions ; caught 1 STYLE-WARNING condition ; printed 24 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.pure-cload.fasl written ; compilation finished in 0:00:00 (1 2) ; in: LAMBDA NIL ; (GO :LOOP) ; ; caught ERROR: ; attempt to GO to nonexistent tag: :LOOP ; (RETURN-FROM NIL (PROGN (GO :LOOP))) ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 ERROR condition ; printed 1 note ; in: LAMBDA NIL ; (GO :LOOP) ; ; caught ERROR: ; attempt to GO to nonexistent tag: :LOOP ; (RETURN-FROM NIL (PROGN (GO :LOOP))) ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 ERROR condition ; printed 1 note ; in: LAMBDA NIL ; 'STYLE-WARNING ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note NIL // Running impure tests (#) // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/alien.impure.lisp ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGSP) (FAILUREP) &REST #:G3259) ; (DECLARE (IGNORE #:G3259)) ; (ASSERT WARNINGSP)) ; ; caught STYLE-WARNING: ; The variable FUNCTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable FAILUREP is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (FTYPE-CORRECTNESS) ; ; caught STYLE-WARNING: ; The function was called with zero arguments, but wants exactly one. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGSP) (FAILUREP) &REST #:G3260) ; (DECLARE (IGNORE #:G3260)) ; (ASSERT (NOT WARNINGSP))) ; ; caught STYLE-WARNING: ; The variable FUNCTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable FAILUREP is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGSP) (FAILUREP) &REST #:G3261) ; (DECLARE (IGNORE #:G3261)) ; (ASSERT WARNINGSP)) ; ; caught STYLE-WARNING: ; The variable FUNCTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable FAILUREP is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (FTYPE-CORRECTNESS "FOO" "BAR") ; ; caught STYLE-WARNING: ; The function was called with two arguments, but wants exactly one. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/alien-bug-2004-10-11.tmp.lisp" (written 29 DEC 2006 10:32:49 PM): ; compiling (DEFPACKAGE :ALIEN-BUG ...) ; compiling (IN-PACKAGE :ALIEN-BUG) ; compiling (DEFINE-ALIEN-TYPE OBJC-CLASS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/alien-bug-2004-10-11.tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/alien-bug-2004-10-11.tmp.lisp" (written 29 DEC 2006 10:32:49 PM): ; compiling (DEFPACKAGE :ALIEN-BUG ...) ; compiling (IN-PACKAGE :ALIEN-BUG) ; compiling (DEFINE-ALIEN-TYPE OBJC-CLASS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/alien-bug-2004-10-11.tmp.fasl written ; compilation finished in 0:00:00 ; in: LAMBDA NIL ; (CAST INTEGER-ARRAY (ARRAY ENUM.2 3)) ; --> SB-ALIEN-INTERNALS:%CAST SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (CAST INTEGER-ARRAY (ARRAY ENUM.3 3)) ; --> SB-ALIEN-INTERNALS:%CAST SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; compilation unit finished ; printed 1 note STYLE-WARNING: The element value 2 is used more than once. // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/arith.impure.lisp ; in: LAMBDA NIL ; (MIN) ; ; caught STYLE-WARNING: ; The function was called with zero arguments, but wants at least one. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (MAX) ; ; caught STYLE-WARNING: ; The function was called with zero arguments, but wants at least one. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (COERCE (EXPT 10 1000) 'SINGLE-FLOAT) ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; Too large to be represented as a SINGLE-FLOAT: ; 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ARE-WE-GETTING-ASH-RIGHT (X Y) ; (DECLARE (OPTIMIZE SPEED) (TYPE (UNSIGNED-BYTE 32) X) ; (TYPE (INTEGER -40 0) Y)) ; (BLOCK ARE-WE-GETTING-ASH-RIGHT (ASH X Y))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ARE-WE-GETTING-ASH-RIGHT (X Y) ; (DECLARE (OPTIMIZE SPEED) (TYPE (UNSIGNED-BYTE 32) X) ; (TYPE (INTEGER -40 0) Y)) ; (BLOCK ARE-WE-GETTING-ASH-RIGHT (ASH X Y))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ONE-MORE-TEST-CASE-TO-CATCH-SPARC (X Y) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE (UNSIGNED-BYTE 32) X) (TYPE (INTEGER -40 2) Y)) ; (BLOCK ONE-MORE-TEST-CASE-TO-CATCH-SPARC ; (THE (UNSIGNED-BYTE 32) (ASH X Y)))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ONE-MORE-TEST-CASE-TO-CATCH-SPARC (X Y) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE (UNSIGNED-BYTE 32) X) (TYPE (INTEGER -40 2) Y)) ; (BLOCK ONE-MORE-TEST-CASE-TO-CATCH-SPARC ; (THE (UNSIGNED-BYTE 32) (ASH X Y)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ; compilation unit finished ; printed 1 note // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/backq.impure.lisp Testing: ``(,,*QQ*)... Ok. Look at PPRINTed version: ``(,,*QQ*) Testing: ``(,@,*QQ*)... Ok. Look at PPRINTed version: *QQ* Testing: ``(,,@*QQ*)... Ok. Look at PPRINTed version: ``(,,@*QQ*) Testing: ``(FOO ,,*P*)... Ok. Look at PPRINTed version: ``(FOO ,,*P*) Testing: ``(FOO ,,@*Q*)... Ok. Look at PPRINTed version: ``(FOO ,,@*Q*) Testing: ``(FOO ,',*R*)... Ok. Look at PPRINTed version: `'(FOO ,*R*) Testing: ``(FOO ,',@*S*)... Ok. Look at PPRINTed version: ``(FOO ,',@*S*) Testing: ``(FOO ,@,*P*)... Ok. Look at PPRINTed version: ``(FOO ,@,*P*) Testing: ``(FOO ,@',*R*)... Ok. Look at PPRINTed version: `'(FOO ,@*R*) Testing: ``(FOO . ,,@*Q*)... Ok. Look at PPRINTed version: ``(,@,'`(FOO) ,@,@*Q*) Testing: ``(FOO ,@',@*S*)... Ok. Look at PPRINTed version: ``(FOO ,@',@*S*) Testing: ``(FOO ,@,@*Q*)... Ok. Look at PPRINTed version: ``(FOO ,@,@*Q*) Testing: ``(,@,@*QQ*)... Ok. Look at PPRINTed version: ``(,@,@*QQ*) `(FOOBAR A B ,C (E F G) D E F G (H I J) ,@FOO) // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/bivalent-stream.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/callback.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos-1.impure.lisp STYLE-WARNING: implicitly creating new generic function A-OF STYLE-WARNING: implicitly creating new generic function B-OF STYLE-WARNING: implicitly creating new generic function C-OF // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos-typechecking.impure.lisp STYLE-WARNING: implicitly creating new generic function SUCCEED/SV STYLE-WARNING: implicitly creating new generic function FAIL/SV STYLE-WARNING: implicitly creating new generic function SUCCEED/ACC STYLE-WARNING: implicitly creating new generic function FAIL/ACC STYLE-WARNING: implicitly creating new generic function SUCCEED/SV/GF STYLE-WARNING: implicitly creating new generic function FAIL/SV/GF STYLE-WARNING: implicitly creating new generic function SUCCEED/ACC/GF STYLE-WARNING: implicitly creating new generic function FAIL/ACC/GF ; in: LAMBDA NIL ; (LET ((SB-PCL::.INSTANCE. ; (SB-PCL::%MAKE-STANDARD-INSTANCE NIL ; (SB-PCL::GET-INSTANCE-HASH-CODE))) ; (SB-PCL::.SLOTS. (MAKE-ARRAY 1))) ; (SETF (SB-PCL::STD-INSTANCE-WRAPPER SB-PCL::.INSTANCE.) ; # {51AF3A29}>) ; (SETF (SB-PCL::STD-INSTANCE-SLOTS SB-PCL::.INSTANCE.) SB-PCL::.SLOTS.) ; (LET () ; (DECLARE (IGNORABLE)) ; (LET () ; (SETF (SB-PCL::CLOS-SLOTS-REF SB-PCL::.SLOTS. 0) ; (SB-PCL::WITH-TYPE-CHECKED # 'T)))) ; SB-PCL::.INSTANCE.) ; ==> ; SB-PCL::.INSTANCE. ; ; note: deleting unreachable code ; (SB-PCL::WITH-TYPE-CHECKED (FIXNUM T) 'T) ; --> LOCALLY ; ==> ; (THE FIXNUM (PROGN 'T)) ; ; caught WARNING: ; Asserted type FIXNUM conflicts with derived type (VALUES (MEMBER T) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (LET* ((SB-PCL::.INSTANCE. ; (SB-PCL::ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE ; #)) ; (SB-PCL::.SLOTS. (SB-PCL::FSC-INSTANCE-SLOTS SB-PCL::.INSTANCE.))) ; (LET ((SB-PCL::|.D0.| (FUNCALL #)) (SB-PCL::|.D1.| (FUNCALL #))) ; (DECLARE (IGNORABLE SB-PCL::|.D0.| SB-PCL::|.D1.|)) ; (LET ((SB-PCL::.II-ARGS. #) (SB-PCL::.SI-ARGS. #)) ; (SB-PCL::INVOKE-METHOD ; # ; SB-PCL::.SI-ARGS.) ; (WHEN (EQ # SB-PCL::+SLOT-UNBOUND+) (SETF # #)) ; (WHEN (EQ # SB-PCL::+SLOT-UNBOUND+) (SETF # #)) ; (WHEN (EQ # SB-PCL::+SLOT-UNBOUND+) (SETF # #)) ; (WHEN (EQ # SB-PCL::+SLOT-UNBOUND+) (SETF # #)) ; (WHEN (EQ # SB-PCL::+SLOT-UNBOUND+) (SETF # #)) ; (WHEN (EQ # SB-PCL::+SLOT-UNBOUND+) (SETF # #)) ; (SETF (SB-PCL::CLOS-SLOTS-REF SB-PCL::.SLOTS. 6) ; (SB-PCL::WITH-TYPE-CHECKED # SB-PCL::|.D0.|)) ; (SETF (SB-PCL::CLOS-SLOTS-REF SB-PCL::.SLOTS. 7) ; (SB-PCL::WITH-TYPE-CHECKED # SB-PCL::|.D1.|)) ; (WHEN (EQ # SB-PCL::+SLOT-UNBOUND+) (SETF # #)) ; ...)) ; SB-PCL::.INSTANCE.) ; ==> ; SB-PCL::.INSTANCE. ; ; note: deleting unreachable code ; (SB-PCL::WITH-TYPE-CHECKED (FIXNUM T) 'T) ; --> LOCALLY ; ==> ; (THE FIXNUM (PROGN 'T)) ; ; caught WARNING: ; Asserted type FIXNUM conflicts with derived type (VALUES (MEMBER T) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: DEFMETHOD INHERITANCE-TEST (A) ; (DEFMETHOD INHERITANCE-TEST ((A A)) (SETF (SLOT-VALUE A 'SLOT1) 1.0d0)) ; ; caught STYLE-WARNING: ; (in macroexpansion of (DEFMETHOD INHERITANCE-TEST # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; can't find type for presumed class A in ; SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD. ; in: LAMBDA NIL ; (INHERITANCE-TEST (MAKE-INSTANCE 'A)) ; ; caught STYLE-WARNING: ; undefined function: INHERITANCE-TEST ; ; caught STYLE-WARNING: ; This function is undefined: ; INHERITANCE-TEST ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions STYLE-WARNING: implicitly creating new generic function INHERITANCE-TEST STYLE-WARNING: redefining INHERITANCE-TEST (A) in DEFMETHOD ; in: DEFMETHOD INHERITANCE-TEST (A) ; (SETF (SLOT1-OF A) 1.0d0) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SLOT1-OF) #:G4 #:G5) ; ; caught STYLE-WARNING: ; undefined function: (SETF SLOT1-OF) ; ; caught STYLE-WARNING: ; This function is undefined: ; (SETF SLOT1-OF) ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions STYLE-WARNING: redefining INHERITANCE-TEST (A) in DEFMETHOD STYLE-WARNING: redefining INHERITANCE-TEST (A) in DEFMETHOD ; in: LAMBDA NIL ; (LET ((SB-PCL::.INSTANCE. ; (SB-PCL::%MAKE-STANDARD-INSTANCE NIL ; (SB-PCL::GET-INSTANCE-HASH-CODE))) ; (SB-PCL::.SLOTS. (MAKE-ARRAY 1))) ; (SETF (SB-PCL::STD-INSTANCE-WRAPPER SB-PCL::.INSTANCE.) ; # {5163BE89}>) ; (SETF (SB-PCL::STD-INSTANCE-SLOTS SB-PCL::.INSTANCE.) SB-PCL::.SLOTS.) ; (LET () ; (DECLARE (IGNORABLE)) ; (LET () ; (SETF (SB-PCL::CLOS-SLOTS-REF SB-PCL::.SLOTS. 0) ; (SB-PCL::WITH-TYPE-CHECKED # '-1)))) ; SB-PCL::.INSTANCE.) ; ==> ; SB-PCL::.INSTANCE. ; ; note: deleting unreachable code ; (SB-PCL::WITH-TYPE-CHECKED ((UNSIGNED-BYTE 29) T) '-1) ; --> LOCALLY ; ==> ; (THE (UNSIGNED-BYTE 29) (PROGN '-1)) ; ; caught WARNING: ; Asserted type (UNSIGNED-BYTE 29) conflicts with derived type ; (VALUES (INTEGER -1 -1) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (LET ((SB-PCL::.INSTANCE. ; (SB-PCL::%MAKE-STANDARD-INSTANCE NIL ; (SB-PCL::GET-INSTANCE-HASH-CODE))) ; (SB-PCL::.SLOTS. (MAKE-ARRAY 1))) ; (SETF (SB-PCL::STD-INSTANCE-WRAPPER SB-PCL::.INSTANCE.) ; # {5163BE89}>) ; (SETF (SB-PCL::STD-INSTANCE-SLOTS SB-PCL::.INSTANCE.) SB-PCL::.SLOTS.) ; (LET () ; (DECLARE (IGNORABLE)) ; (LET () ; (SETF (SB-PCL::CLOS-SLOTS-REF SB-PCL::.SLOTS. 0) ; (SB-PCL::WITH-TYPE-CHECKED # '536870912)))) ; SB-PCL::.INSTANCE.) ; ==> ; SB-PCL::.INSTANCE. ; ; note: deleting unreachable code ; (SB-PCL::WITH-TYPE-CHECKED ((UNSIGNED-BYTE 29) T) '536870912) ; --> LOCALLY ; ==> ; (THE (UNSIGNED-BYTE 29) (PROGN '536870912)) ; ; caught WARNING: ; Asserted type (UNSIGNED-BYTE 29) conflicts with derived type ; (VALUES (INTEGER 536870912 536870912) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos.impure.lisp STYLE-WARNING: implicitly creating new generic function WIGGLE No applicable method for ZUT-N-A-M (1 2 3), yet. ; in: DEFGENERIC FOO1 ; (DEFGENERIC CLOS-IMPURE::FOO1 (CLOS-IMPURE::X &REST)) ; ; caught ERROR: ; &REST without rest variable ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFGENERIC FOO2 ; (DEFGENERIC CLOS-IMPURE::FOO2 (CLOS-IMPURE::X CLOS-IMPURE::A &REST)) ; ; caught ERROR: ; &REST without rest variable ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD CLOS-IMPURE::FOO3 (T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. ; CLOS-IMPURE::X &REST CLOS-IMPURE::Y) ; (DECLARE ; (IGNORABLE SB-PCL::.PV-CELL. ; SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (CLOS-IMPURE::X T) &REST ; CLOS-IMPURE::Y)) ; (DECLARE (SB-PCL::%METHOD-NAME (CLOS-IMPURE::FOO3 (T)))) ; (DECLARE (TYPE T CLOS-IMPURE::X)) ; (DECLARE (IGNORABLE CLOS-IMPURE::X)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT ; SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::X) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::X) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD CLOS-IMPURE::FOO3 (T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. ; CLOS-IMPURE::X &REST CLOS-IMPURE::Y) ; (DECLARE ; (IGNORABLE SB-PCL::.PV-CELL. ; SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (CLOS-IMPURE::X T) &REST ; CLOS-IMPURE::Y)) ; (DECLARE ; (SB-PCL::%METHOD-NAME (CLOS-IMPURE::FOO3 (T)))) ; (DECLARE (TYPE T CLOS-IMPURE::X)) ; (DECLARE (IGNORABLE CLOS-IMPURE::X)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT ; SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::X) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::X) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable Y is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD CLOS-IMPURE::FOO4 (T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. ; CLOS-IMPURE::X &REST CLOS-IMPURE::Z &KEY CLOS-IMPURE::Y ; &ALLOW-OTHER-KEYS) ; (DECLARE ; (IGNORABLE SB-PCL::.PV-CELL. ; SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (CLOS-IMPURE::X T) &REST ; CLOS-IMPURE::Z &KEY CLOS-IMPURE::Y)) ; (DECLARE (SB-PCL::%METHOD-NAME (CLOS-IMPURE::FOO4 (T)))) ; (DECLARE (TYPE T CLOS-IMPURE::X)) ; (DECLARE (IGNORABLE CLOS-IMPURE::X)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT ; SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::X) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::X) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD CLOS-IMPURE::FOO4 (T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. ; CLOS-IMPURE::X &REST CLOS-IMPURE::Z &KEY ; CLOS-IMPURE::Y &ALLOW-OTHER-KEYS) ; (DECLARE ; (IGNORABLE SB-PCL::.PV-CELL. ; SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (CLOS-IMPURE::X T) &REST ; CLOS-IMPURE::Z &KEY CLOS-IMPURE::Y)) ; (DECLARE ; (SB-PCL::%METHOD-NAME (CLOS-IMPURE::FOO4 (T)))) ; (DECLARE (TYPE T CLOS-IMPURE::X)) ; (DECLARE (IGNORABLE CLOS-IMPURE::X)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT ; SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::X) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::X) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable Y is defined but never used. ; ; caught STYLE-WARNING: ; The variable Z is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions STYLE-WARNING: implicitly creating new generic function FOO4 STYLE-WARNING: redefining FOO4 in DEFGENERIC ; in: DEFGENERIC FOO5 ; (DEFGENERIC CLOS-IMPURE::FOO5 (CLOS-IMPURE::X &REST)) ; ; caught ERROR: ; &REST without rest variable ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (MULTIPLE-VALUE-BIND ; (CLOS-IMPURE::FUN CLOS-IMPURE::WARNINGS-P CLOS-IMPURE::FAILURE-P) ; (COMPILE NIL `(LAMBDA ,NIL ,CLOS-IMPURE::EXPR)) ; (DECLARE (IGNORE CLOS-IMPURE::FUN)) ; (ASSERT ; (EQ (CLOS-IMPURE::COERCE-TO-BOOLEAN CLOS-IMPURE::FAILURE-P) ; CLOS-IMPURE::EXPECTED-FAILURE-P))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA ; (&OPTIONAL (CLOS-IMPURE::FUN) (CLOS-IMPURE::WARNINGS-P) ; (CLOS-IMPURE::FAILURE-P) ; &REST #:G0) ; (DECLARE (IGNORE #:G0)) ; (DECLARE (IGNORE CLOS-IMPURE::FUN)) ; (ASSERT ; (EQ (CLOS-IMPURE::COERCE-TO-BOOLEAN CLOS-IMPURE::FAILURE-P) ; CLOS-IMPURE::EXPECTED-FAILURE-P))) ; ; caught STYLE-WARNING: ; The variable WARNINGS-P is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition trying (DEFGENERIC GF-FOR-LL-TEST-0 ("a" #P"b")) ; in: DEFGENERIC GF-FOR-LL-TEST-0 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-LL-TEST-0 ("a" #P"b")) ; ; caught ERROR: ; Required argument is not a symbol: "a" ; ; compilation unit finished ; caught 1 ERROR condition trying (DEFGENERIC GF-FOR-LL-TEST-1 NIL) trying (DEFGENERIC GF-FOR-LL-TEST-2 (X)) trying (DEFGENERIC GF-FOR-LL-TEST-3 (X &OPTIONAL (Y 0))) ; in: DEFGENERIC GF-FOR-LL-TEST-3 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-LL-TEST-3 ; (CLOS-IMPURE::X &OPTIONAL (CLOS-IMPURE::Y 0))) ; ; caught ERROR: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-3 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; invalid (Y 0) in the generic function lambda list (X &OPTIONAL (Y 0)) ; See also: ; The ANSI Standard, Section 3.4.2 ; ; compilation unit finished ; caught 1 ERROR condition trying (DEFGENERIC GF-FOR-LL-TEST-4 (X &OPTIONAL Y)) trying (DEFGENERIC GF-FOR-LL-TEST-5 (X Y &KEY (Z :Z Z-P))) ; in: DEFGENERIC GF-FOR-LL-TEST-5 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-LL-TEST-5 ; (CLOS-IMPURE::X CLOS-IMPURE::Y &KEY ; (CLOS-IMPURE::Z :Z CLOS-IMPURE::Z-P))) ; ; caught ERROR: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-5 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; invalid (Z :Z Z-P) in the generic function lambda list (X Y &KEY (Z :Z Z-P)) ; See also: ; The ANSI Standard, Section 3.4.2 ; ; compilation unit finished ; caught 1 ERROR condition trying (DEFGENERIC GF-FOR-LL-TEST-6 (X Y &KEY Z)) trying (DEFGENERIC GF-FOR-LL-TEST-7 (X &OPTIONAL (Y 0) &KEY Z)) ; in: DEFGENERIC GF-FOR-LL-TEST-7 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-LL-TEST-7 ; (CLOS-IMPURE::X &OPTIONAL (CLOS-IMPURE::Y 0) &KEY CLOS-IMPURE::Z)) ; ; caught STYLE-WARNING: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-7 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; &OPTIONAL and &KEY found in the same lambda list: (X &OPTIONAL (Y 0) &KEY Z) ; ; caught ERROR: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-7 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; invalid (Y 0) in the generic function lambda list (X &OPTIONAL (Y 0) &KEY Z) ; See also: ; The ANSI Standard, Section 3.4.2 ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 STYLE-WARNING condition trying (DEFGENERIC GF-FOR-LL-TEST-8 (X &OPTIONAL Y &KEY Z)) ; in: DEFGENERIC GF-FOR-LL-TEST-8 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-LL-TEST-8 ; (CLOS-IMPURE::X &OPTIONAL CLOS-IMPURE::Y &KEY CLOS-IMPURE::Z)) ; ; caught STYLE-WARNING: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-8 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; &OPTIONAL and &KEY found in the same lambda list: (X &OPTIONAL Y &KEY Z) ; ; compilation unit finished ; caught 1 STYLE-WARNING condition trying (DEFGENERIC GF-FOR-LL-TEST-9 (X &OPTIONAL Y &KEY (Z :Z))) ; in: DEFGENERIC GF-FOR-LL-TEST-9 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-LL-TEST-9 ; (CLOS-IMPURE::X &OPTIONAL CLOS-IMPURE::Y &KEY ; (CLOS-IMPURE::Z :Z))) ; ; caught STYLE-WARNING: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-9 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; &OPTIONAL and &KEY found in the same lambda list: (X &OPTIONAL Y &KEY (Z :Z)) ; ; caught ERROR: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-9 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; invalid (Z :Z) in the generic function lambda list (X &OPTIONAL Y &KEY (Z :Z)) ; See also: ; The ANSI Standard, Section 3.4.2 ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 STYLE-WARNING condition trying (DEFGENERIC GF-FOR-LL-TEST-10 (X &OPTIONAL Y &KEY Z)) ; in: DEFGENERIC GF-FOR-LL-TEST-10 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-LL-TEST-10 ; (CLOS-IMPURE::X &OPTIONAL CLOS-IMPURE::Y &KEY CLOS-IMPURE::Z)) ; ; caught STYLE-WARNING: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-10 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; &OPTIONAL and &KEY found in the same lambda list: (X &OPTIONAL Y &KEY Z) ; ; compilation unit finished ; caught 1 STYLE-WARNING condition trying (DEFGENERIC GF-FOR-LL-TEST-11 (&OPTIONAL &KEY (K :K K-P))) ; in: DEFGENERIC GF-FOR-LL-TEST-11 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-LL-TEST-11 ; (&OPTIONAL &KEY (CLOS-IMPURE::K :K CLOS-IMPURE::K-P))) ; ; caught ERROR: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-11 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; invalid (K :K K-P) ; in the generic function lambda list (&OPTIONAL &KEY (K :K K-P)) ; See also: ; The ANSI Standard, Section 3.4.2 ; ; compilation unit finished ; caught 1 ERROR condition trying (DEFGENERIC GF-FOR-LL-TEST-12 (&OPTIONAL &KEY K)) trying (DEFGENERIC GF-FOR-LL-TEST-13 (X Y Z &OPTIONAL A &AUX G H)) ; in: DEFGENERIC GF-FOR-LL-TEST-13 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-LL-TEST-13 ; (CLOS-IMPURE::X CLOS-IMPURE::Y CLOS-IMPURE::Z &OPTIONAL ; CLOS-IMPURE::A &AUX CLOS-IMPURE::G CLOS-IMPURE::H)) ; ; caught ERROR: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-13 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; &AUX is not allowed in a generic function lambda list: (X Y Z &OPTIONAL A &AUX ; G H) ; ; compilation unit finished ; caught 1 ERROR condition trying (DEFGENERIC GF-FOR-LL-TEST-14 (X Y Z &OPTIONAL A)) trying (DEFGENERIC GF-FOR-LL-TEST-BARE-AUX-1 (X &AUX)) ; in: DEFGENERIC GF-FOR-LL-TEST-BARE-AUX-1 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-LL-TEST-BARE-AUX-1 (CLOS-IMPURE::X &AUX)) ; ; caught ERROR: ; (in macroexpansion of (DEFGENERIC GF-FOR-LL-TEST-BARE-AUX-1 #)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; &AUX is not allowed in a generic function lambda list: (X &AUX) ; ; compilation unit finished ; caught 1 ERROR condition trying (DEFGENERIC GF-FOR-LL-TEST-BARE-AUX-2 (X)) trying (DEFGENERIC GF-FOR-11-TEST-15 ((ARG T))) ; in: DEFGENERIC GF-FOR-11-TEST-15 ; (DEFGENERIC CLOS-IMPURE::GF-FOR-11-TEST-15 ((CLOS-IMPURE::ARG T))) ; ; caught ERROR: ; Required argument is not a symbol: (ARG T) ; ; compilation unit finished ; caught 1 ERROR condition trying (DEFGENERIC GF-FOR-11-TEST-16 (ARG)) STYLE-WARNING: redefining |STRUCTURE-CLASS-FOO1 structure class constructor| in DEFUN STYLE-WARNING: redefining |STRUCTURE-CLASS-FOO2 structure class constructor| in DEFUN STYLE-WARNING: redefining BORN-TO-BE-REDEFINED in DEFGENERIC STYLE-WARNING: redefining BORN-TO-BE-REDEFINED in DEFGENERIC STYLE-WARNING: redefining BORN-TO-BE-REDEFINED (INTEGER) in DEFMETHOD STYLE-WARNING: redefining BORN-TO-BE-REDEFINED in DEFGENERIC STYLE-WARNING: redefining |TEST-PRINTING-STRUCTURE-CLASS structure class constructor| in DEFUN STYLE-WARNING: redefining (SB-PCL::SLOT-ACCESSOR TEST-PRINTING-STRUCTURE-CLASS SLOT SB-PCL::READER) in DEFUN STYLE-WARNING: redefining (SB-PCL::SLOT-ACCESSOR TEST-PRINTING-STRUCTURE-CLASS SLOT SB-PCL::WRITER) in DEFUN STYLE-WARNING: redefining |SUPER-STRUCTURE structure class constructor| in DEFUN STYLE-WARNING: redefining (SB-PCL::SLOT-ACCESSOR SUPER-STRUCTURE A SB-PCL::READER) in DEFUN STYLE-WARNING: redefining (SB-PCL::SLOT-ACCESSOR SUPER-STRUCTURE B SB-PCL::READER) in DEFUN STYLE-WARNING: redefining (SB-PCL::SLOT-ACCESSOR SUPER-STRUCTURE A SB-PCL::WRITER) in DEFUN STYLE-WARNING: redefining (SB-PCL::SLOT-ACCESSOR SUPER-STRUCTURE B SB-PCL::WRITER) in DEFUN STYLE-WARNING: redefining |SUB-STRUCTURE structure class constructor| in DEFUN STYLE-WARNING: redefining (SB-PCL::SLOT-ACCESSOR SUB-STRUCTURE C SB-PCL::READER) in DEFUN STYLE-WARNING: redefining (SB-PCL::SLOT-ACCESSOR SUB-STRUCTURE C SB-PCL::WRITER) in DEFUN #S(TEST-PRINTING-STRUCTURE-CLASS :SLOT 2) exploring the CLOS dispatch zoo with COD fins about to set # fin to ALMOST-TRIANG-FIN done setting # fin to ALMOST-TRIANG-FIN ; in: LAMBDA NIL ; #'(LAMBDA (CLOS-IMPURE::X) ; (LET (CLOS-IMPURE::PRIMARY #:G3490) ; (DOLIST (SB-PCL::.METHOD. SB-PCL::.APPLICABLE-METHODS.) ; (LET (# #) ; (DECLARE #) ; (COND # #))) ; (WHEN (NULL CLOS-IMPURE::PRIMARY) ; (RETURN-FROM SB-PCL::.LONG-METHOD-COMBINATION-FUNCTION. ; '(ERROR 'SB-PCL::LONG-METHOD-COMBINATION-ERROR :FORMAT-CONTROL ; "No ~S methods." :FORMAT-ARGUMENTS #))) ; (SETQ CLOS-IMPURE::PRIMARY (NREVERSE CLOS-IMPURE::PRIMARY)) ; `(CALL-METHOD ,(FIRST CLOS-IMPURE::PRIMARY)))) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: DEFCLASS FOO001 ; (DEFCLASS CLOS-IMPURE::FOO001 NIL ; (CLOS-IMPURE::A CLOS-IMPURE::B CLOS-IMPURE::A)) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO001 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; Multiple slots named A in DEFCLASS FOO001. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFCLASS FOO002 ; (DEFCLASS CLOS-IMPURE::FOO002 NIL (CLOS-IMPURE::A CLOS-IMPURE::B) ; (:DEFAULT-INITARGS CLOS-IMPURE::X 'CLOS-IMPURE::A CLOS-IMPURE::X ; 'CLOS-IMPURE::B)) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO002 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; Duplicate initialization argument name X in :DEFAULT-INITARGS of DEFCLASS FOO002. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFCLASS FOO003 ; (DEFCLASS CLOS-IMPURE::FOO003 NIL ; ((CLOS-IMPURE::A :ALLOCATION :CLASS :ALLOCATION :CLASS))) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO003 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; Duplicate slot option :ALLOCATION for slot A in DEFCLASS FOO003. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (CLOS-IMPURE::ODD-KEY-ARGS-CHECKING 3) ; ; caught STYLE-WARNING: ; undefined function: ODD-KEY-ARGS-CHECKING ; ; caught STYLE-WARNING: ; This function is undefined: ; ODD-KEY-ARGS-CHECKING ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions STYLE-WARNING: implicitly creating new generic function ODD-KEY-ARGS-CHECKING ; in: DEFCLASS FOO005 ; (DEFCLASS CLOS-IMPURE::FOO005 NIL ; (:METACLASS SB-MOP:FUNCALLABLE-STANDARD-CLASS) (:METACLASS 1)) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO005 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; The value of the :metaclass option (1) is not a legal class name. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFCLASS FOO006 ; (DEFCLASS CLOS-IMPURE::FOO006 NIL ; ((CLOS-IMPURE::A :READER (SETF CLOS-IMPURE::A)))) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO006 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; Slot reader name (SETF A) for slot A in DEFCLASS FOO006 is not a symbol. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFCLASS FOO007 ; (DEFCLASS CLOS-IMPURE::FOO007 NIL ((CLOS-IMPURE::A :INITARG 1))) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO007 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; Slot initarg name 1 for slot A in DEFCLASS FOO007 is not a symbol. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFCLASS FOO008 ; (DEFCLASS CLOS-IMPURE::FOO008 NIL (CLOS-IMPURE::A :INITARG :A) ; (:DEFAULT-INITARGS :A 1) (:DEFAULT-INITARGS :A 2)) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO008 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; Multiple :DEFAULT-INITARGS options in DEFCLASS FOO008. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFCLASS FOO009 ; (DEFCLASS CLOS-IMPURE::FOO009 NIL ((:A :INITARG :A))) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO009 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; In DEFCLASS FOO009, the slot name :A is a keyword. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFCLASS FOO010 ; (DEFCLASS CLOS-IMPURE::FOO010 NIL (("a" :INITARG :A))) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO010 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; In DEFCLASS FOO010, the slot name "a" is not a symbol. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFCLASS FOO011 ; (DEFCLASS CLOS-IMPURE::FOO011 NIL ((#() :INITARG :A))) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO011 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; In DEFCLASS FOO011, the slot name #() is not a symbol. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFCLASS FOO012 ; (DEFCLASS CLOS-IMPURE::FOO012 NIL ((T :INITARG :T))) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO012 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; In DEFCLASS FOO012, the slot name T is a constant. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFCLASS FOO013 ; (DEFCLASS CLOS-IMPURE::FOO013 NIL ("a")) ; ; caught ERROR: ; (in macroexpansion of (DEFCLASS FOO013 NIL ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; In DEFCLASS FOO013, the slot name "a" is not a symbol. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFMETHOD FOO014 "" ; (DEFMETHOD CLOS-IMPURE::FOO014 ((CLOS-IMPURE::FOO T) &REST) NIL) ; ; caught ERROR: ; (in macroexpansion of (DEFMETHOD FOO014 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; in a specialized-lambda-list, excactly one variable must follow &REST. ; ; See also: ; The ANSI Standard, Section 3.4.3 ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFMETHOD FOO015 "" ; (DEFMETHOD CLOS-IMPURE::FOO015 ; ((CLOS-IMPURE::FOO T) &REST CLOS-IMPURE::X CLOS-IMPURE::Y) NIL) ; ; caught ERROR: ; (in macroexpansion of (DEFMETHOD FOO015 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; in a specialized-lambda-list, excactly one variable must follow &REST. ; ; See also: ; The ANSI Standard, Section 3.4.3 ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFMETHOD FOO016 "" ; (DEFMETHOD CLOS-IMPURE::FOO016 ((CLOS-IMPURE::FOO T) &ALLOW-OTHER-KEYS) NIL) ; ; caught ERROR: ; (in macroexpansion of (DEFMETHOD FOO016 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; misplaced specialized-lambda-list keyword &ALLOW-OTHER-KEYS ; ; See also: ; The ANSI Standard, Section 3.4.3 ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFMETHOD FOO017 "" ; (DEFMETHOD CLOS-IMPURE::FOO017 ; ((CLOS-IMPURE::FOO T) &OPTIONAL CLOS-IMPURE::X &OPTIONAL ; CLOS-IMPURE::Y) ; NIL) ; ; caught ERROR: ; (in macroexpansion of (DEFMETHOD FOO017 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; multiple occurrence of specialized-lambda-list keyword &OPTIONAL ; ; See also: ; The ANSI Standard, Section 3.4.3 ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFMETHOD FOO018 "" ; (DEFMETHOD CLOS-IMPURE::FOO018 ; ((CLOS-IMPURE::FOO T) &REST CLOS-IMPURE::X &REST CLOS-IMPURE::Y) ; NIL) ; ; caught ERROR: ; (in macroexpansion of (DEFMETHOD FOO018 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; multiple occurrence of specialized-lambda-list keyword &REST ; ; See also: ; The ANSI Standard, Section 3.4.3 ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFMETHOD FOO019 "" ; (DEFMETHOD CLOS-IMPURE::FOO019 ; ((CLOS-IMPURE::FOO T) &REST CLOS-IMPURE::X &OPTIONAL ; CLOS-IMPURE::Y) ; NIL) ; ; caught ERROR: ; (in macroexpansion of (DEFMETHOD FOO019 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; misplaced specialized-lambda-list keyword &OPTIONAL ; ; See also: ; The ANSI Standard, Section 3.4.3 ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFMETHOD FOO020 "" ; (DEFMETHOD CLOS-IMPURE::FOO020 ; ((CLOS-IMPURE::FOO T) &KEY CLOS-IMPURE::X &OPTIONAL ; CLOS-IMPURE::Y) ; NIL) ; ; caught ERROR: ; (in macroexpansion of (DEFMETHOD FOO020 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; misplaced specialized-lambda-list keyword &OPTIONAL ; ; See also: ; The ANSI Standard, Section 3.4.3 ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFMETHOD FOO021 "" ; (DEFMETHOD CLOS-IMPURE::FOO021 ; ((CLOS-IMPURE::FOO T) &KEY CLOS-IMPURE::X &REST CLOS-IMPURE::Y) ; NIL) ; ; caught ERROR: ; (in macroexpansion of (DEFMETHOD FOO021 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; misplaced specialized-lambda-list keyword &REST ; ; See also: ; The ANSI Standard, Section 3.4.3 ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFGENERIC BOGUS-DECLARATION ; (DEFGENERIC CLOS-IMPURE::BOGUS-DECLARATION (CLOS-IMPURE::X) ; (DECLARE (SPECIAL CLOS-IMPURE::Y))) ; ; caught ERROR: ; (in macroexpansion of (DEFGENERIC BOGUS-DECLARATION # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; The declaration specifier (SPECIAL Y) is not allowed inside DEFGENERIC. ; ; compilation unit finished ; caught 1 ERROR condition ; in: DEFGENERIC BOGUS-DECLARATION2 ; (DEFGENERIC CLOS-IMPURE::BOGUS-DECLARATION2 (CLOS-IMPURE::X) ; (DECLARE (NOTINLINE CONCATENATE))) ; ; caught ERROR: ; (in macroexpansion of (DEFGENERIC BOGUS-DECLARATION2 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; The declaration specifier (NOTINLINE ; CONCATENATE) is not allowed inside DEFGENERIC. ; ; compilation unit finished ; caught 1 ERROR condition STYLE-WARNING: implicitly creating new generic function NO-NEXT-METHOD-TEST ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD NO-NEXT-METHOD ; ((EQL #'CLOS-IMPURE::NO-NEXT-METHOD-TEST) T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::G CLOS-IMPURE::M ; &REST CLOS-IMPURE::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST ; (CLOS-IMPURE::G (EQL #'CLOS-IMPURE::NO-NEXT-METHOD-TEST)) CLOS-IMPURE::M ; &REST CLOS-IMPURE::ARGS)) ; (DECLARE (SB-PCL::%METHOD-NAME (NO-NEXT-METHOD (# T)))) ; (DECLARE (TYPE T CLOS-IMPURE::M)) ; (DECLARE (IGNORABLE CLOS-IMPURE::M CLOS-IMPURE::G)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::G CLOS-IMPURE::M) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::G CLOS-IMPURE::M) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD NO-NEXT-METHOD ; ((EQL #'CLOS-IMPURE::NO-NEXT-METHOD-TEST) T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::G ; CLOS-IMPURE::M &REST CLOS-IMPURE::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST ; (CLOS-IMPURE::G (EQL #'CLOS-IMPURE::NO-NEXT-METHOD-TEST)) CLOS-IMPURE::M ; &REST CLOS-IMPURE::ARGS)) ; (DECLARE (SB-PCL::%METHOD-NAME (NO-NEXT-METHOD (# T)))) ; (DECLARE (TYPE T CLOS-IMPURE::M)) ; (DECLARE (IGNORABLE CLOS-IMPURE::M CLOS-IMPURE::G)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::G CLOS-IMPURE::M) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::G CLOS-IMPURE::M) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (GO #:G3665) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= 1 (SETF (SLOT-VALUE # 'CLOS-IMPURE::ASLOT-176) 1)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; 'INVALID-METHOD-ERROR ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; 'INVALID-METHOD-ERROR ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (#:G3748) ; #'(LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.) ; (DECLARE (IGNORE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.)) ; (ERROR 'SB-PCL::LONG-METHOD-COMBINATION-ERROR :FORMAT-CONTROL #:G3748 ; :FORMAT-ARGUMENTS (LIST 'CLOS-IMPURE::PRIMARY))) ; ; caught STYLE-WARNING: ; The variable SB-PCL::.ARG0. is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA (#:G3769) ; #'(LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.) ; (DECLARE (IGNORE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.)) ; (ERROR 'SB-PCL::LONG-METHOD-COMBINATION-ERROR :FORMAT-CONTROL #:G3769 ; :FORMAT-ARGUMENTS (LIST 'CLOS-IMPURE::METHODS))) ; ; caught STYLE-WARNING: ; The variable SB-PCL::.ARG0. is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: implicitly creating new generic function INCOMPATIBLE-LL-TEST-1 STYLE-WARNING: redefining INCOMPATIBLE-LL-TEST-1 (T) in DEFMETHOD STYLE-WARNING: implicitly creating new generic function INCOMPATIBLE-LL-TEST-2 STYLE-WARNING: redefining INCOMPATIBLE-LL-TEST-2 (T) in DEFMETHOD STYLE-WARNING: redefining INCOMPATIBLE-LL-TEST-2 (T) in DEFMETHOD STYLE-WARNING: implicitly creating new generic function INCOMPATIBLE-LL-TEST-3 STYLE-WARNING: implicitly creating new generic function CALL-NEXT-METHOD-LEXICAL-ARGS ; in: LAMBDA NIL ; (LET ((CLOS-IMPURE::X (1+ CLOS-IMPURE::X))) ; (CALL-NEXT-METHOD)) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: implicitly creating new generic function BUG222 ; in: LAMBDA NIL ; (SETQ CLOS-IMPURE::BUG222-B 3) ; ; caught WARNING: ; undefined variable: BUG222-B ; ; caught WARNING: ; This variable is undefined: ; BUG222-B ; ; compilation unit finished ; caught 2 WARNING conditions ; in: LAMBDA (#:WHOLE4 #:ENVIRONMENT5) ; `(PROGN ,CLOS-IMPURE::FORM ,CLOS-IMPURE::BUG222-B) ; ; caught WARNING: ; undefined variable: BUG222-B ; in: LAMBDA NIL ; `(PROGN ,CLOS-IMPURE::FORM ,CLOS-IMPURE::BUG222-B) ; ; caught WARNING: ; undefined variable: BUG222-B ; ; caught WARNING: ; This variable is undefined: ; BUG222-B ; ; compilation unit finished ; caught 3 WARNING conditions STYLE-WARNING: implicitly creating new generic function BUG222-B ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER (CLOS-IMPURE::CLASS234 T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::I ; CLOS-IMPURE::SLOTS &KEY CLOS-IMPURE::DUMMY &ALLOW-OTHER-KEYS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (CLOS-IMPURE::I CLOS-IMPURE::CLASS234) ; CLOS-IMPURE::SLOTS &KEY CLOS-IMPURE::DUMMY)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SHARED-INITIALIZE :AFTER (CLOS-IMPURE::CLASS234 T)))) ; (DECLARE (TYPE T CLOS-IMPURE::SLOTS)) ; (DECLARE (IGNORABLE CLOS-IMPURE::SLOTS CLOS-IMPURE::I)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::I CLOS-IMPURE::SLOTS) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::I CLOS-IMPURE::SLOTS) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS CLOS-IMPURE::I CLOS-IMPURE::CLASS234)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER (CLOS-IMPURE::CLASS234 T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::I ; CLOS-IMPURE::SLOTS &KEY CLOS-IMPURE::DUMMY &ALLOW-OTHER-KEYS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (CLOS-IMPURE::I CLOS-IMPURE::CLASS234) ; CLOS-IMPURE::SLOTS &KEY CLOS-IMPURE::DUMMY)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SHARED-INITIALIZE :AFTER (CLOS-IMPURE::CLASS234 T)))) ; (DECLARE (TYPE T CLOS-IMPURE::SLOTS)) ; (DECLARE (IGNORABLE CLOS-IMPURE::SLOTS CLOS-IMPURE::I)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::I CLOS-IMPURE::SLOTS) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::I CLOS-IMPURE::SLOTS) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS CLOS-IMPURE::I CLOS-IMPURE::CLASS234)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable DUMMY is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SLOT-MISSING ; (T CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING T T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLASS CLOS-IMPURE::O ; CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::OP &OPTIONAL CLOS-IMPURE::NEW-VALUE) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST CLASS ; (CLOS-IMPURE::O CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING) ; CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::OP &OPTIONAL CLOS-IMPURE::NEW-VALUE)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SLOT-MISSING (T CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING T T)))) ; (DECLARE (TYPE T CLOS-IMPURE::OP)) (DECLARE (TYPE T CLOS-IMPURE::SLOT-NAME)) ; (DECLARE (TYPE T CLASS)) ; (DECLARE ; (IGNORABLE CLOS-IMPURE::OP CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::O CLASS)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLASS CLOS-IMPURE::O CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::OP) ; SB-PCL::.NEXT-METHOD-CALL. ; (CLASS CLOS-IMPURE::O CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::OP) NIL ; :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE ; (SB-PCL::%CLASS CLOS-IMPURE::O ; CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SLOT-MISSING ; (T CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING T T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLASS CLOS-IMPURE::O ; CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::OP &OPTIONAL CLOS-IMPURE::NEW-VALUE) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST CLASS ; (CLOS-IMPURE::O CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING) ; CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::OP &OPTIONAL ; CLOS-IMPURE::NEW-VALUE)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SLOT-MISSING (T CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING T T)))) ; (DECLARE (TYPE T CLOS-IMPURE::OP)) ; (DECLARE (TYPE T CLOS-IMPURE::SLOT-NAME)) (DECLARE (TYPE T CLASS)) ; (DECLARE ; (IGNORABLE CLOS-IMPURE::OP CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::O CLASS)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLASS CLOS-IMPURE::O CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::OP) ; SB-PCL::.NEXT-METHOD-CALL. ; (CLASS CLOS-IMPURE::O CLOS-IMPURE::SLOT-NAME CLOS-IMPURE::OP) NIL ; :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE ; (SB-PCL::%CLASS CLOS-IMPURE::O ; CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable NEW-VALUE is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(EQ ; (FUNCALL (LAMBDA # #) ; (MAKE-INSTANCE 'CLOS-IMPURE::CLASS-WITH-ALL-SLOTS-MISSING)) ; 'CLOS-IMPURE::BAZ) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function SOMETHING-THAT-SPECIALIZES STYLE-WARNING: redefining SOMETHING-THAT-SPECIALIZES (OTHER-NAME-FOR-CLASS) in DEFMETHOD STYLE-WARNING: slot names with the same SYMBOL-NAME but different SYMBOL-PACKAGE (possible package problem) for class #: (NAME COMMON-LISP-USER::NAME) STYLE-WARNING: implicitly creating new generic function WIDTH ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER ; (CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::I ; CLOS-IMPURE::SLOTS &REST CLOS-IMPURE::INIT) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST ; (CLOS-IMPURE::I CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER) ; CLOS-IMPURE::SLOTS &REST CLOS-IMPURE::INIT)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SHARED-INITIALIZE :AFTER (CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER T)))) ; (DECLARE (TYPE T CLOS-IMPURE::SLOTS)) ; (DECLARE (IGNORABLE CLOS-IMPURE::SLOTS CLOS-IMPURE::I)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::I CLOS-IMPURE::SLOTS) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::I CLOS-IMPURE::SLOTS) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE ; (SB-PCL::%CLASS CLOS-IMPURE::I ; CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER ; (CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::I ; CLOS-IMPURE::SLOTS &REST CLOS-IMPURE::INIT) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST ; (CLOS-IMPURE::I CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER) ; CLOS-IMPURE::SLOTS &REST CLOS-IMPURE::INIT)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SHARED-INITIALIZE :AFTER ; (CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER T)))) ; (DECLARE (TYPE T CLOS-IMPURE::SLOTS)) ; (DECLARE (IGNORABLE CLOS-IMPURE::SLOTS CLOS-IMPURE::I)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::I CLOS-IMPURE::SLOTS) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::I CLOS-IMPURE::SLOTS) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE ; (SB-PCL::%CLASS CLOS-IMPURE::I ; CLOS-IMPURE::YET-ANOTHER-OBSOLETION-SUPER)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable INIT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (CLOS-IMPURE::VALUE) (CLOS-IMPURE::ERR) &REST #:G4064) ; (DECLARE (IGNORE #:G4064)) ; (ASSERT (TYPEP CLOS-IMPURE::ERR 'ERROR)) ; (ASSERT (NOT (TYPEP CLOS-IMPURE::ERR 'SB-INT:BUG)))) ; ; caught STYLE-WARNING: ; The variable VALUE is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; 'INVALID-METHOD-ERROR ; ; note: deleting unreachable code ; (LET ((CLOS-IMPURE::ARG1 'CLOS-IMPURE::ARG1) ; (CLOS-IMPURE::ARG2 'CLOS-IMPURE::ARG2) ; (CLOS-IMPURE::EXTRA 'CLOS-IMPURE::EXTRA) ; CLOS-IMPURE::METHOD-LIST ; #:G4065) ; (DOLIST (SB-PCL::.METHOD. SB-PCL::.APPLICABLE-METHODS.) ; (LET ((SB-PCL::.QUALIFIERS. #) (SB-PCL::.SPECIALIZERS. #)) ; (DECLARE (IGNORABLE SB-PCL::.QUALIFIERS. SB-PCL::.SPECIALIZERS.)) ; (COND (# # #) (T #)))) ; (SETQ CLOS-IMPURE::METHOD-LIST (NREVERSE CLOS-IMPURE::METHOD-LIST)) ; `(PROGN ; ,@(MAPCAR (LAMBDA (METHOD) `(CALL-METHOD ,METHOD)) ; CLOS-IMPURE::METHOD-LIST))) ; ; caught STYLE-WARNING: ; The variable ARG1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARG2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable EXTRA is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 1 note ; in: LAMBDA (#:G4086 #:G4087 SB-PCL::EFFECTIVE-METHOD-GENSYM-0) ; (LET* ((CLOS-IMPURE::ARG1 (CAR #:WHOLE4083)) ; (CLOS-IMPURE::ARG2 (CAR (CDR #:WHOLE4083))) ; (SB-PCL::.IGNORE. (CDR (CDR #:WHOLE4083))) ; (CLOS-IMPURE::EXTRA :EXTRA)) ; (DECLARE (IGNORE SB-PCL::.IGNORE.)) ; NIL ; (PROGN ; (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST ; SB-PCL::EFFECTIVE-METHOD-GENSYM-0 NIL :REQUIRED-ARGS ; (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG ; NIL))) ; ; caught STYLE-WARNING: ; The variable ARG1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARG2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable EXTRA is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; in: ; LAMBDA (#:G4112 #:G4113 SB-PCL::EFFECTIVE-METHOD-GENSYM-0 ; SB-PCL::EFFECTIVE-METHOD-GENSYM-1) ; (LET* ((CLOS-IMPURE::ARG1 (CAR #:WHOLE4109)) ; (CLOS-IMPURE::ARG2 (CAR (CDR #:WHOLE4109))) ; (SB-PCL::.IGNORE. (CDR (CDR #:WHOLE4109))) ; (CLOS-IMPURE::EXTRA :EXTRA)) ; (DECLARE (IGNORE SB-PCL::.IGNORE.)) ; NIL ; (PROGN ; (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST ; SB-PCL::EFFECTIVE-METHOD-GENSYM-0 NIL :REQUIRED-ARGS ; (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG ; NIL) ; (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST ; SB-PCL::EFFECTIVE-METHOD-GENSYM-1 NIL :REQUIRED-ARGS ; (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG ; NIL))) ; ; caught STYLE-WARNING: ; The variable ARG1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARG2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable EXTRA is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; in: ; LAMBDA (#:G4132 #:G4133 SB-PCL::EFFECTIVE-METHOD-GENSYM-0 ; SB-PCL::EFFECTIVE-METHOD-GENSYM-1) ; (LET* ((CLOS-IMPURE::ARG1 (CAR #:WHOLE4129)) ; (CLOS-IMPURE::ARG2 (CAR (CDR #:WHOLE4129))) ; (SB-PCL::.IGNORE. (CDR (CDR #:WHOLE4129))) ; (CLOS-IMPURE::EXTRA :EXTRA)) ; (DECLARE (IGNORE SB-PCL::.IGNORE.)) ; NIL ; (PROGN ; (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST ; SB-PCL::EFFECTIVE-METHOD-GENSYM-0 NIL :REQUIRED-ARGS ; (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG ; NIL) ; (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST ; SB-PCL::EFFECTIVE-METHOD-GENSYM-1 NIL :REQUIRED-ARGS ; (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG ; NIL))) ; ; caught STYLE-WARNING: ; The variable ARG1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARG2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable EXTRA is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; in: ; LAMBDA (#:G4161 #:G4162 SB-PCL::EFFECTIVE-METHOD-GENSYM-0 ; SB-PCL::EFFECTIVE-METHOD-GENSYM-1) ; (LET* ((CLOS-IMPURE::ARG1 (CAR #:WHOLE4158)) ; (CLOS-IMPURE::ARG2 (CAR (CDR #:WHOLE4158))) ; (SB-PCL::.IGNORE. (CDR (CDR #:WHOLE4158))) ; (CLOS-IMPURE::EXTRA :EXTRA)) ; (DECLARE (IGNORE SB-PCL::.IGNORE.)) ; NIL ; (PROGN ; (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST ; SB-PCL::EFFECTIVE-METHOD-GENSYM-0 NIL :REQUIRED-ARGS ; (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG ; NIL) ; (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST ; SB-PCL::EFFECTIVE-METHOD-GENSYM-1 NIL :REQUIRED-ARGS ; (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2.) :REST-ARG NIL :MORE-ARG ; NIL))) ; ; caught STYLE-WARNING: ; The variable ARG1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARG2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable EXTRA is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions STYLE-WARNING: implicitly creating new generic function FEE STYLE-WARNING: implicitly creating new generic function FUM STYLE-WARNING: implicitly creating new generic function FII STYLE-WARNING: implicitly creating new generic function FAA STYLE-WARNING: implicitly creating new generic function FEX ; in: LAMBDA NIL ; (FLET ((CLOS-IMPURE::NONSENSE () ; NIL)) ; (DEFGENERIC CLOS-IMPURE::NONSENSE NIL)) ; ; note: deleting unused function ; (FLET NONSENSE) ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (FLET ((CLOS-IMPURE::NONSENSE-2 () ; NIL)) ; (DEFGENERIC CLOS-IMPURE::NONSENSE-2 NIL (:METHOD NIL T))) ; ; note: deleting unused function ; (FLET NONSENSE-2) ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function METHOD-ON-DEFINED-TYPE WARNING: redefining DEFTYPE type to be a class: DEFINED-TYPE-AND-CLASS STYLE-WARNING: implicitly creating new generic function METHOD-ON-DEFINED-TYPE-AND-CLASS ; in: LAMBDA NIL ; (CLOS-IMPURE::BUG-281 1) ; ; caught STYLE-WARNING: ; undefined function: BUG-281 ; ; caught STYLE-WARNING: ; This function is undefined: ; BUG-281 ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions WARNING: Invalid qualifiers for + method combination in method #: NIL. WARNING: Unnamed restart does not have a report function: (NIL #'(LAMBDA (&REST SB-IMPL::TEMP) (SETQ #:G4472 SB-IMPL::TEMP) (GO #:G4473))) WARNING: Unnamed restart does not have a report function: (NIL #'(LAMBDA (&REST SB-IMPL::TEMP) (SETQ #:G4478 SB-IMPL::TEMP) (GO #:G4479))) WARNING: Unnamed restart does not have a report function: (NIL #'(LAMBDA (&REST SB-IMPL::TEMP) (SETQ #:G4484 SB-IMPL::TEMP) (GO #:G4485))) STYLE-WARNING: implicitly creating new generic function CLASS-AS-SPECIALIZER-TEST1 STYLE-WARNING: implicitly creating new generic function CLASS-AS-SPECIALIZER-TEST2 ; in: DEFMETHOD TEST-MC27 :IGNORE (NUMBER) ; (/ 0) ; ==> ; (/ 1 0) ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; arithmetic error DIVISION-BY-ZERO signalled ; Operation was SB-KERNEL::DIVISION, operands (1 0). ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA (#:G4562 #:G4563) ; #'(LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.) ; (DECLARE (IGNORE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.)) ; (INVALID-METHOD-ERROR #:G4562 #:G4563)) ; ; caught STYLE-WARNING: ; The variable SB-PCL::.ARG0. is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: DEFMETHOD TEST-MC27PRIME :IGNORE (NUMBER) ; (/ 0) ; ==> ; (/ 1 0) ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; arithmetic error DIVISION-BY-ZERO signalled ; Operation was SB-KERNEL::DIVISION, operands (1 0). ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; #'(LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.) ; (DECLARE (IGNORE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.)) ; (LIST 'CLOS-IMPURE::RESULT)) ; ; caught STYLE-WARNING: ; The variable SB-PCL::.ARG0. is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: implicitly creating new generic function LENGTHOID STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note STYLE-WARNING: implicitly creating new generic function LL-METHOD ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD CLOS-IMPURE::CLIM-STYLE-LAMBDA-LIST-TEST (T T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::A CLOS-IMPURE::B ; &OPTIONAL CLOS-IMPURE::C CLOS-IMPURE::D &KEY CLOS-IMPURE::X CLOS-IMPURE::Y ; &ALLOW-OTHER-KEYS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST CLOS-IMPURE::A CLOS-IMPURE::B &OPTIONAL ; CLOS-IMPURE::C CLOS-IMPURE::D &KEY CLOS-IMPURE::X CLOS-IMPURE::Y)) ; (DECLARE ; (SB-PCL::%METHOD-NAME (CLOS-IMPURE::CLIM-STYLE-LAMBDA-LIST-TEST (T T)))) ; (DECLARE (TYPE T CLOS-IMPURE::B)) (DECLARE (TYPE T CLOS-IMPURE::A)) ; (DECLARE (IGNORABLE CLOS-IMPURE::B CLOS-IMPURE::A)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::A CLOS-IMPURE::B) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::A CLOS-IMPURE::B) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD CLOS-IMPURE::CLIM-STYLE-LAMBDA-LIST-TEST (T T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLOS-IMPURE::A ; CLOS-IMPURE::B &OPTIONAL CLOS-IMPURE::C CLOS-IMPURE::D &KEY ; CLOS-IMPURE::X CLOS-IMPURE::Y &ALLOW-OTHER-KEYS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST CLOS-IMPURE::A CLOS-IMPURE::B &OPTIONAL ; CLOS-IMPURE::C CLOS-IMPURE::D &KEY CLOS-IMPURE::X CLOS-IMPURE::Y)) ; (DECLARE ; (SB-PCL::%METHOD-NAME (CLOS-IMPURE::CLIM-STYLE-LAMBDA-LIST-TEST (T T)))) ; (DECLARE (TYPE T CLOS-IMPURE::B)) (DECLARE (TYPE T CLOS-IMPURE::A)) ; (DECLARE (IGNORABLE CLOS-IMPURE::B CLOS-IMPURE::A)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLOS-IMPURE::A CLOS-IMPURE::B) SB-PCL::.NEXT-METHOD-CALL. ; (CLOS-IMPURE::A CLOS-IMPURE::B) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (SB-PCL::.PV-CELL. ; SB-PCL::.NEXT-METHOD-CALL. A ; B &OPTIONAL C D &KEY X Y ; &ALLOW-OTHER-KEYS) ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: implicitly creating new generic function CLIM-STYLE-LAMBDA-LIST-TEST 1 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure.lisp STYLE-WARNING: redefining REPORT-TEST-STATUS in DEFUN STYLE-WARNING: redefining START-TEST in DEFUN STYLE-WARNING: redefining FAIL-TEST in DEFUN STYLE-WARNING: redefining EXPECTED-FAILURE-P in DEFUN STYLE-WARNING: redefining REALLY-INVOKE-DEBUGGER in DEFUN ; in: LAMBDA NIL ; (GO #:G3290) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(EQUAL (AYUP-DUPLICATE-KEYS-ARE-OK-I-SEE-THE-LITE :K 112) 112) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3292) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(EQUAL (AYUP-DUPLICATE-KEYS-ARE-OK-I-SEE-THE-LITE :K 'X :K 'Y) 'X) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (FLET ((DIGS () ; (SETQ NUM INDEX)) ; (Z () ; (LET () ; (SETQ X NIL)))) ; (WHEN (AND (DIGS) (DIGS)) X)) ; ; note: deleting unused function ; (FLET Z) ; ; compilation unit finished ; printed 1 note ; ; caught STYLE-WARNING: ; using 0 of type (INTEGER 0 0) as a catch tag (which tends to be unportable ; because THROW and CATCH use EQ comparison) ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (EQL (LO FOOMAX 3.2)) ; ; caught STYLE-WARNING: ; The function was called with one argument, but wants exactly two. ; in: LAMBDA NIL ; (GLEEP *UUSTK* #'WUFN "#1" (LIST)) ; ; caught WARNING: ; undefined variable: *UUSTK* ; (LO FOOMAX 3.2) ; ; caught WARNING: ; undefined variable: FOOMAX ; (GLEEP *UUSTK* #'WUFN "#1" (LIST)) ; ; caught STYLE-WARNING: ; undefined function: GLEEP ; (GLORP TABLE1 4.9) ; ; caught STYLE-WARNING: ; undefined function: GLORP ; (LO FOOMAX 3.2) ; ; caught STYLE-WARNING: ; undefined function: LO ; (GLORP TABLE1 4.9) ; ; caught WARNING: ; undefined variable: TABLE1 ; ; caught WARNING: ; These variables are undefined: ; *UUSTK* FOOMAX TABLE1 ; ; caught STYLE-WARNING: ; These functions are undefined: ; GLEEP GLORP LO ; ; compilation unit finished ; caught 4 WARNING conditions ; caught 5 STYLE-WARNING conditions ; in: LAMBDA NIL ; (<) ; ; caught STYLE-WARNING: ; The function was called with zero arguments, but wants at least one. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (FLET ((DIGS NIL ; (LET (OLD-INDEX) ; (IF # NIL))))) ; ; note: deleting unused function ; (FLET DIGS) ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA STUPID-INPUT-TO-SMART-ARRAY-DEFTRANSFORMS-0-7-5-12 (V) ; (DECLARE (TYPE (AND SIMPLE-VECTOR FWD-TYPE-REF) V)) ; (BLOCK ; STUPID-INPUT-TO-SMART-ARRAY-DEFTRANSFORMS-0-7-5-12 ; (AREF V 0))) ; --> FUNCTION LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF ; --> NOT IF TYPEP LET AND IF AND TYPEP ; ==> ; (SB-KERNEL:%TYPEP #:ONCE-ONLY-4 'FWD-TYPE-REF) ; ; caught STYLE-WARNING: ; undefined type: FWD-TYPE-REF ; --> FUNCTION LOCALLY SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF ; --> NOT IF TYPEP LET AND IF AND ; ==> ; (TYPEP #:ONCE-ONLY-4 'FWD-TYPE-REF) ; ; caught STYLE-WARNING: ; undefined type: FWD-TYPE-REF ; ==> ; #'(SB-INT:NAMED-LAMBDA STUPID-INPUT-TO-SMART-ARRAY-DEFTRANSFORMS-0-7-5-12 (V) ; (DECLARE (TYPE (AND SIMPLE-VECTOR FWD-TYPE-REF) V)) ; (BLOCK ; STUPID-INPUT-TO-SMART-ARRAY-DEFTRANSFORMS-0-7-5-12 ; (AREF V 0))) ; ; caught STYLE-WARNING: ; undefined type: FWD-TYPE-REF ; ; caught STYLE-WARNING: ; 3 more uses of undefined type FWD-TYPE-REF ; ; caught STYLE-WARNING: ; This type is undefined: ; FWD-TYPE-REF ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUN) (WARNINGS-P) (FAILURE-P) &REST #:G3310) ; (DECLARE (IGNORE #:G3310)) ; (ASSERT FAILURE-P)) ; ; caught STYLE-WARNING: ; The variable FUN is defined but never used. ; ; caught STYLE-WARNING: ; The variable WARNINGS-P is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (LABELS ((A1 (A2 A3) ; (COND (T #))) ; (A4 (A2 A3 A5 A6) ; (DECLARE (TYPE # A5 A6)) ; (SOMETHING-KNOWN-TO-BE-A-STRUCT-X A5)) ; (A8 (A2 A3) ; (A9 #'A1 A10 A2 A3)) ; (A11 (A2 A3) ; (COND (# #) (T # A16)))) ; (VALUES #'A17 #'A11)) ; ; note: deleting unused function ; (LABELS A8) ; (A4 A2 A3) ; ; caught WARNING: ; function called with two arguments, but wants exactly four ; See also: ; The ANSI Standard, Section 3.2.2.3 ; (LET ((A15 (A1 A2 A3))) ; ) ; ; caught STYLE-WARNING: ; The variable A15 is defined but never used. ; (LABELS ((A1 (A2 A3) ; (COND (T #))) ; (A4 (A2 A3 A5 A6) ; (DECLARE (TYPE # A5 A6)) ; (SOMETHING-KNOWN-TO-BE-A-STRUCT-X A5)) ; (A8 (A2 A3) ; (A9 #'A1 A10 A2 A3)) ; (A11 (A2 A3) ; (COND (# #) (T # A16)))) ; (VALUES #'A17 #'A11)) ; ; caught STYLE-WARNING: ; The variable A2 is defined but never used. ; ; caught STYLE-WARNING: ; The variable A3 is defined but never used. ; ; caught STYLE-WARNING: ; The variable A6 is defined but never used. ; (SOMETHING-KNOWN-TO-BE-A-STRUCT-X A5) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF ; ==> ; (THE SOMETHING-KNOWN-TO-BE-A-STRUCT A5) ; ; caught WARNING: ; Asserted type SOMETHING-KNOWN-TO-BE-A-STRUCT conflicts with derived type ; (VALUES (OR SIMPLE-VECTOR NULL) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; in: LAMBDA NIL ; (A9 #'A1 A10 A2 A3) ; ; caught WARNING: ; undefined variable: A10 ; (FUNCALL A12 A2) ; ; caught WARNING: ; undefined variable: A12 ; (FUNCALL A13 A2 A3) ; ; caught WARNING: ; undefined variable: A13 ; (WHEN A14 ; (LET ((A15 (A1 A2 A3))) ; )) ; --> COND ; ==> ; (IF A14 ; (PROGN ; NIL ; (LET ((A15 #)) ; )) ; (COND)) ; ; caught WARNING: ; undefined variable: A14 ; (COND ((AND (FUNCALL A12 A2) (FUNCALL A12 A3)) (FUNCALL A13 A2 A3)) ; (T ; (WHEN A14 ; (LET (#) ; )) ; A16)) ; --> IF COND IF ; ==> ; (PROGN ; (WHEN A14 ; (LET ((A15 #)) ; )) ; A16) ; ; caught WARNING: ; undefined variable: A16 ; #'A17 ; ; caught STYLE-WARNING: ; undefined function: A17 ; (A9 #'A1 A10 A2 A3) ; ; caught STYLE-WARNING: ; undefined function: A9 ; ; caught WARNING: ; These variables are undefined: ; A10 A12 A13 A14 A16 ; ; caught STYLE-WARNING: ; These functions are undefined: ; A17 A9 ; ; compilation unit finished ; caught 8 WARNING conditions ; caught 7 STYLE-WARNING conditions ; printed 1 note ; in: LAMBDA NIL ; (LOGAND A0 A10) ; ; 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 (UNSIGNED-BYTE 32), not a FIXNUM. ; The second argument is a (SIGNED-BYTE 32), 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 3) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; (SB-INT:NAMED-LAMBDA LOGAND-SPARC-BOGONS (A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 A10) ; (DECLARE (TYPE (UNSIGNED-BYTE 32) A0) ; (TYPE (SIGNED-BYTE 32) A1 A2 A3 A4 A5 A6 A7 A8 A9 A10) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (COMPILATION-SPEED 0) ; (DEBUG 0))) ; (BLOCK LOGAND-SPARC-BOGONS ; (VALUES (LOGAND A0 A10) ; (LOGAND A1 A2 A3 A4 A5 A6 A7 A8 A9)))) ; ==> ; #'(SB-INT:NAMED-LAMBDA LOGAND-SPARC-BOGONS ; (A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 A10) ; (DECLARE (TYPE (UNSIGNED-BYTE 32) A0) ; (TYPE (SIGNED-BYTE 32) A1 A2 A3 A4 A5 A6 A7 A8 A9 ; A10) ; (OPTIMIZE (SPEED 3) (SAFETY 0) (COMPILATION-SPEED 0) ; (DEBUG 0))) ; (BLOCK LOGAND-SPARC-BOGONS ; (VALUES (LOGAND A0 A10) ; (LOGAND A1 A2 A3 A4 A5 A6 A7 A8 A9)))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (BINDINGS-OF-BOUND-TERM (CAR LISTX)) ; ; caught STYLE-WARNING: ; undefined function: BINDINGS-OF-BOUND-TERM ; (BOUND-TERMS-OF-TERM TERMX) ; ; caught STYLE-WARNING: ; undefined function: BOUND-TERMS-OF-TERM ; (ENTER-BINDING-PAIRS (BINDINGS-OF-BOUND-TERM (CAR LISTX)) ; (BINDINGS-OF-BOUND-TERM (CAR LISTY))) ; ; caught STYLE-WARNING: ; undefined function: ENTER-BINDING-PAIRS ; (EQUAL-BINDINGS (ID-OF-VARIABLE-TERM TERMX) (ID-OF-VARIABLE-TERM TERMY)) ; ; caught STYLE-WARNING: ; undefined function: EQUAL-BINDINGS ; (EQUAL-OPERATORS-P (OPERATOR-OF-TERM TERMX) (OPERATOR-OF-TERM TERMY)) ; ; caught STYLE-WARNING: ; undefined function: EQUAL-OPERATORS-P ; (EXIT-BINDING-PAIRS (BINDINGS-OF-BOUND-TERM (CAR LISTX)) ; (BINDINGS-OF-BOUND-TERM (CAR LISTY))) ; ; caught STYLE-WARNING: ; undefined function: EXIT-BINDING-PAIRS ; (ID-OF-VARIABLE-TERM TERMX) ; ; caught STYLE-WARNING: ; undefined function: ID-OF-VARIABLE-TERM ; (OPERATOR-OF-TERM TERMX) ; ; caught STYLE-WARNING: ; undefined function: OPERATOR-OF-TERM ; (TERM-OF-BOUND-TERM (CAR LISTX)) ; ; caught STYLE-WARNING: ; undefined function: TERM-OF-BOUND-TERM ; (VARIABLE-P TERMX) ; ; caught STYLE-WARNING: ; undefined function: VARIABLE-P ; (WITH-VARIABLE-INVOCATION (ALPHA-EQUAL-TERMS TERMX TERMY)) ; ; caught STYLE-WARNING: ; undefined function: WITH-VARIABLE-INVOCATION ; ; caught STYLE-WARNING: ; These functions are undefined: ; BINDINGS-OF-BOUND-TERM BOUND-TERMS-OF-TERM ENTER-BINDING-PAIRS EQUAL-BINDINGS EQUAL-OPERATORS-P EXIT-BINDING-PAIRS ID-OF-VARIABLE-TERM OPERATOR-OF-TERM TERM-OF-BOUND-TERM VARIABLE-P WITH-VARIABLE-INVOCATION ; ; compilation unit finished ; caught 12 STYLE-WARNING conditions ; in: LAMBDA NIL ; (LABELS ((EFF (&KEY TROUBLE) ; (EFF))) ; (EFF)) ; ; caught STYLE-WARNING: ; The variable TROUBLE is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (THE REAL '(1 2 3)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type REAL conflicts with derived type (VALUES CONS &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (THE REAL '(1 2 3)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type REAL conflicts with derived type (VALUES CONS &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (THE REAL #(1 2 3)) ; ; note: deleting unreachable code ; (IF (< ARG1 ARG2) ARG1 ARG2) ; ==> ; ARG2 ; ; note: deleting unreachable code ; ==> ; ARG1 ; ; note: deleting unreachable code ; (THE REAL #(1 2 3)) ; ; caught WARNING: ; Asserted type REAL conflicts with derived type ; (VALUES (SIMPLE-VECTOR 3) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 3 notes ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G3318) ; (DECLARE (IGNORE #:G3318)) ; (ASSERT FAILURE-P) ; (ASSERT (RAISES-ERROR? (FUNCALL FUNCTION) PROGRAM-ERROR))) ; ; caught STYLE-WARNING: ; The variable WARNINGS-P is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (SYMBOL-MACROLET ((T NIL)) ; T) ; ; caught ERROR: ; Attempt to bind a constant variable with SYMBOL-MACROLET: T ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G3319) ; (DECLARE (IGNORE #:G3319)) ; (ASSERT FAILURE-P) ; (ASSERT (RAISES-ERROR? (FUNCALL FUNCTION) PROGRAM-ERROR))) ; ; caught STYLE-WARNING: ; The variable WARNINGS-P is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (SYMBOL-MACROLET ((*STANDARD-INPUT* NIL)) ; *STANDARD-INPUT*) ; ; caught ERROR: ; Attempt to bind a special variable with SYMBOL-MACROLET: *STANDARD-INPUT* ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; #'(LAMBDA (&OPTIONAL (FUNCTION) (WARNINGS-P) (FAILURE-P) &REST #:G3320) ; (DECLARE (IGNORE #:G3320)) ; (ASSERT FAILURE-P) ; (ASSERT (RAISES-ERROR? (FUNCALL FUNCTION) PROGRAM-ERROR))) ; ; caught STYLE-WARNING: ; The variable WARNINGS-P is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (SYMBOL-MACROLET ((S NIL)) ; (DECLARE (SPECIAL S)) ; S) ; ; caught ERROR: ; S is a symbol-macro and thus can't be declared special. ; ; compilation unit finished ; caught 1 ERROR condition ; in: LAMBDA NIL ; (IF (OR (NOT FRAME) T) FRAME "bar") ; ==> ; "bar" ; ; note: deleting unreachable code ; (SB-INT:NAMED-LAMBDA DONT-CONSTRAIN-IF-TOO-MUCH (FRAME UP-FRAME) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1))) ; (BLOCK DONT-CONSTRAIN-IF-TOO-MUCH ; (IF (OR (NOT FRAME) T) FRAME "bar"))) ; ==> ; #'(SB-INT:NAMED-LAMBDA DONT-CONSTRAIN-IF-TOO-MUCH (FRAME UP-FRAME) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1))) ; (BLOCK DONT-CONSTRAIN-IF-TOO-MUCH ; (IF (OR (NOT FRAME) T) FRAME "bar"))) ; ; caught STYLE-WARNING: ; The variable UP-FRAME is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (DONT-CONSTRAIN-IF-TOO-MUCH X Y) ; ; caught STYLE-WARNING: ; The variable UP-FRAME is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (THE SINGLE-FLOAT (IF (> X 0) X 3.0)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type SINGLE-FLOAT conflicts with derived type ; (VALUES INTEGER &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (THE SINGLE-FLOAT (THE INTEGER X)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type SINGLE-FLOAT conflicts with derived type ; (VALUES INTEGER &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (FORMAT T "Is ~a of type ~a a cons? => ~a~%" (FOO153-BLA FOO) ; (TYPE-OF (FOO153-BLA FOO)) (CONSP (FOO153-BLA FOO))) ; ==> ; "Is ~a of type ~a a cons? => ~a~%" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (FOO153-BLA FOO) '(1 . 1)) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {51634779}> ; --> LET LET SB-KERNEL:%INSTANCE-SET ; ==> ; (THE FIXNUM #:ONCE-ONLY-2) ; ; caught WARNING: ; Asserted type FIXNUM conflicts with derived type (VALUES CONS &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA BUG202 NIL (BLOCK BUG202 T)) ; ==> ; #'(SB-INT:NAMED-LAMBDA BUG202 NIL (BLOCK BUG202 T)) ; ; caught STYLE-WARNING: ; The result type from proclamation: ; (VALUES &OPTIONAL NULL &REST T) ; conflicts with the definition's result type: ; (VALUES (MEMBER T) &OPTIONAL) ; ; caught STYLE-WARNING: ; The previously declared FTYPE ; (FUNCTION NIL (VALUES &OPTIONAL NULL &REST T)) ; conflicts with the definition type ; (FUNCTION NIL (VALUES (MEMBER T) &OPTIONAL)) ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/defmacro-test.lisp" (written 05 OCT 2002 06:59:28 AM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/defmacro-test.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: DEFMACRO-TEST-AUX is being redefined as a macro when it was previously assumed to be a function. ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/bug204-test.lisp" (written 05 NOV 2002 12:23:19 AM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEF :LOAD-TOPLEVEL) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/bug204-test.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/symbol-macrolet-test.lisp" (written 10 OCT 2002 08:16:15 AM): ; compiling S2 ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/symbol-macrolet-test.fasl written ; compilation finished in 0:00:00 ; in: LAMBDA NIL ; (BUG211B) ; ; caught STYLE-WARNING: ; undefined function: BUG211B ; ; caught STYLE-WARNING: ; This function is undefined: ; BUG211B ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (BUG211C) ; ; caught STYLE-WARNING: ; undefined function: BUG211C ; ; caught STYLE-WARNING: ; This function is undefined: ; BUG211C ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (MULTIPLE-VALUE-BIND ; (RESULT WARNINGS-P FAILURE-P) ; (COMPILE NIL ; `(LAMBDA ,NIL ; (FLET (#) ; ,FORM))) ; (ASSERT FAILURE-P) ; (ASSERT (RAISES-ERROR? (FUNCALL RESULT) PROGRAM-ERROR))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (RESULT) (WARNINGS-P) (FAILURE-P) &REST #:G0) ; (DECLARE (IGNORE #:G0)) ; (ASSERT FAILURE-P) ; (ASSERT (RAISES-ERROR? (FUNCALL RESULT) PROGRAM-ERROR))) ; ; caught STYLE-WARNING: ; The variable WARNINGS-P is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (TEST :Y 2) ; ; caught WARNING: ; function called with unknown argument keyword :Y ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (TEST :Y 2 :ALLOW-OTHER-KEYS NIL) ; ; caught WARNING: ; function called with unknown argument keyword :Y ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (TEST :Y 2 :ALLOW-OTHER-KEYS NIL :ALLOW-OTHER-KEYS T) ; ; caught WARNING: ; function called with unknown argument keyword :Y ; ; compilation unit finished ; caught 1 WARNING condition ; in: DEFMACRO BUG172 ; (DEFMACRO BUG172 (&REST REST FOO) `(LIST ,REST ,FOO)) ; ; caught ERROR: ; (in macroexpansion of (DEFMACRO BUG172 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; illegal or ill-formed required argument after &REST argument in DEFMACRO BUG172 ; in: LAMBDA NIL ; (GO #:G3357) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NULL (IGNORE-ERRORS (DEFMACRO BUG172 # `#))) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 ERROR condition ; printed 2 notes ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA (F) ; (FUNCALL F) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note STYLE-WARNING: redefining TO-BE-INLINED in DEFUN STYLE-WARNING: redefining CALL-INLINED in DEFUN STYLE-WARNING: redefining TO-BE-INLINED in DEFUN ; in: LAMBDA NIL ; (BUG219-B Z) ; ; caught STYLE-WARNING: ; undefined function: BUG219-B ; ; caught STYLE-WARNING: ; This function is undefined: ; BUG219-B ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions STYLE-WARNING: redefining BUG219-B-AUX2 in DEFUN ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (DECLARE (OPTIMIZE (SAFETY 3))) ; ; caught WARNING: ; There is no function named DECLARE. References to DECLARE in some contexts ; (like starts of blocks) have special meaning, but here it would have to be a ; function, and that shouldn't be right. ; (#:LOCALY (DECLARE (OPTIMIZE (SAFETY 3))) ; (IGNORE-ERRORS (PROGN (VALUES-LIST (CAR #)) T))) ; ; caught STYLE-WARNING: ; undefined function: #:LOCALY ; (OPTIMIZE (SAFETY 3)) ; ; caught WARNING: ; The function OPTIMIZE is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; (SAFETY 3) ; ; caught WARNING: ; The function SAFETY is undefined, and its name is reserved by ANSI CL so that ; even if it were defined later, the code doing so would not be portable. ; ; caught STYLE-WARNING: ; These functions are undefined: ; DECLARE #:LOCALY OPTIMIZE SAFETY ; ; compilation unit finished ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LIST (ERROR "nih") (EXT) (EXT)) ; ; note: The first argument never returns a value. ; (EXT) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA (X) ; (LET ((Y (ERROR ""))) ; (LIST X Y)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (> N 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (1- N) ; ==> ; (- N 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (> N 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (1- N) ; ==> ; (- N 1) ; ; 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 REAL &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 REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; printed 4 notes ; in: LAMBDA NIL ; (COERCE X '(VALUES T)) ; ; note: unable to ; optimize ; because: ; VALUES type illegal in this context: ; (VALUES T) ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (COERCE X '(VALUES T &OPTIONAL)) ; ; note: unable to ; optimize ; because: ; VALUES type illegal in this context: ; (VALUES T &OPTIONAL) ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (AREF X 4) ; --> LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY. ; in: LAMBDA NIL ; (SETQ *Y* (THE (UNSIGNED-BYTE 8) (AREF X 4))) ; ; caught WARNING: ; undefined variable: *Y* ; ; caught WARNING: ; This variable is undefined: ; *Y* ; ; compilation unit finished ; caught 2 WARNING conditions ; printed 2 notes ; in: LAMBDA NIL ; (1+ X) ; ==> ; (+ X 1) ; ; note: unable to ; optimize ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; printed 4 notes ; in: LAMBDA NIL ; (= (FUNCALL (COMPILE NIL X) 1) 2) ; ; 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. ; ; compilation unit finished ; printed 4 notes ; in: DEF LAMBDA ; (1+ X) ; ==> ; (+ X 1) ; ; note: unable to ; optimize ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; printed 4 notes ; in: LAMBDA NIL ; (PRINT J) ; ==> ; J ; ; note: deleting unreachable code ; (DOTIMES (J I) (DECLARE (TYPE (MOD 4) I)) (UNLESS (< I 5) (PRINT J))) ; --> DO BLOCK LET TAGBODY UNLESS COND IF NOT IF >= IF ; ==> ; (< J #:G0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; --> DO BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET 1+ ; ==> ; (+ J 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. ; ; compilation unit finished ; printed 3 notes ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA BUG192C (X Y) ; (BLOCK BUG192C ; (LOCALLY (DECLARE (TYPE FIXNUM X Y)) (+ X (* 2 Y))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA BUG192C (X Y) ; (BLOCK BUG192C ; (LOCALLY (DECLARE (TYPE FIXNUM X Y)) (+ X (* 2 Y))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (THE REAL (LIST 1)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type REAL conflicts with derived type (VALUES CONS &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (+ 1.0d0 ; (THE DOUBLE-FLOAT ; (MULTIPLE-VALUE-PROG1 (SVREF A 0) (UNLESS F (RETURN-FROM BUG236 0))))) ; ==> ; (+ SB-C::Y 1.0d0) ; ; note: doing float to pointer coercion (cost 13) to "" ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (+ X Y) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; 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 SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; ; compilation unit finished ; printed 11 notes ; in: LAMBDA NIL ; (= (BAZ8ALPHA04 12 13) 25) ; ; 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. ; ; compilation unit finished ; printed 4 notes ; in: LAMBDA NIL ; (= (SSWO-A S) 1) ; ; 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. ; (= (SSWO-B S) 2) ; ; 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. ; ; compilation unit finished ; printed 8 notes ; in: LAMBDA NIL ; (INCF X) ; --> LET* ; ==> ; (+ X #:G1) ; ; note: unable to ; optimize ; 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). ; (FLET ((BAR (Y) ; (DECLARE (FIXNUM Y)) ; (INCF X))) ; (LIST (BAR X) (BAR X) (BAR X))) ; ; caught STYLE-WARNING: ; The variable Y is defined but never used. ; (INCF X) ; --> LET* ; ==> ; (+ X #:G1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 4 notes ; in: LAMBDA NIL ; (ADJOIN A B) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (TYPEP *BUG-DOUG-MCNAUGHT-20030914* '(SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))) ; ==> ; (SB-KERNEL:SIMPLE-ARRAY-UNSIGNED-BYTE-4-P *BUG-DOUG-MCNAUGHT-20030914*) ; ; caught WARNING: ; undefined variable: *BUG-DOUG-MCNAUGHT-20030914* ; ; caught WARNING: ; This variable is undefined: ; *BUG-DOUG-MCNAUGHT-20030914* ; ; compilation unit finished ; caught 2 WARNING conditions 11 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/bug-doug-mcnaught-20030914.lisp" (written 14 JUL 2005 05:30:43 PM): ; compiling (SETQ *READTABLE* ...) ; compiling (SET-MACRO-CHARACTER #\] ...) ; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...) ; compiling (DEFVAR *BUG-DOUG-MCNAUGHT-20030914* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/bug-doug-mcnaught-20030914.fasl written ; compilation finished in 0:00:00 ; in: LAMBDA NIL ; (< A B) ; ; 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 DOUBLE-FLOAT. ; ; 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (EXPT A B) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (SINGLE-FLOAT 0.0). ; The second 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 0.0d0). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (SINGLE-FLOAT 0.0). ; The second argument is a REAL, not a (SIGNED-BYTE 32). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (DOUBLE-FLOAT 0.0d0). ; The second argument is a REAL, not a (SIGNED-BYTE 32). ; (TRUNCATE (EXPT A B)) ; --> TRUNCATE LET VALUES ; ==> ; (- SB-C::X SB-C::RES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (< A B) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (TRUNCATE (EXPT A B)) ; --> TRUNCATE LET ; ==> ; (SB-KERNEL:%UNARY-TRUNCATE SB-C::X) ; ; note: forced to do full call ; unable to do inline float truncate (cost 5) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; unable to do inline float truncate (cost 5) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; --> 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 safe inline fixnum arithmetic (cost 4) 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). ; etc. ; ; compilation unit finished ; printed 11 notes ; in: LAMBDA NIL ; (APPLY FUN ARGS) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (CATCH 'BREAK ; (FUNCALL (EVAL ''PEEK-CHAR) 1 (MAKE-INSTANCE 'BROKEN-INPUT-STREAM)) ; :TEST-BROKEN) ; (TYPE-ERROR (C) (RETURN-FROM RETURN :GOOD))) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((C #:G1)) ; (RETURN-FROM RETURN :GOOD)) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; (FUNCALL (EVAL ''PEEK-CHAR) 1 (MAKE-INSTANCE 'BROKEN-INPUT-STREAM)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (= *COMPILER-NOTE-COUNT* 1) ; ; 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. ; (INCF *COMPILER-NOTE-COUNT*) ; --> LET* ; ==> ; (+ *COMPILER-NOTE-COUNT* #:G5) ; ; note: unable to ; optimize ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; printed 8 notes ; in: LAMBDA (X) ; (* X -5) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline fixnum arithmetic (cost 1) because: ; The result is a (VALUES (INTEGER -2684354555 2684354560) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES (INTEGER -2684354555 2684354560) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (HANDLER-CASE ; (RETURN-FROM #:|normal-return| ; (EVAL ; '(FLET (#) ; (%F NIL NIL)))) ; (ERROR (C) :GOOD)) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((C #:G1)) ; :GOOD) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (%F NIL NIL) ; ; caught WARNING: ; function called with unknown argument keyword NIL ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (HANDLER-CASE ; (RETURN-FROM #:|normal-return| ; (EVAL ; '(LABELS (#) ; (%F NIL NIL)))) ; (ERROR (C) :GOOD)) ; --> BLOCK LET TAGBODY RETURN-FROM ; ==> ; (LET ((C #:G1)) ; :GOOD) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (%F NIL NIL) ; ; caught WARNING: ; function called with unknown argument keyword NIL ; ; compilation unit finished ; caught 1 WARNING condition More ltypes than types in UNLINK-UNWIND-PROTECT, translating %UNWIND-PROTECT-BREAKUP. More ltypes than types in UNLINK-CATCH-BLOCK, translating %CATCH-BREAKUP. ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; in: LAMBDA NIL ; (LAMBDA () ; (DECLARE (FTYPE (FUNCTION NIL (INTEGER 0 10)) SB-C::BUG-305) ; (INLINE SB-C::BUG-305) (OPTIMIZE SPEED)) ; (1+ (SB-C::BUG-305))) ; ; caught STYLE-WARNING: ; undefined function: BUG-305 ; ; caught STYLE-WARNING: ; This function is undefined: ; BUG-305 ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (LAMBDA () ; (DECLARE (FTYPE (FUNCTION NIL (INTEGER 0 10)) SB-C::BUG-305) ; (NOTINLINE SB-C::BUG-305) (OPTIMIZE SPEED)) ; (1+ (SB-C::BUG-305))) ; ; caught STYLE-WARNING: ; undefined function: BUG-305 ; ; caught STYLE-WARNING: ; This function is undefined: ; BUG-305 ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (FLET ((SB-C::TEST (SB-C::F SB-C::X SB-C::Y) ; (WITH-SIMPLE-RESTART (CONTINUE "continue with next test") ; (FUNCALL SB-C::F SB-C::X SB-C::Y) ; (ERROR "fell through with (~S ~S ~S)" SB-C::F SB-C::X SB-C::Y)))) ; (SB-C::TEST SB-C::F1 "oops" 42) ; (SB-C::TEST SB-C::F1 (1+ MOST-POSITIVE-FIXNUM) 42) ; (SB-C::TEST SB-C::F2 42 "oops") ; (SB-C::TEST SB-C::F2 42 (1+ MOST-POSITIVE-FIXNUM))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; (INCF SB-C::E-COUNT) ; --> LET* ; ==> ; (+ SB-C::E-COUNT #:G14) ; ; 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. ; (RANDOM MOST-POSITIVE-FIXNUM) ; --> REM SB-KERNEL:RANDOM-CHUNK BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS COND ; --> IF NOT IF TYPEP LET AND IF TYPEP ; ==> ; (SB-INT:FIXNUMP #:ONCE-ONLY-56) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-KERNEL::DIVISOR) ; ; note: doing unsigned word to integer coercion (cost 20) from SB-KERNEL::Y ; ; compilation unit finished ; printed 4 notes ; in: LAMBDA NIL ; (ABS SB-C::NN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FLOOR (ABS SB-C::NN)) ; ==> ; (FLOOR (ABS SB-C::NN) 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0) ; (RATIONAL 0)), not a FLOAT. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0) ; (RATIONAL 0)), not a INTEGER. ; (ZEROP SB-C::X) ; ==> ; (= SB-C::X 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. ; (ABS SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> (ABS SB-C::X) SB-C::N) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0) ; (RATIONAL 0)), not a FLOAT. ; (ABS SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (/ 2.0 (ABS SB-C::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (REAL 0), not a DOUBLE-FLOAT. ; (ABS SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (* SB-C::J SB-C::TOX SB-C::BJ) ; --> * ; ==> ; (* SB-C::J SB-C::TOX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (FLOAT 0.0), not a FLOAT. ; ==> ; (* (* SB-C::J SB-C::TOX) SB-C::BJ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (FLOAT 0.0), 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 (FLOAT 0.0), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (FLOAT 0.0), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (FLOAT 0.0), 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 (FLOAT 0.0), not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (- (* SB-C::J SB-C::TOX SB-C::BJ) SB-C::BJM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; 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 SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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). ; (ABS SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (/ 2.0 (ABS SB-C::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (REAL 0), not a DOUBLE-FLOAT. ; (* SB-C::IACC SB-C::N) ; ==> ; (* SB-C::Y 40) ; ; note: unable to ; recode as shifts and adds ; due to type uncertainty: ; 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). ; (* SB-C::J SB-C::TOX SB-C::BJ) ; --> * ; ==> ; (* SB-C::J SB-C::TOX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (FLOAT 0.0), not a FLOAT. ; ==> ; (* (* SB-C::J SB-C::TOX) SB-C::BJ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FLOAT, 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 FLOAT, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FLOAT, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FLOAT, 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 FLOAT, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (- (* SB-C::J SB-C::TOX SB-C::BJ) SB-C::BJP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; 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 SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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). ; (ABS SB-C::BJ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> (ABS SB-C::BJ) SB-C::BIGNO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0) ; (RATIONAL 0)), not a DOUBLE-FLOAT. ; (* SB-C::BJ SB-C::BIGNI) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (* SB-C::BJP SB-C::BIGNI) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (* SB-C::ANS SB-C::BIGNI) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (* SB-C::SUM SB-C::BIGNI) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (= 0 SB-C::JSUM) ; --> = IF ; ==> ; (= SB-C::Y 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. ; (INCF SB-C::SUM SB-C::BJ) ; --> LET* ; ==> ; (+ SB-C::SUM #:G6) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; 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 SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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-C::JSUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (* 2.0 SB-C::SUM) ; ==> ; (* SB-C::Y 2.0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (- (* 2.0 SB-C::SUM) SB-C::BJ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; 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 SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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). ; (/ SB-C::ANS SB-C::SUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; 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 SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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 (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 ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; The second argument is a NUMBER, not a INTEGER. ; (MINUSP SB-C::X) ; ==> ; (< SB-C::X 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- SB-C::ANS) ; ==> ; (SB-KERNEL:%NEGATE SB-C::ANS) ; ; 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). ; (MINUSP SB-C::NN) ; ==> ; (< SB-C::NN 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- SB-C::BESN) ; ==> ; (SB-KERNEL:%NEGATE SB-C::BESN) ; ; 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). ; (ABS SB-C::NN) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (ABS SB-C::X) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (> (ABS SB-C::X) SB-C::N) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (REAL 0), not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; (ABS SB-C::X) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (/ 2.0 (ABS SB-C::X)) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 12) because: ; The second argument is a (REAL 0), not a SINGLE-FLOAT. ; The result is a (VALUES (FLOAT 0.0) &OPTIONAL), not a (VALUES ; SINGLE-FLOAT &REST ; T). ; (* SB-C::IACC SB-C::N) ; ==> ; (* SB-C::Y 40) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline fixnum arithmetic (cost 1) 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 fixnum arithmetic (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). ; etc. ; (+ SB-C::N (SQRT (* SB-C::IACC SB-C::N))) ; --> + FLOAT ; ==> ; (SB-KERNEL:%SINGLE-FLOAT SB-C::N) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; unable to do inline float coercion (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; (FLOOR (/ (+ SB-C::N (SQRT (* SB-C::IACC SB-C::N))) 2)) ; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET ; ==> ; (SB-KERNEL:%UNARY-TRUNCATE (/ SB-C::X SB-C::Y)) ; ; note: forced to do full call ; unable to do inline float truncate (cost 5) because: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; (* 2 (FLOOR (/ (+ SB-C::N (SQRT #)) 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 (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (* 2.0 SB-C::SUM) ; ==> ; (* SB-C::Y 2.0) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline float arithmetic (cost 4) 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). ; (- (* 2.0 SB-C::SUM) SB-C::BJ) ; ; 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. ; (/ SB-C::ANS SB-C::SUM) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a T, 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). ; unable to do inline float arithmetic (cost 19) because: ; The first argument is a T, 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). ; (* SB-C::J SB-C::TOX SB-C::BJ) ; ==> ; (* (* SB-C::J SB-C::TOX) SB-C::BJ) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a FLOAT, 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). ; unable to do inline float arithmetic (cost 5) because: ; The first argument is a FLOAT, 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). ; (- (* SB-C::J SB-C::TOX SB-C::BJ) SB-C::BJP) ; ; 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. ; (ABS SB-C::BJ) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (> (ABS SB-C::BJ) SB-C::BIGNO) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (REAL 0), not a SINGLE-FLOAT. ; (* SB-C::BJ SB-C::BIGNI) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline float arithmetic (cost 4) 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). ; (* SB-C::BJP SB-C::BIGNI) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline float arithmetic (cost 4) 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). ; (* SB-C::ANS SB-C::BIGNI) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; (* SB-C::SUM SB-C::BIGNI) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline float arithmetic (cost 4) 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). ; (INCF SB-C::SUM SB-C::BJ) ; --> LET* ; ==> ; (+ SB-C::SUM #:G6) ; ; 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-C::JSUM) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (= SB-C::J SB-C::N) ; --> EQL IF ; ==> ; (EQL SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-EQL (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 UNSIGNED-BYTE, not a FIXNUM. ; (- SB-C::J 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. ; (ABS SB-C::X) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (/ 2.0 (ABS SB-C::X)) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 12) because: ; The second argument is a (REAL 0), not a SINGLE-FLOAT. ; The result is a (VALUES (FLOAT 0.0) &OPTIONAL), not a (VALUES ; SINGLE-FLOAT &REST ; T). ; (ABS SB-C::X) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (= SB-C::J SB-C::N) ; --> EQL IF EQL EQL IF ; ==> ; (EQL SB-C::Y SB-C::X) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a (INTEGER 1), not a FIXNUM. ; (MINUSP SB-C::X) ; ==> ; (< SB-C::X 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; (ODDP SB-C::N) ; --> LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; etc. ; (- SB-C::ANS) ; ==> ; (SB-KERNEL:%NEGATE SB-C::ANS) ; ; note: forced to do static-fun %Negate (cost 52) ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (* SB-C::J SB-C::TOX SB-C::BJ) ; ==> ; (* (* SB-C::J SB-C::TOX) SB-C::BJ) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a (FLOAT 0.0), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 5) because: ; The first argument is a (FLOAT 0.0), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (- (* SB-C::J SB-C::TOX SB-C::BJ) SB-C::BJM) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (+ SB-C::J 1) ; ; note: forced to do GENERIC-+ (cost 10) ; 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 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (MINUSP SB-C::NN) ; ==> ; (< SB-C::NN 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; (ODDP SB-C::NN) ; --> LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a (INTEGER * -1), not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a FIXNUM. ; etc. ; (- SB-C::BESN) ; ==> ; (SB-KERNEL:%NEGATE SB-C::BESN) ; ; note: forced to do static-fun %Negate (cost 52) ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (FLOOR (/ (+ SB-C::N (SQRT (* SB-C::IACC SB-C::N))) 2)) ; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET ; ==> ; (SB-KERNEL:%UNARY-TRUNCATE (/ SB-C::X SB-C::Y)) ; ; note: doing float to pointer coercion (cost 13) ; in: LAMBDA NIL ; (SB-C::BES-J0 SB-C::X) ; ; caught STYLE-WARNING: ; undefined function: BES-J0 ; (SB-C::BES-J1 SB-C::X) ; ; caught STYLE-WARNING: ; undefined function: BES-J1 ; ; caught STYLE-WARNING: ; These functions are undefined: ; BES-J0 BES-J1 ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 167 notes ; in: LAMBDA NIL ; (+ SB-C::X 1.0d0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (+ SB-C::X 2) ; ; note: unable to ; optimize ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (+ SB-C::X 1.0d0) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; ; compilation unit finished ; printed 9 notes ; in: LAMBDA NIL ; (= 6.0d0 (SB-C::TEST-CONSTRAINT-PROPAGATION/TYPEP 1.0d0 5)) ; --> = IF ; ==> ; (= SB-C::Y 6.0d0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; 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. ; ; compilation unit finished ; printed 5 notes ; in: LAMBDA NIL ; (1+ SB-C::X) ; ==> ; (+ SB-C::X 1) ; ; note: unable to ; optimize ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; compilation unit finished ; printed 4 notes ; in: DEFUN STRING->HTML ; (SETF (AREF SB-C::RESULT SB-INT:INDEX) SB-INT:IT) ; --> SB-KERNEL:%ASET LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR T), not a SIMPLE-ARRAY. ; (ARRAY-DIMENSION SB-C::RESULT 0) ; ; note: unable to optimize because: can't tell whether array is simple ; (> SB-C::MAX-LENGTH (ARRAY-DIMENSION SB-C::RESULT 0)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (LOOP SB-C::FOR CHAR SB-C::ACROSS STRING DO ; (COND ((CHAR= CHAR #\<) (SB-C::ADD-STRING "<")) ; ((CHAR= CHAR #\>) (SB-C::ADD-STRING ">")) ; ((CHAR= CHAR #\&) (SB-C::ADD-STRING "&")) ; ((CHAR= CHAR #\') (SB-C::ADD-STRING "'")) ; ((CHAR= CHAR #\Newline) (SB-C::ADD-STRING "
")) ; ((CHAR= CHAR #\") ; (IF SB-C::LEFT-QUOTE? (SB-C::ADD-STRING "“") ; (SB-C::ADD-STRING "”")) ; (SETF SB-C::LEFT-QUOTE? (NOT SB-C::LEFT-QUOTE?))) ; (T (SB-C::ADD-CHAR CHAR)))) ; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SETQ THE ; ==> ; (LENGTH #:LOOP-ACROSS-VECTOR-8) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL VECTOR), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL VECTOR), not a VECTOR. ; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE ; --> AREF LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; (> SB-C::MAX-LENGTH (ARRAY-DIMENSION SB-C::RESULT 0)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (INCF SB-INT:INDEX) ; --> LET* ; ==> ; (+ SB-INT:INDEX #:G4) ; ; 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. ; ; compilation unit finished ; printed 11 notes ; in: LAMBDA NIL ; (+ SB-C::ARG0 SB-C::ARG1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; 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 SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; ; compilation unit finished ; printed 11 notes ; in: LAMBDA NIL ; (FUNCALL SB-C::FUN) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; in: LAMBDA NIL ; #'SB-C::CALLER-FUN-1 ; ; caught STYLE-WARNING: ; undefined function: CALLER-FUN-1 ; ; caught STYLE-WARNING: ; This function is undefined: ; CALLER-FUN-1 ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 1 note ; in: LAMBDA NIL ; (= SB-C::N 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. ; (1- SB-C::N) ; ==> ; (- SB-C::N 1) ; ; note: unable to ; optimize ; 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: 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. ; ; compilation unit finished ; printed 8 notes ; in: LAMBDA NIL ; (= (FUNCALL SB-C::FUN) 3) ; ; 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. ; (= (FUNCALL SB-C::FUN :KEY 17) 17) ; ; 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. ; (HANDLER-CASE (FUNCALL SB-C::FUN :KEY T) ; (TYPE-ERROR (SB-C::C) ; (ASSERT (EQ (TYPE-ERROR-EXPECTED-TYPE SB-C::C) 'INTEGER))) ; (:NO-ERROR (&REST SB-C::VALS) (ERROR "no error"))) ; --> BLOCK MULTIPLE-VALUE-CALL SB-KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA ; ==> ; #'(LAMBDA (&REST SB-C::VALS) (ERROR "no error")) ; ; caught STYLE-WARNING: ; The variable VALS is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 8 notes ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQ 'SB-C::EXPANDED (FUNCALL (LAMBDA # #))) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (FUNCALL (COMPILER-MACRO-FUNCTION 'SB-C::TEST-CMACRO-1) SB-KERNEL:FORM NIL) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION NULL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (FUNCALL (COMPILER-MACRO-FUNCTION 'SB-C::TEST-CMACRO-1) SB-KERNEL:FORM NIL) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION NULL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQ 'SB-C::OK (FUNCALL (LAMBDA # #))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQ 'SB-C::OK (FUNCALL (LAMBDA # #))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(FUNCALL (LAMBDA () (SB-C::FIND-CMACRO-3))) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (FLET ((SB-C::TEST-CMACRO-3 () ; )) ; (SB-C::FIND-CMACRO-3)) ; ; note: deleting unused function ; (FLET TEST-CMACRO-3) ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NOT (FUNCALL (LAMBDA # #))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQ 'SB-C::LOCAL (FUNCALL (LAMBDA # #))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQ 'SB-C::LOCAL (FUNCALL (LAMBDA # #))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (FLET ((SB-C::TEST-CMACRO-3 () ; 'SB-C::LOCAL)) ; (FUNCALL 'SB-C::TEST-CMACRO-3)) ; ; note: deleting unused function ; (FLET TEST-CMACRO-3) ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQ 'SB-C::GLOBAL (FUNCALL (LAMBDA # #))) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQ 'SB-SYS:MACRO (FUNCALL (LAMBDA # # #))) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (LET* ((SB-KERNEL:FORM #:CMACRO-&WHOLE3545) ; (SB-C::VALUE (CAR (CDR #:WHOLE3543)))) ; (BLOCK SB-C::TEST-CMACRO-4 ''SB-C::OK)) ; ; caught STYLE-WARNING: ; The variable FORM is defined but never used. ; ; caught STYLE-WARNING: ; The variable VALUE is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (SETF (SB-C::TEST-CMACRO-4) 'SB-C::ZOT) ; --> LET* MULTIPLE-VALUE-BIND ; ==> ; (LET ((#:G0 'SB-C::ZOT)) ; (FUNCALL #'(SETF SB-C::TEST-CMACRO-4) #:G0)) ; ; caught STYLE-WARNING: ; The variable #:G0 is defined but never used. ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQ 'SB-C::OK (FUNCALL (LAMBDA # #))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(EQ 'SB-C::OK (FUNCALL (LAMBDA # #))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (= 42 ; (FUNCALL (COMPILE NIL '(LAMBDA (SB-C::V SB-C::X) (DECLARE #) (IF # # #))) ; NIL (CONSTANTLY 42))) ; --> = IF ; ==> ; (= SB-C::Y 42) ; ; 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. ; ; compilation unit finished ; printed 4 notes ; in: LAMBDA (V X) ; (SVREF SB-C::V (THE FUNCTION SB-C::X)) ; --> AREF THE ; ==> ; SB-C::V ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-C::NSU (SB-C::VERTICES SB-C::E368) ; (BLOCK SB-C::NSU ; (LET ((SB-C::I368S #)) ; (LET (#) ; (FORMAT T "~&FUIS=~S~%" SB-C::FUIS) ; (OR SB-C::FUIS #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-C::NSU (SB-C::VERTICES SB-C::E368) ; (BLOCK SB-C::NSU ; (LET ((SB-C::I368S #)) ; (LET (#) ; (FORMAT T "~&FUIS=~S~%" SB-C::FUIS) ; (OR SB-C::FUIS #))))) ; ; caught STYLE-WARNING: ; The variable VERTICES is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition "" FUIS=NIL NSU returned #S(S368 :G368 #S(G368 :I368S #())) *H368-WAS-CALLED-P*=T ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SB-C::FROB-367 (SB-C::V SB-C::W) ; (BLOCK SB-C::FROB-367 ; (LET ((SB-C::X #)) ; (LET* (# #) ; (FORMAT T "~&Y=~S Z=~S~%" SB-C::Y SB-C::Z) ; (SB-C::G367-I367S SB-C::Z))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SB-C::FROB-367 (SB-C::V SB-C::W) ; (BLOCK SB-C::FROB-367 ; (LET ((SB-C::X #)) ; (LET* (# #) ; (FORMAT T "~&Y=~S Z=~S~%" SB-C::Y SB-C::Z) ; (SB-C::G367-I367S SB-C::Z))))) ; ; caught STYLE-WARNING: ; The variable V is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (RETURN-FROM #:G3616 ; (LET ((SB-C::E #:G3617)) ; (ERROR SB-C::E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/circ-tree-test.lisp" (written 29 AUG 2006 02:35:23 PM): ; compiling (COMPILE NIL ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/circ-tree-test.fasl written ; compilation finished in 0:00:00 ; in: LAMBDA NIL ; (RETURN-FROM #:G3619 ; (LET ((SB-C::E #:G3620)) ; (ERROR SB-C::E))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (LAMBDA (&WHOLE SB-C::X) (LIST &WHOLE SB-C::X)) ; ==> ; #'(LAMBDA (&WHOLE SB-C::X) (LIST &WHOLE SB-C::X)) ; ; caught ERROR: ; Bad lambda list keyword &WHOLE in: (&WHOLE X) ; (FUNCALL (LAMBDA (&WHOLE SB-C::X) (LIST &WHOLE SB-C::X))) ; ; note: The first argument never returns a value. ; ; note: deleting unreachable code ; (GO #:G3622) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(EQ :OK (HANDLER-CASE (FUNCALL #) (PROGRAM-ERROR NIL :OK))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 ERROR condition ; printed 4 notes ; in: LAMBDA NIL ; (FUNCALL (EVAL '(LAMBDA (&WHOLE SB-C::X) (LIST &WHOLE SB-C::X)))) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compound-cons.impure.lisp ; in: LAMBDA NIL ; (GO #:G3257) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP '(A B C) '(CONS T)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3259) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP '(A B C) '(CONS SYMBOL)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3261) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP '(A B C) '(CONS INTEGER))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3263) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP '(A B C) '(CONS T T)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3265) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP '(A B C) '(CONS SYMBOL SYMBOL))) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3267) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(TYPEP '(A B C) '(CONS SYMBOL (CONS SYMBOL #))) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3269) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP '(A B C) '(CONS SYMBOL #))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3271) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(TYPEP '(A B C) '(CONS SYMBOL (CONS SYMBOL #))) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3273) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP 11 'CONS)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3275) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP 11 '(CONS *))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3277) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP 11 '(CONS T T))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3279) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP 'NIL 'CONS)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3281) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP '(100) 'CONS) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3283) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP '(100) '(CONS T)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3285) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP '(100) '(CONS NUMBER)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3287) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP '(100) '(CONS CHARACTER))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3289) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP '(100) '(CONS NUMBER T)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3291) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(TYPEP '(100) '(CONS NUMBER NULL)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3293) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP '(100) '(CONS NUMBER STRING))) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3295) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(TYPEP '("yes" . NO) '(CONS STRING SYMBOL)) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3297) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP '(YES . NO) '(CONS STRING SYMBOL))) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3299) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP '(YES . "no") '(CONS STRING SYMBOL))) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3301) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(TYPEP '(YES . "no") '(CONS SYMBOL)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3303) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(TYPEP '(YES . "no") '(CONS SYMBOL T)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3305) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(TYPEP '(YES . "no") '(CONS T STRING)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3307) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP '(YES . "no") '(CONS T NULL))) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/condition.impure.lisp STYLE-WARNING: implicitly creating new generic function FROB-COUNTED-CONDITION // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/debug.impure.lisp ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ZOOP (ZEEP &KEY BEEP) (BLOCK ZOOP BLURP)) ; ==> ; #'(SB-INT:NAMED-LAMBDA ZOOP (ZEEP &KEY BEEP) (BLOCK ZOOP BLURP)) ; ; caught STYLE-WARNING: ; The variable BEEP is defined but never used. ; ; caught STYLE-WARNING: ; The variable ZEEP is defined but never used. ; in: LAMBDA NIL ; (BLOCK ZOOP BLURP) ; ; caught WARNING: ; undefined variable: BLURP ; ; caught WARNING: ; This variable is undefined: ; BLURP ; ; compilation unit finished ; caught 2 WARNING conditions ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA VERIFY-BACKTRACE ; (TEST-FUNCTION FRAME-SPECS &KEY (ALLOW-STUNTED NIL)) ; (BLOCK VERIFY-BACKTRACE ; (LABELS ((ARGS-EQUAL # ; #)) ; (LET (#) ; (BLOCK OUTER-HANDLER #) ; RESULT)))) ; ==> ; #'(SB-INT:NAMED-LAMBDA VERIFY-BACKTRACE ; (TEST-FUNCTION FRAME-SPECS &KEY (ALLOW-STUNTED NIL)) ; (BLOCK VERIFY-BACKTRACE ; (LABELS ((ARGS-EQUAL # ; #)) ; (LET (#) ; (BLOCK OUTER-HANDLER #) ; RESULT)))) ; ; caught STYLE-WARNING: ; The variable ALLOW-STUNTED is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (#:UNDEFINED-FUNCTION 42) ; ; caught STYLE-WARNING: ; undefined function: #:UNDEFINED-FUNCTION ; ; caught STYLE-WARNING: ; undefined function: #:UNDEFINED-FUNCTION ; ; caught STYLE-WARNING: ; These functions are undefined: ; #:UNDEFINED-FUNCTION #:UNDEFINED-FUNCTION ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; in: LAMBDA NIL ; (/ 42 0) ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; arithmetic error DIVISION-BY-ZERO signalled ; Operation was SB-KERNEL::DIVISION, operands (42 0). ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; arithmetic error DIVISION-BY-ZERO signalled ; Operation was SB-KERNEL::DIVISION, operands (42 0). ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions (:BACKTRACE-STUNTED "undefined function") :MISSING-BACKTRACE ; in: LAMBDA NIL ; (LIST (ERROR "error")) ; ==> ; (CONS (ERROR "error") NIL) ; ; note: The first argument never returns a value. ; (SB-INT:NAMED-LAMBDA BT.4.1 (&OPTIONAL OPT) ; (BLOCK BT.4.1 (LIST (ERROR "error")))) ; ==> ; #'(SB-INT:NAMED-LAMBDA BT.4.1 (&OPTIONAL OPT) ; (BLOCK BT.4.1 (LIST (ERROR "error")))) ; ; caught STYLE-WARNING: ; The variable OPT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (LIST (ERROR "error")) ; ==> ; (CONS (ERROR "error") NIL) ; ; note: The first argument never returns a value. ; (SB-INT:NAMED-LAMBDA BT.4.2 (&OPTIONAL OPT) ; (DECLARE (OPTIMIZE (DEBUG 1) (SPEED 3))) ; (BLOCK BT.4.2 (LIST (ERROR "error")))) ; ==> ; #'(SB-INT:NAMED-LAMBDA BT.4.2 (&OPTIONAL OPT) ; (DECLARE (OPTIMIZE (DEBUG 1) (SPEED 3))) ; (BLOCK BT.4.2 (LIST (ERROR "error")))) ; ; caught STYLE-WARNING: ; The variable OPT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 1 note ; in: LAMBDA NIL ; (LIST (ERROR "error")) ; ==> ; (CONS (ERROR "error") NIL) ; ; note: The first argument never returns a value. ; (SB-INT:NAMED-LAMBDA BT.4.3 (&OPTIONAL OPT) (DECLARE (OPTIMIZE (DEBUG 0))) ; (BLOCK BT.4.3 (LIST (ERROR "error")))) ; ==> ; #'(SB-INT:NAMED-LAMBDA BT.4.3 (&OPTIONAL OPT) (DECLARE (OPTIMIZE (DEBUG 0))) ; (BLOCK BT.4.3 (LIST (ERROR "error")))) ; ; caught STYLE-WARNING: ; The variable OPT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 1 note (:BACKTRACE-STUNTED NIL) :TL-XEP :XEP :VARARGS-ENTRY :HAIRY-ARGS-PROCESSOR :OPTIONAL-PROCESSOR recursive condition: Maximum error nesting depth exceeded recursive condition: Maximum error nesting depth exceeded /debug.impure.lisp done // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/define-compiler-macro.impure.lisp ; in: LAMBDA NIL ; (GO #:G3261) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(EQL 81 (SQUARE (SQUARE 3))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/defstruct.impure.lisp ; in: LAMBDA NIL ; (SETF (PERSON-NAME (MAKE-PERSON :NAME "Q")) 1) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL ; --> # :WHERE-FROM :DECLARED :KIND :GLOBAL-FUNCTION {5174D959}> ; --> LET LET SB-KERNEL:%INSTANCE-SET ; ==> ; (THE STRING #:ONCE-ONLY-10) ; ; caught WARNING: ; Asserted type STRING conflicts with derived type ; (VALUES (INTEGER 1 1) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA MAKE-BOA-SAUX (&AUX A (B 3) (C)) ; (DECLARE (TYPE (INTEGER 3 4) B)) ; (BLOCK MAKE-BOA-SAUX ; (LET ((#:INSTANCE3288 #)) ; NIL ; ((LAMBDA # #) B #:INSTANCE3288) ; NIL ; #:INSTANCE3288))) ; ==> ; #'(SB-INT:NAMED-LAMBDA MAKE-BOA-SAUX (&AUX A (B 3) (C)) ; (DECLARE (TYPE (INTEGER 3 4) B)) ; (BLOCK MAKE-BOA-SAUX ; (LET ((#:INSTANCE3288 #)) ; NIL ; ((LAMBDA # #) B #:INSTANCE3288) ; NIL ; #:INSTANCE3288))) ; ; caught STYLE-WARNING: ; The variable A is defined but never used. ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(IS-A-BOZO-P (MAKE-UP-KLOWN)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note /beginning PROGN for COLONTYPE=NIL /done with DEFSTRUCT /checking constructed structure /checking no read-only writers /doing INLINEP=T /doing INLINEP=NIL /done with INLINEP loop /doing tests on PRED-NAME=VANILLA-STRUCT-P /doing COMPILED-PRED tests /doing TYPEP tests, COLONTYPE=NIL /done with PROGN for COLONTYPE=NIL /beginning PROGN for COLONTYPE=VECTOR /done with DEFSTRUCT /checking constructed structure /checking no read-only writers /doing INLINEP=T /doing INLINEP=NIL /done with INLINEP loop /done with PROGN for COLONTYPE=VECTOR /beginning PROGN for COLONTYPE=LIST /done with DEFSTRUCT /checking constructed structure /checking no read-only writers /doing INLINEP=T /doing INLINEP=NIL /done with INLINEP loop /done with PROGN for COLONTYPE=LIST /beginning PROGN for COLONTYPE=NIL STYLE-WARNING: &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL (OPTIONAL-TEST 2 OPTIONAL-TEST-P) &KEY (HOME NIL HOME-P) (NO-HOME-COMMENT "Home package CL not provided.") (COMMENT (IF HOME-P "" NO-HOME-COMMENT)) (REFCOUNT (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL)) HASH WEIGHT) ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA CREATE-VANILLA-STRUCT ; (ID &OPTIONAL (OPTIONAL-TEST 2 OPTIONAL-TEST-P) &KEY ; (HOME NIL HOME-P) ; (NO-HOME-COMMENT "Home package CL not provided.") ; (COMMENT (IF HOME-P "" NO-HOME-COMMENT)) ; (REFCOUNT (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL)) ; (HASH 1) (WEIGHT 1.0)) ; (DECLARE (TYPE T ID) (TYPE T OPTIONAL-TEST) ; (TYPE PACKAGE HOME) (TYPE T NO-HOME-COMMENT) ; (TYPE SIMPLE-STRING COMMENT) ; (TYPE (AND UNSIGNED-BYTE FIXNUM) REFCOUNT) ; (TYPE (INTEGER 1 1610612733) HASH) ; (TYPE SINGLE-FLOAT WEIGHT)) ; (BLOCK CREATE-VANILLA-STRUCT ; (LET ((#:INSTANCE3509 #)) ; ((LAMBDA # #) ID #:INSTANCE3509) ; ((LAMBDA # #) HOME #:INSTANCE3509) ; ((LAMBDA # #) COMMENT #:INSTANCE3509) ; ((LAMBDA # #) WEIGHT #:INSTANCE3509) ; ((LAMBDA # #) HASH #:INSTANCE3509) ; ((LAMBDA # #) REFCOUNT #:INSTANCE3509) ; #:INSTANCE3509))) ; ==> ; #'(SB-INT:NAMED-LAMBDA CREATE-VANILLA-STRUCT ; (ID &OPTIONAL (OPTIONAL-TEST 2 OPTIONAL-TEST-P) &KEY ; (HOME NIL HOME-P) ; (NO-HOME-COMMENT "Home package CL not provided.") ; (COMMENT (IF HOME-P "" NO-HOME-COMMENT)) ; (REFCOUNT (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL)) ; (HASH 1) (WEIGHT 1.0)) ; (DECLARE (TYPE T ID) (TYPE T OPTIONAL-TEST) ; (TYPE PACKAGE HOME) (TYPE T NO-HOME-COMMENT) ; (TYPE SIMPLE-STRING COMMENT) ; (TYPE (AND UNSIGNED-BYTE FIXNUM) REFCOUNT) ; (TYPE (INTEGER 1 1610612733) HASH) ; (TYPE SINGLE-FLOAT WEIGHT)) ; (BLOCK CREATE-VANILLA-STRUCT ; (LET ((#:INSTANCE3509 #)) ; ((LAMBDA # #) ID #:INSTANCE3509) ; ((LAMBDA # #) HOME #:INSTANCE3509) ; ((LAMBDA # #) COMMENT #:INSTANCE3509) ; ((LAMBDA # #) WEIGHT #:INSTANCE3509) ; ((LAMBDA # #) HASH #:INSTANCE3509) ; ((LAMBDA # #) REFCOUNT #:INSTANCE3509) ; #:INSTANCE3509))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL ; (OPTIONAL-TEST 2 ; OPTIONAL-TEST-P) ; &KEY (HOME NIL HOME-P) ; (NO-HOME-COMMENT ; "Home package CL not provided.") ; (COMMENT ; (IF HOME-P "" ; NO-HOME-COMMENT)) ; (REFCOUNT ; (IF OPTIONAL-TEST-P ; OPTIONAL-TEST NIL)) ; (HASH 1) (WEIGHT 1.0)) ; (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL) ; ==> ; NIL ; ; caught WARNING: ; The binding of REFCOUNT is not a (UNSIGNED-BYTE 29): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition /done with DEFSTRUCT /checking constructed structure /checking no read-only writers /doing INLINEP=T /doing INLINEP=NIL /done with INLINEP loop /doing tests on PRED-NAME=VANILLA-STRUCT-P /doing COMPILED-PRED tests /doing TYPEP tests, COLONTYPE=NIL /done with PROGN for COLONTYPE=NIL /beginning PROGN for COLONTYPE=VECTOR STYLE-WARNING: &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL (OPTIONAL-TEST 2 OPTIONAL-TEST-P) &KEY (HOME NIL HOME-P) (NO-HOME-COMMENT "Home package CL not provided.") (COMMENT (IF HOME-P "" NO-HOME-COMMENT)) (REFCOUNT (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL)) HASH WEIGHT) STYLE-WARNING: redefining VECTOR-STRUCT-ID in DEFUN STYLE-WARNING: redefining (SETF VECTOR-STRUCT-ID) in DEFUN STYLE-WARNING: redefining VECTOR-STRUCT-HOME in DEFUN STYLE-WARNING: redefining VECTOR-STRUCT-COMMENT in DEFUN STYLE-WARNING: redefining (SETF VECTOR-STRUCT-COMMENT) in DEFUN STYLE-WARNING: redefining VECTOR-STRUCT-WEIGHT in DEFUN STYLE-WARNING: redefining (SETF VECTOR-STRUCT-WEIGHT) in DEFUN STYLE-WARNING: redefining VECTOR-STRUCT-HASH in DEFUN STYLE-WARNING: redefining VECTOR-STRUCT-REFCOUNT in DEFUN STYLE-WARNING: redefining (SETF VECTOR-STRUCT-REFCOUNT) in DEFUN ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA CREATE-VECTOR-STRUCT ; (ID &OPTIONAL (OPTIONAL-TEST 2 OPTIONAL-TEST-P) &KEY ; (HOME NIL HOME-P) ; (NO-HOME-COMMENT "Home package CL not provided.") ; (COMMENT (IF HOME-P "" NO-HOME-COMMENT)) ; (REFCOUNT (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL)) ; (HASH 1) (WEIGHT 1.0)) ; (DECLARE (TYPE (AND T T) ID) ; (TYPE (AND T T) OPTIONAL-TEST) ; (TYPE (AND PACKAGE T) HOME) ; (TYPE (AND T T) NO-HOME-COMMENT) ; (TYPE (AND SIMPLE-STRING T) COMMENT) ; (TYPE (AND (AND UNSIGNED-BYTE FIXNUM) T) REFCOUNT) ; (TYPE (AND (INTEGER 1 1610612733) T) HASH) ; (TYPE (AND SINGLE-FLOAT T) WEIGHT)) ; (BLOCK CREATE-VECTOR-STRUCT ; (LET ((#:G3530 #)) ; (SETF (AREF #:G3530 0) ID) ; (SETF (AREF #:G3530 1) HOME) ; (SETF (AREF #:G3530 2) COMMENT) ; (SETF (AREF #:G3530 3) WEIGHT) ; (SETF (AREF #:G3530 4) HASH) ; (SETF (AREF #:G3530 5) REFCOUNT) ; #:G3530))) ; ==> ; #'(SB-INT:NAMED-LAMBDA CREATE-VECTOR-STRUCT ; (ID &OPTIONAL (OPTIONAL-TEST 2 OPTIONAL-TEST-P) &KEY ; (HOME NIL HOME-P) ; (NO-HOME-COMMENT "Home package CL not provided.") ; (COMMENT (IF HOME-P "" NO-HOME-COMMENT)) ; (REFCOUNT (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL)) ; (HASH 1) (WEIGHT 1.0)) ; (DECLARE (TYPE (AND T T) ID) ; (TYPE (AND T T) OPTIONAL-TEST) ; (TYPE (AND PACKAGE T) HOME) ; (TYPE (AND T T) NO-HOME-COMMENT) ; (TYPE (AND SIMPLE-STRING T) COMMENT) ; (TYPE (AND (AND UNSIGNED-BYTE FIXNUM) T) REFCOUNT) ; (TYPE (AND (INTEGER 1 1610612733) T) HASH) ; (TYPE (AND SINGLE-FLOAT T) WEIGHT)) ; (BLOCK CREATE-VECTOR-STRUCT ; (LET ((#:G3530 #)) ; (SETF (AREF #:G3530 0) ID) ; (SETF (AREF #:G3530 1) HOME) ; (SETF (AREF #:G3530 2) COMMENT) ; (SETF (AREF #:G3530 3) WEIGHT) ; (SETF (AREF #:G3530 4) HASH) ; (SETF (AREF #:G3530 5) REFCOUNT) ; #:G3530))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL ; (OPTIONAL-TEST 2 ; OPTIONAL-TEST-P) ; &KEY (HOME NIL HOME-P) ; (NO-HOME-COMMENT ; "Home package CL not provided.") ; (COMMENT ; (IF HOME-P "" ; NO-HOME-COMMENT)) ; (REFCOUNT ; (IF OPTIONAL-TEST-P ; OPTIONAL-TEST NIL)) ; (HASH 1) (WEIGHT 1.0)) ; (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL) ; ==> ; NIL ; ; caught WARNING: ; The binding of REFCOUNT is not a (UNSIGNED-BYTE 29): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition /done with DEFSTRUCT /checking constructed structure /checking no read-only writers /doing INLINEP=T /doing INLINEP=NIL /done with INLINEP loop /done with PROGN for COLONTYPE=VECTOR /beginning PROGN for COLONTYPE=LIST STYLE-WARNING: &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL (OPTIONAL-TEST 2 OPTIONAL-TEST-P) &KEY (HOME NIL HOME-P) (NO-HOME-COMMENT "Home package CL not provided.") (COMMENT (IF HOME-P "" NO-HOME-COMMENT)) (REFCOUNT (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL)) HASH WEIGHT) STYLE-WARNING: redefining LIST-STRUCT-ID in DEFUN STYLE-WARNING: redefining (SETF LIST-STRUCT-ID) in DEFUN STYLE-WARNING: redefining LIST-STRUCT-HOME in DEFUN STYLE-WARNING: redefining LIST-STRUCT-COMMENT in DEFUN STYLE-WARNING: redefining (SETF LIST-STRUCT-COMMENT) in DEFUN STYLE-WARNING: redefining LIST-STRUCT-WEIGHT in DEFUN STYLE-WARNING: redefining (SETF LIST-STRUCT-WEIGHT) in DEFUN STYLE-WARNING: redefining LIST-STRUCT-HASH in DEFUN STYLE-WARNING: redefining LIST-STRUCT-REFCOUNT in DEFUN STYLE-WARNING: redefining (SETF LIST-STRUCT-REFCOUNT) in DEFUN ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA CREATE-LIST-STRUCT ; (ID &OPTIONAL (OPTIONAL-TEST 2 OPTIONAL-TEST-P) &KEY ; (HOME NIL HOME-P) ; (NO-HOME-COMMENT "Home package CL not provided.") ; (COMMENT (IF HOME-P "" NO-HOME-COMMENT)) ; (REFCOUNT (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL)) ; (HASH 1) (WEIGHT 1.0)) ; (DECLARE (TYPE T ID) (TYPE T OPTIONAL-TEST) ; (TYPE PACKAGE HOME) (TYPE T NO-HOME-COMMENT) ; (TYPE SIMPLE-STRING COMMENT) ; (TYPE (AND UNSIGNED-BYTE FIXNUM) REFCOUNT) ; (TYPE (INTEGER 1 1610612733) HASH) ; (TYPE SINGLE-FLOAT WEIGHT)) ; (BLOCK CREATE-LIST-STRUCT ; (LIST ID HOME COMMENT WEIGHT HASH REFCOUNT))) ; ==> ; #'(SB-INT:NAMED-LAMBDA CREATE-LIST-STRUCT ; (ID &OPTIONAL (OPTIONAL-TEST 2 OPTIONAL-TEST-P) &KEY ; (HOME NIL HOME-P) ; (NO-HOME-COMMENT "Home package CL not provided.") ; (COMMENT (IF HOME-P "" NO-HOME-COMMENT)) ; (REFCOUNT (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL)) ; (HASH 1) (WEIGHT 1.0)) ; (DECLARE (TYPE T ID) (TYPE T OPTIONAL-TEST) ; (TYPE PACKAGE HOME) (TYPE T NO-HOME-COMMENT) ; (TYPE SIMPLE-STRING COMMENT) ; (TYPE (AND UNSIGNED-BYTE FIXNUM) REFCOUNT) ; (TYPE (INTEGER 1 1610612733) HASH) ; (TYPE SINGLE-FLOAT WEIGHT)) ; (BLOCK CREATE-LIST-STRUCT ; (LIST ID HOME COMMENT WEIGHT HASH REFCOUNT))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (ID &OPTIONAL ; (OPTIONAL-TEST 2 ; OPTIONAL-TEST-P) ; &KEY (HOME NIL HOME-P) ; (NO-HOME-COMMENT ; "Home package CL not provided.") ; (COMMENT ; (IF HOME-P "" ; NO-HOME-COMMENT)) ; (REFCOUNT ; (IF OPTIONAL-TEST-P ; OPTIONAL-TEST NIL)) ; (HASH 1) (WEIGHT 1.0)) ; (IF OPTIONAL-TEST-P OPTIONAL-TEST NIL) ; ==> ; NIL ; ; caught WARNING: ; The binding of REFCOUNT is not a (UNSIGNED-BYTE 29): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition /done with DEFSTRUCT /checking constructed structure /checking no read-only writers /doing INLINEP=T /doing INLINEP=NIL /done with INLINEP loop /done with PROGN for COLONTYPE=LIST Dynamic space usage is: 32,557,552 bytes. Read-only space usage is: 1,872 bytes. Static space usage is: 1,128 bytes. Control stack usage is: 1,792 bytes. Binding stack usage is: 224 bytes. Garbage collection is currently enabled. Unhandled BUG: failed AVER: "(OR (EQL (ROOM-INFO-LENGTH INFO) (1+ (GET-HEADER-DATA OBJ))) (FLOATP OBJ) (SIMPLE-ARRAY-NIL-P OBJ))" This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at . >>>((UNHANDLED-ERROR /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/defstruct.impure.lisp))<<< // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/deftype.impure.lisp ; in: LAMBDA NIL ; (GO #:G3290) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP 1 'OPT) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3292) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP 1 'OPT-SINGLETON) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3294) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP 1 'KEY) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3296) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP 1 'KEY-SINGLETON) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dynamic-extent.impure.lisp ; in: LAMBDA (A B) ; (LET* ((V5 (CONS B B))) ; (DECLARE (DYNAMIC-EXTENT V5)) ; A) ; ; caught STYLE-WARNING: ; The variable V5 is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/enc-jpn.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/eval.impure.lisp ; in: LAMBDA NIL ; (GO #:G3288) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (LOCALLY-MACRO 3) 4) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3308) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (MACROLET-MACRO 3) 4) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3320) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (FOO 1) 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3338) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= (SYMBOL-MACROLET-MACRO 3) 4) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3346) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(= FOO 2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LET ((X 42)) ; T) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/exhaust.impure.lisp Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution Control stack guard page temporarily disabled: proceed with caution // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/external-format.impure.lisp ; in: LAMBDA NIL ; (READ-LINE S NIL S) ; ==> ; S ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; '(:CHARACTER-DECODE-LARGE :FORCE-END-OF-FILE) ; ; note: deleting unreachable code ; (TEST-UTIL::EXPECTED-FAILURE-P :SBCL) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/external-format-test.lisp" (written 29 DEC 2006 10:33:20 PM): ; ; caught STYLE-WARNING: ; Character decoding error in a ;-comment at position 8 reading source file #, resyncing. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/external-format-test.fasl written ; compilation finished in 0:00:00 ; in: LAMBDA NIL ; (LET* ((KOI8-R-CODES (COERCE '(240 210 201 215 197 212 33) '(VECTOR #))) ; (UNI-CODES #(1055 1088 1080 1074 1077 1090 33)) ; (STRING (OCTETS-TO-STRING KOI8-R-CODES :EXTERNAL-FORMAT :KOI8-R)) ; (UNI-DECODED (MAP 'VECTOR #'CHAR-CODE STRING))) ; (ASSERT ; (EQUALP ; (MAP 'VECTOR #'CHAR-CODE ; (OCTETS-TO-STRING KOI8-R-CODES :EXTERNAL-FORMAT :KOI8-R)) ; UNI-CODES)) ; (ASSERT ; (EQUALP ; (STRING-TO-OCTETS (MAP 'STRING #'CODE-CHAR UNI-CODES) :EXTERNAL-FORMAT ; :KOI8-R) ; KOI8-R-CODES))) ; ; caught STYLE-WARNING: ; The variable UNI-DECODED is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition read character with code 228 successfully from file position 1 set file position back to 1, trying to read-char again STYLE-WARNING: redefining STRDUP in DEFUN STYLE-WARNING: redefining STRDUP in DEFUN STYLE-WARNING: redefining STRDUP in DEFUN STYLE-WARNING: redefining STRDUP in DEFUN STYLE-WARNING: redefining STRDUP in DEFUN STYLE-WARNING: redefining STRDUP in DEFUN // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/float.impure.lisp ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA COMPLEX-DOUBLE-FLOAT-PPC (X Y) ; (DECLARE (TYPE (COMPLEX DOUBLE-FLOAT) X Y)) ; (DECLARE (OPTIMIZE SPEED)) ; (BLOCK COMPLEX-DOUBLE-FLOAT-PPC (+ X Y))) ; ==> ; #'(SB-INT:NAMED-LAMBDA COMPLEX-DOUBLE-FLOAT-PPC (X Y) ; (DECLARE (TYPE (COMPLEX DOUBLE-FLOAT) X Y)) ; (DECLARE (OPTIMIZE SPEED)) ; (BLOCK COMPLEX-DOUBLE-FLOAT-PPC (+ X Y))) ; ; note: doing complex double float to pointer coercion (cost 13) to "" ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA SINGLE-FLOAT-PPC (X) ; (DECLARE (TYPE (SIGNED-BYTE 32) X) (OPTIMIZE SPEED)) ; (BLOCK SINGLE-FLOAT-PPC (FLOAT X 1.0))) ; ==> ; #'(SB-INT:NAMED-LAMBDA SINGLE-FLOAT-PPC (X) ; (DECLARE (TYPE (SIGNED-BYTE 32) X) (OPTIMIZE SPEED)) ; (BLOCK SINGLE-FLOAT-PPC (FLOAT X 1.0))) ; ; note: doing float to pointer coercion (cost 13) to "" ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (LABELS ((AUX (X) ; (DECLARE (DOUBLE-FLOAT X)) ; (ETYPECASE Y (DOUBLE-FLOAT NIL) (FIXNUM #) (COMPLEX #)) ; (VALUES X))) ; (AUX 2.0d0)) ; ; note: doing float to pointer coercion (cost 13) from X to "" ; ; compilation unit finished ; printed 1 note // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/foreign-stack-alignment.impure.lisp ; in: LAMBDA NIL ; (ALIEN-LAMBDA INT NIL (STACK-ALIGNMENT-OFFSET *REQUIRED-ALIGNMENT*)) ; --> SB-ALIEN-INTERNALS:ALIEN-CALLBACK ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ; (SB-ALIEN::%ALIEN-CALLBACK-SAP '#'INT ; '# ; 'NIL ; (LAMBDA () ; (STACK-ALIGNMENT-OFFSET ; *REQUIRED-ALIGNMENT*)) ; (OR ; (GETHASH '#'INT ; SB-ALIEN::*ALIEN-CALLBACK-WRAPPERS*) ; (SETF (GETHASH '#'INT ; SB-ALIEN::*ALIEN-CALLBACK-WRAPPERS*) ; (COMPILE NIL '#)))) ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; compilation unit finished ; printed 1 note // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/full-eval.impure.lisp ; in: LAMBDA (FUN FORM ENV) ; (SETF (GETHASH FORM #) T) ; --> LET* MULTIPLE-VALUE-BIND LET ; ==> ; (SB-KERNEL:%PUTHASH #:G0 #:G1 #:G3) ; ; caught WARNING: ; Destructive function SB-KERNEL:%PUTHASH called on constant data. ; See also: ; The ANSI Standard, Special Operator QUOTE ; The ANSI Standard, Section 3.2.2.3 ; ; compilation unit finished ; caught 1 WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/gc.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/gray-streams.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/hash.impure.lisp test: EQ weakness: KEY 0. count: 117 1. count: 0 weakness: VALUE 0. count: 117 1. count: 0 weakness: KEY-AND-VALUE 0. count: 117 1. count: 0 weakness: KEY-OR-VALUE 0. count: 117 1. count: 0 test: EQL weakness: KEY 0. count: 117 1. count: 0 weakness: VALUE 0. count: 117 1. count: 0 weakness: KEY-AND-VALUE 0. count: 117 1. count: 0 weakness: KEY-OR-VALUE 0. count: 117 1. count: 0 test: EQUAL weakness: KEY 0. count: 117 1. count: 0 weakness: VALUE 0. count: 117 1. count: 0 weakness: KEY-AND-VALUE 0. count: 117 1. count: 0 weakness: KEY-OR-VALUE 0. count: 117 1. count: 0 test: EQUALP weakness: KEY 0. count: 117 1. count: 0 weakness: VALUE 0. count: 117 1. count: 0 weakness: KEY-AND-VALUE 0. count: 117 1. count: 0 weakness: KEY-OR-VALUE 0. count: 117 1. count: 0 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/info.impure.lisp STYLE-WARNING: redefining FOO in DEFUN // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/interface.impure.lisp ; 5176B958: 7DF07B78 MR $CSP,$CFP ; no-arg-parsing entry point ; 5C: 7ECFB378 MR $CFP,$OCFP ; 60: 3BF70005 ADDI $LIP,$LRA,5 ; 64: 7FE803A6 MTLR $LIP ; 68: 7EF3BB78 MR $CODE,$LRA ; 6C: 4E800020 BLR ; ; 51794320: .ENTRY DISASSEMBLE-CLOSURE(Y) ; (FUNCTION # #) ; 3C: 3A7FFE93 ADDI $CODE,$LIP,-365 ; 40: 3A0F0020 ADDI $CSP,$CFP,32 ; 44: 83350003 LWZ $A1,3($LEXENV) ; 48: 7F0AC378 MR $FDEFN,$A0 ; 4C: 0F0B0004 TWI NE,$NARGS,4 ; 50: 7F38CB78 MR $A0,$A1 ; 54: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; 58: 40820020 BF EQ,L1 ; 5C: 8318FFFD LWZ $A0,-3($A0) ; 60: L0: 7DF07B78 MR $CSP,$CFP ; 64: 7ECFB378 MR $CFP,$OCFP ; 68: 3BF70005 ADDI $LIP,$LRA,5 ; 6C: 7FE803A6 MTLR $LIP ; 70: 7EF3BB78 MR $CODE,$LRA ; 74: 4E800020 BLR ; 78: L1: 9158FFFD STW $FDEFN,-3($A0) ; 7C: 7D585378 MR $A0,$FDEFN ; 80: 4BFFFFE0 B L0 ; 84: 00000000 BYTE #X00, #X00, #X00, #X00 ; ; 517DF8B0: .ENTRY DISASSEMBLE-EVAL(X) ; (FUNCTION # *) ; CC: 3A7FFFD3 ADDI $CODE,$LIP,-45 ; D0: 3A0F0020 ADDI $CSP,$CFP,32 ; D4: 0F0B0004 TWI NE,$NARGS,4 ; D8: 7DF07B78 MR $CSP,$CFP ; DC: 7ECFB378 MR $CFP,$OCFP ; E0: 3BF70005 ADDI $LIP,$LRA,5 ; E4: 7FE803A6 MTLR $LIP ; E8: 7EF3BB78 MR $CODE,$LRA ; EC: 4E800020 BLR ; ; 4F1E6BB8: .ENTRY (LAMBDA (&REST SB-PCL::ARGS))(&REST ARGS) ; (FUNCTION ; # *) ; BD4: 3A7FF86B ADDI $CODE,$LIP,-1941 ; BD8: 3A0F0020 ADDI $CSP,$CFP,32 ; BDC: 7E038378 MR $NL0,$CSP ; BE0: 2C0B0000 CMPWI CR0,$NARGS,0 ; BE4: 7E105A14 ADD $CSP,$CSP,$NARGS ; BE8: 41820058 BT EQ,L6 ; BEC: 348BFFF0 ADDIC. $NL1,$NARGS,-16 ; BF0: 4081001C BF GT,L1 ; BF4: 7E068378 MR $NL3,$CSP ; BF8: 7CAF5A14 ADD $NL2,$CFP,$NARGS ; BFC: L0: 8785FFFC LWZU $L0,-4($NL2) ; C00: 3484FFFC ADDIC. $NL1,$NL1,-4 ; C04: 9786FFFC STWU $L0,-4($NL3) ; C08: 4181FFF4 BT GT,L0 ; C0C: L1: 348B0000 ADDIC. $NL1,$NARGS,0 ; C10: 41820030 BT EQ,L6 ; C14: 3484FFFC ADDIC. $NL1,$NL1,-4 ; C18: 93030000 STW $A0,0($NL0) ; C1C: 41820024 BT EQ,L6 ; C20: 3484FFFC ADDIC. $NL1,$NL1,-4 ; C24: 93230004 STW $A1,4($NL0) ; C28: 41820018 BT EQ,L6 ; C2C: 3484FFFC ADDIC. $NL1,$NL1,-4 ; C30: 93430008 STW $A2,8($NL0) ; C34: 4182000C BT EQ,L6 ; C38: 3484FFFC ADDIC. $NL1,$NL1,-4 ; C3C: 9363000C STW $A3,12($NL0) ; C40: L2: L3: L4: L5: L6:83150003 LWZ $A0,3($LEXENV) ; C44: 388B0000 ADDI $NL1,$NARGS,0 ; C48: 7D448050 SUBF $FDEFN,$NL1,$CSP ; C4C: 7D435378 MR $NL0,$FDEFN ; C50: 2C040000 CMPWI CR0,$NL1,0 ; C54: 7E599378 MR $A1,$NULL ; C58: 41820080 BT EQ,L11 ; C5C: 62310004 ORI $ALLOC,$ALLOC,4 ; C60: 548A083C RLWINM $FDEFN,$NL1,1,0,30 ; C64: 7D455378 MR $NL2,$FDEFN ; C68: 3CC01003 ADDIS $NL3,$ZERO,4099 ; C6C: 38C663E8 ADDI $NL3,$NL3,25576 ; C70: 83260000 LWZ $A1,0($NL3) ; C74: 80C60004 LWZ $NL3,4($NL3) ; C78: 7F392A14 ADD $A1,$A1,$NL2 ; C7C: 7C193000 CMPW CR0,$A1,$NL3 ; C80: 4081000C BF GT,L7 ; C84: 7CB93008 TW LGE,$A1,$NL3 ; C88: 48000010 B L8 ; C8C: L7: 3CC01003 ADDIS $NL3,$ZERO,4099 ; C90: 38C663E8 ADDI $NL3,$NL3,25576 ; C94: 93260000 STW $A1,0($NL3) ; C98: L8: 7F25C850 SUBF $A1,$NL2,$A1 ; C9C: 63390003 ORI $A1,$A1,3 ; CA0: 7F25CB78 MR $NL2,$A1 ; CA4: 4800000C B L10 ; CA8: L9: 38A50008 ADDI $NL2,$NL2,8 ; CAC: 90A5FFF9 STW $NL2,-7($NL2) ; CB0: L10: 81430000 LWZ $FDEFN,0($NL0) ; CB4: 38630004 ADDI $NL0,$NL0,4 ; CB8: 3484FFFC ADDIC. $NL1,$NL1,-4 ; CBC: 9145FFFD STW $FDEFN,-3($NL2) ; CC0: 4181FFE8 BT GT,L9 ; CC4: 92450001 STW $NULL,1($NL2) ; CC8: 38C0FFFB ADDI $NL3,$ZERO,-5 ; CCC: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; CD0: 72260001 ANDI. $NL3,$ALLOC,1 ; CD4: 0F060000 TWI NE,$NL3,0 ; CD8: L11: 7F3BCB78 MR $A3,$A1 ; CDC: 7EC3B378 MR $NL0,$OCFP ; CE0: 7EF4BB78 MR $CNAME,$LRA ; CE4: 7F79DB78 MR $A1,$A3 ; CE8: 81530071 LWZ $FDEFN,113($CODE) ; # ; CEC: 39600008 ADDI $NARGS,$ZERO,8 ; CF0: 83EA0005 LWZ $LIP,5($FDEFN) ; CF4: 7C761B78 MR $OCFP,$NL0 ; CF8: 7E97A378 MR $LRA,$CNAME ; CFC: 7FE903A6 MTCTR $LIP ; D00: 4E800420 BCTR ; D04: 00000000 BYTE #X00, #X00, #X00, #X00 ; D08: 0CC0000A UNIMP 10 ; Error trap ; D0C: 04 BYTE #X04 ; D0D: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; D0E: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; D11: .ALIGN 4 ; D14: 0CC0000A UNIMP 10 ; Error trap ; D18: 04 BYTE #X04 ; D19: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; D1A: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; D1D: .ALIGN 4 ; D20: 0CC0000A UNIMP 10 ; Error trap ; D24: 04 BYTE #X04 ; D25: 48 BYTE #X48 ; OBJECT-NOT-SIMPLE-VECTOR-ERROR ; D26: FE2603 BYTE #XFE, #X26, #X03 ; A1 ; D29: .ALIGN 4 ; D2C: 0CC0000A UNIMP 10 ; Error trap ; D30: 04 BYTE #X04 ; D31: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; D32: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; D35: .ALIGN 4 ; D38: 0CC0000A UNIMP 10 ; Error trap ; D3C: 0A BYTE #X0A ; D3D: 22 BYTE #X22 ; INVALID-ARRAY-INDEX-ERROR ; D3E: FE2603 BYTE #XFE, #X26, #X03 ; A1 ; D41: FE4501 BYTE #XFE, #X45, #X01 ; FDEFN ; D44: FE0503 BYTE #XFE, #X05, #X03 ; A0 ; D47: .ALIGN 4 ; D48: 0CC0000A UNIMP 10 ; Error trap ; D4C: 04 BYTE #X04 ; D4D: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; D4E: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; D51: .ALIGN 4 ; D54: 0CC0000A UNIMP 10 ; Error trap ; D58: 04 BYTE #X04 ; D59: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; D5A: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; D5D: .ALIGN 4 ; D60: 0CC0000A UNIMP 10 ; Error trap ; D64: 04 BYTE #X04 ; D65: 1A BYTE #X1A ; UNBOUND-SYMBOL-ERROR ; D66: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; D69: .ALIGN 4 ; in: LAMBDA NIL ; (LET* ((SB-PCL::.INSTANCE. ; (SB-PCL::ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE ; #)) ; (SB-PCL::.SLOTS. (SB-PCL::FSC-INSTANCE-SLOTS SB-PCL::.INSTANCE.))) ; (LET () ; (DECLARE (IGNORABLE)) ; (LET () ; )) ; SB-PCL::.INSTANCE.) ; ; caught STYLE-WARNING: ; The variable SB-PCL::.SLOTS. is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; 4FFD2128: .ENTRY (LAMBDA (&REST SB-PCL::ARGS))(&REST ARGS) ; (FUNCTION ; # NIL) ; 144: 3A7FFF4B ADDI $CODE,$LIP,-181 ; 148: 3A0F0020 ADDI $CSP,$CFP,32 ; 14C: 7E038378 MR $NL0,$CSP ; 150: 2C0B0000 CMPWI CR0,$NARGS,0 ; 154: 7E105A14 ADD $CSP,$CSP,$NARGS ; 158: 41820058 BT EQ,L6 ; 15C: 348BFFF0 ADDIC. $NL1,$NARGS,-16 ; 160: 4081001C BF GT,L1 ; 164: 7E068378 MR $NL3,$CSP ; 168: 7CAF5A14 ADD $NL2,$CFP,$NARGS ; 16C: L0: 8785FFFC LWZU $L0,-4($NL2) ; 170: 3484FFFC ADDIC. $NL1,$NL1,-4 ; 174: 9786FFFC STWU $L0,-4($NL3) ; 178: 4181FFF4 BT GT,L0 ; 17C: L1: 348B0000 ADDIC. $NL1,$NARGS,0 ; 180: 41820030 BT EQ,L6 ; 184: 3484FFFC ADDIC. $NL1,$NL1,-4 ; 188: 93030000 STW $A0,0($NL0) ; 18C: 41820024 BT EQ,L6 ; 190: 3484FFFC ADDIC. $NL1,$NL1,-4 ; 194: 93230004 STW $A1,4($NL0) ; 198: 41820018 BT EQ,L6 ; 19C: 3484FFFC ADDIC. $NL1,$NL1,-4 ; 1A0: 93430008 STW $A2,8($NL0) ; 1A4: 4182000C BT EQ,L6 ; 1A8: 3484FFFC ADDIC. $NL1,$NL1,-4 ; 1AC: 9363000C STW $A3,12($NL0) ; 1B0: L2: L3: L4: L5: L6:83150003 LWZ $A0,3($LEXENV) ; 1B4: 92CF0000 STW $OCFP,0($CFP) ; 1B8: 92EF0004 STW $LRA,4($CFP) ; 1BC: 7DE57B78 MR $NL2,$CFP ; 1C0: 7E048378 MR $NL1,$CSP ; 1C4: 3A100020 ADDI $CSP,$CSP,32 ; 1C8: 7C8F2378 MR $CFP,$NL1 ; 1CC: 39530150 ADDI $FDEFN,$CODE,336 ; 1D0: 480003E0 B L25 ; 1D4: 00000000 BYTE #X00, #X00, #X00, #X00 ; 1D8: 00005436 BYTE #X00, #X00, #X54, #X36 ; possible LRA header ; 1DC: 7ED0B378 MR $CSP,$OCFP ; 1E0: 60000000 NOP ; 1E4: 3A73FEB0 ADDI $CODE,$CODE,-336 ; 1E8: .ENTRY SB-PCL::ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE(WRAPPER &OPTIONAL (SLOTS-INIT NIL SLOTS-INIT-P)) ; (FUNCTION ; # ..) ; 204: 3A7FFE8B ADDI $CODE,$LIP,-373 ; 208: 3A0F0020 ADDI $CSP,$CFP,32 ; 20C: 7F3ACB78 MR $A2,$A1 ; 210: 2C0B0004 CMPWI CR0,$NARGS,4 ; 214: 40820008 BF EQ,L7 ; 218: 480003A0 B L26 ; 21C: L7: 2C0B0008 CMPWI CR0,$NARGS,8 ; 220: 4082000C BF EQ,L8 ; 224: 7EEABB78 MR $FDEFN,$LRA ; 228: 48000010 B L9 ; 22C: L8: 0CC0000A UNIMP 10 ; Error trap ; 230: 04 BYTE #X04 ; 231: 18 BYTE #X18 ; INVALID-ARG-COUNT-ERROR ; 232: FE6501 BYTE #XFE, #X65, #X01 ; NARGS ; 235: .ALIGN 4 ; 238: L9: 930F0010 STW $A0,16($CFP) ; 23C: 934F0014 STW $A2,20($CFP) ; 240: 3B12001C ADDI $A0,$NULL,28 ; T ; 244: 930F0018 STW $A0,24($CFP) ; 248: 92CF0000 STW $OCFP,0($CFP) ; 24C: L10: 914F0004 STW $FDEFN,4($CFP) ; 250: 81530011 LWZ $FDEFN,17($CODE) ; # ; 254: 39600000 ADDI $NARGS,$ZERO,0 ; 258: 83EA0005 LWZ $LIP,5($FDEFN) ; 25C: 3AF301E8 ADDI $LRA,$CODE,488 ; 260: 7DF67B78 MR $OCFP,$CFP ; 264: 7E0F8378 MR $CFP,$CSP ; 268: 7FE903A6 MTCTR $LIP ; 26C: 4E800420 BCTR ; 270: 00007A36 BYTE #X00, #X00, #X7A, #X36 ; possible LRA header ; 274: 7ED0B378 MR $CSP,$OCFP ; 278: 60000000 NOP ; 27C: 3A73FE18 ADDI $CODE,$CODE,-488 ; 280: 7F1AC378 MR $A2,$A0 ; 284: 7E589378 MR $A0,$NULL ; 288: 7E599378 MR $A1,$NULL ; 28C: 81530015 LWZ $FDEFN,21($CODE) ; # ; 290: 3960000C ADDI $NARGS,$ZERO,12 ; 294: 83EA0005 LWZ $LIP,5($FDEFN) ; 298: 3AF30228 ADDI $LRA,$CODE,552 ; 29C: 7DF67B78 MR $OCFP,$CFP ; 2A0: 7E0F8378 MR $CFP,$CSP ; 2A4: 7FE903A6 MTCTR $LIP ; 2A8: 4E800420 BCTR ; 2AC: 00000000 BYTE #X00, #X00, #X00, #X00 ; 2B0: 00008A36 BYTE #X00, #X00, #X8A, #X36 ; possible LRA header ; 2B4: 7ED0B378 MR $CSP,$OCFP ; 2B8: 60000000 NOP ; 2BC: 3A73FDD8 ADDI $CODE,$CODE,-552 ; 2C0: 7F1BC378 MR $A3,$A0 ; 2C4: 936F001C STW $A3,28($CFP) ; 2C8: 7F6ADB78 MR $FDEFN,$A3 ; 2CC: 914F000C STW $FDEFN,12($CFP) ; 2D0: 83130019 LWZ $A0,25($CODE) ; # ; 2D4: 62310004 ORI $ALLOC,$ALLOC,4 ; 2D8: 38600010 ADDI $NL0,$ZERO,16 ; 2DC: 3CC01003 ADDIS $NL3,$ZERO,4099 ; 2E0: 38C663E8 ADDI $NL3,$NL3,25576 ; 2E4: 81460000 LWZ $FDEFN,0($NL3) ; 2E8: 80C60004 LWZ $NL3,4($NL3) ; 2EC: 7D4A1A14 ADD $FDEFN,$FDEFN,$NL0 ; 2F0: 7C0A3000 CMPW CR0,$FDEFN,$NL3 ; 2F4: 4081000C BF GT,L11 ; 2F8: 7CAA3008 TW LGE,$FDEFN,$NL3 ; 2FC: 48000010 B L12 ; 300: L11: 3CC01003 ADDIS $NL3,$ZERO,4099 ; 304: 38C663E8 ADDI $NL3,$NL3,25576 ; 308: 91460000 STW $FDEFN,0($NL3) ; 30C: L12: 7D435050 SUBF $FDEFN,$NL0,$FDEFN ; 310: 614A0005 ORI $FDEFN,$FDEFN,5 ; 314: 3860022E ADDI $NL0,$ZERO,558 ; 318: 906AFFFB STW $NL0,-5($FDEFN) ; 31C: 930AFFFF STW $A0,-1($FDEFN) ; 320: 38C0FFFB ADDI $NL3,$ZERO,-5 ; 324: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; 328: 72260001 ANDI. $NL3,$ALLOC,1 ; 32C: 0F060000 TWI NE,$NL3,0 ; 330: 936A0003 STW $A3,3($FDEFN) ; 334: 7F78DB78 MR $A0,$A3 ; 338: 7D595378 MR $A1,$FDEFN ; 33C: 8153001D LWZ $FDEFN,29($CODE) ; # ; 340: 39600008 ADDI $NARGS,$ZERO,8 ; 344: 83EA0005 LWZ $LIP,5($FDEFN) ; 348: 3AF302D8 ADDI $LRA,$CODE,728 ; 34C: 7DF67B78 MR $OCFP,$CFP ; 350: 7E0F8378 MR $CFP,$CSP ; 354: 7FE903A6 MTCTR $LIP ; 358: 4E800420 BCTR ; 35C: 00000000 BYTE #X00, #X00, #X00, #X00 ; 360: 0000B636 BYTE #X00, #X00, #XB6, #X36 ; possible LRA header ; 364: 7ED0B378 MR $CSP,$OCFP ; 368: 60000000 NOP ; 36C: 3A73FD28 ADDI $CODE,$CODE,-728 ; 370: 836F001C LWZ $A3,28($CFP) ; 374: 814F0010 LWZ $FDEFN,16($CFP) ; 378: 71430007 ANDI. $NL0,$FDEFN,7 ; 37C: 2C030001 CMPWI CR0,$NL0,1 ; 380: 40820170 BF EQ,L21 ; 384: 814F0010 LWZ $FDEFN,16($CFP) ; 388: 814A0003 LWZ $FDEFN,3($FDEFN) ; 38C: 83130021 LWZ $A0,33($CODE) ; # ; 390: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 394: 4082013C BF EQ,L19 ; 398: L13: 73630007 ANDI. $NL0,$A3,7 ; 39C: 0C1B0001 TWI F,$A3,1 ; 3A0: 0F030005 TWI NE,$NL0,5 ; 3A4: 814F0010 LWZ $FDEFN,16($CFP) ; 3A8: 915B0007 STW $FDEFN,7($A3) ; 3AC: 814F0010 LWZ $FDEFN,16($CFP) ; 3B0: 80AA0037 LWZ $NL2,55($FDEFN) ; 3B4: 814F0018 LWZ $FDEFN,24($CFP) ; 3B8: 7C0A9000 CMPW CR0,$FDEFN,$NULL ; 3BC: 41820074 BT EQ,L15 ; 3C0: 7CB82B78 MR $A0,$NL2 ; 3C4: 83330025 LWZ $A1,37($CODE) ; :INITIAL-CONTENTS ; 3C8: 834F0014 LWZ $A2,20($CFP) ; 3CC: 81530029 LWZ $FDEFN,41($CODE) ; # ; 3D0: 3960000C ADDI $NARGS,$ZERO,12 ; 3D4: 83EA0005 LWZ $LIP,5($FDEFN) ; 3D8: 3AF30368 ADDI $LRA,$CODE,872 ; 3DC: 7DF67B78 MR $OCFP,$CFP ; 3E0: 7E0F8378 MR $CFP,$CSP ; 3E4: 7FE903A6 MTCTR $LIP ; 3E8: 4E800420 BCTR ; 3EC: 00000000 BYTE #X00, #X00, #X00, #X00 ; 3F0: 0000DA36 BYTE #X00, #X00, #XDA, #X36 ; possible LRA header ; 3F4: 7ED0B378 MR $CSP,$OCFP ; 3F8: 60000000 NOP ; 3FC: 3A73FC98 ADDI $CODE,$CODE,-872 ; 400: 7F0AC378 MR $FDEFN,$A0 ; 404: L14: 830F000C LWZ $A0,12($CFP) ; 408: 9158000B STW $FDEFN,11($A0) ; 40C: 830F000C LWZ $A0,12($CFP) ; 410: 806F0000 LWZ $NL0,0($CFP) ; 414: 814F0004 LWZ $FDEFN,4($CFP) ; 418: 7DF07B78 MR $CSP,$CFP ; 41C: 7C6F1B78 MR $CFP,$NL0 ; 420: 3BEA0005 ADDI $LIP,$FDEFN,5 ; 424: 7FE803A6 MTLR $LIP ; 428: 7D535378 MR $CODE,$FDEFN ; 42C: 4E800020 BLR ; 430: L15: 3B0002C8 ADDI $A0,$ZERO,712 ; 434: 7CB92B78 MR $A1,$NL2 ; 438: 7CBA2B78 MR $A2,$NL2 ; 43C: 3C800400 ADDIS $NL1,$ZERO,1024 ; 440: 38840190 ADDI $NL1,$NL1,400 ; 444: 7C8803A6 MTLR $NL1 ; 448: 4E800021 BCLRL BO-U,LT ; 44C: 7F0AC378 MR $FDEFN,$A0 ; 450: 7D585378 MR $A0,$FDEFN ; 454: 832AFFFD LWZ $A1,-3($FDEFN) ; 458: 7F23CB78 MR $NL0,$A1 ; 45C: 7C651B78 MR $NL2,$NL0 ; 460: 832AFFFD LWZ $A1,-3($FDEFN) ; 464: 7C03C800 CMPW CR0,$NL0,$A1 ; 468: 4181002C BT GT,L18 ; 46C: 7C040378 MR $NL1,$ZERO ; 470: 48000014 B L17 ; 474: L16: 8153002D LWZ $FDEFN,45($CODE) ; 'SB-PCL::..SLOT-UNBOUND.. ; 478: 38640001 ADDI $NL0,$NL1,1 ; 47C: 7D58192E STWX $A0,$FDEFN,$NL0 ; 480: 38840004 ADDI $NL1,$NL1,4 ; 484: L17: 7C042800 CMPW CR0,$NL1,$NL2 ; 488: 4082FFEC BF EQ,L16 ; 48C: 7F0AC378 MR $FDEFN,$A0 ; 490: 4BFFFF74 B L14 ; 494: L18: 7D585378 MR $A0,$FDEFN ; 498: 7C190378 MR $A1,$ZERO ; 49C: 7C7A1B78 MR $A2,$NL0 ; 4A0: 81530031 LWZ $FDEFN,49($CODE) ; # ; 4A4: 3960000C ADDI $NARGS,$ZERO,12 ; 4A8: 83EA0005 LWZ $LIP,5($FDEFN) ; 4AC: 3AF30438 ADDI $LRA,$CODE,1080 ; 4B0: 7DF67B78 MR $OCFP,$CFP ; 4B4: 7E0F8378 MR $CFP,$CSP ; 4B8: 7FE903A6 MTCTR $LIP ; 4BC: 4E800420 BCTR ; 4C0: 00010E36 BYTE #X00, #X01, #X0E, #X36 ; possible LRA header ; 4C4: 7ED0B378 MR $CSP,$OCFP ; 4C8: 60000000 NOP ; 4CC: 3A73FBC8 ADDI $CODE,$CODE,-1080 ; 4D0: L19: 808A0033 LWZ $NL1,51($FDEFN) ; 4D4: 2C04000C CMPWI CR0,$NL1,12 ; 4D8: 40810018 BF GT,L21 ; 4DC: 814A002F LWZ $FDEFN,47($FDEFN) ; 4E0: 814A000D LWZ $FDEFN,13($FDEFN) ; 4E4: 83130021 LWZ $A0,33($CODE) ; # ; 4E8: 7C0AC000 CMPW CR0,$FDEFN,$A0 ; 4EC: 4182FEAC BT EQ,L13 ; 4F0: L20: L21:814F0010 LWZ $FDEFN,16($CFP) ; 4F4: 83130035 LWZ $A0,53($CODE) ; 'SB-KERNEL:LAYOUT ; 4F8: 0CC0000A UNIMP 10 ; Error trap ; 4FC: 07 BYTE #X07 ; 4FD: 1F BYTE #X1F ; OBJECT-NOT-TYPE-ERROR ; 4FE: FE4601 BYTE #XFE, #X46, #X01 ; FDEFN ; 501: FE0603 BYTE #XFE, #X06, #X03 ; A0 ; 504: L22: 914F0004 STW $FDEFN,4($CFP) ; 508: 62310004 ORI $ALLOC,$ALLOC,4 ; 50C: 38600008 ADDI $NL0,$ZERO,8 ; 510: 3CC01003 ADDIS $NL3,$ZERO,4099 ; 514: 38C663E8 ADDI $NL3,$NL3,25576 ; 518: 81460000 LWZ $FDEFN,0($NL3) ; 51C: 80C60004 LWZ $NL3,4($NL3) ; 520: 7D4A1A14 ADD $FDEFN,$FDEFN,$NL0 ; 524: 7C0A3000 CMPW CR0,$FDEFN,$NL3 ; 528: 4081000C BF GT,L23 ; 52C: 7CAA3008 TW LGE,$FDEFN,$NL3 ; 530: 48000010 B L24 ; 534: L23: 3CC01003 ADDIS $NL3,$ZERO,4099 ; 538: 38C663E8 ADDI $NL3,$NL3,25576 ; 53C: 91460000 STW $FDEFN,0($NL3) ; 540: L24: 7D435050 SUBF $FDEFN,$NL0,$FDEFN ; 544: 614A0003 ORI $FDEFN,$FDEFN,3 ; 548: 38C0FFFB ADDI $NL3,$ZERO,-5 ; 54C: 7E313038 AND $ALLOC,$ALLOC,$NL3 ; 550: 72260001 ANDI. $NL3,$ALLOC,1 ; 554: 0F060000 TWI NE,$NL3,0 ; 558: 930AFFFD STW $A0,-3($FDEFN) ; 55C: 7E589378 MR $A0,$NULL ; 560: 930A0001 STW $A0,1($FDEFN) ; 564: 7E048378 MR $NL1,$CSP ; 568: 3A100014 ADDI $CSP,$CSP,20 ; 56C: 83130039 LWZ $A0,57($CODE) ; 'SB-PCL::UNSET-FUNCALLABLE-INSTANCE-FUNCTION ; 570: 8333003D LWZ $A1,61($CODE) ; :FORMAT-CONTROL ; 574: 83530041 LWZ $A2,65($CODE) ; "~@" ; 578: 83730045 LWZ $A3,69($CODE) ; :FORMAT-ARGUMENTS ; 57C: 91440010 STW $FDEFN,16($NL1) ; 580: 81530049 LWZ $FDEFN,73($CODE) ; # ; 584: 39600014 ADDI $NARGS,$ZERO,20 ; 588: 83EA0005 LWZ $LIP,5($FDEFN) ; 58C: 3AF30518 ADDI $LRA,$CODE,1304 ; 590: 7DF67B78 MR $OCFP,$CFP ; 594: 7C8F2378 MR $CFP,$NL1 ; 598: 7FE903A6 MTCTR $LIP ; 59C: 4E800420 BCTR ; 5A0: 00014636 BYTE #X00, #X01, #X46, #X36 ; possible LRA header ; 5A4: 7ED0B378 MR $CSP,$OCFP ; 5A8: 60000000 NOP ; 5AC: 3A73FAE8 ADDI $CODE,$CODE,-1304 ; 5B0: L25: 90AF0000 STW $NL2,0($CFP) ; 5B4: 4BFFFF50 B L22 ; 5B8: L26: 7EEABB78 MR $FDEFN,$LRA ; 5BC: 930F0010 STW $A0,16($CFP) ; 5C0: 7E589378 MR $A0,$NULL ; 5C4: 930F0014 STW $A0,20($CFP) ; 5C8: 7E589378 MR $A0,$NULL ; 5CC: 930F0018 STW $A0,24($CFP) ; 5D0: 92CF0000 STW $OCFP,0($CFP) ; 5D4: 4BFFFC78 B L10 ; in: LAMBDA NIL ; #'FLE-EVAL ; ; caught STYLE-WARNING: ; undefined function: FLE-EVAL ; ; caught STYLE-WARNING: ; This function is undefined: ; FLE-EVAL ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; #S(TO-BE-DESCRIBED :A NIL :B NIL) is an instance of class #. The following slots have :INSTANCE allocation: A NIL B NIL 12 is a (INTEGER 0 536870911). "a string" is a vector with 8 elements. Its element type is specialized to CHARACTER. SYMBOLISM is an internal symbol in #. # is a PACKAGE. It has nicknames "CL" It has 0 internal and 978 external symbols. It is used by packages named "ASDF" "ASSERTOID" "COMMON-LISP-USER" "RUN-TESTS" "SB-ALIEN" "SB-ALIEN-INTERNALS" "SB-ASSEM" "SB-BIGNUM" "SB-C" "SB-DEBUG" "SB-DI" "SB-DISASSEM" "SB-EVAL" "SB-EXT" "SB-FASL" "SB-FORMAT" "SB-GRAY" "SB-GROVEL" "SB-GROVEL-SYSTEM" "SB-IMPL" "SB-INT" "SB-KERNEL" "SB-LOOP" "SB-MOP" "SB-PCL" "SB-POSIX" "SB-POSIX-SYSTEM" "SB-PRETTY" "SB-PROFILE" "SB-SYS" "SB-THREAD" "SB-UNIX" "SB-VM" "SB-WALKER" "TEST-UTIL" (A LIST) is a CONS. #(A VECTOR) is a vector with 2 elements. // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load.impure.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load-test.tmp" (written 29 DEC 2006 10:33:39 PM): ; compiling (SETQ *ARRAY* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load-test.fasl written ; compilation finished in 0:00:00 ; in: LAMBDA NIL ; (FOO 1) ; ; caught STYLE-WARNING: ; undefined function: FOO ; ; caught STYLE-WARNING: ; This function is undefined: ; FOO ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load-test.tmp" (written 29 DEC 2006 10:33:39 PM): ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load-test.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load-test.tmp" (written 29 DEC 2006 10:33:39 PM): ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load-test.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load-test.tmp" (written 29 DEC 2006 10:33:39 PM): ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load-test.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load-test.tmp" (written 29 DEC 2006 10:33:39 PM): ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/load-test.fasl written ; compilation finished in 0:00:00 ; in: LAMBDA NIL ; (LET (TMP-FASL) ; (UNWIND-PROTECT ; (PROGN (LOAD *TMP-FILENAME*) (ASSERT (EQUAL # *SAVED-LOAD-PATHNAME*))) ; (DELETE-FILE *TMP-FILENAME*))) ; ; caught STYLE-WARNING: ; The variable TMP-FASL is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/loop.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/macroexpand.impure.lisp ; in: LAMBDA NIL ; (GO #:G3262) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(= ; (LET (#) ; GLOB)) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/map-tests.impure.lisp ; in: LAMBDA NIL ; (PUSH REST REVERSED-RESULT) ; --> LET* CONS ; ==> ; REVERSED-RESULT ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-23.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-24.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-25.impure.lisp ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SB-MOP:READER-METHOD-CLASS ; (MOP-25::TYPECHECKING-READER-CLASS T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLASS MOP-25::DIRECT-SLOT ; &REST MOP-25::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (CLASS MOP-25::TYPECHECKING-READER-CLASS) ; MOP-25::DIRECT-SLOT &REST MOP-25::ARGS)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SB-MOP:READER-METHOD-CLASS (MOP-25::TYPECHECKING-READER-CLASS T)))) ; (DECLARE (TYPE T MOP-25::DIRECT-SLOT)) ; (DECLARE (IGNORABLE MOP-25::DIRECT-SLOT CLASS)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLASS MOP-25::DIRECT-SLOT) SB-PCL::.NEXT-METHOD-CALL. ; (CLASS MOP-25::DIRECT-SLOT) NIL :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P ; NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS CLASS MOP-25::TYPECHECKING-READER-CLASS)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SB-MOP:READER-METHOD-CLASS ; (MOP-25::TYPECHECKING-READER-CLASS T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLASS MOP-25::DIRECT-SLOT ; &REST MOP-25::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (CLASS MOP-25::TYPECHECKING-READER-CLASS) ; MOP-25::DIRECT-SLOT &REST MOP-25::ARGS)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SB-MOP:READER-METHOD-CLASS (MOP-25::TYPECHECKING-READER-CLASS T)))) ; (DECLARE (TYPE T MOP-25::DIRECT-SLOT)) ; (DECLARE (IGNORABLE MOP-25::DIRECT-SLOT CLASS)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLASS MOP-25::DIRECT-SLOT) SB-PCL::.NEXT-METHOD-CALL. ; (CLASS MOP-25::DIRECT-SLOT) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS CLASS MOP-25::TYPECHECKING-READER-CLASS)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop.impure.lisp # # STYLE-WARNING: implicitly creating new generic function EQL-SPECIALIZED-METHOD ; in: LAMBDA NIL ; (RETURN-FROM #:G3468 ; (LET ((MOP-TEST::C #:G3469)) ; (ERROR MOP-TEST::C))) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SB-MOP:DIRECT-SLOT-DEFINITION-CLASS ; (MOP-TEST::AUTO-ACCESSORS-CLASS)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLASS &REST ; MOP-TEST::INITARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (CLASS MOP-TEST::AUTO-ACCESSORS-CLASS) &REST ; MOP-TEST::INITARGS)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SB-MOP:DIRECT-SLOT-DEFINITION-CLASS (MOP-TEST::AUTO-ACCESSORS-CLASS)))) ; (DECLARE (IGNORABLE CLASS)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLASS) SB-PCL::.NEXT-METHOD-CALL. (CLASS) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS CLASS MOP-TEST::AUTO-ACCESSORS-CLASS)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SB-MOP:DIRECT-SLOT-DEFINITION-CLASS ; (MOP-TEST::AUTO-ACCESSORS-CLASS)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLASS &REST ; MOP-TEST::INITARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (CLASS MOP-TEST::AUTO-ACCESSORS-CLASS) &REST ; MOP-TEST::INITARGS)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SB-MOP:DIRECT-SLOT-DEFINITION-CLASS (MOP-TEST::AUTO-ACCESSORS-CLASS)))) ; (DECLARE (IGNORABLE CLASS)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLASS) SB-PCL::.NEXT-METHOD-CALL. (CLASS) NIL :CALL-NEXT-METHOD-P NIL ; :NEXT-METHOD-P-P NIL :SETQ-P NIL :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS CLASS MOP-TEST::AUTO-ACCESSORS-CLASS)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable INITARGS is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (#:G3496)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. MOP-TEST::DSD &REST ; MOP-TEST::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (MOP-TEST::DSD #:G3496) &REST MOP-TEST::ARGS)) ; (DECLARE (SB-PCL::%METHOD-NAME (INITIALIZE-INSTANCE :AFTER (#:G3496)))) ; (DECLARE (IGNORABLE MOP-TEST::DSD)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((MOP-TEST::DSD) SB-PCL::.NEXT-METHOD-CALL. (MOP-TEST::DSD) NIL ; :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS MOP-TEST::DSD #:G3496)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (#:G3496)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. MOP-TEST::DSD &REST ; MOP-TEST::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (MOP-TEST::DSD #:G3496) &REST ; MOP-TEST::ARGS)) ; (DECLARE (SB-PCL::%METHOD-NAME (INITIALIZE-INSTANCE :AFTER (#:G3496)))) ; (DECLARE (IGNORABLE MOP-TEST::DSD)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((MOP-TEST::DSD) SB-PCL::.NEXT-METHOD-CALL. (MOP-TEST::DSD) NIL ; :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS MOP-TEST::DSD #:G3496)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (#:G3507)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. MOP-TEST::DSD &REST ; MOP-TEST::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (MOP-TEST::DSD #:G3507) &REST MOP-TEST::ARGS)) ; (DECLARE (SB-PCL::%METHOD-NAME (INITIALIZE-INSTANCE :AFTER (#:G3507)))) ; (DECLARE (IGNORABLE MOP-TEST::DSD)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((MOP-TEST::DSD) SB-PCL::.NEXT-METHOD-CALL. (MOP-TEST::DSD) NIL ; :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS MOP-TEST::DSD #:G3507)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (#:G3507)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. MOP-TEST::DSD &REST ; MOP-TEST::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (MOP-TEST::DSD #:G3507) &REST ; MOP-TEST::ARGS)) ; (DECLARE (SB-PCL::%METHOD-NAME (INITIALIZE-INSTANCE :AFTER (#:G3507)))) ; (DECLARE (IGNORABLE MOP-TEST::DSD)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((MOP-TEST::DSD) SB-PCL::.NEXT-METHOD-CALL. (MOP-TEST::DSD) NIL ; :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS MOP-TEST::DSD #:G3507)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: implicitly creating new generic function METHOD-ON-ANONYMOUS-CLASS // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.impure.lisp ; in: LAMBDA NIL ; (WITH-ERROR-INFO ("~Unlocked form: ~S~%" FORM) (EVAL FORM)) ; --> HANDLER-BIND LET CONS LIST CONS CONS LAMBDA ; ==> ; #'(LAMBDA (E) (FORMAT T "~Unlocked form: ~S~%" FORM) (FINISH-OUTPUT)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (GO #:G3284) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(EQL TEST:FUNCTION :SYM-OK) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3286) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(EQL TEST:UNUSED :SYM-OK2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3292) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(EQL (TEST:*SPECIAL*) :OK) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes STYLE-WARNING: TEST:UNUSED is being redefined as a macro when it was previously assumed to be a function. ; in: LAMBDA NIL ; (LET* ((FORM #:CMACRO-&WHOLE3307) (ARG (CAR (CDR #:WHOLE3305)))) ; (BLOCK TEST:UNUSED FORM)) ; ; caught STYLE-WARNING: ; The variable ARG is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (MULTIPLE-VALUE-BIND ; (DUMMIES VALS NEWVAL SETTER GETTER) ; (GET-SETF-EXPANSION PLACE) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G0) ; (DECLARE (IGNORE #:G0)) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; ; caught STYLE-WARNING: ; The variable NEWVAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable SETTER is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; in: LAMBDA NIL ; (WITH-ERROR-INFO ("locked legal form: ~S~%" FORM) (EVAL FORM)) ; --> HANDLER-BIND LET CONS LIST CONS CONS LAMBDA ; ==> ; #'(LAMBDA (E) (FORMAT T "locked legal form: ~S~%" FORM) (FINISH-OUTPUT)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (GO #:G3355) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(EQL TEST:FUNCTION :SYM-OK) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3357) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(EQL TEST:UNUSED :SYM-OK2) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3363) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(EQL (TEST:*SPECIAL*) :OK) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (WITH-ERROR-INFO ("locked illegal runtime form: ~S~%" FORM) ; (LET ((FUN (COMPILE NIL `#))) ; (ASSERT ; (RAISES-ERROR? (FUNCALL FUN) PACKAGE-LOCK-VIOLATION))) ; (ASSERT (RAISES-ERROR? (EVAL FORM) PACKAGE-LOCK-VIOLATION))) ; --> HANDLER-BIND LET CONS LIST CONS CONS LAMBDA ; ==> ; #'(LAMBDA (E) ; (FORMAT T "locked illegal runtime form: ~S~%" FORM) ; (FINISH-OUTPUT)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: TEST:UNUSED is being redefined as a macro when it was previously assumed to be a function. ; in: DEFINE-COMPILER-MACRO TEST:UNUSED ; (DEFINE-COMPILER-MACRO TEST:UNUSED (&WHOLE FORM ARG) FORM) ; --> EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO FUNCTION LET* ; ==> ; (LET* ((FORM #:CMACRO-&WHOLE2) (ARG (CAR (CDR #:WHOLE0)))) ; (BLOCK TEST:UNUSED FORM)) ; ; caught STYLE-WARNING: ; The variable ARG is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LET* ((FORM #:CMACRO-&WHOLE3380) (ARG (CAR (CDR #:WHOLE3378)))) ; (BLOCK TEST:UNUSED FORM)) ; ; caught STYLE-WARNING: ; The variable ARG is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LAMBDA () (DECLAIM (SPECIAL TEST:NOSPECIAL))) ; ; caught STYLE-WARNING: ; DECLAIM where DECLARE was probably intended ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LAMBDA () (DECLAIM (TYPE FIXNUM TEST:NUM))) ; ; caught STYLE-WARNING: ; DECLAIM where DECLARE was probably intended ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (LAMBDA () (DECLAIM (FTYPE (FUNCTION (FIXNUM) FIXNUM) TEST:NUMFUN))) ; ; caught STYLE-WARNING: ; DECLAIM where DECLARE was probably intended ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: DEFINE-SETF-EXPANDER TEST:CAR ; (MULTIPLE-VALUE-BIND ; (DUMMIES VALS NEWVAL SETTER GETTER) ; (GET-SETF-EXPANSION PLACE) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G4) ; (DECLARE (IGNORE #:G4)) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; ; caught STYLE-WARNING: ; The variable NEWVAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable SETTER is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (MULTIPLE-VALUE-BIND ; (DUMMIES VALS NEWVAL SETTER GETTER) ; (GET-SETF-EXPANSION PLACE) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G0) ; (DECLARE (IGNORE #:G0)) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; ; caught STYLE-WARNING: ; The variable NEWVAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable SETTER is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions STYLE-WARNING: redefining (SETF TEST:FUNCTION) in DEFUN STYLE-WARNING: redefining (SETF TEST:FUNCTION) in DEFUN ; in: LAMBDA NIL ; (WITH-ERROR-INFO ("compile locked illegal lexical form: ~S~%" FORM) ; (LET ((FUN (COMPILE NIL `#))) ; (ASSERT (RAISES-ERROR? (FUNCALL FUN) PROGRAM-ERROR))) ; (ASSERT (RAISES-ERROR? (EVAL FORM) PROGRAM-ERROR))) ; --> HANDLER-BIND LET CONS LIST CONS CONS LAMBDA ; ==> ; #'(LAMBDA (E) ; (FORMAT T "compile locked illegal lexical form: ~S~%" FORM) ; (FINISH-OUTPUT)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (FLET ((TEST:FUNCTION () ; :SHITE)) ; (TEST:FUNCTION)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (FLET ((TEST:FUNCTION () ; :SHITE)) ; (TEST:FUNCTION)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LABELS ((TEST:FUNCTION () ; :SHITE)) ; (TEST:FUNCTION)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LABELS ((TEST:FUNCTION () ; :SHITE)) ; (TEST:FUNCTION)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (FLET ((TEST:MACRO () ; :SHITE)) ; (TEST:MACRO)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (FLET ((TEST:MACRO () ; :SHITE)) ; (TEST:MACRO)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LABELS ((TEST:MACRO () ; :SHITE)) ; (TEST:MACRO)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LABELS ((TEST:MACRO () ; :SHITE)) ; (TEST:MACRO)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (MACROLET ((TEST:FUNCTION () ; :YUK)) ; (TEST:FUNCTION)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding FUNCTION as a local macro. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding FUNCTION as a local macro. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (MACROLET ((TEST:MACRO () ; :YUK)) ; (TEST:MACRO)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding MACRO as a local macro. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding MACRO as a local macro. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (FLET (((SETF TEST:FUNCTION) (OBJ) ; OBJ)) ; (SETF (TEST:FUNCTION) 1)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding (SETF FUNCTION) as a local ; function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding (SETF FUNCTION) as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (FLET (((SETF TEST:FUNCTION) (OBJ) ; OBJ)) ; (SETF (TEST:FUNCTION) 1)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding (SETF FUNCTION) as a local ; function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding (SETF FUNCTION) as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LOCALLY (DECLARE (FTYPE FUNCTION TEST:FUNCTION)) (CONS T T)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when declaring the ftype of FUNCTION. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when declaring the ftype of FUNCTION. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LOCALLY (DECLARE (TYPE FIXNUM TEST:NUM)) (CONS T T)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when declaring the type of NUM. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when declaring the type of NUM. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LOCALLY (DECLARE (SPECIAL TEST:NOSPECIAL)) (CONS T T)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when declaring NOSPECIAL special. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when declaring NOSPECIAL special. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LOCALLY (DECLARE (FTYPE (FUNCTION (FIXNUM) FIXNUM) TEST:NUMFUN)) (CONS T T)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when declaring the ftype of NUMFUN. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when declaring the ftype of NUMFUN. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; in: LAMBDA NIL ; (WITH-ERROR-INFO ("without-package-locks illegal runtime form: ~S~%" FORM) ; (FUNCALL ; (COMPILE NIL `(LAMBDA ,NIL (WITHOUT-PACKAGE-LOCKS ,FORM))))) ; --> HANDLER-BIND LET CONS LIST CONS CONS LAMBDA ; ==> ; #'(LAMBDA (E) ; (FORMAT T "without-package-locks illegal runtime form: ~S~%" FORM) ; (FINISH-OUTPUT)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: TEST:UNUSED is being redefined as a macro when it was previously assumed to be a function. ; in: DEFINE-COMPILER-MACRO TEST:UNUSED ; (DEFINE-COMPILER-MACRO TEST:UNUSED (&WHOLE FORM ARG) FORM) ; --> EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO FUNCTION LET* ; ==> ; (LET* ((FORM #:CMACRO-&WHOLE2) (ARG (CAR (CDR #:WHOLE0)))) ; (BLOCK TEST:UNUSED FORM)) ; ; caught STYLE-WARNING: ; The variable ARG is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: redefining MAKE-NOSTRUCT in DEFUN ; in: LAMBDA NIL ; (WITHOUT-PACKAGE-LOCKS (DECLAIM (SPECIAL TEST:NOSPECIAL))) ; ==> ; (LET ((SB-IMPL::*IGNORED-PACKAGE-LOCKS* T)) ; (DECLAIM (SPECIAL TEST:NOSPECIAL))) ; ; caught STYLE-WARNING: ; DECLAIM where DECLARE was probably intended ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (WITHOUT-PACKAGE-LOCKS (DECLAIM (TYPE FIXNUM TEST:NUM))) ; ==> ; (LET ((SB-IMPL::*IGNORED-PACKAGE-LOCKS* T)) ; (DECLAIM (TYPE FIXNUM TEST:NUM))) ; ; caught STYLE-WARNING: ; DECLAIM where DECLARE was probably intended ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (WITHOUT-PACKAGE-LOCKS ; (DECLAIM (FTYPE (FUNCTION (FIXNUM) FIXNUM) TEST:NUMFUN))) ; ==> ; (LET ((SB-IMPL::*IGNORED-PACKAGE-LOCKS* T)) ; (DECLAIM (FTYPE (FUNCTION (FIXNUM) FIXNUM) TEST:NUMFUN))) ; ; caught STYLE-WARNING: ; DECLAIM where DECLARE was probably intended ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: DEFINE-SETF-EXPANDER TEST:CAR ; (MULTIPLE-VALUE-BIND ; (DUMMIES VALS NEWVAL SETTER GETTER) ; (GET-SETF-EXPANSION PLACE) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G4) ; (DECLARE (IGNORE #:G4)) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; ; caught STYLE-WARNING: ; The variable NEWVAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable SETTER is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions STYLE-WARNING: redefining (SETF TEST:FUNCTION) in DEFUN STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; in: LAMBDA NIL ; (WITH-ERROR-INFO ("disable-package-locks on illegal form: ~S~%" FORM) ; (FUNCALL (COMPILE NIL `(LAMBDA ,NIL (DECLARE #) ,FORM))) ; (EVAL ; `(LOCALLY (DECLARE (DISABLE-PACKAGE-LOCKS ,SYM)) ,FORM))) ; --> HANDLER-BIND LET CONS LIST CONS CONS LAMBDA ; ==> ; #'(LAMBDA (E) ; (FORMAT T "disable-package-locks on illegal form: ~S~%" FORM) ; (FINISH-OUTPUT)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; in: LAMBDA NIL ; (WITH-ERROR-INFO ("one error per form ~S~%" FORM) ; (LET ((ERRORP NIL)) ; (HANDLER-BIND ((PACKAGE-LOCK-VIOLATION #)) (EVAL FORM)))) ; --> HANDLER-BIND LET CONS LIST CONS CONS LAMBDA ; ==> ; #'(LAMBDA (E) (FORMAT T "one error per form ~S~%" FORM) (FINISH-OUTPUT)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: TEST:UNUSED is being redefined as a macro when it was previously assumed to be a function. ; in: LAMBDA NIL ; (LET* ((FORM #:CMACRO-&WHOLE3453) (ARG (CAR (CDR #:WHOLE3451)))) ; (BLOCK TEST:UNUSED FORM)) ; ; caught STYLE-WARNING: ; The variable ARG is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition STYLE-WARNING: redefining MAKE-NOSTRUCT in DEFUN ; in: LAMBDA NIL ; (MULTIPLE-VALUE-BIND ; (DUMMIES VALS NEWVAL SETTER GETTER) ; (GET-SETF-EXPANSION PLACE) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G0) ; (DECLARE (IGNORE #:G0)) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; ; caught STYLE-WARNING: ; The variable NEWVAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable SETTER is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions STYLE-WARNING: redefining (SETF TEST:FUNCTION) in DEFUN ; in: LAMBDA NIL ; (CONTINUE X) ; ==> ; X ; ; caught STYLE-WARNING: ; reading an ignored variable: X ; (WITH-ERROR-INFO ("two errors per form: ~S~%" FORM) ; (LET ((ERROR-COUNT 0)) ; (HANDLER-BIND ((PACKAGE-LOCK-VIOLATION #)) (EVAL FORM) ; (UNLESS (= 2 ERROR-COUNT) ; (ERROR ; "expected 2 errors per form, got ~A for ~A" ; ERROR-COUNT FORM))))) ; --> HANDLER-BIND LET CONS LIST CONS CONS LAMBDA ; ==> ; #'(LAMBDA (E) (FORMAT T "two errors per form: ~S~%" FORM) (FINISH-OUTPUT)) ; ; caught STYLE-WARNING: ; The variable E is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (LET* ((TMP "package-locks.tmp.lisp") ; (FASL (COMPILE-FILE-PATHNAME TMP)) ; (N 0)) ; (DOLIST (FORM *ILLEGAL-RUNTIME-FORMS*) ; (UNWIND-PROTECT ; (WITH-SIMPLE-RESTART (NEXT "~S failed, continue with next test" FORM) ; (RESET-TEST NIL) ; (WITH-OPEN-FILE # #) ; (MULTIPLE-VALUE-BIND # # # #)) ; (WHEN (PROBE-FILE TMP) (DELETE-FILE TMP)) ; (WHEN (PROBE-FILE FASL) (DELETE-FILE FASL))))) ; ; caught STYLE-WARNING: ; The variable N is defined but never used. ; (MULTIPLE-VALUE-BIND ; (FILE WARNINGS FAILURE-P) ; (COMPILE-FILE TMP) ; (SET-TEST-LOCKS T) ; (ASSERT (RAISES-ERROR? (LOAD FASL) PACKAGE-LOCK-VIOLATION))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (FILE) (WARNINGS) (FAILURE-P) &REST #:G24) ; (DECLARE (IGNORE #:G24)) ; (SET-TEST-LOCKS T) ; (ASSERT (RAISES-ERROR? (LOAD FASL) PACKAGE-LOCK-VIOLATION))) ; ; caught STYLE-WARNING: ; The variable FILE is defined but never used. ; ; caught STYLE-WARNING: ; The variable WARNINGS is defined but never used. ; ; caught STYLE-WARNING: ; The variable FAILURE-P is defined but never used. ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (INTERN *UNINTERNED* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (IMPORT (QUOTE NOT-FROM-TEST) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (EXPORT (QUOTE TEST::INTERNAL) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (UNEXPORT (QUOTE TEST:EXTERNAL) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (SHADOWING-IMPORT (QUOTE NOT-FROM-TEST) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (USE-PACKAGE :TEST-UNUSED ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (UNUSE-PACKAGE :TEST-USED ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (SHADOW (QUOTE NOT-FROM-TEST) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (UNINTERN (OR # ...) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DELETE-PACKAGE :TEST-DELETE) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DEFUN TEST:UNUSED ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (SETF (FDEFINITION #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (SETF (SYMBOL-FUNCTION #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (TMP-FMAKUNBOUND (QUOTE TEST:FUNCTION)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DEFMACRO TEST:UNUSED ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (SETF (MACRO-FUNCTION #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DEFINE-COMPILER-MACRO TEST:UNUSED ...); in: LAMBDA NIL ; (LET* ((FORM #:CMACRO-&WHOLE2) (ARG (CAR (CDR #:WHOLE0)))) ; (BLOCK TEST:UNUSED FORM)) ; ; caught STYLE-WARNING: ; The variable ARG is defined but never used. ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp ; in: DEFINE-COMPILER-MACRO TEST:UNUSED ; (DEFINE-COMPILER-MACRO TEST:UNUSED (&WHOLE FORM ARG) FORM) ; --> EVAL-WHEN SB-C::%DEFINE-COMPILER-MACRO LAMBDA FUNCTION LET* ; ==> ; (LET* ((FORM #:CMACRO-&WHOLE2) (ARG (CAR (CDR #:WHOLE0)))) ; (BLOCK TEST:UNUSED FORM)) ; ; caught STYLE-WARNING: ; The variable ARG is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (SETF (COMPILER-MACRO-FUNCTION #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DEFSTRUCT TEST:NOSTRUCT ...) ; compiling (MAKE-NOSTRUCT :NOSTRUCT-SLOT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DEFCLASS TEST:NOCLASS ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DEFTYPE TEST:NOTYPE ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DEFINE-CONDITION TEST:NOCONDITION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DEFINE-SYMBOL-MACRO TEST:NOSYMBOL-MACRO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (PROCLAIM (QUOTE #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DECLAIM (SPECIAL TEST:NOSPECIAL)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (PROCLAIM (QUOTE #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DECLAIM (TYPE FIXNUM ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (PROCLAIM (QUOTE #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:45 PM): ; compiling (DECLAIM (FTYPE # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:46 PM): ; compiling (PROCLAIM (QUOTE #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:46 PM): ; compiling (DEFSETF TEST:CAR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:46 PM): ; compiling (DEFSETF TEST:CAR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:46 PM): ; compiling (DEFINE-SETF-EXPANDER TEST:CAR ...); in: LAMBDA NIL ; (MULTIPLE-VALUE-BIND ; (DUMMIES VALS NEWVAL SETTER GETTER) ; (GET-SETF-EXPANSION PLACE) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G0) ; (DECLARE (IGNORE #:G0)) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; ; caught STYLE-WARNING: ; The variable NEWVAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable SETTER is defined but never used. ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp ; in: DEFINE-SETF-EXPANDER TEST:CAR ; (MULTIPLE-VALUE-BIND ; (DUMMIES VALS NEWVAL SETTER GETTER) ; (GET-SETF-EXPANSION PLACE) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; --> MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (DUMMIES) (VALS) (NEWVAL) (SETTER) (GETTER) &REST #:G4) ; (DECLARE (IGNORE #:G4)) ; (LET ((STORE (GENSYM))) ; (VALUES DUMMIES VALS `(,STORE) `(PROGN (RPLACA ,GETTER ,STORE) ,STORE) ; `(CAR ,GETTER)))) ; ; caught STYLE-WARNING: ; The variable NEWVAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable SETTER is defined but never used. ; ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:46 PM): ; compiling (DEFUN (SETF TEST:FUNCTION) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining (SETF TEST:FUNCTION) in DEFUN STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:46 PM): ; compiling (TMP-FMAKUNBOUND (QUOTE #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:46 PM): ; compiling (DEFINE-METHOD-COMBINATION TEST:UNUSED) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.lisp" (written 29 DEC 2006 10:33:46 PM): ; compiling (SETF (FIND-CLASS #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/package-locks.tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN ; in: LAMBDA NIL ; (FLET ((TEST:FUNCTION () ; :SHITE)) ; (TEST:FUNCTION)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (FLET ((TEST:FUNCTION () ; :SHITE)) ; (TEST:FUNCTION)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LABELS ((TEST:FUNCTION () ; :SHITE)) ; (TEST:FUNCTION)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LABELS ((TEST:FUNCTION () ; :SHITE)) ; (TEST:FUNCTION)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding FUNCTION as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (FLET ((TEST:MACRO () ; :SHITE)) ; (TEST:MACRO)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (FLET ((TEST:MACRO () ; :SHITE)) ; (TEST:MACRO)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LABELS ((TEST:MACRO () ; :SHITE)) ; (TEST:MACRO)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LABELS ((TEST:MACRO () ; :SHITE)) ; (TEST:MACRO)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding MACRO as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (MACROLET ((TEST:FUNCTION () ; :YUK)) ; (TEST:FUNCTION)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding FUNCTION as a local macro. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding FUNCTION as a local macro. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (MACROLET ((TEST:MACRO () ; :YUK)) ; (TEST:MACRO)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding MACRO as a local macro. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding MACRO as a local macro. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (FLET (((SETF TEST:FUNCTION) (OBJ) ; OBJ)) ; (SETF (TEST:FUNCTION) 1)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding (SETF FUNCTION) as a local ; function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding (SETF FUNCTION) as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (FLET (((SETF TEST:FUNCTION) (OBJ) ; OBJ)) ; (SETF (TEST:FUNCTION) 1)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when binding (SETF FUNCTION) as a local ; function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when binding (SETF FUNCTION) as a local function. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LOCALLY (DECLARE (FTYPE FUNCTION TEST:FUNCTION)) (CONS T T)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when declaring the ftype of FUNCTION. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when declaring the ftype of FUNCTION. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LOCALLY (DECLARE (TYPE FIXNUM TEST:NUM)) (CONS T T)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when declaring the type of NUM. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when declaring the type of NUM. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LOCALLY (DECLARE (SPECIAL TEST:NOSPECIAL)) (CONS T T)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when declaring NOSPECIAL special. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when declaring NOSPECIAL special. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (LOCALLY (DECLARE (FTYPE (FUNCTION (FIXNUM) FIXNUM) TEST:NUMFUN)) (CONS T T)) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when declaring the ftype of NUMFUN. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when declaring the ftype of NUMFUN. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; in: LAMBDA NIL ; (GO #:G3501) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TRACE TEST:FUNCTION :BREAK T) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes STYLE-WARNING: redefining TEST:FUNCTION in DEFUN STYLE-WARNING: redefining TEST:NUMFUN in DEFUN STYLE-WARNING: redefining TEST:CAR in DEFUN STYLE-WARNING: redefining (SETF TEST:CDR) in DEFUN STYLE-WARNING: implicitly creating new generic function PCL-TYPE-DECLARATION-METHOD-BUG ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD PCL-TYPE-DECLARATION-METHOD-BUG (STREAM)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. TEST:*SPECIAL*) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE (TYPE STREAM TEST:*SPECIAL*)) ; (DECLARE (SB-PCL::%METHOD-LAMBDA-LIST (TEST:*SPECIAL* STREAM))) ; (DECLARE (SB-PCL::%METHOD-NAME (PCL-TYPE-DECLARATION-METHOD-BUG (STREAM)))) ; (DECLARE (IGNORABLE TEST:*SPECIAL*)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((TEST:*SPECIAL*) SB-PCL::.NEXT-METHOD-CALL. (TEST:*SPECIAL*) NIL ; :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS TEST:*SPECIAL* STREAM)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD PCL-TYPE-DECLARATION-METHOD-BUG (STREAM)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. TEST:*SPECIAL*) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE (TYPE STREAM TEST:*SPECIAL*)) ; (DECLARE (SB-PCL::%METHOD-LAMBDA-LIST (TEST:*SPECIAL* STREAM))) ; (DECLARE ; (SB-PCL::%METHOD-NAME (PCL-TYPE-DECLARATION-METHOD-BUG (STREAM)))) ; (DECLARE (IGNORABLE TEST:*SPECIAL*)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((TEST:*SPECIAL*) SB-PCL::.NEXT-METHOD-CALL. (TEST:*SPECIAL*) NIL ; :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS TEST:*SPECIAL* STREAM)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught WARNING: ; Compile-time package lock violation: ; Lock on package TEST violated when declaring the type of *SPECIAL*. ; See also: ; The SBCL Manual, Node "Package Locks" ; ; caught ERROR: ; Lock on package TEST violated when declaring the type of *SPECIAL*. ; See also: ; The SBCL Manual, Node "Package Locks" ; (LET* ((SB-PCL::FMF ; (SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD PCL-TYPE-DECLARATION-METHOD-BUG #) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. TEST:*SPECIAL*) ; (DECLARE # #) (DECLARE #) (DECLARE #) (DECLARE #) (DECLARE #) ; (SYMBOL-MACROLET # ; #))) ; (SB-PCL::MF (SB-PCL::%MAKE-METHOD-FUNCTION SB-PCL::FMF NIL))) ; (SB-MOP:SET-FUNCALLABLE-INSTANCE-FUNCTION SB-PCL::MF ; (SB-PCL::METHOD-FUNCTION-FROM-FAST-FUNCTION ; SB-PCL::FMF '(:ARG-INFO (1)))) ; SB-PCL::MF) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; caught 1 ERROR condition ; caught 1 WARNING condition ; printed 3 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/packages.impure.lisp These symbols are not accessible in the COMMON-LISP-USER package:(:FOO)// Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/pathnames.impure.lisp ; in: LAMBDA NIL ; (MERGE-PATHNAMES (MAKE-STRING-OUTPUT-STREAM)) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type ; (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING PATHNAME FILE-STREAM) conflicts ; with derived type (VALUES SB-IMPL::STRING-OUTPUT-STREAM &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; printed 1 note #P"foo.txt" #P"foo.txt" # :DEVICE NIL :DIRECTORY NIL :NAME "foo" :TYPE ".txt" :VERSION NIL> #P"foo..txt" #P"SCRATCH:FOO.TXT.1" #P"SCRATCH:FOO.TXT.NEWEST" #P"SCRATCH:FOO.TXT" // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/pprint.impure.lisp ; in: LAMBDA NIL ; (PPRINT-LOGICAL-BLOCK (S LIST :PER-LINE-PREFIX PREFIX :SUFFIX SUFFIX) ; (FORMAT S "~{~W~^~:@_~}" LIST)) ; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF ; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO ; --> FLET BLOCK LET UNLESS COND IF PROGN ERROR ; ==> ; PREFIX ; ; note: deleting unreachable code ; ==> ; SUFFIX ; ; note: deleting unreachable code ; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF SB-KERNEL:OUTPUT-OBJECT ; ==> ; S ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 3 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/print.impure.lisp ; ; caught WARNING: ; error in FORMAT: parameters found after #\: or #\@ modifier ; ~:2T ; ^ ; See also: ; The ANSI Standard, Section 22.3 ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (MAKE-ARRAY 0 :ELEMENT-TYPE NIL) ; ; caught STYLE-WARNING: ; The default initial element #:MU is not a NIL. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition foo#(1 2 3)33 ; ; caught WARNING: ; error in FORMAT: no corresponding close brace ; ~{ ; ^ ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (ASH 1 1000000) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note 1.e-4 #S(WEXERCISER-0-8-7)#S(WEXERCISER-0-8-7)#S(WEXERCISER-0-8-7)#S(WEXERCISER-0-8-7) TIMEOUT! #S(RANDOM-STATE :STATE #.(MAKE-ARRAY 627 :ELEMENT-TYPE '(UNSIGNED-BYTE 32) :INITIAL-CONTENTS '(0 2567483615 238 1667529002 2231528385 1699795318 2785472315 3910278234 764073238 1135835762 3491324795 814104871 375015600 4217712244 590185243 414332584 3860094830 3336946207 3023964029 2648432686 3194823594 3391664843 2828746299 2540596949 628221838 423510547 4259265487 1466743187 3500823988 3999708942 2445718638 440080269 937396448 3043973350 2297109336 2958783149 1962715681 667619262 3965620900 4267167833 2208728594 4196919871 1007578090 3210460651 843433707 422169020 2946448645 3512944458 3825553989 3687820815 1223404569 3358010304 2047066859 2873036308 1136515333 4083197914 3540009741 3289242822 3532558793 4241519516 1826606748 655099537 2241851756 1463424013 4205993704 3763447099 4024599497 1646248151 2840829046 4288350774 3169569065 2898384021 1261351008 1063991688 2788604904 552620710 3689330401 443158047 649937933 1396143195 825894097 1983912851 957076058 3955568136 3246927415 3899210297 3399918103 3940666497 2329115662 3483033746 1436945933 3494684698 644869649 3724800583 583405939 3281522451 3640097472 709541594 1697920880 461697639 449116588 1086832477 2900505910 3759347421 1430011166 3300641427 4028892966 3670303485 3098812839 3494005639 3358954213 2002638005 4085110178 3445095291 2671556134 3680643742 1414947535 3717904368 909544459 3271273024 809854907 3397684510 291036864 4207266251 1329114678 1266173474 3757416098 3667325827 95882318 984828443 416279964 4160427975 3178136990 3288612894 1585524480 3659021761 1835934702 2845432961 223373706 2061270017 1281131655 3026560905 2454204190 3599096657 861904868 344203646 1844214278 4116311691 251662276 91731464 3989666327 2890114407 531936698 3052696080 1210746335 1971907160 2586894034 333477543 1752992585 2611464165 1672664618 2039818672 431623813 757748731 4071423695 942047921 619109422 142865857 2304851767 3266537159 1343097533 4106591621 3931756843 3956286689 3046841407 4222358532 704437207 1153269617 3126539962 2926019737 671374384 3851890617 3561309470 4189663841 3906716643 3804389203 223781208 53159989 2171408599 2542899123 1359220851 3375889799 1149999360 419431186 1655891681 1373036160 1212741592 3799927854 2763356933 757681172 168152074 1627195017 334717885 1345027204 3142319398 4187444492 2564667473 2358452939 707492649 2013163430 3388179335 2779956770 3529012527 3358773125 358771238 166081364 4106811355 3829745119 716591756 2517801313 2275015255 784488566 3337300645 2152249673 698610885 4021722470 640106132 4158615252 3168450369 2966588258 677452382 2899101230 4035423573 1042788899 2754400006 2686077285 4221282513 2292228551 752408841 4022121550 1681181425 3422333217 3009713482 2903895232 2355954083 736343441 2457571678 1690293707 2113445162 1843190653 1516450958 2841547388 3305555514 3788791135 11892887 68620193 2968549501 2084318591 515809234 791820720 3874852283 2893463344 374086143 1657261619 2317003381 873097552 163023897 1183366243 3493277227 3625588120 1996587884 1783030583 3793854147 2453329212 2327634815 2232311193 391517315 2371316385 2916664843 1073900427 56597525 240171392 2767626289 2772199971 1265860768 3575314756 3361269869 3410251989 976215203 2168463516 4215498057 1283289080 2168528782 253364734 61339429 3745668622 3958462357 1801100623 3532175601 1970511606 3579962371 2750743245 686570606 526063820 490048482 1449440471 4129750523 3123334804 3429312710 419965066 3673655151 3455162255 2328208951 1067758978 3183924072 1488956734 3444318584 1477132007 2202908305 2259626848 1278685759 3320475894 3811444874 1151583260 3554735284 1343989710 3671742914 1460548510 3851920105 2474398241 2206219487 3766056348 3013106386 1312212940 2760897915 1840342160 1228600494 1450701860 2274746215 1086056494 53449038 3871905129 2326680841 1306675476 3097957521 2060965238 1843052987 811760041 3686747061 1978112078 2812814996 2378282716 1366925286 691827174 1386994246 4236330703 2175354204 351646295 4228850932 4217111008 276666343 3070508799 795771108 2345930849 1327553732 1954779459 4198991042 1111822554 3068422286 97559717 2641659769 1041714985 3571038802 3859979769 3192381167 2980057299 4281581466 2985820063 2443134845 3679723613 1342313971 231405148 772721897 1533053634 447354662 1212177444 2742866590 2966535209 2696728362 1627033860 1433136669 1057453727 2963687339 2910837246 4164328377 3190068980 3697973570 2081688407 3471239662 2406605287 3674610098 2343981916 2073417244 3347391173 137450181 2317238396 3836755355 3276440615 747150959 458941876 3890286490 3595895367 955377532 3782372276 2840291591 3807834623 2644461419 3402123160 558001465 3652768085 1187791150 1792627717 2557536789 2659075493 966956843 1333878309 474246090 3896774050 2023765438 1545020016 2561214917 600783797 96076626 2498475485 2586272482 2237281289 2357039267 448022008 1701246220 85469702 3846446509 1212996778 3792939107 3570201999 4218917155 936975221 563940114 417984725 3831057673 2919364602 3017622925 920387310 3759295031 2189279279 1594142969 3731512079 1606789717 801363643 1917407874 3161567969 936476874 3830498640 3396337979 1129647506 1962707260 311982987 1635132845 2837230142 388715334 4206920815 4121834651 1747536898 219517735 3084492443 796530652 662249238 2060923338 3868303328 3093509374 1911209604 4050835942 536569869 3414975855 1684119629 847894465 385015452 2557142135 4200937850 3686501293 3515493641 2430943279 104619602 3873979662 3785541423 199816519 3577011698 1787976792 120113101 2147753404 1901846711 3686007046 1055180309 2991739914 2414874643 306572922 4267396647 2738013040 3634549069 1840674372 2488215747 1162499964 4075656829 1651822789 3211704120 4219928794 2262061726 3202074742 165848984 1787513540 2963815641 2209824297 1553936443 108509921 1882650045 2958415 3065984343 2411779262 455895697 3306178579 2935266555 2528531572 1896881967 1610956979 2342773970 2169812941 3878521305 3798130690 4219040060 1675911793 2708213114 1777071042 1998650480 3615228979 1344005804 3650585850 678875221 4177908059 1718491807 1461758543 2228336374 397816344 1622360623 3276934924 1826088814 38512778 4223025167 934779615 3040899571 1785019327 2765010696 1472713606 3719767873 978207236 4149113342 4165957740 2584392891 462183426 10031493 1746301846 1194218205 1156130219 3809193108 520584327 2391354848 526228081 1001076668 3904885049 4242197765 3343747427 3838370438 1526999569 2119406813 1848838461 1482444939 2377264025 429500993 1229401641 369879190 2537392215 3153154337 77406667 1546814264 4237070143 1262228840 1882560719 2051103852 3660114724 2403581802 2706323019 1538618071 3397230247 3901436983 3997705193 2152960344 3164190661 3594482487 1838849071 4118774419 2896186058 760813379 4084616460 93908624 3041635657 2604133166 2091301460 714040373 667689846 1828841147 2329435146 1306139440 2054322955 2383126727 4131184495 1202158325 2628058627 1492304029 4274249074))) ..........................................; ; caught WARNING: ; error in FORMAT: ~> without a matching ~< ; ~> ; ^ ; ; compilation unit finished ; caught 1 WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/properties.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/reader.impure.lisp STYLE-WARNING: in #S READABLE-STRUCT, the use of non-keywords as slot specifiers is deprecated: A. See also: The ANSI Standard, Section 2.4.8.13 STYLE-WARNING: in #S READABLE-STRUCT, the use of non-keywords as slot specifiers is deprecated: "A". See also: The ANSI Standard, Section 2.4.8.13 STYLE-WARNING: in #S READABLE-STRUCT, the use of non-keywords as slot specifiers is deprecated: #\A. See also: The ANSI Standard, Section 2.4.8.13 STYLE-WARNING: in #S READABLE-STRUCT, the use of non-keywords as slot specifiers is deprecated: #\A. See also: The ANSI Standard, Section 2.4.8.13 STYLE-WARNING: in #S READABLE-STRUCT, the use of non-keywords as slot specifiers is deprecated: #\A. See also: The ANSI Standard, Section 2.4.8.13 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/run-program.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/seq.impure.lisp (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G68) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-63 #:DEFAULTED-END-61)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (FIND 1 SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G68) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-63 #:DEFAULTED-END-61)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (FIND 1 SEQ)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G68) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-63 #:DEFAULTED-END-61)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (FIND 1 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ))) #() (NULL (FIND 1 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T))) #() (NULL (FIND 1 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'ABS)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-7) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS)))) #() (NULL (POSITION 1 SEQ :KEY (INDISCRIMINATE #'ABS))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G87) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-82 #:DEFAULTED-END-80)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G87) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-82 #:DEFAULTED-END-80)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST (CONSTANTLY T)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G87) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-82 #:DEFAULTED-END-80)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T)))) #() (NULL (POSITION NIL SEQ :TEST (CONSTANTLY T))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST NIL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST NIL))) #() (NULL (POSITION NIL SEQ :TEST NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST-NOT NIL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST-NOT NIL))) #() (NULL (POSITION NIL SEQ :TEST-NOT NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G65) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-60 #:DEFAULTED-END-58)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G65) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-60 #:DEFAULTED-END-58)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G65) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-60 #:DEFAULTED-END-58)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1+ SEQ-TEST::SEQ :KEY (SEQ-TEST::INDISCRIMINATE #'LOG)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY LET IF ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-3) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG)))) #() (NULL (FIND-IF #'1+ SEQ :KEY (INDISCRIMINATE #'LOG))) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #() (NULL (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PACKAGEP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PACKAGEP SEQ))) #() (NULL (FIND-IF-NOT #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G69) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-64 #:DEFAULTED-END-62)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G69) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-64 #:DEFAULTED-END-62)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY NIL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G69) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-64 #:DEFAULTED-END-62)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL))) #() (NULL (POSITION-IF-NOT #'PACKAGEP SEQ :KEY NIL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 2 SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 2 SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 2 SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 2 SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G68) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-63 #:DEFAULTED-END-61)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (NULL (FIND 2 SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G68) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-63 #:DEFAULTED-END-61)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (NULL (FIND 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ))) #(1) (NULL (FIND 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-IF LET LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL > ; --> IF > < IF ; ==> ; (< SB-C::Y SB-C::X) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL SB-C::%FUNCALL > IF > < IF ; ==> ; (< SB-C::Y SB-C::X) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL SB-C::%FUNCALL > IF > < IF ; ==> ; (< SB-C::Y SB-C::X) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL 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 REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G74) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-69 #:DEFAULTED-END-67)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 5 notes #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND 2 SEQ :TEST #'>))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :TEST #'>) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G74) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-69 #:DEFAULTED-END-67)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND 2 SEQ :TEST #'>))) #(1) (EQL 1 (FIND 2 SEQ :TEST #'>)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 2 SEQ :KEY #'1+) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 2 SEQ :KEY #'1+) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET FUNCALL SB-C::%FUNCALL 1+ ; ==> ; (+ #:G43 1) ; ; note: unable to ; optimize ; 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: 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. ; ; compilation unit finished ; printed 4 notes #(1) (FIND 2 SEQ :KEY #'1+) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL SB-C::%FUNCALL 1+ ; ==> ; (+ #:G62 1) ; ; note: unable to ; optimize ; 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: 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. ; ; compilation unit finished ; printed 4 notes #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL SB-C::%FUNCALL 1+ ; ==> ; (+ #:G62 1) ; ; note: unable to ; optimize ; 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). ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL SB-C::%FUNCALL 1+ ; ==> ; (+ #:G62 1) ; ; 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. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G71) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 #:DEFAULTED-END-64)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 7 notes #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 2 SEQ :KEY #'1+)) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :KEY #'1+) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G71) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 #:DEFAULTED-END-64)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 2 SEQ :KEY #'1+)) #(1) (FIND 2 SEQ :KEY #'1+) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 1 SEQ :FROM-END T) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 1 SEQ :FROM-END T) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 1 SEQ :FROM-END T) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 1 SEQ :FROM-END T) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (FIND 1 SEQ :FROM-END T) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 1 SEQ :FROM-END T) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (FIND 1 SEQ :FROM-END T) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 1 SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (FIND 1 SEQ :FROM-END T) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 1 SEQ :FROM-END T)) #(1) (FIND 1 SEQ :FROM-END T) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G72) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-67 #:DEFAULTED-END-65)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) ; in: LAMBDA (SEQ) ; (FIND 1 SEQ-TEST::SEQ :FROM-END T :START 1) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G72) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-67 #:DEFAULTED-END-65)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 1 SEQ :FROM-END T :START 1))) #(1) (NULL (FIND 1 SEQ :FROM-END T :START 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 0 SEQ :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 0 SEQ :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ :FROM-END T))) #(1) (NULL (FIND 0 SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET ; --> TAGBODY UNLESS COND IF PROGN LET TAGBODY LET FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G40) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; ; compilation unit finished ; printed 4 notes #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G62) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; ; compilation unit finished ; printed 4 notes #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G62) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G62) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 7 notes #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) ; in: LAMBDA (SEQ) ; (POSITION 1 SEQ-TEST::SEQ :KEY #'ABS) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 1 SEQ :KEY #'ABS))) #(1) (EQL 0 (POSITION 1 SEQ :KEY #'ABS)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION NIL SEQ-TEST::SEQ :TEST 'EQUAL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION NIL SEQ :TEST 'EQUAL))) #(1) (NULL (POSITION NIL SEQ :TEST 'EQUAL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G65) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-60 #:DEFAULTED-END-58)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) ; in: LAMBDA (SEQ) ; (FIND-IF #'1- SEQ-TEST::SEQ :KEY #'LOG) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G65) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-60 #:DEFAULTED-END-58)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG))) #(1) (EQL 1 (FIND-IF #'1- SEQ :KEY #'LOG)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'IDENTITY SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T))) #(1) (EQL 0 (POSITION-IF #'IDENTITY SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'SIN SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'SIN SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'SIN SEQ))) #(1) (NULL (FIND-IF-NOT #'SIN SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'PACKAGEP SEQ-TEST::SEQ :KEY 'IDENTITY) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY))) #(1) (EQL 0 (POSITION-IF-NOT #'PACKAGEP SEQ :KEY 'IDENTITY)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G68) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-63 #:DEFAULTED-END-61)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G68) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-63 #:DEFAULTED-END-61)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ)) #(1 2 3 2 1) (FIND 3 SEQ) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND 3 SEQ :FROM-END 'YES)) ; in: LAMBDA (SEQ) ; (FIND 3 SEQ-TEST::SEQ :FROM-END 'SEQ-TEST::YES) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND 3 SEQ :FROM-END 'YES)) #(1 2 3 2 1) (FIND 3 SEQ :FROM-END 'YES) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-IF LET LAMBDA FUNCTION ; --> FUNCALL SB-C::%FUNCALL < IF < > IF ; ==> ; (> SB-C::Y SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL < IF < > IF ; ==> ; (> SB-C::Y SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL < IF < > IF ; ==> ; (> SB-C::Y SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL < IF < > IF ; ==> ; (> SB-C::Y SB-C::X) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G77) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-72 #:DEFAULTED-END-70)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 5 notes #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) ; in: LAMBDA (SEQ) ; (POSITION 1.5 SEQ-TEST::SEQ :TEST #'<) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G77) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-72 #:DEFAULTED-END-70)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 1.5 SEQ :TEST #'<))) #(1 2 3 2 1) (EQL 1 (POSITION 1.5 SEQ :TEST #'<)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1-) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 0 SEQ :KEY '1-))) #(1 2 3 2 1) (EQL 0 (POSITION 0 SEQ :KEY '1-)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 0 SEQ-TEST::SEQ :KEY '1- :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T))) #(1 2 3 2 1) (EQL 4 (POSITION 0 SEQ :KEY '1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :KEY '1+ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 4 SEQ :KEY '1+ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G71) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 #:DEFAULTED-END-64)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G71) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 #:DEFAULTED-END-64)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION 2 SEQ :START 1))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 1) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION 2 SEQ :START 1))) #(1 2 3 2 1) (EQL 1 (POSITION 2 SEQ :START 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G74) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 2 SEQ :START 1 :END 1))) ; in: LAMBDA (SEQ) ; (FIND 2 SEQ-TEST::SEQ :START 1 :END 1) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G74) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 2 SEQ :START 1 :END 1))) #(1 2 3 2 1) (NULL (FIND 2 SEQ :START 1 :END 1)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 SB-C::START)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :START 2))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 SB-C::START)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 2 SEQ-TEST::SEQ :KEY NIL :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION 2 SEQ :KEY NIL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST '=))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST '=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST '=))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST '=)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET ; --> COND IF COND IF COND IF PROGN ; ==> ; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-9)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET ; --> COND IF COND IF COND IF PROGN ; ==> ; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-9)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET ; --> COND IF COND IF COND IF PROGN ; ==> ; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-9)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET ; --> COND IF COND IF COND IF PROGN ; ==> ; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-9)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET ; --> COND IF COND IF COND IF PROGN ; ==> ; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-9)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET ; --> COND IF COND IF COND IF PROGN ; ==> ; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-9)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET ; --> COND IF COND IF COND IF PROGN ; ==> ; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-9)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET ; --> COND IF COND IF COND IF PROGN ; ==> ; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-9)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET ; --> COND IF COND IF COND IF PROGN ; ==> ; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-9)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST-NOT 'EQUALP) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST LET LET ; --> COND IF COND IF COND IF PROGN ; ==> ; (COMPLEMENT (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:ONCE-ONLY-9)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP))) #(1 2 3 2 1) (EQL 0 (POSITION 3 SEQ :TEST-NOT 'EQUALP)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION 3 SEQ-TEST::SEQ :TEST 'EQUAL :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T))) #(1 2 3 2 1) (EQL 2 (POSITION 3 SEQ :TEST 'EQUAL :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION 4 SEQ :TEST #'EQL))) ; in: LAMBDA (SEQ) ; (POSITION 4 SEQ-TEST::SEQ :TEST #'EQL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION 4 SEQ :TEST #'EQL))) #(1 2 3 2 1) (NULL (POSITION 4 SEQ :TEST #'EQL)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF #'PACKAGEP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PACKAGEP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF #'PACKAGEP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF #'PACKAGEP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF LET DOLIST ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN LET TAGBODY LET WHEN COND IF PROGN ; --> WHEN COND IF FUNCALL SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G31 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK ; --> MACROLET IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN ; --> LET WHEN COND IF FUNCALL SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G54 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK ; --> MACROLET IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN ; --> LET WHEN COND IF FUNCALL SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G54 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK ; --> MACROLET IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN ; --> LET WHEN COND IF FUNCALL SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G54 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. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G63) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-58 #:DEFAULTED-END-56)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 5 notes #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (FIND-IF #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF #'PLUSP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G63) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-58 #:DEFAULTED-END-56)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (FIND-IF #'PLUSP SEQ))) #(1 2 3 2 1) (EQL 1 (FIND-IF #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET WHEN COND IF PROGN WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G37 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET FUNCALL SB-C::%FUNCALL 1- ; ==> ; (- #:G36 1) ; ; note: unable to ; optimize ; 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: 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 REAL &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 REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET WHEN COND IF PROGN WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G37 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. ; ; compilation unit finished ; printed 6 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL SB-C::%FUNCALL 1- ; ==> ; (- #:G71 1) ; ; note: unable to ; optimize ; 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). ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G72 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL SB-C::%FUNCALL 1- ; ==> ; (- #:G71 1) ; ; 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 REAL &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 REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G72 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. ; ; compilation unit finished ; printed 6 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL SB-C::%FUNCALL 1- ; ==> ; (- #:G71 1) ; ; note: unable to ; optimize ; 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). ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G72 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL SB-C::%FUNCALL 1- ; ==> ; (- #:G71 1) ; ; 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 REAL &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 REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G72 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. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G69) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-64 #:DEFAULTED-END-62)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 9 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :KEY #'1- :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G69) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-64 #:DEFAULTED-END-62)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :KEY #'1- :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET WHEN COND IF PROGN WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL EVENP NOT IF LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL EVENP NOT IF LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL EVENP NOT IF LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G66) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-61 #:DEFAULTED-END-59)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION-IF #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G66) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-61 #:DEFAULTED-END-59)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION-IF #'EVENP SEQ))) #(1 2 3 2 1) (EQL 1 (POSITION-IF #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET WHEN COND IF PROGN WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL EVENP NOT IF LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL EVENP NOT IF LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL EVENP NOT IF LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'EVENP SEQ-TEST::SEQ :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'EVENP SEQ :FROM-END T)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET WHEN COND IF PROGN WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G38 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G63 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G63 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G63 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. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G72) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-67 SB-C::START)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-67 #:DEFAULTED-END-65)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 6 notes #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G63 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END NIL :KEY '1- :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G63 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G63 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. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G72) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-67 SB-C::START)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-67 #:DEFAULTED-END-65)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 6 notes #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 2 (POSITION-IF #'PLUSP SEQ :FROM-END NIL :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET WHEN COND IF PROGN WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G38 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G73 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G73 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G71) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 SB-C::START)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 #:DEFAULTED-END-64)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 6 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G73 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G73 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G71) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 SB-C::START)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 #:DEFAULTED-END-64)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 6 notes #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2))) #(1 2 3 2 1) (EQL 3 (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G75 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 SB-C::START)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 6 notes #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) ; in: LAMBDA (SEQ) ; (POSITION-IF #'PLUSP SEQ-TEST::SEQ :FROM-END T :KEY '1- :START 2 :END 2) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G75 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 SB-C::START)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 6 notes #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2))) #(1 2 3 2 1) (NULL (POSITION-IF #'PLUSP SEQ :FROM-END T :KEY '1- :START 2 :END 2)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT LET ; --> DOLIST BLOCK LET TAGBODY UNLESS COND IF PROGN LET TAGBODY LET WHEN COND ; --> IF PROGN UNLESS COND IF NOT IF FUNCALL SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G31 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF NOT IF ; --> FUNCALL SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G54 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; compilation unit finished ; printed 2 notes #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF NOT IF ; --> FUNCALL SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G54 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF NOT IF ; --> FUNCALL SB-C::%FUNCALL PLUSP > IF ; ==> ; (> #:G54 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. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G63) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-58 #:DEFAULTED-END-56)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 5 notes #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF-NOT #'PLUSP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G63) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-58 #:DEFAULTED-END-56)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF-NOT #'PLUSP SEQ))) #(1 2 3 2 1) (NULL (FIND-IF-NOT #'PLUSP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT LET DOLIST BLOCK LET TAGBODY UNLESS COND ; --> IF PROGN LET TAGBODY LET WHEN COND IF PROGN UNLESS COND IF NOT IF FUNCALL ; --> SB-C::%FUNCALL EVENP NOT IF LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF NOT IF ; --> FUNCALL SB-C::%FUNCALL EVENP NOT IF LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF NOT IF ; --> FUNCALL SB-C::%FUNCALL EVENP NOT IF LOGTEST NOT IF ZEROP = ; ==> ; (LOGAND SB-C::X SB-C::Y) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum logical op (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 32) logical op (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; etc. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G66) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-61 #:DEFAULTED-END-59)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (SIMPLE-ARRAY (SIGNED-BYTE 4) 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF-NOT #'EVENP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G66) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF-NOT ; --> SB-KERNEL:%FIND-POSITION-IF-NOT-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-61 #:DEFAULTED-END-59)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR (SIGNED-BYTE 4)) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ))) #(1 2 3 2 1) (EQL 0 (POSITION-IF-NOT #'EVENP SEQ)) (VECTOR (SIGNED-BYTE 4)) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND 0 SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND 0 SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND 0 SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND 0 SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G68) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-63 #:DEFAULTED-END-61)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (NULL (FIND 0 SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND 0 SEQ)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND 0 SEQ)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND 0 SEQ))) ; in: LAMBDA (SEQ) ; (FIND 0 SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G68) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-63 #:DEFAULTED-END-61)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (NULL (FIND 0 SEQ)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND 0 SEQ))) "string test" (NULL (FIND 0 SEQ)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G36) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\D SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\D SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G36) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) ; in: LAMBDA (SEQ) ; (FIND #\E SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND #\E SEQ :KEY #'CHAR-UPCASE)) "string test" (FIND #\E SEQ :KEY #'CHAR-UPCASE) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET TAGBODY UNLESS COND IF ; --> PROGN LET TAGBODY LET FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G36) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) ; in: LAMBDA (SEQ) ; (FIND #\e SEQ-TEST::SEQ :KEY #'CHAR-UPCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET ; --> IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN ; --> COND IF FUNCALL FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G58) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G70) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION ; --> SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA LET ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-65 #:DEFAULTED-END-63)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE))) "string test" (NULL (FIND #\e SEQ :KEY #'CHAR-UPCASE)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 3 (POSITION #\i SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 3 (POSITION #\i SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G71) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 #:DEFAULTED-END-64)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 3 (POSITION #\i SEQ))) ; in: LAMBDA (SEQ) ; (POSITION #\i SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G71) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 #:DEFAULTED-END-64)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 3 (POSITION #\i SEQ))) "string test" (EQL 3 (POSITION #\i SEQ)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET ; --> TAGBODY UNLESS COND IF PROGN LET TAGBODY LET FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G40) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G62) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G62) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G62) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G62) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G73) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-68 #:DEFAULTED-END-66)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE))) "string test" (EQL 0 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET ; --> TAGBODY UNLESS COND IF PROGN LET TAGBODY LET FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G42) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G64) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G64) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G77) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-72 #:DEFAULTED-END-70)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G64) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G64) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G77) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-72 #:DEFAULTED-END-70)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=))) "string test" (EQL 1 (POSITION #\s SEQ :KEY #'CHAR-DOWNCASE :TEST #'CHAR/=)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=))) "string test" (EQL 9 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR=)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) ; in: LAMBDA (SEQ) ; (POSITION #\s SEQ-TEST::SEQ :FROM-END T :TEST #'CHAR/=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G75) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-70 #:DEFAULTED-END-68)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=))) "string test" (EQL 10 (POSITION #\s SEQ :FROM-END T :TEST #'CHAR/=)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-IF LET LAMBDA FUNCTION ; --> FUNCALL SB-C::%FUNCALL ; ==> ; (CHAR-EQUAL #:G46 #:G47) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL ; ==> ; (CHAR-EQUAL #:G79 #:G80) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL ; ==> ; (CHAR-EQUAL #:G79 #:G80) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G77) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-72 #:DEFAULTED-END-70)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL ; ==> ; (CHAR-EQUAL #:G79 #:G80) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) ; in: LAMBDA (SEQ) ; (POSITION #\N SEQ-TEST::SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION BLOCK MACROLET IF LOOP BLOCK LET ; --> SB-LOOP::LOOP-BODY TAGBODY SB-C::MAYBE-RETURN LET WHEN COND IF FUNCALL ; --> SB-C::%FUNCALL ; ==> ; (CHAR-EQUAL #:G79 #:G80) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G77) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION SB-KERNEL:%FIND-POSITION-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-72 #:DEFAULTED-END-70)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 4 notes "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL))) "string test" (EQL 4 (POSITION #\N SEQ :FROM-END T :KEY 'CHAR-UPCASE :TEST #'CHAR-EQUAL)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G67) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-62 #:DEFAULTED-END-60)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G69) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-64 #:DEFAULTED-END-62)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) ; in: LAMBDA (SEQ) ; (POSITION-IF (LAMBDA (SEQ-TEST::C) (EQUAL #\g SEQ-TEST::C)) SEQ-TEST::SEQ ; :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> 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 # #:G69) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%FIND-POSITION-IF SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET ; --> SB-KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL IF SB-KERNEL:%WITH-ARRAY-DATA ; --> SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-64 #:DEFAULTED-END-62)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T))) "string test" (EQL 5 (POSITION-IF (LAMBDA (C) (EQUAL #\g C)) SEQ :FROM-END T)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF #'CHARACTERP SEQ) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF #'CHARACTERP SEQ) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF #'CHARACTERP SEQ)) ; in: LAMBDA (SEQ) ; (FIND-IF #'CHARACTERP SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF #'CHARACTERP SEQ)) "string test" (FIND-IF #'CHARACTERP SEQ) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G71) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 #:DEFAULTED-END-64)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) ; in: LAMBDA (SEQ) ; (FIND-IF (LAMBDA (SEQ-TEST::C) (TYPEP SEQ-TEST::C 'BASE-CHAR)) SEQ-TEST::SEQ ; :FROM-END T) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G71) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-66 #:DEFAULTED-END-64)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T)) "string test" (FIND-IF (LAMBDA (C) (TYPEP C 'BASE-CHAR)) SEQ :FROM-END T) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) LIST NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) LIST NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) LIST NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) LIST NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) LIST T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) LIST T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) LIST T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE LIST SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) LIST T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY T 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY T 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY T 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR T) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR T) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR T) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR T) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR T) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR T) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR T) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR T) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR T) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY CHARACTER 1) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (TYPE (SIMPLE-ARRAY CHARACTER 1) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (SIMPLE-ARRAY CHARACTER 1) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=T (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR CHARACTER) NIL ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; compilation unit finished ; printed 1 note "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR CHARACTER) NIL ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR CHARACTER) NIL ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR CHARACTER) NIL ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) ; in: LAMBDA (SEQ) ; (FIND-IF 'UPPER-CASE-P SEQ-TEST::SEQ) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; --> ARRAY-TOTAL-SIZE TRULY-THE * ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA 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 # #:G62) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION-IF ; --> SB-KERNEL:%FIND-POSITION-IF-VECTOR-MACRO LET SB-KERNEL:WITH-ARRAY-DATA ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB-KERNEL:%WITH-ARRAY-DATA SB-KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK ; --> LET TAGBODY RETURN-FROM PROGN VALUES ; ==> ; (THE SB-INT:INDEX (+ #:CUMULATIVE-OFFSET-57 #:DEFAULTED-END-55)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ; compilation unit finished ; printed 3 notes "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR CHARACTER) T ((SPEED 3) (SPACE 0)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 2) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR CHARACTER) T ((SPEED 2) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 1) (SPACE 2))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR CHARACTER) T ((SPEED 1) (SPACE 2)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (LAMBDA (SEQ) (DECLARE (TYPE (VECTOR CHARACTER) SEQ)) (DECLARE (OPTIMIZE (SPEED 0) (SPACE 1))) (NULL (FIND-IF 'UPPER-CASE-P SEQ))) "string test" (NULL (FIND-IF 'UPPER-CASE-P SEQ)) (VECTOR CHARACTER) T ((SPEED 0) (SPACE 1)) (TYPEP SEQ 'SIMPLE-ARRAY)=NIL (SIMPLE-VECTOR) (VECTOR *) (VECTOR (SIGNED-BYTE 8)) (VECTOR (UNSIGNED-BYTE 16)) (VECTOR (SIGNED-BYTE 32)) (SIMPLE-BIT-VECTOR) ; in: LAMBDA NIL ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(STRING= "foo" (COERCE "foo" 'SIMPLE-ARRAY)) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (GO #:G3339) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NULL (MAKE-SEQUENCE 'NULL 0)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3355) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NULL (COERCE #() 'NULL)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (COERCE #() 'NIL) ; --> THE ; ==> ; (SB-KERNEL:%DOUBLE-FLOAT SB-C::X) ; ; caught WARNING: ; Asserted type REAL conflicts with derived type ; (VALUES (SIMPLE-VECTOR 0) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; in: LAMBDA NIL ; (GO #:G3367) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NULL (MERGE 'NULL NIL NIL '<)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3381) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NULL (CONCATENATE 'NULL NIL #())) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes /Accessor SUBSEQ... BASE-CHAR /Accessor SUBSEQ... CHARACTER /Function COUNT, COUNT-IF, COUNT-IF-NOT... BASE-CHAR /Function COUNT, COUNT-IF, COUNT-IF-NOT... CHARACTER /Function FILL... BASE-CHAR /Function FILL... CHARACTER /Function FIND, FIND-IF, FIND-IF-NOT... BASE-CHAR /Function FIND, FIND-IF, FIND-IF-NOT... CHARACTER /Function MISMATCH... BASE-CHAR /Function MISMATCH... CHARACTER /Function PARSE-INTEGER... BASE-CHAR /Function PARSE-INTEGER... CHARACTER /Function PARSE-NAMESTRING... BASE-CHAR /Function PARSE-NAMESTRING... CHARACTER /Function POSITION, POSITION-IF, POSITION-IF-NOT... BASE-CHAR /Function POSITION, POSITION-IF, POSITION-IF-NOT... CHARACTER /Function READ-FROM-STRING... BASE-CHAR /Function READ-FROM-STRING... CHARACTER /Function REDUCE... BASE-CHAR /Function REDUCE... CHARACTER /Function REMOVE, REMOVE-IF, REMOVE-IF-NOT, ...... BASE-CHAR /Function REMOVE, REMOVE-IF, REMOVE-IF-NOT, ...... CHARACTER /... DELETE, DELETE-IF, DELETE-IF-NOT... BASE-CHAR /... DELETE, DELETE-IF, DELETE-IF-NOT... CHARACTER /Function REMOVE-DUPLICATES, DELETE-DUPLICATES... BASE-CHAR /Function REMOVE-DUPLICATES, DELETE-DUPLICATES... CHARACTER /Function REPLACE... BASE-CHAR /Function REPLACE... CHARACTER /Function SEARCH... BASE-CHAR /Function SEARCH... CHARACTER /Function STRING-UPCASE, STRING-DOWNCASE, STRING-CAPITALIZE, ...... BASE-CHAR /... NSTRING-UPCASE, NSTRING-DOWNCASE, NSTRING-CAPITALIZE /Function STRING-UPCASE, STRING-DOWNCASE, STRING-CAPITALIZE, ...... CHARACTER /... NSTRING-UPCASE, NSTRING-DOWNCASE, NSTRING-CAPITALIZE /Function STRING=, STRING/=, STRING<, STRING>, STRING<=, STRING>=, ...... BASE-CHAR /Function STRING=, STRING/=, STRING<, STRING>, STRING<=, STRING>=, ...... CHARACTER /... STRING-EQUAL, STRING-NOT-EQUAL, STRING-LESSP, ...... BASE-CHAR /... STRING-EQUAL, STRING-NOT-EQUAL, STRING-LESSP, ...... CHARACTER /... STRING-GREATERP, STRING-NOT-GREATERP, STRING-NOT-LESSP... BASE-CHAR /... STRING-GREATERP, STRING-NOT-GREATERP, STRING-NOT-LESSP... CHARACTER /Function SUBSTITUTE, SUBSTITUTE-IF, SUBSTITUTE-IF-NOT, ...... BASE-CHAR /Function SUBSTITUTE, SUBSTITUTE-IF, SUBSTITUTE-IF-NOT, ...... CHARACTER /... NSUBSTITUTE, NSUBSTITUTE-IF, NSUBSTITUTE-IF-NOT... BASE-CHAR /... NSUBSTITUTE, NSUBSTITUTE-IF, NSUBSTITUTE-IF-NOT... CHARACTER /Function WRITE-STRING, WRITE-LINE... BASE-CHARaaaaaaaaaaaaaaa aaaaa /Function WRITE-STRING, WRITE-LINE... CHARACTERaaaaaaaaaaaaaaa aaaaa /Macro WITH-INPUT-FROM-STRING... BASE-CHAR /Macro WITH-INPUT-FROM-STRING... CHARACTER /Function UB1-BASH-FILL... /Function UB1-BASH-COPY... /Function UB2-BASH-FILL... /Function UB2-BASH-COPY... /Function UB4-BASH-FILL... /Function UB4-BASH-COPY... /Function UB8-BASH-FILL... /Function UB8-BASH-COPY... /Function UB16-BASH-FILL... /Function UB16-BASH-COPY... /Function UB32-BASH-FILL... /Function UB32-BASH-COPY...// Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/setf.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/signals.impure.lisp ********** // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/smoke.impure.lisp Dynamic space usage is: 40,285,208 bytes. Read-only space usage is: 1,872 bytes. Static space usage is: 1,128 bytes. Control stack usage is: 1,664 bytes. Binding stack usage is: 224 bytes. Garbage collection is currently enabled. Unhandled BUG: failed AVER: "(OR (EQL (ROOM-INFO-LENGTH INFO) (1+ (GET-HEADER-DATA OBJ))) (FLOATP OBJ) (SIMPLE-ARRAY-NIL-P OBJ))" This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at . >>>((UNHANDLED-ERROR /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/smoke.impure.lisp))<<< // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/static-alloc.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/step.impure.lisp ; in: LAMBDA NIL ; (LET* ((RESULTS NIL) ; (EXPECTED ; '(("(- X 2)" :UNKNOWN) ("(FIB-BREAK (- X 2))" #) ("(< X 2)" :UNKNOWN) ; ("(+ (FIB-BREAK (1- X)) (FIB-BREAK (- X 2)))" :UNKNOWN) ; ("(- X 2)" :UNKNOWN) ("(FIB-BREAK (- X 2))" #) ("(< X 2)" :UNKNOWN) ; ("(+ (FIB-BREAK (1- X)) (FIB-BREAK (- X 2)))" :UNKNOWN))) ; (COUNT 0) ; (*STEPPER-HOOK* (LAMBDA (CONDITION) (TYPECASE CONDITION #)))) ; (SETF *CERROR-CALLED* NIL) ; (HANDLER-BIND ((CERROR-BREAK (LAMBDA # # #))) (FIB-BREAK 3)) ; (ASSERT (EQUAL EXPECTED (REVERSE RESULTS)))) ; ; caught STYLE-WARNING: ; The variable COUNT is defined but never used. ; (LAMBDA (C) (SB-IMPL::ENABLE-STEPPING) (INVOKE-RESTART 'CONTINUE)) ; ==> ; #'(LAMBDA (C) (SB-IMPL::ENABLE-STEPPING) (INVOKE-RESTART 'CONTINUE)) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions 1 2 3 4 1 2 3 4 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/stream.impure.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/threads.impure.lisp ; in: LAMBDA NIL ; (SB-THREAD::WITH-SPINLOCK (SB-THREAD::SPINLOCK)) ; --> LET ; ==> ; (SB-THREAD::GET-SPINLOCK #:LOCK0) ; ; caught STYLE-WARNING: ; declaring unknown variable NEW-VALUE to be ignored ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/timer.impure.lisp ; in: LAMBDA NIL ; (SLEEP 1) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (SLEEP 0.1) ; ==> ; 0.1 ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; in: LAMBDA NIL ; (SLEEP 2) ; ; note: deleting unreachable code ; (WITH-TIMEOUT 0.5 (SLEEP 2)) ; --> IF > ; ==> ; 0.5 ; ; note: deleting unreachable code ; --> IF LET SCHEDULE-TIMER ; ==> ; 0.5 ; ; note: deleting unreachable code ; (SLEEP 2) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 5 notes ; in: LAMBDA NIL ; (SLEEP 2) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 3 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/type.impure.lisp type I=CHARACTER type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=INTEGER type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=FIXNUM type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(INTEGER 0 10) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=SINGLE-FLOAT type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(SINGLE-FLOAT -1.0 1.0) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(SINGLE-FLOAT 0.1) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(REAL 4 8) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(REAL -1 7) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(REAL 2 11) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=NULL type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=SYMBOL type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=KEYWORD type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(MEMBER #\a #\b #\c) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(MEMBER 1 #\a) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(MEMBER 3.0 3.3) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(MEMBER #\a #\c #\d #\f) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(INTEGER -1 1) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=UNSIGNED-BYTE type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(RATIONAL -1 7) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=(RATIONAL -2 4) type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type I=RATIO type J=CHARACTER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=INTEGER type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=FIXNUM type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER 0 10) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SINGLE-FLOAT type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT -1.0 1.0) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(SINGLE-FLOAT 0.1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 4 8) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(REAL 2 11) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=NULL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=SYMBOL type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=KEYWORD type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\b #\c) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 1 #\a) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER 3.0 3.3) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(MEMBER #\a #\c #\d #\f) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(INTEGER -1 1) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=UNSIGNED-BYTE type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -1 7) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=(RATIONAL -2 4) type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO type J=RATIO type K=CHARACTER type K=INTEGER type K=FIXNUM type K=(INTEGER 0 10) type K=SINGLE-FLOAT type K=(SINGLE-FLOAT -1.0 1.0) type K=(SINGLE-FLOAT 0.1) type K=(REAL 4 8) type K=(REAL -1 7) type K=(REAL 2 11) type K=NULL type K=SYMBOL type K=KEYWORD type K=(MEMBER #\a #\b #\c) type K=(MEMBER 1 #\a) type K=(MEMBER 3.0 3.3) type K=(MEMBER #\a #\c #\d #\f) type K=(INTEGER -1 1) type K=UNSIGNED-BYTE type K=(RATIONAL -1 7) type K=(RATIONAL -2 4) type K=RATIO ; in: LAMBDA NIL ; (GO #:G3306) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP #(11) '(SIMPLE-ARRAY T 1)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3308) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(TYPEP #(11) '(SIMPLE-ARRAY (OR INTEGER SYMBOL) 1)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (TYPEP #(11) '(SIMPLE-ARRAY UNDEF-TYPE 1)) ; ==> ; (SB-KERNEL:%TYPEP #(11) '(SIMPLE-ARRAY UNDEF-TYPE (*))) ; ; caught STYLE-WARNING: ; undefined type: UNDEF-TYPE ; ; caught STYLE-WARNING: ; undefined type: UNDEF-TYPE ; ; caught STYLE-WARNING: ; This type is undefined: ; UNDEF-TYPE ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; in: LAMBDA NIL ; (GO #:G3312) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP 11 '(SIMPLE-ARRAY UNDEF-TYPE 1))) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (TYPEP 11 'AND) ; ; caught WARNING: ; illegal type specifier for TYPEP: AND ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; The symbol AND is not valid as a type specifier. ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (TYPEP 11 'OR) ; ; caught WARNING: ; illegal type specifier for TYPEP: OR ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; The symbol OR is not valid as a type specifier. ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (TYPEP 11 'MEMBER) ; ; caught WARNING: ; illegal type specifier for TYPEP: MEMBER ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; The symbol MEMBER is not valid as a type specifier. ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (TYPEP 11 'VALUES) ; ; caught WARNING: ; illegal type specifier for TYPEP: VALUES ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; The symbol VALUES is not valid as a type specifier. ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (TYPEP 11 'EQL) ; ; caught WARNING: ; illegal type specifier for TYPEP: EQL ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; error while parsing arguments to DEFTYPE EQL: ; invalid number of elements in ; () ; to satisfy lambda list ; (SB-KERNEL::N): ; exactly 1 expected, but 0 found ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (TYPEP 11 'SATISFIES) ; ; caught WARNING: ; illegal type specifier for TYPEP: SATISFIES ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; The symbol SATISFIES is not valid as a type specifier. ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (TYPEP 11 'NOT) ; ; caught WARNING: ; illegal type specifier for TYPEP: NOT ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; The symbol NOT is not valid as a type specifier. ; ; compilation unit finished ; caught 1 WARNING condition ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (GO #:G3348) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(TYPEP 11 '(AND)) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (GO #:G3350) ; ; note: deleting unreachable code ; (TAGBODY (SB-KERNEL:ASSERT-ERROR '(NOT (TYPEP 11 '(OR))) 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes STYLE-WARNING: redefining |STRUCTURE-CLASS-FOO1 structure class constructor| in DEFUN STYLE-WARNING: redefining |STRUCTURE-CLASS-FOO2 structure class constructor| in DEFUN STYLE-WARNING: redefining |STRUCTURE-CLASS-FOO3 structure class constructor| in DEFUN STYLE-WARNING: redefining |STRUCTURE-CLASS-FOO4 structure class constructor| in DEFUN /setting up *TESTS-OF-INLINE-TYPE-TESTS* ; in: LAMBDA NIL ; (GO #:G3551) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(TYPEP (MAKE-STRUCTURE-FOO3) 'STRUCTURE-FOO2) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes /done with interpreted *TESTS-OF-INLINE-TYPE-TESTS* /done with compiled (TESTS-OF-INLINE-TYPE-TESTS) ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA FOO (X) (DECLARE (TYPE (VECTOR BAR) X)) ; (BLOCK FOO (AREF X 1))) ; ==> ; #'(SB-INT:NAMED-LAMBDA FOO (X) (DECLARE (TYPE (VECTOR BAR) X)) ; (BLOCK FOO (AREF X 1))) ; ; caught STYLE-WARNING: ; undefined type: BAR ; ; caught STYLE-WARNING: ; This type is undefined: ; BAR ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (GO #:G3637) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR '(TYPEP (MAKE-MISC-629A) 'SB-KERNEL:INSTANCE) 'NIL ; NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes ; in: LAMBDA NIL ; (LET* ((SB-PCL::.INSTANCE. ; (SB-PCL::ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE ; #)) ; (SB-PCL::.SLOTS. (SB-PCL::FSC-INSTANCE-SLOTS SB-PCL::.INSTANCE.))) ; (LET () ; (DECLARE (IGNORABLE)) ; (LET () ; )) ; SB-PCL::.INSTANCE.) ; ; caught STYLE-WARNING: ; The variable SB-PCL::.SLOTS. is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (AREF X 0) ; --> LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (ELT (AREF X 0) 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; compilation unit finished ; printed 4 notes ; in: LAMBDA NIL ; (GO #:G3679) ; ; note: deleting unreachable code ; (TAGBODY ; (SB-KERNEL:ASSERT-ERROR ; '(NOT (TYPEP #'PRINT-OBJECT '(AND STANDARD-OBJECT SB-KERNEL:INSTANCE))) ; 'NIL NIL)) ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 2 notes // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/vector.impure.lisp ; in: LAMBDA NIL ; (SB-INT:NAMED-LAMBDA BAR (M) (DECLARE (TYPE (VECTOR SOME-STRUCT) M)) ; (BLOCK BAR ; (LET* ((SUBARRAY #)) ; (FOO SUBARRAY)))) ; ==> ; #'(SB-INT:NAMED-LAMBDA BAR (M) (DECLARE (TYPE (VECTOR SOME-STRUCT) M)) ; (BLOCK BAR ; (LET* ((SUBARRAY #)) ; (FOO SUBARRAY)))) ; ; caught STYLE-WARNING: ; (The function was previously called with zero arguments, but wants at least one.) ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/walk.impure.lisp STYLE-WARNING: implicitly creating new generic function #:FOO // Running impure tests (#) // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/bit-vector.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/bit-vector.impure-cload.lisp" (written 26 JAN 2006 11:06:06 PM): ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFUN TEST-SMALL-BIT-VECTORS ...) ; compiling (DEFUN INFORM ...) ; compiling (DEFUN TEST-BIG-BIT-VECTORS ...) ; compiling (TEST-SMALL-BIT-VECTORS) ; compiling (DEFUN DYNAMIC-SPACE-SIZE ...) ; compiling (TEST-BIG-BIT-VECTORS) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/bit-vector.impure-cload.fasl written ; compilation finished in 0:00:01 STYLE-WARNING: redefining DYNAMIC-SPACE-SIZE in DEFUN :MAKE-ARRAY-1 :MAKE-ARRAY-2 :BIT-NOT :AREF-1 :AREF-2 :BIT-AND :AREF-3 :AREF-4 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos.impure-cload.lisp" (written 09 SEP 2005 03:16:18 PM): ; compiling (DEFCLASS MIO-TEST ...) ; compiling (DEFUN MIO-DEMO ...) ; compiling (DEFUN MIO-TEST ...) ; compiling (MIO-TEST) ; compiling (DEFVAR *D-I-S-E-COUNT* ...) ; compiling (DEFCLASS DEFAULT-INITARGS-SIDE-EFFECT ...) ; compiling (DEFUN DEFAULT-INITARGS-SIDE-EFFECT ...) ; compiling (ASSERT (= *D-I-S-E-COUNT* ...)) ; compiling (DEFAULT-INITARGS-SIDE-EFFECT) ; compiling (ASSERT (= *D-I-S-E-COUNT* ...)) ; compiling (MAKE-INSTANCE (QUOTE DEFAULT-INITARGS-SIDE-EFFECT)) ; compiling (ASSERT (= *D-I-S-E-COUNT* ...)) ; compiling (MAKE-INSTANCE (QUOTE DEFAULT-INITARGS-SIDE-EFFECT) ...) ; compiling (ASSERT (= *D-I-S-E-COUNT* ...)) ; compiling (DEFCLASS CLASS-ALLOCATION ...) ; compiling (DEFUN CLASS-ALLOCATION-READER ...) ; compiling (DEFUN CLASS-ALLOCATION-WRITER ...) ; compiling (ASSERT (= # ...)) ; compiling (CLASS-ALLOCATION-WRITER 4) ; compiling (ASSERT (= # ...)) ; compiling (DEFCLASS SPECIALIZER1 ...) ; compiling (DEFCLASS SPECIALIZER2 ...) ; compiling (DEFMETHOD BAZ ...) ; compiling (DEFMETHOD BAZ ...) ; compiling (ASSERT (TYPEP # ...)) ; compiling (DEFCLASS SPECIALIZER1A ...) ; compiling (DEFCLASS SPECIALIZER2A ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (SB-MOP:ENSURE-CLASS (QUOTE UNKNOWN-TYPE)) ; compiling (DEFMETHOD METHOD-ON-UNKNOWN ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos.impure-cload.lisp ; in: DEFMETHOD METHOD-ON-UNKNOWN (UNKNOWN-TYPE) ; (DEFMETHOD METHOD-ON-UNKNOWN ((X UNKNOWN-TYPE)) X) ; ; caught STYLE-WARNING: ; can't find type for presumed class UNKNOWN-TYPE in ; SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD. ; compiling (DEFCLASS DINITARGS-CLASS1 ...) ; compiling (ASSERT (= # ...)) ; compiling (DEFCLASS DINITARGS-CLASS2 ...) ; compiling (ASSERT (= # ...)) ; compiling (DEFVAR *DEFINITARGS-COUNTER* ...) ; compiling (DEFCLASS DEFINITARGS-CLASS ...) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= *DEFINITARGS-COUNTER* ...)) ; compiling (DEFCLASS SHARED-TO-LOCAL-INITFORM-SUPER ...) ; compiling (DEFCLASS SHARED-TO-LOCAL-INITFORM-SUB ...) ; compiling (ASSERT (SLOT-BOUNDP # ...)) ; compiling (ASSERT (EQ # ...)) ; compiling (DEFGENERIC NO-IGNORED-WARNINGS ...) ; compiling (HANDLER-CASE (EVAL #) ...) ; compiling (HANDLER-CASE (EVAL #) ...) ; compiling (HANDLER-CASE (EVAL #) ...) ; compiling (DEFCLASS INVALID-DEFAULT-INITARGS ...) ; compiling (MULTIPLE-VALUE-BIND (RESULT CONDITION) ...) ; compiling (DEFCLASS DEFAULT-INITARGS-WITH-METHOD ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (MAKE-INSTANCE (QUOTE DEFAULT-INITARGS-WITH-METHOD)) ; compiling (DEFVAR *D-I-W-M-2* ...) ; compiling (DEFCLASS DEFAULT-INITARGS-WITH-METHOD2 ...) ; compiling (DEFMETHOD SHARED-INITIALIZE ...) ; compiling (MAKE-INSTANCE (QUOTE DEFAULT-INITARGS-WITH-METHOD2)) ; compiling (ASSERT (= *D-I-W-M-2* ...)) ; compiling (DEFCLASS CLASS-WITH-SYMBOL-INITARG ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (DEFUN MAKE-THING ...) ; compiling (DEFUN MAKE-OTHER-THING ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos.impure-cload.lisp ; in: DEFUN MAKE-OTHER-THING ; (MAKE-INSTANCE 'CLASS-WITH-SYMBOL-INITARG SLOT ARG) ; ; note: The second argument (in keyword position) is not a constant. ; compiling (ASSERT (EQL # ...)) ; compiling (ASSERT (EQL # ...)) ; compiling (DEFUN CTOR-LITERAL-CLASS ...) ; compiling (DEFUN CTOR-LITERAL-CLASS2 ...) ; compiling (WITH-TEST (:NAME #) ...) ; compiling (WITH-TEST (:NAME #) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos.impure-cload.lisp ; in: ASSERT (TYPEP (BAZ (MAKE-INSTANCE 'SPECIALIZER1)) 'SPECIALIZER1) ; (BAZ (MAKE-INSTANCE 'SPECIALIZER1)) ; ; caught STYLE-WARNING: ; undefined function: BAZ ; ; caught STYLE-WARNING: ; This function is undefined: ; BAZ ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; printed 1 note ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos.impure-cload.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: implicitly creating new generic function BAZ STYLE-WARNING: implicitly creating new generic function METHOD-ON-UNKNOWN // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp" (written 26 AUG 2005 10:09:04 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (LOAD "assertoid") ; compiling (USE-PACKAGE "ASSERTOID") ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFUN EMPTYVALUES ...) ; compiling (DEFSTRUCT FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: DEFSTRUCT FOO ; (DEFSTRUCT FOO X Y) ; --> PROGN SB-KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT ; ==> ; (FLET ((#:CLEANUP-FUN-36 () ; (WHEN #:TOPMOST35 (SETF SB-IMPL::*IGNORED-PACKAGE-LOCKS* :INVALID)) ; NIL)) ; (BLOCK #:DROP-THRU-TAG-37 ; (MULTIPLE-VALUE-BIND ; (#:NEXT39 #:START40 #:COUNT41) ; (BLOCK #:EXIT-TAG-38 (SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT # #)) ; (#:CLEANUP-FUN-36) ; (SB-C:%CONTINUE-UNWIND #:NEXT39 #:START40 #:COUNT41)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; compiling (DEFUN BAR ...) ; compiling (ASSERT (EQ # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN VALUESIFY ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: DEFUN VALUESIFY ; (DEFUN VALUESIFY (X) (VALUES (ROUND X) (COERCE X 'SINGLE-FLOAT))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN CATCH BLOCK SB-C::%WITHIN-CLEANUP ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA VALUESIFY (X) ; (BLOCK VALUESIFY ; (VALUES (ROUND X) (COERCE X 'SINGLE-FLOAT)))) ; ; note: type assertion too complex to check: ; (VALUES INTEGER SINGLE-FLOAT &REST T). ; (COERCE X 'SINGLE-FLOAT) ; --> THE ; ==> ; (SB-KERNEL:%SINGLE-FLOAT SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; (ROUND X) ; --> ROUND LET ; ==> ; (SB-KERNEL:%UNARY-ROUND SB-C::X) ; ; note: forced to do full call ; unable to do inline float truncate (cost 5) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; unable to do inline float truncate (cost 5) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; (COERCE X 'SINGLE-FLOAT) ; --> THE ; ==> ; (SB-KERNEL:%SINGLE-FLOAT SB-C::X) ; ; note: forced to do full call ; unable to do inline float coercion (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float coercion (cost 5) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 32). ; etc. ; compiling (DEFUN EXERCISE-VALUESIFY ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: DEFUN EXERCISE-VALUESIFY ; (+ I F) ; --> + FLOAT ; ==> ; (SB-KERNEL:%SINGLE-FLOAT SB-C::N) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; unable to do inline float coercion (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; ==> ; (+ (FLOAT SB-C::X SB-C::Y) SB-C::Y) ; ; note: doing float to pointer coercion (cost 13) ; compiling (ASSERT (= # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: ASSERT (= (EXERCISE-VALUESIFY 1.25) 2.25) ; (= (EXERCISE-VALUESIFY 1.25) 2.25) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; compiling (DECLAIM (FTYPE FUNCTION ...)) ; compiling (DEFUN I-AM-JUST-A-FUNCTION ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: DEFUN I-AM-JUST-A-FUNCTION ; (+ X Y 1) ; --> + ; ==> ; (+ X Y) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; 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 SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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). ; ==> ; (+ (+ X Y) 1) ; ; note: unable to ; optimize ; 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). ; --> + ; ==> ; (+ X Y) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; ==> ; (+ (+ X Y) 1) ; ; 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. ; compiling (DEFVAR +TIME-ZONES+ ...) ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFUN FOO ...) ; compiling (EVAL (QUOTE #)) ; compiling (ASSERT (EQL # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: ASSERT (EQL (BAR 11) :REAL) ; (BAR 11) ; ; caught STYLE-WARNING: ; The function was called with one argument, but wants exactly zero. ; compiling (ASSERT (EQL # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: ASSERT (EQL (BAR -11) :FIXNUM) ; (BAR -11) ; ; caught STYLE-WARNING: ; The function was called with one argument, but wants exactly zero. ; compiling (SETF (SYMBOL-FUNCTION #) ...) ; compiling (ASSERT (EQL # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: ASSERT (EQL (BAR 11) :FIXNUM) ; (BAR 11) ; ; caught STYLE-WARNING: ; The function was called with one argument, but wants exactly zero. ; compiling (ASSERT (EQL # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: ASSERT (EQL (BAR -11.0) :REAL) ; (BAR -11.0) ; ; caught STYLE-WARNING: ; The function was called with one argument, but wants exactly zero. ; compiling (ASSERT (EQL # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: ASSERT (EQL (BAR "this is a test") :STRING) ; (BAR "this is a test") ; ; caught STYLE-WARNING: ; The function was called with one argument, but wants exactly zero. ; compiling (ASSERT (EQL # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: ASSERT (EQL (BAR (MAKE-HASH-TABLE)) :T) ; (BAR (MAKE-HASH-TABLE)) ; ; caught STYLE-WARNING: ; The function was called with one argument, but wants exactly zero. ; compiling (DEFUN PIXARRAY-ELEMENT-SIZE ...) ; compiling (ASSERT (EQL 1 ...)) ; compiling (DEFUN ARRAY-ELEMENT-TYPE-HANDLING ...) ; compiling (ASSERT (RAISES-ERROR? # ...)) ; compiling (DEFUN BUG220-HELPER ...) ; compiling (ASSERT (EQUAL # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BUG221 ...) ; compiling (DEFSTRUCT BUG166S) ; compiling (DEFMETHOD PERMANENTIZE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: DEFMETHOD PERMANENTIZE (BUG166S) ; (FLET ((FROB (HASH-TABLE TEST-FOR-DELETION) ; ) ; (OBJ-ENTRY.STALE? (OE) ; (DESTRUCTURING-BIND ; (KEY . DATUM) ; OE ; (DECLARE #) ; (DENY0 #) ; (SOME #'STALE? KEY)))) ; (DECLARE (INLINE FROB OBJ-ENTRY.STALE?)) ; (FROB (UUSTK.ARGS-HASH->OBJ-ALIST UUSTK) #'OBJ-ENTRY.STALE?) ; (FROB (UUSTK.HASH->MEMOIZED-OBJS-LIST UUSTK) #'OBJS.STALE?)) ; ; caught STYLE-WARNING: ; The variable HASH-TABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable TEST-FOR-DELETION is defined but never used. ; (FROB (UUSTK.HASH->MEMOIZED-OBJS-LIST UUSTK) #'OBJS.STALE?) ; ; caught STYLE-WARNING: ; The variable HASH-TABLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable TEST-FOR-DELETION is defined but never used. ; compiling (DEFUN BUG115-1 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: DEFUN BUG115-1 ; (DEFUN BUG115-1 () ; (DECLARE (OPTIMIZE (SPEED 2) (DEBUG 3))) ; (FLET ((M1 () ; (UNWIND-PROTECT NIL))) ; (IF (CATCH NIL) (M1) (M1)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA BUG115-1 NIL (DECLARE (OPTIMIZE (SPEED 2) (DEBUG 3))) ; (BLOCK BUG115-1 ; (FLET ((M1 # ; #)) ; (IF (CATCH NIL) (M1) (M1))))) ; ; note: Return type not fixed values, so can't use known return convention: ; NIL ; (UNWIND-PROTECT NIL) ; ==> ; (FLET ((#:CLEANUP-FUN-303 () ; NIL)) ; (BLOCK #:DROP-THRU-TAG-304 ; (MULTIPLE-VALUE-BIND ; (#:NEXT306 #:START307 #:COUNT308) ; (BLOCK #:EXIT-TAG-305 (SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT # #)) ; (#:CLEANUP-FUN-303) ; (SB-C:%CONTINUE-UNWIND #:NEXT306 #:START307 #:COUNT308)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; compiling (DEFUN BUG115-2 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: DEFUN BUG115-2 ; (FOO) ; ; caught STYLE-WARNING: ; The function was called with zero arguments, but wants exactly one. ; (BAR (IF (FOO) 1 2)) ; ; caught STYLE-WARNING: ; The function was called with one argument, but wants exactly zero. ; (BAR X (LIST X)) ; ; caught STYLE-WARNING: ; The function was called with two arguments, but wants exactly zero. ; (FOO) ; ; caught STYLE-WARNING: ; The function was called with zero arguments, but wants exactly one. ; (DEFUN BUG115-2 () ; (DECLARE (OPTIMIZE (SPEED 2) (DEBUG 3))) ; (FLET ((M1 () ; (BAR #) ; (LET # ; #))) ; (IF (CATCH NIL) (M1) (M1)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA BUG115-2 NIL (DECLARE (OPTIMIZE (SPEED 2) (DEBUG 3))) ; (BLOCK BUG115-2 ; (FLET ((M1 # ; # ; #)) ; (IF (CATCH NIL) (M1) (M1))))) ; ; note: Return type not fixed values, so can't use known return convention: ; NIL ; compiling (DEFUN BUG226 ...) ; compiling (DEFUN BUG231A-1 ...) ; compiling (ASSERT (RAISES-ERROR? # ...)) ; compiling (DEFUN BUG231A-2 ...) ; compiling (DESTRUCTURING-BIND (SET GET) ...) ; compiling (DEFUN BUG231B ...) ; compiling (ASSERT (RAISES-ERROR? # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: ASSERT (RAISES-ERROR? (BUG231B NIL 1) TYPE-ERROR) ; (BUG231B NIL 1) ; ; note: deleting unreachable code ; ; caught WARNING: ; Asserted type INTEGER conflicts with derived type (VALUES NULL &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; compiling (ASSERT (RAISES-ERROR? # ...)) ; compiling (ASSERT (RAISES-ERROR? # ...)) ; compiling (DEFUN BUG239 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: DEFUN BUG239 ; (LAMBDA (DATA2 START2) ; (MULTIPLE-VALUE-CALL ; (LAMBDA (DATA3 START3) ; (DECLARE (IGNORE START3)) ; (PRINT (LIST DATA1 DATA2))) ; (VALUES 0 0))) ; ==> ; #'(LAMBDA (DATA2 START2) ; (MULTIPLE-VALUE-CALL ; (LAMBDA (DATA3 START3) ; (DECLARE (IGNORE START3)) ; (PRINT (LIST DATA1 DATA2))) ; (VALUES 0 0))) ; ; caught STYLE-WARNING: ; The variable START2 is defined but never used. ; (LAMBDA (DATA3 START3) (DECLARE (IGNORE START3)) (PRINT (LIST DATA1 DATA2))) ; ==> ; #'(LAMBDA (DATA3 START3) (DECLARE (IGNORE START3)) (PRINT (LIST DATA1 DATA2))) ; ; caught STYLE-WARNING: ; The variable DATA3 is defined but never used. ; (LAMBDA (DATA1 START1) ; (MULTIPLE-VALUE-CALL ; (LAMBDA (DATA2 START2) ; (MULTIPLE-VALUE-CALL (LAMBDA # # #) (VALUES 0 0))) ; (VALUES BIT-ARRAY-2 0))) ; ==> ; #'(LAMBDA (DATA1 START1) ; (MULTIPLE-VALUE-CALL ; (LAMBDA (DATA2 START2) ; (MULTIPLE-VALUE-CALL (LAMBDA # # #) (VALUES 0 0))) ; (VALUES BIT-ARRAY-2 0))) ; ; caught STYLE-WARNING: ; The variable START1 is defined but never used. ; (DEFUN BUG239 (BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY) ; (DECLARE (TYPE (ARRAY BIT) BIT-ARRAY-2) ; (TYPE (OR (ARRAY BIT) (MEMBER T NIL)) RESULT-BIT-ARRAY)) ; (UNLESS (SIMPLE-BIT-VECTOR-P BIT-ARRAY-2) ; (MULTIPLE-VALUE-CALL (LAMBDA (DATA1 START1) (MULTIPLE-VALUE-CALL # #)) ; (VALUES 444 0)))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA BUG239 (BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY) ; (DECLARE (TYPE (ARRAY BIT) BIT-ARRAY-2) ; (TYPE (OR (ARRAY BIT) (MEMBER T NIL)) ; RESULT-BIT-ARRAY)) ; (BLOCK BUG239 ; (UNLESS (SIMPLE-BIT-VECTOR-P BIT-ARRAY-2) ; (MULTIPLE-VALUE-CALL (LAMBDA # #) ; (VALUES 444 0))))) ; ; caught STYLE-WARNING: ; The variable RESULT-BIT-ARRAY is defined but never used. ; compiling (ASSERT (EQUAL # ...)) ; compiling (DEFSTRUCT SOME-STRUCTURE ...) ; compiling (ASSERT (TYPEP # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.lisp ; in: DEFUN BUG226 ; (TYPEP CONDITION RESULT) ; ; caught WARNING: ; undefined variable: CONDITION ; in: DEFMETHOD PERMANENTIZE (BUG166S) ; (DENY0 (VOID? DATUM)) ; ; caught STYLE-WARNING: ; undefined function: DENY0 ; in: DEFUN BUG226 ; (EQ MY-RESULT :ERROR) ; ; caught WARNING: ; undefined variable: MY-RESULT ; in: DEFMETHOD PERMANENTIZE (BUG166S) ; #'OBJS.STALE? ; ; caught STYLE-WARNING: ; undefined function: OBJS.STALE? ; in: DEFUN BUG226 ; (TYPEP CONDITION RESULT) ; ; caught WARNING: ; undefined variable: RESULT ; in: DEFMETHOD PERMANENTIZE (BUG166S) ; #'STALE? ; ; caught STYLE-WARNING: ; undefined function: STALE? ; (UUSTK.ARGS-HASH->OBJ-ALIST UUSTK) ; ; caught STYLE-WARNING: ; undefined function: UUSTK.ARGS-HASH->OBJ-ALIST ; (UUSTK.HASH->MEMOIZED-OBJS-LIST UUSTK) ; ; caught STYLE-WARNING: ; undefined function: UUSTK.HASH->MEMOIZED-OBJS-LIST ; (VOID? DATUM) ; ; caught STYLE-WARNING: ; undefined function: VOID? ; ; caught WARNING: ; These variables are undefined: ; CONDITION MY-RESULT RESULT ; ; caught STYLE-WARNING: ; These functions are undefined: ; DENY0 OBJS.STALE? STALE? UUSTK.ARGS-HASH->OBJ-ALIST UUSTK.HASH->MEMOIZED-OBJS-LIST VOID? ; ; compilation unit finished ; caught 5 WARNING conditions ; caught 25 STYLE-WARNING conditions ; printed 31 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-1.impure-cload.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: redefining BAR in DEFUN STYLE-WARNING: implicitly creating new generic function PERMANENTIZE (444 #*0000) // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-2.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-2.impure-cload.lisp" (written 09 JUN 2006 09:59:44 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DECLAIM (OPTIMIZE SPEED)) ; compiling (DEFUN FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-2.impure-cload.lisp ; in: DEFUN FOO ; (<= N 0) ; --> IF ; ==> ; (> N 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (1- N) ; ==> ; (- N 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (<= N 0) ; --> IF ; ==> ; (> N 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. ; (1- N) ; ==> ; (- N 1) ; ; 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 REAL &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 REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN BAR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-2.impure-cload.lisp ; in: DEFUN BAR ; (<= N 0) ; --> IF ; ==> ; (> N 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (1- N) ; ==> ; (- N 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (<= N 0) ; --> IF ; ==> ; (> N 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. ; (1- N) ; ==> ; (- N 1) ; ; 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 REAL &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 REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUUX ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-2.impure-cload.lisp ; in: DEFUN QUUX ; (<= N 0) ; --> IF ; ==> ; (> N 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (1- N) ; ==> ; (- N 1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (<= N 0) ; --> IF ; ==> ; (> N 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. ; (1- N) ; ==> ; (- N 1) ; ; 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 REAL &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 REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FROB ...) ; compiling (DEFUN TEST ...) ; compiling (ASSERT (EQUAL # ...)) ; compiling (ASSERT (EQUAL # ...)) ; compiling (WRITE-LINE "//compiler-2.impure.cload.lisp"); ; compilation unit finished ; printed 12 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-2.impure-cload.fasl written ; compilation finished in 0:00:00 //compiler-2.impure.cload.lisp // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp" (written 16 JUL 2006 10:51:01 PM): ; compiling (LOAD "assertoid.lisp") ; compiling (USE-PACKAGE "ASSERTOID") ; compiling (DEFPACKAGE :BUG254 ...) ; compiling (IN-PACKAGE :BUG254) ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFSTRUCT FOO ...); in: LAMBDA (#:WHOLE69 #:ENVIRONMENT70) ; (LET* ((BUG254::VARIANT (CAR (CDR #:WHOLE69))) ; (BUG254::LEXPR ; (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :LEXPR #:KEYWORDS-72) ; (SB-KERNEL::LOOKUP-KEYWORD :LEXPR #:KEYWORDS-72) NIL)) ; (BUG254::EEXPR ; (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :EEXPR #:KEYWORDS-72) ; (SB-KERNEL::LOOKUP-KEYWORD :EEXPR #:KEYWORDS-72) NIL))) ; (BLOCK BUG254::DEFPROJECTION ; (LET () ; `(DEFMETHOD BUG254::UU (#) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; The variable VARIANT is defined but never used. ; ; caught STYLE-WARNING: ; The variable EEXPR is defined but never used. ; compiling (DEFPROJECTION H ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFPROJECTION H ; (LENGTH REST) ; ; 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. ; (SETF (AREF BUG254::AVECNAME 0) (BUG254::BD (BUG254::H BUG254::SOUTH))) ; --> SB-KERNEL:%ASET LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR T), not a SIMPLE-ARRAY. ; (SETF (AREF BUG254::AVECNAME 1) (BUG254::BD (BUG254::H BUG254::EAST))) ; --> SB-KERNEL:%ASET LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; --> SB-KERNEL:%ASET LET* SB-KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR T), not a SIMPLE-ARRAY. ; (FLET ((BUG254::BD (BUG254::X) ; (BUG254::BREF BUG254::X BUG254::SCHED))) ; (LET ((BUG254::AVECNAME (BUG254::GAFP))) ; (DECLARE (TYPE (VECTOR T) BUG254::AVECNAME)) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (SETF # #) ; (SETF # #) ; (SETF # #) ; (BUG254::STUB BUG254::AVECNAME)) ; (BUG254::PAIP BUG254::AVECNAME)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; compiling (IN-PACKAGE :CL-USER) ; compiling (DELETE-PACKAGE :BUG254) ; compiling (DEFPACKAGE :BUG255 ...) ; compiling (IN-PACKAGE :BUG255) ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFVAR *1*) ; compiling (DEFVAR *2*) ; compiling (DEFSTRUCT V ...) ; compiling (DEFSTRUCT W) ; compiling (DEFSTRUCT YAM ...) ; compiling (DEFSTRUCT UN ...) ; compiling (DEFSTRUCT (BOD #) ...) ; compiling (DEFSTRUCT (BAD #) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %UFM ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %PU ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN %PU ; (DEFUN BUG255::%PU (BUG255::PDS) BUG255::*2*) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA BUG255::%PU (BUG255::PDS) ; (BLOCK BUG255::%PU BUG255::*2*)) ; ; caught STYLE-WARNING: ; The variable PDS is defined but never used. ; compiling (DEFUN UU ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN UU ; (FLET ((BUG255::PROJECT (BUG255::X) ; (BUG255::FROB BUG255::X 0))) ; (LET ((BUG255::AVECNAME BUG255::*1*)) ; (MULTIPLE-VALUE-PROG1 (PROGN (BUG255::%PU BUG255::AVECNAME)) ; (BUG255::FROB)))) ; ; note: deleting unused function ; (FLET PROJECT) ; (BUG255::%UFM BUG255::V ; (FLET ((BUG255::PROJECT (BUG255::X) ; (BUG255::FROB BUG255::X 0))) ; (LET ((BUG255::AVECNAME BUG255::*1*)) ; (MULTIPLE-VALUE-PROG1 (PROGN #) (BUG255::FROB))))) ; ; note: deleting unreachable code ; (DEFUN BUG255::UU (BUG255::YAM) ; (LET ((BUG255::V (BUG255::YAM-V BUG255::AZ))) ; (BUG255::%UFM BUG255::V ; (FLET (#) ; (LET # ; #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA BUG255::UU (BUG255::YAM) ; (BLOCK BUG255::UU ; (LET ((BUG255::V #)) ; (BUG255::%UFM BUG255::V ; (FLET # ; #))))) ; ; caught STYLE-WARNING: ; The variable YAM is defined but never used. ; (BUG255::%UFM BUG255::V ; (FLET ((BUG255::PROJECT (BUG255::X) ; (BUG255::FROB BUG255::X 0))) ; (LET ((BUG255::AVECNAME BUG255::*1*)) ; (MULTIPLE-VALUE-PROG1 (PROGN #) (BUG255::FROB))))) ; ; caught WARNING: ; Asserted type (OR W BAD) conflicts with derived type ; (VALUES (OR V NULL) &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; compiling (IN-PACKAGE :CL-USER) ; compiling (DELETE-PACKAGE :BUG255) ; compiling (DEFPACKAGE :BUG148 ...) ; compiling (IN-PACKAGE :BUG148) ; compiling (DEFVAR *THING*) ; compiling (DEFVAR *ZOOM*) ; compiling (DEFSTRUCT FOO ...) ; compiling (DEFUN %ZEEP ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN %ZEEP ; (LABELS ((BUG148::KIDIFY1 (BUG148::KID) ; ) ; (BUG148::KID-FROB (BUG148::KID) ; (IF BUG148::*THING* (SETF BUG148::SWEPTM #) ; (BUG148::KIDIFY1 BUG148::KID)))) ; (DECLARE (INLINE BUG148::KID-FROB)) ; (MAP NIL #'BUG148::KID-FROB ; (THE SIMPLE-VECTOR (BUG148::FOO-BAR BUG148::PERD)))) ; ; caught STYLE-WARNING: ; The variable KID is defined but never used. ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFVAR *FOO*) ; compiling (DEFVAR *BAR*) ; compiling (DEFUN U-B-SRA ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN U-B-SRA ; (BUG148::AD.FROB BUG148::AD0) ; ; caught STYLE-WARNING: ; The variable AD is defined but never used. ; (MAP NIL #'BUG148::AD.FROB (THE (VECTOR T) BUG148::*BAR*)) ; --> TRULY-THE SB-KERNEL:%MAP LET DO BLOCK LET TAGBODY TAGBODY LET FUNCALL ; ==> ; (SB-C::%FUNCALL FUNCTION #:G565) ; ; note: couldn't inline expand because expansion calls this LET-converted local function: ; (LABELS C.FROB) ; (DOLIST (BUG148::B BUG148::*BAR*) (BUG148::C.FROB BUG148::B)) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((BUG148::B (CAR #:N-LIST579))) ; (SETQ #:N-LIST579 (CDR #:N-LIST579)) ; (TAGBODY (BUG148::C.FROB BUG148::B))) ; ; note: deleting unused function ; (LET ((B (CAR "#<...>" . "#<...>"))) ; ) ; --> BLOCK ; ==> ; (LET ((#:N-LIST579 BUG148::*BAR*)) ; (TAGBODY ; #:START580 ; (UNLESS (ENDP #:N-LIST579) ; (LET (#) ; (SETQ #:N-LIST579 #) ; (TAGBODY #)) ; (GO #:START580)))) ; ; note: deleting unused function ; (LET ((#:N-LIST579 *BAR*)) ; ) ; (MAP NIL #'BUG148::AD.FROB (THE (VECTOR T) BUG148::*BAR*)) ; --> TRULY-THE SB-KERNEL:%MAP LET DO BLOCK LET TAGBODY TAGBODY LET FUNCALL ; ==> ; (SB-C::%FUNCALL FUNCTION #:G565) ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE (LABELS AD.FROB)) ; ==> ; (SB-C::%FUNCALL FUNCTION #:G572) ; ; note: couldn't inline expand because expansion calls this LET-converted local function: ; (LABELS C.FROB) ; (DOLIST (BUG148::B BUG148::*BAR*) (BUG148::C.FROB BUG148::B)) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((BUG148::B (CAR #:N-LIST581))) ; (SETQ #:N-LIST581 (CDR #:N-LIST581)) ; (TAGBODY (BUG148::C.FROB BUG148::B))) ; ; note: deleting unused function ; (LET ((B (CAR "#<...>" . "#<...>"))) ; ) ; --> BLOCK ; ==> ; (LET ((#:N-LIST581 BUG148::*BAR*)) ; (TAGBODY ; #:START582 ; (UNLESS (ENDP #:N-LIST581) ; (LET (#) ; (SETQ #:N-LIST581 #) ; (TAGBODY #)) ; (GO #:START582)))) ; ; note: deleting unused function ; (LET ((#:N-LIST581 *BAR*)) ; ) ; (MAP NIL #'BUG148::AD.FROB (THE (VECTOR T) BUG148::*BAR*)) ; --> TRULY-THE SB-KERNEL:%MAP LET DO BLOCK LET TAGBODY TAGBODY LET FUNCALL ; ==> ; (SB-C::%FUNCALL FUNCTION #:G572) ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE (LABELS AD.FROB)) ; --> TRULY-THE SB-KERNEL:%MAP LET DO BLOCK LET TAGBODY TAGBODY LET FUNCALL ; --> LOCALLY AREF LET* SB-KERNEL:HAIRY-DATA-VECTOR-REF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%DATA-VECTOR-AND-INDEX ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR T), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR T), not a SIMPLE-ARRAY. ; (LABELS ((BUG148::C.FROB (BUG148::C0) ; (LET () ; (WHEN BUG148::*FOO* #))) ; (BUG148::AD.FROB (BUG148::AD) ; (IF BUG148::*FOO* (MAP NIL #'BUG148::AD.FROB #) (DOLIST # #)))) ; (DECLARE (INLINE BUG148::C.FROB BUG148::AD.FROB)) ; (BUG148::AD.FROB BUG148::AD0)) ; ; caught STYLE-WARNING: ; The variable AD is defined but never used. ; (DEFUN BUG148::U-B-SRA ; (BUG148::X BUG148::R BUG148::AD0 ; &OPTIONAL BUG148::AD1 ; &REST BUG148::AD-LIST) ; (LABELS ((BUG148::C.FROB (BUG148::C0) ; (LET # ; #)) ; (BUG148::AD.FROB (BUG148::AD) ; (IF BUG148::*FOO* # #))) ; (DECLARE (INLINE BUG148::C.FROB BUG148::AD.FROB)) ; (BUG148::AD.FROB BUG148::AD0))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA BUG148::U-B-SRA ; (BUG148::X BUG148::R BUG148::AD0 &OPTIONAL BUG148::AD1 ; &REST BUG148::AD-LIST) ; (BLOCK BUG148::U-B-SRA ; (LABELS ((BUG148::C.FROB # ; #) ; (BUG148::AD.FROB # ; #)) ; (DECLARE (INLINE BUG148::C.FROB BUG148::AD.FROB)) ; (BUG148::AD.FROB BUG148::AD0)))) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; caught STYLE-WARNING: ; The variable R is defined but never used. ; ; caught STYLE-WARNING: ; The variable AD1 is defined but never used. ; ; caught STYLE-WARNING: ; The variable AD-LIST is defined but never used. ; compiling (DEFUN BUG148-3 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN BUG148-3 ; (BUG148::AD.FROB BUG148::AD0) ; ; caught STYLE-WARNING: ; The variable AD is defined but never used. ; (DOLIST (BUG148::B BUG148::*BAR*) (BUG148::C.FROB)) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((BUG148::B (CAR #:N-LIST614))) ; (SETQ #:N-LIST614 (CDR #:N-LIST614)) ; (TAGBODY (BUG148::C.FROB))) ; ; caught STYLE-WARNING: ; The variable B is defined but never used. ; ==> ; (LET ((BUG148::B (CAR #:N-LIST602))) ; (SETQ #:N-LIST602 (CDR #:N-LIST602)) ; (TAGBODY (BUG148::C.FROB))) ; ; caught STYLE-WARNING: ; The variable B is defined but never used. ; (MAPC #'BUG148::AD.FROB BUG148::*BAR*) ; --> LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY FUNCALL ; ==> ; (SB-C::%FUNCALL FUNCTION #:G618) ; ; note: couldn't inline expand because expansion calls this LET-converted local function: ; (LABELS C.FROB) ; (DOLIST (BUG148::B BUG148::*BAR*) (BUG148::C.FROB)) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((BUG148::B (CAR #:N-LIST627))) ; (SETQ #:N-LIST627 (CDR #:N-LIST627)) ; (TAGBODY (BUG148::C.FROB))) ; ; note: deleting unused function ; (LET ((B (CAR "#<...>" . "#<...>"))) ; ) ; --> BLOCK ; ==> ; (LET ((#:N-LIST627 BUG148::*BAR*)) ; (TAGBODY ; #:START628 ; (UNLESS (ENDP #:N-LIST627) ; (LET (#) ; (SETQ #:N-LIST627 #) ; (TAGBODY #)) ; (GO #:START628)))) ; ; note: deleting unused function ; (LET ((#:N-LIST627 *BAR*)) ; ) ; (MAPC #'BUG148::AD.FROB BUG148::*BAR*) ; --> LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY FUNCALL ; ==> ; (SB-C::%FUNCALL FUNCTION #:G618) ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE (LABELS AD.FROB)) ; ==> ; (SB-C::%FUNCALL FUNCTION #:G619) ; ; note: couldn't inline expand because expansion calls this LET-converted local function: ; (LABELS C.FROB) ; (DOLIST (BUG148::B BUG148::*BAR*) (BUG148::C.FROB)) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((BUG148::B (CAR #:N-LIST636))) ; (SETQ #:N-LIST636 (CDR #:N-LIST636)) ; (TAGBODY (BUG148::C.FROB))) ; ; note: deleting unused function ; (LET ((B (CAR "#<...>" . "#<...>"))) ; ) ; --> BLOCK ; ==> ; (LET ((#:N-LIST636 BUG148::*BAR*)) ; (TAGBODY ; #:START637 ; (UNLESS (ENDP #:N-LIST636) ; (LET (#) ; (SETQ #:N-LIST636 #) ; (TAGBODY #)) ; (GO #:START637)))) ; ; note: deleting unused function ; (LET ((#:N-LIST636 *BAR*)) ; ) ; (MAPC #'BUG148::AD.FROB BUG148::*BAR*) ; --> LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY FUNCALL ; ==> ; (SB-C::%FUNCALL FUNCTION #:G619) ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE (LABELS AD.FROB)) ; (LABELS ((BUG148::C.FROB () ; ) ; (BUG148::AD.FROB (BUG148::AD) ; (IF BUG148::*FOO* (MAPC #'BUG148::AD.FROB BUG148::*BAR*) ; (DOLIST # #)))) ; (DECLARE (INLINE BUG148::C.FROB BUG148::AD.FROB)) ; (BUG148::AD.FROB BUG148::AD0)) ; ; caught STYLE-WARNING: ; The variable AD is defined but never used. ; compiling (DEFUN BUG148-4 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN BUG148-4 ; #'PRINT ; ; note: deleting unreachable code ; (FUNCALL (IF (LISTP BUG148::AD0) #'BUG148::AD.FROB #'PRINT) BUG148::AD0) ; ==> ; (SB-C::%FUNCALL FUNCTION #:G649) ; ; note: couldn't inline expand because expansion calls this LET-converted local function: ; (LABELS C.FROB) ; (LOOP BUG148::FOR BUG148::B BUG148::IN BUG148::AD BUG148::COLLECT ; (BUG148::C.FROB BUG148::B)) ; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY ; --> TAGBODY SB-LOOP::LOOP-COLLECT-RPLACD RPLACD ; ==> ; (LET ((#:ONCE-ONLY-654 #:LOOP-LIST-TAIL-653)) ; (PROGN ; (SETF (CDR #:ONCE-ONLY-654) (SETQ #:LOOP-LIST-TAIL-653 (LIST #))) ; #:ONCE-ONLY-654)) ; ; note: deleting unused function ; (LET ((#:ONCE-ONLY-654 #:LOOP-LIST-TAIL-653)) ; ) ; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; ==> ; (LET* ((#:LOOP-LIST-HEAD-652 (LIST NIL)) ; (#:LOOP-LIST-TAIL-653 #:LOOP-LIST-HEAD-652)) ; (SB-LOOP::LOOP-BODY NIL ; ((WHEN (ENDP #:LOOP-LIST-651) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-REALLY-DESETQ BUG148::B ; (CAR #:LOOP-LIST-651)) ; NIL ; (SB-LOOP::LOOP-REALLY-DESETQ #:LOOP-LIST-651 ; (CDR #:LOOP-LIST-651))) ; ((SB-LOOP::LOOP-COLLECT-RPLACD ; (#:LOOP-LIST-HEAD-652 #:LOOP-LIST-TAIL-653) ; (LIST #))) ; ((WHEN (ENDP #:LOOP-LIST-651) (GO SB-LOOP::END-LOOP)) ; (SB-LOOP::LOOP-REALLY-DESETQ BUG148::B ; (CAR #:LOOP-LIST-651)) ; NIL ; (SB-LOOP::LOOP-REALLY-DESETQ #:LOOP-LIST-651 ; (CDR #:LOOP-LIST-651))) ; ((RETURN-FROM NIL ; (SB-LOOP::LOOP-COLLECT-ANSWER ; #:LOOP-LIST-HEAD-652))))) ; ; note: deleting unused function ; (SB-C::&AUX-BINDINGS ((SB-C::OF-TYPE SB-C::LAMBDA-VAR))) ; ; note: deleting unused function ; (SB-C::&AUX-BINDINGS ; ((SB-C::OF-TYPE SB-C::LAMBDA-VAR) (SB-C::OF-TYPE SB-C::LAMBDA-VAR))) ; --> BLOCK ; ==> ; (LET ((BUG148::B NIL) (#:LOOP-LIST-651 BUG148::AD)) ; (DECLARE (TYPE LIST #:LOOP-LIST-651)) ; (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD ; (#:LOOP-LIST-HEAD-652 #:LOOP-LIST-TAIL-653) ; (SB-LOOP::LOOP-BODY NIL ; ((WHEN # #) (SB-LOOP::LOOP-REALLY-DESETQ BUG148::B #) ; NIL (SB-LOOP::LOOP-REALLY-DESETQ #:LOOP-LIST-651 #)) ; ((SB-LOOP::LOOP-COLLECT-RPLACD # #)) ; ((WHEN # #) (SB-LOOP::LOOP-REALLY-DESETQ BUG148::B #) ; NIL (SB-LOOP::LOOP-REALLY-DESETQ #:LOOP-LIST-651 #)) ; ((RETURN-FROM NIL #))))) ; ; note: deleting unused function ; (LET ((B NIL) (#:LOOP-LIST-651 AD)) ; ) ; (FUNCALL (IF (LISTP BUG148::AD0) #'BUG148::AD.FROB #'PRINT) BUG148::AD0) ; ==> ; (SB-C::%FUNCALL FUNCTION #:G649) ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE (LABELS AD.FROB)) ; #'PRINT ; ; note: deleting unreachable code ; (* 7 BUG148::X) ; ==> ; (* SB-C::Y 7) ; ; note: unable to ; optimize ; 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 ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; recode as shifts and adds ; due to type uncertainty: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) ; &REST T). ; ; note: forced to do GENERIC-* (cost 50) ; 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. ; compiling (ASSERT (EQUAL # ...)) ; compiling (IN-PACKAGE :CL-USER) ; compiling (DELETE-PACKAGE :BUG148) ; compiling (DEFPACKAGE :BUG258 ...) ; compiling (IN-PACKAGE :BUG258) ; compiling (DEFUN U-B-SRA ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN U-B-SRA ; #'PRINT ; ; note: deleting unreachable code ; (FUNCALL (IF (LISTP BUG258::AD0) #'BUG258::AD.FROB #'PRINT) BUG258::AD0) ; ==> ; (SB-C::%FUNCALL FUNCTION #:G680) ; ; note: couldn't inline expand because expansion calls this LET-converted local function: ; (LABELS C.FROB) ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE (LABELS AD.FROB)) ; #'PRINT ; ; note: deleting unreachable code ; (1- BUG258::X) ; ==> ; (- BUG258::X 1) ; ; note: unable to ; optimize ; 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: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (ASSERT (EQUAL # ...)) ; compiling (IN-PACKAGE :CL-USER) ; compiling (DELETE-PACKAGE :BUG258) ; compiling (DEFUN BUG233A ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN BUG233A ; (FUNCALL (EVAL ''LIST) Y (+ Y 2.0d0) (* Y 3.0d0)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; (+ X 1.0d0) ; ; note: doing float to pointer coercion (cost 13) to "", for: ; the first result of inline float arithmetic ; (FUNCALL (EVAL ''LIST) Y (+ Y 2.0d0) (* Y 3.0d0)) ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) #:G700 #:G701 ; #:G702) ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; compiling (ASSERT (RAISES-ERROR? # ...)) ; compiling (DEFUN BUG145B ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN BUG145B ; (SQRT (LOG (RANDOM 1.0d0))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES (OR (MEMBER -0.0d0) (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (+ X (SQRT (LOG (RANDOM 1.0d0)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR (MEMBER -0.0d0) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The second argument is a (OR (MEMBER -0.0d0) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The result is a (VALUES (OR (COMPLEX DOUBLE-FLOAT) (DOUBLE-FLOAT 0.0d0)) ; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; (RANDOM 1.0d0) ; --> SB-KERNEL:%RANDOM-DOUBLE-FLOAT BLOCK * - SB-KERNEL:MAKE-DOUBLE-FLOAT DPB ; --> LET SB-KERNEL:%DPB ASH SB-KERNEL:RANDOM-CHUNK BLOCK LET* ; --> MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET AND IF TYPEP ; ==> ; (SB-INT:FIXNUMP #:ONCE-ONLY-758) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; --> SB-KERNEL:%RANDOM-DOUBLE-FLOAT BLOCK * - SB-KERNEL:MAKE-DOUBLE-FLOAT ; --> SB-KERNEL:RANDOM-CHUNK BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS COND IF ; --> NOT IF TYPEP LET AND IF TYPEP ; ==> ; (SB-INT:FIXNUMP #:ONCE-ONLY-764) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of FIXNUMP ; (SQRT (LOG (RANDOM 1.0d0))) ; ; note: doing float to pointer coercion (cost 13) ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN #:FOO ; (ABS C) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- (LOGIOR (ABS (- (+ B #))) (LOGCOUNT (LOGEQV (MAX # 0) -4))) D) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (LOGANDC1 A 250775) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The first argument is a T, not a (SIGNED-BYTE 32). ; etc. ; (ABS C) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (- (LOGIOR (ABS (- (+ B #))) (LOGCOUNT (LOGEQV (MAX # 0) -4))) D) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN #:FOO ...) ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN #:FOO ; (1+ X) ; ==> ; (+ X 1) ; ; note: unable to ; optimize ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN #:FOO ; (LABELS ((%F14 () ; (MOD A (MAX 76 8)))) ; B) ; ; note: deleting unused function ; (LABELS %F14) ; (IF T (RETURN-FROM B2 1582) B) ; ==> ; B ; ; note: deleting unreachable code ; (MOD C (MIN -49 (IF T (RETURN-FROM B2 1582) B))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (LOGANDC1 (BLOCK B2 (MOD C (MIN -49 (IF T # B)))) ; (LABELS ((%F14 () ; (MOD A #))) ; B)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER -5029571274946 48793670), not a FIXNUM. ; The result is a (VALUES (SIGNED-BYTE 44) &OPTIONAL), not a (VALUES FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 3) because: ; The second argument is a (INTEGER -5029571274946 ; 48793670), not a (SIGNED-BYTE 32). ; The result is a (VALUES (SIGNED-BYTE 44) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; (- (MOD 1020122 (MIN -49 -420)) ; (LOGANDC1 (BLOCK B2 (MOD C (MIN -49 #))) ; (LABELS ((%F14 # ; #)) ; B))) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (SIGNED-BYTE 44), not a FIXNUM. ; The result is a (VALUES (INTEGER -8796093022265 8796093022150) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a (SIGNED-BYTE 44), not a FIXNUM. ; The result is a (VALUES (INTEGER -8796093022265 8796093022150) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSTRUCT LINE ...) ; compiling (DEFUN UPDATE-WINDOW-IMAG ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN UPDATE-WINDOW-IMAG ; #'(LAMBDA (&OPTIONAL G2740 G2741 &REST G2742) ; (DECLARE (IGNORE G2742)) ; (CATCH 'FOO (VALUES (SETQ STRING G2740) (SETQ UNDERHANG G2741)))) ; ; note: deleting unreachable code ; 'FOO ; ; note: deleting unreachable code ; (SETF (DIS-LINE-OLD-CHARS CC) CHARS) ; --> LET* MULTIPLE-VALUE-BIND LET ; ==> ; CHARS ; ; note: deleting unreachable code ; (LINE-%CHARS LINE) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF ; ==> ; (THE LINE LINE) ; ; caught WARNING: ; Asserted type LINE conflicts with derived type (VALUES NULL &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN #:FOO ; (FLET ((%F7 () ; B)) ; -1) ; ; note: deleting unused function ; (FLET %F7) ; (FLET ((%F11 () ; (BLOCK B6 ; (LET # ; #)))) ; A) ; ; note: deleting unused function ; (FLET %F11) ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN #:FOO ; (FLET ((%F15 () ; (BLOCK B8 ; (LET # ; #)))) ; C) ; ; note: deleting unused function ; (FLET %F15) ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN #:FOO ; (* C 12) ; ; note: unable to ; recode as shifts and adds ; due to type uncertainty: ; The first argument is a (INTEGER -5945502333 12668542), not a (UNSIGNED-BYTE ; 32). ; The result is a (VALUES (INTEGER -71346027996 152022504) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T). ; (DEFUN #:FOO (C) ; (DECLARE (TYPE (INTEGER -5945502333 12668542) C) (OPTIMIZE (SPEED 3))) ; (LET ((V2 (* C 12))) ; (- (MAX (IF # -26479 V2) (DEPOSIT-FIELD 311 # #))))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION LOCALLY ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS COND IF NOT IF TYPEP LET ; --> AND IF AND LOCALLY AND IF AND <= IF ; ==> ; (> (TRULY-THE INTEGER #:ONCE-ONLY-923) 12668542) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -5945502333), not a FIXNUM. ; (* C 12) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -5945502333 12668542), not a FIXNUM. ; The result is a (VALUES (INTEGER -71346027996 152022504) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -5945502333 12668542), not a FIXNUM. ; The result is a (VALUES (INTEGER -71346027996 152022504) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN #:FOO ...) ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN #:FOO ; (%F5) ; ; note: deleting unreachable code ; (FLET ((%F5 () ; (IF (< C A) (RETURN-FROM %F5 #) C))) ; (IF (<= 11 C) (%F5) C)) ; ; note: deleting unreachable code ; (< C A) ; ==> ; C ; ; note: deleting unreachable code ; (= -4857 A) ; ==> ; A ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (%F8) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (FLET ((%F8 () ; C)) ; (FLET ((%F5 () ; (IF # # C))) ; (IF (<= 11 C) (%F5) C))) ; ; note: deleting unreachable code ; (IF (< C A) (RETURN-FROM %F5 (IF (= -4857 A) (%F8) (%F8))) C) ; ==> ; C ; ; note: deleting unreachable code ; (FLET ((%F8 () ; C)) ; (FLET ((%F5 () ; (IF # # C))) ; (IF (<= 11 C) (%F5) C))) ; --> BLOCK ; ==> ; C ; ; note: deleting unreachable code ; compiling (DEFUN LISP-ERROR-ERROR-HANDLER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN LISP-ERROR-ERROR-HANDLER ; (INVOKE-DEBUGGER CONDITION) ; ==> ; CONDITION ; ; note: deleting unreachable code ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN #:FOO ; (LABELS ((BAR (X &OPTIONAL (Y #)) ; (LIST X Y (APPLY #'BAR #)))) ; (LIST (BAR 1) (BAR 1 2))) ; --> LET SB-C::%FUNCALL ; ==> ; X ; ; note: deleting unreachable code ; (BLOCK U ; (LABELS ((BAR (X &OPTIONAL #) ; (LIST X Y #))) ; (LIST (BAR 1) (BAR 1 2)))) ; ; note: deleting unreachable code ; (LABELS ((BAR (X &OPTIONAL (Y #)) ; (LIST X Y (APPLY #'BAR #)))) ; (LIST (BAR 1) (BAR 1 2))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (1+ X) ; --> + ; ==> ; X ; ; note: deleting unreachable code ; compiling (DEFUN #:FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN #:FOO ; (BLOCK B5 138) ; ; note: deleting unreachable code ; (LOGNOR (BLOCK B5 138) C) ; ==> ; C ; ; note: deleting unreachable code ; compiling (DEFUN BUG214A1 ...) ; compiling (DEFUN BUG214A2 ...) ; compiling (DEFUN |214B| ...) ; compiling (DEFUN #:FAILURE-TESTCASE ...) ; compiling (DEFUN VALUES-PRODUCER ...) ; compiling (DEFUN VALUES-CONSUMER ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN VALUES-CONSUMER ; (FUNCALL FN) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; compiling (LET (#) ...) ; compiling (DEFUN LOTSO-VALUES ...) ; compiling (DEFUN SRCTRAN-LISP1-1 ...) ; compiling (ASSERT (EQL # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: ASSERT (EQL (FUNCALL (EVAL #'SRCTRAN-LISP1-1) #'IDENTITY) 1) ; (FUNCALL (EVAL #'SRCTRAN-LISP1-1) #'IDENTITY) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; compiling (WITHOUT-PACKAGE-LOCKS (DEFVAR CAAR)) ; compiling (DEFUN SRCTRAN-LISP1-2 ...) ; compiling (ASSERT (EQL # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: ASSERT (EQL (FUNCALL (EVAL #'SRCTRAN-LISP1-2) #'IDENTITY) 1) ; (FUNCALL (EVAL #'SRCTRAN-LISP1-2) #'IDENTITY) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; compiling (DEFUN BUG262-RETURN-FROM ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN BUG262-RETURN-FROM ; (LABELS ((FOO-A (Z) ; (RETURN-FROM BUG262-RETURN-FROM Z)) ; (FOO-B (Z) ; (FOO-A Z))) ; (DECLARE (INLINE FOO-A)) ; (FOO-A X)) ; ; note: deleting unused function ; (LABELS FOO-B) ; (FOO-A X) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE (LABELS FOO-A)) ; (DEFUN BUG262-RETURN-FROM (X &AUX (Y NIL)) ; (LABELS ((FOO-A (Z) ; (RETURN-FROM BUG262-RETURN-FROM Z)) ; (FOO-B (Z) ; (FOO-A Z))) ; (DECLARE (INLINE FOO-A)) ; (FOO-A X))) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA BUG262-RETURN-FROM (X &AUX (Y NIL)) ; (BLOCK BUG262-RETURN-FROM ; (LABELS ((FOO-A # ; #) ; (FOO-B # ; #)) ; (DECLARE (INLINE FOO-A)) ; (FOO-A X)))) ; ; caught STYLE-WARNING: ; The variable Y is defined but never used. ; compiling (DEFUN ISIEVE ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN ISIEVE ; (MAKE-ARRAY NUM :INITIAL-ELEMENT 0) ; ==> ; (MAKE-ARRAY SB-C::DIMS :ELEMENT-TYPE 'T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST. ; (= (SVREF VEC I) 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. ; (INCF ACC) ; --> LET* ; ==> ; (+ ACC #:G1106) ; ; note: unable to ; optimize ; 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). ; (* I I) ; ; note: forced to do GENERIC-* (cost 50) ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES (INTEGER 4 288230372930486281) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 4) because: ; The result is a (VALUES (INTEGER 4 288230372930486281) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST ; T). ; etc. ; (>= J NUM) ; --> IF ; ==> ; (< J NUM) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -536870903 ; 288230372930486281), not a FIXNUM. ; (INCF ACC) ; --> LET* ; ==> ; (+ ACC #:G1106) ; ; 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. ; (DO ((J (* I I) (+ J I))) ((>= J NUM) 'DONE) (SETF (SVREF VEC J) 1)) ; --> BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET PROGN ; ==> ; (SETQ J #:G1104) ; ; note: doing signed word to integer coercion (cost 20) to J ; compiling (ASSERT (= # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: ASSERT (= (ISIEVE 46349) 4792) ; (= (ISIEVE 46349) 4792) ; ; 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. ; compiling (LET (#) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: LET ((F (GENSYM))) ; (1+ X) ; ==> ; (+ X 1) ; ; note: unable to ; optimize ; 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: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (LET (#) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: LET ((X (COERCE '(1 11) 'VECTOR))) ; (INCF (AREF X 0)) ; --> LET* + AREF LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; --> LET* ; ==> ; (+ (AREF #:G1158 #:G1157) #:G1159) ; ; note: unable to ; optimize ; 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). ; --> LET* SB-KERNEL:%ASET LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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 ; because: ; Upgraded element type of array is not known at compile time. ; --> LET* ; ==> ; (+ (AREF #:G1158 #:G1157) #:G1159) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (LOOP WITH ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: LOOP WITH ; (FUNCALL F V1 V2) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; (AREF (FUNCALL F V1 V2) 0) ; --> LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; (- 1 (AREF (FUNCALL F V1 V2) 0)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (LET* (# # ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: ; LET* ((V #*0011) ; (FORM ; `(LAMBDA ,NIL ; (LET (#) ; (SETF # #) ; (AREF V 0)))) ; (COMPILED-RES (FUNCALL (COMPILE NIL FORM))) ; (REAL-RES (- 1 (AREF (FUNCALL # V) 0)))) ; (FUNCALL (EVAL #'BIT-NOT) V) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; due to type uncertainty: ; The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION. ; (AREF (FUNCALL (EVAL #'BIT-NOT) V) 0) ; --> LET* ; ==> ; (ARRAY-DIMENSION ARRAY 0) ; ; note: unable to optimize because: can't tell whether array is simple ; ==> ; (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 ; because: ; Upgraded element type of array is not known at compile time. ; (- 1 (AREF (FUNCALL (EVAL #'BIT-NOT) V) 0)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFVAR *HANNU-TRAP* ...) ; compiling (PROGV (QUOTE #) ...) ; compiling (ASSERT (NOT *HANNU-TRAP*)) ; compiling (LET* (# # ...) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: DEFUN GENERATE-PRIMES ; (> CANDIDATE REQUIRED) ; ; 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 DOUBLE-FLOAT. ; ; 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; in: DEFUN PRIME-P ; (SQRT N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES ; (OR (MEMBER 0.0 0.0d0) (DOUBLE-FLOAT (0.0d0)) ; (SINGLE-FLOAT (0.0)) (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 (MEMBER 0.0 0.0d0) (DOUBLE-FLOAT (0.0d0)) ; (SINGLE-FLOAT (0.0)) (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (TRUNCATE (SQRT N)) ; --> TRUNCATE LET SB-KERNEL:%UNARY-TRUNCATE / / ; ==> ; (FLOAT SB-C::Y SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR (SINGLE-FLOAT (0.0)) (MEMBER 0.0 0.0d0) ; (DOUBLE-FLOAT (0.0d0))), not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR (SINGLE-FLOAT (0.0)) (MEMBER 0.0 0.0d0) ; (DOUBLE-FLOAT (0.0d0))), not a DOUBLE-FLOAT. ; (> PRIME SQRT-N) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (ZEROP (MOD N PRIME)) ; ==> ; (= (MOD N PRIME) 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. ; in: DEFUN NEXT-CANDIDATE ; (+ CANDIDATE INCREMENT) ; ; note: unable to ; optimize ; 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). ; in: DEFUN ADD-PRIME ; (INCF COUNT) ; --> LET* ; ==> ; (+ COUNT #:G1207) ; ; note: unable to ; optimize ; 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). ; in: DEFUN LARGEST-PRIME-SO-FAR ; (1- COUNT) ; ==> ; (- COUNT 1) ; ; note: unable to ; optimize ; 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). ; in: DEFUN PRIME-P ; (MOD N PRIME) ; --> BLOCK 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. ; --> BLOCK LET IF AND IF AND IF MINUSP ; ==> ; (< SB-KERNEL::DIVISOR 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> BLOCK LET IF AND IF AND 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. ; --> BLOCK LET IF AND IF AND 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. ; --> BLOCK LET IF ; ==> ; (+ REM SB-KERNEL::DIVISOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; The second argument is a REAL, not a FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; --> BLOCK LET REM BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-KERNEL::DIVISOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT DOUBLE-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. ; (TRUNCATE (SQRT N)) ; --> TRUNCATE LET SB-KERNEL:%UNARY-TRUNCATE / ; ==> ; (/ SB-C::X (FLOAT SB-C::Y SB-C::X)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SINGLE-FLOAT (0.0)) (MEMBER 0.0 0.0d0) ; (DOUBLE-FLOAT (0.0d0))), not a SINGLE-FLOAT. ; The second argument is a FLOAT, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SINGLE-FLOAT (0.0)) (MEMBER 0.0 0.0d0) ; (DOUBLE-FLOAT (0.0d0))), not a DOUBLE-FLOAT. ; The second argument is a FLOAT, not a SINGLE-FLOAT. ; ; 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 (0.0)) (MEMBER 0.0 0.0d0) ; (DOUBLE-FLOAT (0.0d0))), not a SINGLE-FLOAT. ; The second argument is a FLOAT, not a SINGLE-FLOAT. ; The result is a (VALUES ; (OR (MEMBER 0.0 0.0d0) (DOUBLE-FLOAT (0.0d0)) ; (SINGLE-FLOAT (0.0))) ; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; unable to do inline float arithmetic (cost 19) because: ; The first argument is a (OR (SINGLE-FLOAT (0.0)) (MEMBER 0.0 0.0d0) ; (DOUBLE-FLOAT (0.0d0))), not a DOUBLE-FLOAT. ; The second argument is a FLOAT, not a DOUBLE-FLOAT. ; The result is a (VALUES ; (OR (MEMBER 0.0 0.0d0) (DOUBLE-FLOAT (0.0d0)) ; (SINGLE-FLOAT (0.0))) ; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; --> TRUNCATE LET ; ==> ; (SB-KERNEL:%UNARY-TRUNCATE (/ SB-C::X SB-C::Y)) ; ; note: forced to do full call ; unable to do inline float truncate (cost 5) because: ; The first argument is a (OR (MEMBER 0.0 0.0d0) (DOUBLE-FLOAT (0.0d0)) ; (SINGLE-FLOAT (0.0))), not a SINGLE-FLOAT. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; unable to do inline float truncate (cost 5) because: ; The first argument is a (OR (MEMBER 0.0 0.0d0) (DOUBLE-FLOAT (0.0d0)) ; (SINGLE-FLOAT (0.0))), not a DOUBLE-FLOAT. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; (DOTIMES (I COUNT) ; (LET ((PRIME (AREF PRIME-TABLE I))) ; (WHEN (> PRIME SQRT-N) (RETURN-FROM PRIME-P T)) ; (WHEN (ZEROP (MOD N PRIME)) (RETURN-FROM PRIME-P NIL)))) ; --> DO BLOCK LET TAGBODY UNLESS COND IF NOT IF >= IF ; ==> ; (< I #:G1210) ; ; 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. ; (> PRIME SQRT-N) ; ; note: forced to do GENERIC-> (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 UNSIGNED-BYTE, not a FIXNUM. ; (MOD N PRIME) ; --> BLOCK LET IF AND IF AND IF MINUSP ; ==> ; (< SB-KERNEL::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. ; --> BLOCK LET IF AND IF AND 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. ; --> BLOCK LET IF ; ==> ; (+ REM SB-KERNEL::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. ; in: DEFUN NEXT-CANDIDATE ; (+ CANDIDATE INCREMENT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do safe inline fixnum arithmetic (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; in: DEFUN ADD-PRIME ; (INCF COUNT) ; --> LET* ; ==> ; (+ COUNT #:G1207) ; ; 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. ; in: DEFUN LARGEST-PRIME-SO-FAR ; (1- COUNT) ; ==> ; (- COUNT 1) ; ; 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. ; in: DEFUN GENERATE-PRIMES ; (> CANDIDATE REQUIRED) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; compiling (DEFVAR *A* ...) ; compiling (SETF *A* ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.lisp ; in: BUG254::DEFPROJECTION BUG254::H ; (SETF (BUG254::AVEC.COUNT BUG254::AVECNAME) (LENGTH REST)) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF BUG254::AVEC.COUNT) #:G84 #:G85) ; ; caught STYLE-WARNING: ; undefined function: (SETF BUG254::AVEC.COUNT) ; in: DEFUN UPDATE-WINDOW-IMAG ; (SETF (DIS-LINE-OLD-CHARS CC) CHARS) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF DIS-LINE-OLD-CHARS) #:G883 #:G884) ; ; caught STYLE-WARNING: ; undefined function: (SETF DIS-LINE-OLD-CHARS) ; in: DEFUN BUG255::UU ; (BUG255::YAM-V BUG255::AZ) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF ; ==> ; (THE BUG255::YAM BUG255::AZ) ; ; caught WARNING: ; undefined variable: BUG255::AZ ; in: ; BUG254::DEFPROJECTION (BUG254::VARIANT &KEY BUG254::LEXPR BUG254::EEXPR) ; (BUG254::FOO.UHW2 BUG254::BAR) ; ; caught WARNING: ; undefined variable: BUG254::BAR ; in: BUG254::DEFPROJECTION BUG254::H ; (BUG254::DEFPROJECTION BUG254::H :LEXPR ; (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED) ; (FLET ((BUG254::BD # ; #)) ; (LET (#) ; (DECLARE #) ; (MULTIPLE-VALUE-PROG1 # #)))) ; :EEXPR (LAMBDA (BUG254::SOUTH BUG254::EAST))) ; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LET BUG254::U-FLUNT ; ==> ; (BUG254::BAZ ; (FUNCALL ; (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED) ; (FLET (#) ; (LET # ; # ; #))) ; BUG254::SOUTH BUG254::EAST 1)) ; ; caught STYLE-WARNING: ; undefined function: BUG254::BAZ ; (BUG254::BREF BUG254::X BUG254::SCHED) ; ; caught STYLE-WARNING: ; undefined function: BUG254::BREF ; in: DEFUN UPDATE-WINDOW-IMAG ; (EQ CURRENT THE-SENTINEL) ; ; caught WARNING: ; undefined variable: CURRENT ; in: DEFUN LISP-ERROR-ERROR-HANDLER ; (DEVICE) ; ; caught STYLE-WARNING: ; undefined function: DEVICE ; in: DEFUN UPDATE-WINDOW-IMAG ; (DIS-LINE-LINE CC) ; ; caught STYLE-WARNING: ; undefined function: DIS-LINE-LINE ; in: BUG254::DEFPROJECTION BUG254::H ; (BUG254::DEFPROJECTION BUG254::H :LEXPR ; (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED) ; (FLET ((BUG254::BD # ; #)) ; (LET (#) ; (DECLARE #) ; (MULTIPLE-VALUE-PROG1 # #)))) ; :EEXPR (LAMBDA (BUG254::SOUTH BUG254::EAST))) ; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LET BUG254::U-FLUNT BUG254::BAZ ; ==> ; (FUNCALL ; (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED) ; (FLET ((BUG254::BD # ; #)) ; (LET (#) ; (DECLARE #) ; (MULTIPLE-VALUE-PROG1 # #)))) ; BUG254::SOUTH BUG254::EAST 1) ; ; caught WARNING: ; undefined variable: BUG254::EAST ; in: DEFUN #:FOO ; (FEE) ; ; caught STYLE-WARNING: ; undefined function: FEE ; in: DEFUN UPDATE-WINDOW-IMAG ; (FOO) ; ; caught STYLE-WARNING: ; undefined function: FOO ; in: ; BUG254::DEFPROJECTION (BUG254::VARIANT &KEY BUG254::LEXPR BUG254::EEXPR) ; (BUG254::FOO.UHW2 BUG254::BAR) ; ; caught STYLE-WARNING: ; undefined function: BUG254::FOO.UHW2 ; in: DEFUN #:FAILURE-TESTCASE ; (FOOBAR-1 SESSION) ; ; caught STYLE-WARNING: ; undefined function: FOOBAR-1 ; (FOOBAR-2 CONTINUATION-3) ; ; caught STYLE-WARNING: ; undefined function: FOOBAR-2 ; in: DEFUN BUG255::UU ; (BUG255::FROB BUG255::X 0) ; ; caught STYLE-WARNING: ; undefined function: BUG255::FROB ; in: DEFUN BUG148::%ZEEP ; (BUG148::FROBNICATE BUG148::KID) ; ; caught STYLE-WARNING: ; undefined function: BUG148::FROBNICATE ; in: DEFUN BUG255::%UFM ; (BUG255::FROJ BUG255::BASE BUG255::BOUND BUG255::*1*) ; ; caught STYLE-WARNING: ; undefined function: BUG255::FROJ ; in: BUG254::DEFPROJECTION BUG254::H ; (BUG254::GAFP) ; ; caught STYLE-WARNING: ; undefined function: BUG254::GAFP ; (BUG254::H BUG254::SOUTH) ; ; caught STYLE-WARNING: ; undefined function: BUG254::H ; in: DEFUN BUG148::%ZEEP ; (BUG148::M+ (BUG148::FROBNICATE BUG148::KID) BUG148::SWEPTM) ; ; caught STYLE-WARNING: ; undefined function: BUG148::M+ ; in: BUG254::DEFPROJECTION BUG254::H ; (BUG254::PAIP BUG254::AVECNAME) ; ; caught STYLE-WARNING: ; undefined function: BUG254::PAIP ; in: DEFUN BUG148::%ZEEP ; (BUG148::FOO-BAR BUG148::PERD) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF ; ==> ; (THE BUG148::FOO BUG148::PERD) ; ; caught WARNING: ; undefined variable: BUG148::PERD ; in: BUG254::DEFPROJECTION BUG254::H ; (LENGTH REST) ; ; caught WARNING: ; undefined variable: REST ; (BUG254::DEFPROJECTION BUG254::H :LEXPR ; (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED) ; (FLET ((BUG254::BD # ; #)) ; (LET (#) ; (DECLARE #) ; (MULTIPLE-VALUE-PROG1 # #)))) ; :EEXPR (LAMBDA (BUG254::SOUTH BUG254::EAST))) ; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LET BUG254::U-FLUNT BUG254::BAZ ; ==> ; (FUNCALL ; (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED) ; (FLET ((BUG254::BD # ; #)) ; (LET (#) ; (DECLARE #) ; (MULTIPLE-VALUE-PROG1 # #)))) ; BUG254::SOUTH BUG254::EAST 1) ; ; caught WARNING: ; undefined variable: BUG254::SOUTH ; in: DEFUN UPDATE-WINDOW-IMAG ; (SETQ STRING G2740) ; ; caught WARNING: ; undefined variable: STRING ; in: BUG254::DEFPROJECTION BUG254::H ; (BUG254::STUB BUG254::AVECNAME) ; ; caught STYLE-WARNING: ; undefined function: BUG254::STUB ; in: DEFUN BUG148::%ZEEP ; (SETF BUG148::SWEPTM ; (BUG148::M+ (BUG148::FROBNICATE BUG148::KID) BUG148::SWEPTM)) ; ==> ; (SETQ BUG148::SWEPTM ; (BUG148::M+ (BUG148::FROBNICATE BUG148::KID) BUG148::SWEPTM)) ; ; caught WARNING: ; undefined variable: BUG148::SWEPTM ; in: DEFUN UPDATE-WINDOW-IMAG ; (EQ CURRENT THE-SENTINEL) ; ; caught WARNING: ; undefined variable: THE-SENTINEL ; in: BUG254::DEFPROJECTION BUG254::H ; (BUG254::DEFPROJECTION BUG254::H :LEXPR ; (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED) ; (FLET ((BUG254::BD # ; #)) ; (LET (#) ; (DECLARE #) ; (MULTIPLE-VALUE-PROG1 # #)))) ; :EEXPR (LAMBDA (BUG254::SOUTH BUG254::EAST))) ; --> DEFMETHOD PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LET ; ==> ; (BUG254::U-FLUNT BUG254::UHW2 ; (BUG254::BAZ ; (FUNCALL ; (LAMBDA (BUG254::SOUTH BUG254::EAST BUG254::SCHED) ; (FLET # ; #)) ; BUG254::SOUTH BUG254::EAST 1))) ; ; caught STYLE-WARNING: ; undefined function: BUG254::U-FLUNT ; in: DEFUN UPDATE-WINDOW-IMAG ; (SETQ UNDERHANG G2741) ; ; caught WARNING: ; undefined variable: UNDERHANG ; ; caught WARNING: ; These variables are undefined: ; BUG255::AZ BUG254::BAR CURRENT BUG254::EAST BUG148::PERD REST BUG254::SOUTH STRING BUG148::SWEPTM THE-SENTINEL UNDERHANG ; ; caught STYLE-WARNING: ; These functions are undefined: ; (SETF BUG254::AVEC.COUNT) (SETF DIS-LINE-OLD-CHARS) BUG254::BAZ BUG254::BREF DEVICE DIS-LINE-LINE FEE FOO BUG254::FOO.UHW2 FOOBAR-1 FOOBAR-2 BUG255::FROB BUG148::FROBNICATE BUG255::FROJ BUG254::GAFP BUG254::H BUG148::M+ BUG254::PAIP BUG254::STUB BUG254::U-FLUNT ; ; compilation unit finished ; caught 14 WARNING conditions ; caught 37 STYLE-WARNING conditions ; printed 202 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.impure-cload.fasl written ; compilation finished in 0:00:01 STYLE-WARNING: implicitly creating new generic function UU // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dump.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dump.impure-cload.lisp" (written 16 APR 2006 08:10:20 AM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFUN Q-DG1999-1 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dump.impure-cload.lisp ; in: DEFUN Q-DG1999-1 ; (DOLIST (X '("A" "B" "A" "B" "A" "B" "A" "B" "A" "B" "A" "B" ...)) X) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((X (CAR #:N-LIST3))) ; (SETQ #:N-LIST3 (CDR #:N-LIST3)) ; (TAGBODY X)) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; compiling (DEFUN Q-DG1999-2 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dump.impure-cload.lisp ; in: DEFUN Q-DG1999-2 ; (DOLIST (X '("C" "D" "C" "D" "C" "D" "C" "D" "C" "D" "C" "D" ...)) X) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((X (CAR #:N-LIST10))) ; (SETQ #:N-LIST10 (CDR #:N-LIST10)) ; (TAGBODY X)) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; compiling (DEFUN Q-DG1999-3 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dump.impure-cload.lisp ; in: DEFUN Q-DG1999-3 ; (DOLIST (X '("E" "F" "E" "F" "E" "F" "E" "F" "E" "F" "E" "F" ...)) X) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((X (CAR #:N-LIST17))) ; (SETQ #:N-LIST17 (CDR #:N-LIST17)) ; (TAGBODY X)) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; compiling (DEFUN Q-DG1999-4 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dump.impure-cload.lisp ; in: DEFUN Q-DG1999-4 ; (DOLIST (X '("C" "D" "C" "D" "C" "D" "C" "D" "C" "D" "C" "D" ...)) X) ; --> BLOCK LET TAGBODY UNLESS COND IF PROGN ; ==> ; (LET ((X (CAR #:N-LIST24))) ; (SETQ #:N-LIST24 (CDR #:N-LIST24)) ; (TAGBODY X)) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; compiling (DEFUN USEFUL-DG1999 ...) ; compiling (FORMAT T ...) ; compiling (DEFSTRUCT FOO ...); in: LAMBDA NIL ; (UNWIND-PROTECT ; (PROGN ; (SB-KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'FOO ; "defining ~A as a structure")) ; (WHEN #:TOPMOST117 (SETF SB-IMPL::*IGNORED-PACKAGE-LOCKS* :INVALID))) ; ==> ; (FLET ((#:CLEANUP-FUN-1 () ; (WHEN #:TOPMOST117 (SETF SB-IMPL::*IGNORED-PACKAGE-LOCKS* :INVALID)) ; NIL)) ; (BLOCK #:DROP-THRU-TAG-2 ; (MULTIPLE-VALUE-BIND ; (#:NEXT4 #:START5 #:COUNT6) ; (BLOCK #:EXIT-TAG-3 (SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT # #)) ; (#:CLEANUP-FUN-1) ; (SB-C:%CONTINUE-UNWIND #:NEXT4 #:START5 #:COUNT6)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dump.impure-cload.lisp ; in: DEFSTRUCT FOO ; (DEFSTRUCT FOO X Y) ; --> PROGN SB-KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT ; ==> ; (FLET ((#:CLEANUP-FUN-118 () ; (WHEN #:TOPMOST117 (SETF SB-IMPL::*IGNORED-PACKAGE-LOCKS* :INVALID)) ; NIL)) ; (BLOCK #:DROP-THRU-TAG-119 ; (MULTIPLE-VALUE-BIND ; (#:NEXT121 #:START122 #:COUNT123) ; (BLOCK #:EXIT-TAG-120 (SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT # #)) ; (#:CLEANUP-FUN-118) ; (SB-C:%CONTINUE-UNWIND #:NEXT121 #:START122 #:COUNT123)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DEFPARAMETER *FOO* ...) ; compiling (ASSERT (EQUALP # ...)) ; compiling (ASSERT (EQL # ...)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dump.impure-cload.lisp ; in: ASSERT (EQL (FOO-Y *FOO*) *FOO*) ; (EQL (FOO-Y *FOO*) *FOO*) ; ; 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. ; compiling (SETF (LOGICAL-PATHNAME-TRANSLATIONS "MY-LOGICAL-HOST") ...) ; compiling (DEFPARAMETER *PATH* ...) ; compiling (DEFPARAMETER *STRING* ...) ; compiling (DEFPARAMETER *NUMBERS* ...) ; compiling (DEFSTRUCT SAVABLE-STRUCTURE ...); in: LAMBDA NIL ; (UNWIND-PROTECT ; (PROGN ; (SB-KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SAVABLE-STRUCTURE ; "defining ~A as a structure")) ; (WHEN #:TOPMOST223 (SETF SB-IMPL::*IGNORED-PACKAGE-LOCKS* :INVALID))) ; ==> ; (FLET ((#:CLEANUP-FUN-1 () ; (WHEN #:TOPMOST223 (SETF SB-IMPL::*IGNORED-PACKAGE-LOCKS* :INVALID)) ; NIL)) ; (BLOCK #:DROP-THRU-TAG-2 ; (MULTIPLE-VALUE-BIND ; (#:NEXT4 #:START5 #:COUNT6) ; (BLOCK #:EXIT-TAG-3 (SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT # #)) ; (#:CLEANUP-FUN-1) ; (SB-C:%CONTINUE-UNWIND #:NEXT4 #:START5 #:COUNT6)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dump.impure-cload.lisp ; in: DEFSTRUCT SAVABLE-STRUCTURE ; (DEFSTRUCT SAVABLE-STRUCTURE ; (A NIL :TYPE SYMBOL) ; (B NIL :TYPE SYMBOL :READ-ONLY T) ; (C NIL :READ-ONLY T) ; (D 0 :TYPE FIXNUM) ; (E 17 :TYPE (UNSIGNED-BYTE 32) :READ-ONLY T)) ; --> PROGN SB-KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT ; ==> ; (FLET ((#:CLEANUP-FUN-224 () ; (WHEN #:TOPMOST223 (SETF SB-IMPL::*IGNORED-PACKAGE-LOCKS* :INVALID)) ; NIL)) ; (BLOCK #:DROP-THRU-TAG-225 ; (MULTIPLE-VALUE-BIND ; (#:NEXT227 #:START228 #:COUNT229) ; (BLOCK #:EXIT-TAG-226 (SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT # #)) ; (#:CLEANUP-FUN-224) ; (SB-C:%CONTINUE-UNWIND #:NEXT227 #:START228 #:COUNT229)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; in: LAMBDA NIL ; (SB-KERNEL:%RAW-INSTANCE-SET/WORD (THE SAVABLE-STRUCTURE #:ONCE-ONLY-240) 0 ; (THE (UNSIGNED-BYTE 32) #:ONCE-ONLY-239)) ; ; note: doing unsigned word to integer coercion (cost 20) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DEFPARAMETER *SAVABLE-STRUCTURE* ...) ; compiling (ASSERT (EQL # ...)) ; compiling (ASSERT (EQL # ...)) ; compiling (ASSERT (EQL # ...)) ; compiling (ASSERT (EQL # ...)) ; compiling (ASSERT (EQL # ...)) ; compiling (DEFCLASS SAVABLE-CLASS ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DEFPARAMETER *SAVABLE-CLASS* ...) ; compiling (ASSERT (NOT #)) ; compiling (DEFVAR *1-BIT* ...) ; compiling (DEFVAR *2-BIT* ...) ; compiling (DEFVAR *4-BIT* ...) ; compiling (DEFVAR *CHARACTER-STRING-1* ...) ; compiling (DEFVAR *CHARACTER-STRING-2* ...) ; compiling (ASSERT (EQ *CHARACTER-STRING-1* ...)) ; compiling (ASSERT (TYPEP *CHARACTER-STRING-1* ...)) ; compiling (DEFVAR *BASE-STRING-1* ...) ; compiling (DEFVAR *BASE-STRING-2* ...) ; compiling (ASSERT (EQ *BASE-STRING-1* ...)) ; compiling (ASSERT (TYPEP *BASE-STRING-1* ...)) ; compiling (DEFVAR *BASE-STRING* ...) ; compiling (DEFVAR *CHARACTER-STRING* ...) ; compiling (ASSERT (NOT #)) ; compiling (ASSERT (TYPEP *BASE-STRING* ...)) ; compiling (ASSERT (TYPEP *CHARACTER-STRING* ...)); ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; printed 8 notes ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/dump.impure-cload.fasl written ; compilation finished in 0:00:00 Now the compiler can dump pathnames again: #P"" #P"/x/y/z" STYLE-WARNING: redefining MAKE-FOO in DEFUN STYLE-WARNING: redefining MAKE-LOAD-FORM (FOO) in DEFMETHOD ; in: LAMBDA NIL ; (SB-KERNEL:%RAW-INSTANCE-SET/WORD (THE SAVABLE-STRUCTURE #:ONCE-ONLY-3262) 0 ; (THE (UNSIGNED-BYTE 32) #:ONCE-ONLY-3261)) ; ; note: doing unsigned word to integer coercion (cost 20) ; ; compilation unit finished ; printed 1 note STYLE-WARNING: redefining MAKE-SAVABLE-STRUCTURE in DEFUN STYLE-WARNING: redefining MAKE-LOAD-FORM (SAVABLE-STRUCTURE) in DEFMETHOD STYLE-WARNING: redefining MAKE-LOAD-FORM (SAVABLE-CLASS) in DEFMETHOD // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-1.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-1.impure-cload.lisp" (written 14 JUL 2005 05:30:44 PM): ; compiling (DEFPACKAGE "TEST" ...) ; compiling (IN-PACKAGE "TEST") ; compiling (DEFCLASS DYNAMIC-SLOT-CLASS ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFUN DYNAMIC-SLOT-P ...) ; compiling (LET (#) ...) ; compiling (DEFMETHOD ALLOCATE-INSTANCE ...) ; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...) ; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...) ; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...) ; compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...) ; compiling (DEFCLASS TEST-CLASS-1 ...) ; compiling (DEFCLASS TEST-CLASS-2 ...) ; compiling (DEFVAR *ONE* ...) ; compiling (DEFVAR *TWO* ...) ; compiling (ASSERT (NOT #)) ; compiling (ASSERT (NULL #)) ; compiling (ASSERT (EQ T ...)) ; compiling (ASSERT (= 1 ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-1.impure-cload.fasl written ; compilation finished in 0:00:01 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-10.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-10.impure-cload.lisp" (written 04 NOV 2005 11:18:37 AM): ; compiling (DEFPACKAGE "MOP-10" ...) ; compiling (IN-PACKAGE "MOP-10") ; compiling (DEFCLASS MY-GENERIC-FUNCTION ...) ; compiling (DEFGENERIC FOO ...) ; compiling (ASSERT (EQUAL # ...)) ; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...) ; compiling (ASSERT (EQUAL # ...)) ; compiling (REINITIALIZE-INSTANCE (FUNCTION FOO)) ; compiling (ASSERT (EQUAL # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-10.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-11.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-11.impure-cload.lisp" (written 16 JAN 2006 03:10:24 PM): ; compiling (DEFPACKAGE "MOP-11" ...) ; compiling (IN-PACKAGE "MOP-11") ; compiling (DEFCLASS GF1-CLASS ...) ; compiling (DEFGENERIC GF1 ...) ; compiling (ASSERT (= # ...)) ; compiling (DEFCLASS GF2-CLASS ...) ; compiling (DEFGENERIC GF2 ...) ; compiling (ASSERT (= # ...)) ; compiling (DEFGENERIC GF1A ...) ; compiling (ASSERT (STRING= # ...)) ; compiling (DEFCLASS GF3-CLASS ...) ; compiling (DEFGENERIC GF3 ...) ; compiling (ASSERT (= # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-11.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-12.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-12.impure-cload.lisp" (written 13 FEB 2006 10:56:30 AM): ; compiling (DEFPACKAGE "MOP-12" ...) ; compiling (IN-PACKAGE "MOP-12") ; compiling (DEFCLASS SUPER-METHOD ...) ; compiling (DEFCLASS SUB-GENERIC-FUNCTION1 ...) ; compiling (DEFCLASS SUB-METHOD1 ...) ; compiling (DEFGENERIC MYFUN1 ...) ; compiling (DEFVAR *COUNT1* ...) ; compiling (DEFMETHOD MYFUN1 ...) ; compiling (MYFUN1 2 ...) ; compiling (ASSERT (= *COUNT1* ...)) ; compiling (MYFUN1 T ...) ; compiling (ASSERT (= *COUNT1* ...)) ; compiling (DEFMETHOD MYFUN1 ...) ; compiling (MYFUN1 2 ...) ; compiling (ASSERT (= *COUNT1* ...)) ; compiling (MYFUN1 T ...) ; compiling (ASSERT (= *COUNT1* ...)) ; compiling (DEFCLASS SUB-GENERIC-FUNCTION2 ...) ; compiling (DEFCLASS SUB-METHOD2 ...) ; compiling (DEFGENERIC MYFUN2 ...) ; compiling (DEFVAR *COUNT2* ...) ; compiling (DEFMETHOD MYFUN2 ...) ; compiling (MYFUN2 2 ...) ; compiling (ASSERT (= *COUNT2* ...)) ; compiling (MYFUN2 T ...) ; compiling (ASSERT (= *COUNT2* ...)) ; compiling (DEFMETHOD MYFUN2 ...) ; compiling (MYFUN2 2 ...) ; compiling (ASSERT (= *COUNT2* ...)) ; compiling (MYFUN2 T ...) ; compiling (ASSERT (= *COUNT2* ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-12.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-13.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-13.impure-cload.lisp" (written 13 FEB 2006 10:56:30 AM): ; compiling (DEFPACKAGE "MOP-13" ...) ; compiling (IN-PACKAGE "MOP-13") ; compiling (DEFCLASS SUPER-FUNCALLABLE-MIXIN ...) ; compiling (DEFCLASS SUB-GENERIC-FUNCTION1 ...) ; compiling (DEFCLASS SUB-METHOD1 ...) ; compiling (DEFGENERIC MYFUN1 ...) ; compiling (DEFVAR *COUNT1* ...) ; compiling (DEFMETHOD MYFUN1 ...) ; compiling (MYFUN1 2 ...) ; compiling (ASSERT (= *COUNT1* ...)) ; compiling (MYFUN1 T ...) ; compiling (ASSERT (= *COUNT1* ...)) ; compiling (DEFMETHOD MYFUN1 ...) ; compiling (MYFUN1 2 ...) ; compiling (ASSERT (= *COUNT1* ...)) ; compiling (MYFUN1 T ...) ; compiling (ASSERT (= *COUNT1* ...)) ; compiling (DEFCLASS SUB-GENERIC-FUNCTION2 ...) ; compiling (DEFCLASS SUB-METHOD2 ...) ; compiling (DEFGENERIC MYFUN2 ...) ; compiling (DEFVAR *COUNT2* ...) ; compiling (DEFMETHOD MYFUN2 ...) ; compiling (MYFUN2 2 ...) ; compiling (ASSERT (= *COUNT2* ...)) ; compiling (MYFUN2 T ...) ; compiling (ASSERT (= *COUNT2* ...)) ; compiling (DEFMETHOD MYFUN2 ...) ; compiling (MYFUN2 2 ...) ; compiling (ASSERT (= *COUNT2* ...)) ; compiling (MYFUN2 T ...) ; compiling (ASSERT (= *COUNT2* ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-13.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-14.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-14.impure-cload.lisp" (written 20 APR 2006 03:25:45 PM): ; compiling (DEFPACKAGE :DC ...) ; compiling (IN-PACKAGE :DC) ; compiling (DEFCLASS DWIM-SLOT-DEFINITION ...) ; compiling (DEFCLASS DWIM-DIRECT-SLOT-DEFINITION ...) ; compiling (DEFCLASS DWIM-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFCLASS DWIM-ATTRIBUTE-SLOT-DEFINITION ...) ; compiling (DEFCLASS DWIM-ATTRIBUTE-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFCLASS DWIM-ATTRIBUTE-DIRECT-SLOT-DEFINITION ...) ; compiling (DEFCLASS EXTRA-EFFECTIVE-SLOT-DEFINITION ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-14.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-15.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-15.impure-cload.lisp" (written 20 APR 2006 06:29:13 PM): ; compiling (DEFPACKAGE "MOP-15" ...) ; compiling (IN-PACKAGE "MOP-15") ; compiling (DEFCLASS MOP-15-CLASS ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFVAR *COUNT* ...) ; compiling (DEFVAR *MAX-COUNT* ...) ; compiling (DEFMETHOD FINALIZE-INHERITANCE ...) ; compiling (DEFCLASS SUB ...) ; compiling (DEFCLASS SUPER ...) ; compiling (FINALIZE-INHERITANCE (FIND-CLASS #)) ; compiling (FINALIZE-INHERITANCE (FIND-CLASS #)) ; compiling (ASSERT (= *MAX-COUNT* ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-15.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-16.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-16.impure-cload.lisp" (written 28 MAY 2006 12:02:02 PM): ; compiling (DEFPACKAGE "MOP-16" ...) ; compiling (IN-PACKAGE "MOP-16") ; compiling (DEFCLASS FOO-CLASS ...) ; compiling (DEFCLASS FOO-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (MULTIPLE-VALUE-BIND (VALUE CONDITION) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-16.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-17.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-17.impure-cload.lisp" (written 17 JUL 2006 01:28:14 PM): ; compiling (DEFPACKAGE "MOP-17" ...) ; compiling (IN-PACKAGE "MOP-17") ; compiling (DEFUN MAKE-PROGRAMMATIC-INSTANCE ...) ; compiling (DEFUN FIND-PROGRAMMATIC-CLASS ...) ; compiling (DEFUN MAKE-PROGRAMMATIC-CLASS ...) ; compiling (DEFCLASS SHAPE ...) ; compiling (DEFCLASS CIRCLE ...) ; compiling (DEFCLASS COLOR ...) ; compiling (DEFCLASS ORANGE ...) ; compiling (DEFCLASS MAGENTA ...) ; compiling (DEFCLASS LABEL-TYPE ...) ; compiling (DEFCLASS TOP-LABELED ...) ; compiling (DEFCLASS BOTTOM-LABELED ...) ; compiling (ASSERT (NULL #)) ; compiling (DEFVAR *I1* ...) ; compiling (DEFVAR *I2* ...) ; compiling (DEFVAR *I3* ...) ; compiling (ASSERT (NOT #)) ; compiling (ASSERT (= # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-17.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-18.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-18.impure-cload.lisp" (written 25 JUL 2006 05:06:31 PM): ; compiling (DEFPACKAGE "MOP-18" ...) ; compiling (IN-PACKAGE "MOP-18") ; compiling (DEFVAR *IN-REINITIALIZE-INSTANCE* ...) ; compiling (DEFVAR *FINALIZED-CLASS* ...) ; compiling (DEFCLASS TEST-STANDARD-CLASS ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFMETHOD FINALIZE-INHERITANCE ...) ; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...) ; compiling (DEFCLASS TEST-STANDARD-OBJECT ...) ; compiling (UNLESS (CLASS-FINALIZED-P #) ...) ; compiling (ASSERT (CLASS-SLOTS #)) ; compiling (ASSERT (NULL *FINALIZED-CLASS*)) ; compiling (REINITIALIZE-INSTANCE (FIND-CLASS #) ...) ; compiling (ASSERT (EQ *FINALIZED-CLASS* ...)) ; compiling (ASSERT (NULL #)) ; compiling (DEFCLASS TEST-FUNCALLABLE-STANDARD-CLASS ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFMETHOD FINALIZE-INHERITANCE ...) ; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...) ; compiling (DEFCLASS TEST-FUNCALLABLE-STANDARD-OBJECT ...) ; compiling (UNLESS (CLASS-FINALIZED-P #) ...) ; compiling (ASSERT (CLASS-SLOTS #)) ; compiling (ASSERT (EQ *FINALIZED-CLASS* ...)) ; compiling (REINITIALIZE-INSTANCE (FIND-CLASS #) ...) ; compiling (ASSERT (EQ *FINALIZED-CLASS* ...)) ; compiling (ASSERT (NULL #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-18.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-19.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-19.impure-cload.lisp" (written 28 JUL 2006 03:47:24 PM): ; compiling (DEFPACKAGE "MOP-19" ...) ; compiling (IN-PACKAGE "MOP-19") ; compiling (DEFCLASS MY-CLASS ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFCLASS MY-READER ...) ; compiling (DEFCLASS MY-WRITER ...) ; compiling (DEFVAR *CALLS* ...) ; compiling (DEFMETHOD READER-METHOD-CLASS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-19.impure-cload.lisp ; in: DEFMETHOD READER-METHOD-CLASS (MY-CLASS T) ; (DEFMETHOD SB-MOP:READER-METHOD-CLASS ; ((MOP-19::C MOP-19::MY-CLASS) MOP-19::S &REST MOP-19::INITARGS) ; (PUSH ; (CONS (SB-MOP:SLOT-DEFINITION-NAME MOP-19::S) 'MOP-19::READER) ; MOP-19::*CALLS*) ; (FIND-CLASS 'MOP-19::MY-READER)) ; --> PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SB-MOP:READER-METHOD-CLASS (MOP-19::MY-CLASS T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. MOP-19::C MOP-19::S &REST ; MOP-19::INITARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (MOP-19::C MOP-19::MY-CLASS) MOP-19::S &REST ; MOP-19::INITARGS)) ; (DECLARE ; (SB-PCL::%METHOD-NAME (SB-MOP:READER-METHOD-CLASS (MOP-19::MY-CLASS T)))) ; (DECLARE (TYPE T MOP-19::S)) (DECLARE (IGNORABLE MOP-19::S MOP-19::C)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((MOP-19::C MOP-19::S) SB-PCL::.NEXT-METHOD-CALL. (MOP-19::C MOP-19::S) ; NIL :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS MOP-19::C MOP-19::MY-CLASS)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable INITARGS is defined but never used. ; compiling (DEFMETHOD WRITER-METHOD-CLASS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-19.impure-cload.lisp ; in: DEFMETHOD WRITER-METHOD-CLASS (MY-CLASS T) ; (DEFMETHOD SB-MOP:WRITER-METHOD-CLASS ; ((MOP-19::C MOP-19::MY-CLASS) MOP-19::S &REST MOP-19::INITARGS) ; (PUSH ; (CONS (SB-MOP:SLOT-DEFINITION-NAME MOP-19::S) 'MOP-19::WRITER) ; MOP-19::*CALLS*) ; (FIND-CLASS 'MOP-19::MY-WRITER)) ; --> PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SB-MOP:WRITER-METHOD-CLASS (MOP-19::MY-CLASS T)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. MOP-19::C MOP-19::S &REST ; MOP-19::INITARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (MOP-19::C MOP-19::MY-CLASS) MOP-19::S &REST ; MOP-19::INITARGS)) ; (DECLARE ; (SB-PCL::%METHOD-NAME (SB-MOP:WRITER-METHOD-CLASS (MOP-19::MY-CLASS T)))) ; (DECLARE (TYPE T MOP-19::S)) (DECLARE (IGNORABLE MOP-19::S MOP-19::C)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((MOP-19::C MOP-19::S) SB-PCL::.NEXT-METHOD-CALL. (MOP-19::C MOP-19::S) ; NIL :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS MOP-19::C MOP-19::MY-CLASS)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable INITARGS is defined but never used. ; compiling (DEFCLASS FOO ...) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (ASSERT (= # ...)) ; compiling (LET (#) ...) ; compiling (LET (#) ...) ; compiling (DEFCLASS MY-OTHER-CLASS ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFCLASS MY-OTHER-READER ...) ; compiling (DEFCLASS MY-DIRECT-SLOT-DEFINITION ...) ; compiling (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-19.impure-cload.lisp ; in: DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS (MY-OTHER-CLASS) ; (DEFMETHOD SB-MOP:DIRECT-SLOT-DEFINITION-CLASS ; ((MOP-19::C MOP-19::MY-OTHER-CLASS) &REST MOP-19::ARGS) ; (FIND-CLASS 'MOP-19::MY-DIRECT-SLOT-DEFINITION)) ; --> PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SB-MOP:DIRECT-SLOT-DEFINITION-CLASS ; (MOP-19::MY-OTHER-CLASS)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. MOP-19::C &REST ; MOP-19::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST (MOP-19::C MOP-19::MY-OTHER-CLASS) &REST ; MOP-19::ARGS)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SB-MOP:DIRECT-SLOT-DEFINITION-CLASS (MOP-19::MY-OTHER-CLASS)))) ; (DECLARE (IGNORABLE MOP-19::C)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((MOP-19::C) SB-PCL::.NEXT-METHOD-CALL. (MOP-19::C) NIL ; :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS MOP-19::C MOP-19::MY-OTHER-CLASS)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; compiling (DEFMETHOD READER-METHOD-CLASS ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-19.impure-cload.lisp ; in: DEFMETHOD READER-METHOD-CLASS :AROUND (T MY-DIRECT-SLOT-DEFINITION) ; (DEFMETHOD SB-MOP:READER-METHOD-CLASS :AROUND ; (CLASS (MOP-19::S MOP-19::MY-DIRECT-SLOT-DEFINITION) &REST ; MOP-19::INITARGS) ; (FIND-CLASS 'MOP-19::MY-OTHER-READER)) ; --> PROGN SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA ; (SB-PCL::FAST-METHOD SB-MOP:READER-METHOD-CLASS :AROUND ; (T MOP-19::MY-DIRECT-SLOT-DEFINITION)) ; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. CLASS MOP-19::S &REST ; MOP-19::INITARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-PCL::%METHOD-LAMBDA-LIST CLASS ; (MOP-19::S MOP-19::MY-DIRECT-SLOT-DEFINITION) &REST MOP-19::INITARGS)) ; (DECLARE ; (SB-PCL::%METHOD-NAME ; (SB-MOP:READER-METHOD-CLASS :AROUND ; (T MOP-19::MY-DIRECT-SLOT-DEFINITION)))) ; (DECLARE (TYPE T CLASS)) (DECLARE (IGNORABLE MOP-19::S CLASS)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; ((CLASS MOP-19::S) SB-PCL::.NEXT-METHOD-CALL. (CLASS MOP-19::S) NIL ; :CALL-NEXT-METHOD-P NIL :NEXT-METHOD-P-P NIL :SETQ-P NIL ; :METHOD-NAME-DECLARATION (#) ...) ; (DECLARE (SB-PCL::%CLASS MOP-19::S MOP-19::MY-DIRECT-SLOT-DEFINITION)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable INITARGS is defined but never used. ; compiling (DEFCLASS BAR ...) ; compiling (LET (#) ...) ; compiling (LET (#) ...); ; compilation unit finished ; caught 4 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-19.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-2.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-2.impure-cload.lisp" (written 14 JUL 2005 05:30:44 PM): ; compiling (UNTRACE) ; compiling (DEFPACKAGE "TEST" ...) ; compiling (IN-PACKAGE "TEST") ; compiling (DEFCLASS DYNAMIC-SLOT-CLASS ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFUN DYNAMIC-SLOT-P ...) ; compiling (LET (#) ...) ; compiling (DEFMETHOD ALLOCATE-INSTANCE ...) ; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...) ; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...) ; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...) ; compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...) ; compiling (DEFCLASS TEST-CLASS-1 ...) ; compiling (DEFCLASS TEST-CLASS-2 ...) ; compiling (DEFVAR *ONE* ...) ; compiling (DEFVAR *TWO* ...) ; compiling (ASSERT (NOT #)) ; compiling (ASSERT (NULL #)) ; compiling (ASSERT (EQ T ...)) ; compiling (ASSERT (= 1 ...)) ; compiling (DEFCLASS DYNAMIC-SLOT-SUBCLASS ...) ; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...) ; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...) ; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...) ; compiling (DEFCLASS TEST-CLASS-3 ...) ; compiling (DEFVAR *THREE* ...) ; compiling (ASSERT (NOT #)) ; compiling (ASSERT (EQ # ...)) ; compiling (ASSERT (= # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-2.impure-cload.fasl written ; compilation finished in 0:00:01 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-20.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-20.impure-cload.lisp" (written 05 AUG 2006 01:32:35 PM): ; compiling (DEFPACKAGE "MOP-20" ...) ; compiling (IN-PACKAGE "MOP-20") ; compiling (DEFGENERIC TEST ...) ; compiling (DEFUN DEFINE-AROUND-TEST ...) ; compiling (DEFUN RUN-TEST ...) ; compiling (ASSERT (STRING= # ...)) ; compiling (DEFCLASS USER-METHOD ...) ; compiling (DEFMACRO DEF-USER-METHOD ...) ; compiling (DEFGENERIC TEST-UM03 ...) ; compiling (DEFMETHOD TEST-UM03 ...) ; compiling (DEF-USER-METHOD TEST-UM03 ...) ; compiling (DEFMETHOD TEST-UM03 ...) ; compiling (ASSERT (EQUAL # ...)) ; compiling (DEFGENERIC TEST-UM10 ...) ; compiling (DEFMETHOD TEST-UM10 ...) ; compiling (DEFMETHOD TEST-UM10 ...) ; compiling (DEFMETHOD TEST-UM10 ...) ; compiling (DEFMETHOD TEST-UM10 ...) ; compiling (DEF-USER-METHOD TEST-UM10 ...) ; compiling (DEFMETHOD TEST-UM10 ...) ; compiling (DEFMETHOD TEST-UM10 ...) ; compiling (ASSERT (EQUAL # ...)) ; compiling (DEFGENERIC TEST-UM12 ...) ; compiling (DEFMETHOD TEST-UM12 ...) ; compiling (DEFMETHOD TEST-UM12 ...) ; compiling (DEFMETHOD TEST-UM12 ...) ; compiling (DEFMETHOD TEST-UM12 ...) ; compiling (DEFMETHOD TEST-UM12 ...) ; compiling (DEFMETHOD TEST-UM12 ...) ; compiling (DEF-USER-METHOD TEST-UM12 ...) ; compiling (ASSERT (EQUAL # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-20.impure-cload.fasl written ; compilation finished in 0:00:01 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-21.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-21.impure-cload.lisp" (written 09 AUG 2006 04:07:32 PM): ; compiling (DEFPACKAGE "MOP-21" ...) ; compiling (IN-PACKAGE "MOP-21") ; compiling (DEFCLASS BETA-GENERIC-FUNCTION ...) ; compiling (DEFCLASS BETA-METHOD ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (DEFUN COLLECT-RUNS ...) ; compiling (DEFINE-METHOD-COMBINATION BETA ...) ; compiling (DEFMETHOD MAKE-METHOD-LAMBDA ...) ; compiling (DEFMACRO DEFINE-BETA-FUNCTION ...) ; compiling (DEFCLASS TOP ...) ; compiling (DEFCLASS MIDDLE ...) ; compiling (DEFCLASS BOTTOM ...) ; compiling (DEFINE-BETA-FUNCTION TEST ...) ; compiling (MAPCAR (FUNCTION EVAL) ...) ; compiling (ASSERT (EQUAL # ...)) ; compiling (ASSERT (EQUAL # ...)) ; compiling (ASSERT (NULL #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-21.impure-cload.fasl written ; compilation finished in 0:00:00 ; in: LAMBDA NIL ; (LAMBDA (MOP-21::OBJECT) ; (DECLARE (SB-PCL::%METHOD-NAME (MOP-21::TEST (MOP-21::TOP)))) ; (DECLARE (SB-PCL::%METHOD-LAMBDA-LIST (MOP-21::OBJECT MOP-21::TOP))) ; 'MOP-21::TOP) ; ==> ; #'(LAMBDA (MOP-21::OBJECT) ; (DECLARE (SB-PCL::%METHOD-NAME (MOP-21::TEST (MOP-21::TOP)))) ; (DECLARE (SB-PCL::%METHOD-LAMBDA-LIST (MOP-21::OBJECT MOP-21::TOP))) ; 'MOP-21::TOP) ; ; caught STYLE-WARNING: ; The variable OBJECT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: LAMBDA NIL ; (IF MOP-21::ARGS MOP-21::ARGS #:G3264) ; ==> ; MOP-21::ARGS ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (LAMBDA (MOP-21::OBJECT) ; (DECLARE (SB-PCL::%METHOD-NAME (MOP-21::TEST :BETA (MOP-21::MIDDLE)))) ; (DECLARE (SB-PCL::%METHOD-LAMBDA-LIST (MOP-21::OBJECT MOP-21::MIDDLE))) ; (LIST 'MOP-21::MIDDLE (MOP-21::CALL-INNER-METHOD) (CALL-NEXT-METHOD))) ; ==> ; #'(LAMBDA (MOP-21::OBJECT) ; (DECLARE (SB-PCL::%METHOD-NAME (MOP-21::TEST :BETA (MOP-21::MIDDLE)))) ; (DECLARE (SB-PCL::%METHOD-LAMBDA-LIST (MOP-21::OBJECT MOP-21::MIDDLE))) ; (LIST 'MOP-21::MIDDLE (MOP-21::CALL-INNER-METHOD) (CALL-NEXT-METHOD))) ; ; caught STYLE-WARNING: ; The variable OBJECT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 2 notes ; in: LAMBDA NIL ; (LAMBDA (MOP-21::OBJECT) ; (DECLARE (SB-PCL::%METHOD-NAME (MOP-21::TEST :BETA (MOP-21::BOTTOM)))) ; (DECLARE (SB-PCL::%METHOD-LAMBDA-LIST (MOP-21::OBJECT MOP-21::BOTTOM))) ; 'MOP-21::BOTTOM) ; ==> ; #'(LAMBDA (MOP-21::OBJECT) ; (DECLARE (SB-PCL::%METHOD-NAME (MOP-21::TEST :BETA (MOP-21::BOTTOM)))) ; (DECLARE (SB-PCL::%METHOD-LAMBDA-LIST (MOP-21::OBJECT MOP-21::BOTTOM))) ; 'MOP-21::BOTTOM) ; ; caught STYLE-WARNING: ; The variable OBJECT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-22.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-22.impure-cload.lisp" (written 10 AUG 2006 06:55:23 AM): ; compiling (DEFPACKAGE "MOP-22" ...) ; compiling (IN-PACKAGE "MOP-22") ; compiling (DEFCLASS INCOMPLETE ...) ; compiling (DEFGENERIC INCOMPLETE/1 ...) ; compiling (DEFGENERIC FORWARD/1 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-22.impure-cload.lisp ; in: DEFGENERIC FORWARD/1 ; (DEFGENERIC MOP-22::FORWARD/1 (MOP-22::X) ; (:METHOD ((MOP-22::X MOP-22::FORWARD)) 'MOP-22::FORWARD)) ; --> PROGN PUSH LET* LET* ; ==> ; (DEFMETHOD MOP-22::FORWARD/1 ((MOP-22::X MOP-22::FORWARD)) 'MOP-22::FORWARD) ; ; caught STYLE-WARNING: ; (in macroexpansion of (DEFMETHOD FORWARD/1 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; can't find type for presumed class FORWARD in ; SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD. ; compiling (DEFGENERIC INCOMPLETE/7 ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-22.impure-cload.lisp ; in: DEFGENERIC INCOMPLETE/7 ; (DEFGENERIC MOP-22::INCOMPLETE/7 ; (MOP-22::A MOP-22::B MOP-22::C MOP-22::D MOP-22::E MOP-22::F ; MOP-22::G) ; (:METHOD ; ((MOP-22::A MOP-22::INCOMPLETE) (MOP-22::B MOP-22::FORWARD) ; MOP-22::C (MOP-22::D INTEGER) (MOP-22::E CONDITION) ; (MOP-22::F CLASS) MOP-22::G) ; T)) ; --> PROGN PUSH LET* LET* ; ==> ; (DEFMETHOD MOP-22::INCOMPLETE/7 ; ((MOP-22::A MOP-22::INCOMPLETE) (MOP-22::B MOP-22::FORWARD) ; MOP-22::C (MOP-22::D INTEGER) (MOP-22::E CONDITION) ; (MOP-22::F CLASS) MOP-22::G) ; T) ; ; caught STYLE-WARNING: ; (in macroexpansion of (DEFMETHOD INCOMPLETE/7 # ...)) ; (hint: For more precise location, try *BREAK-ON-SIGNALS*.) ; can't find type for presumed class FORWARD in ; SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD. ; compiling (DEFCLASS FORWARD ...) ; compiling (ASSERT (EQ # ...)) ; compiling (ASSERT (EQ # ...)) ; compiling (ASSERT (EQ # ...)); ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-22.impure-cload.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: Defining a method using # as a specializer. STYLE-WARNING: Defining a method using # as a specializer. // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-3.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-3.impure-cload.lisp" (written 02 NOV 2005 05:53:37 PM): ; compiling (DEFPACKAGE "MOP-3" ...) ; compiling (IN-PACKAGE "MOP-3") ; compiling (DEFCLASS MSL-GENERIC-FUNCTION ...) ; compiling (DEFUN REVERSE-METHOD-LIST ...) ; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS ...) ; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES ...) ; compiling (DEFGENERIC TESTGF07 ...) ; compiling (ASSERT (EQUALP # ...)) ; compiling (DEFCLASS NONUMBER-GENERIC-FUNCTION ...) ; compiling (DEFUN NONUMBER-METHOD-LIST ...) ; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS ...) ; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES ...) ; compiling (DEFGENERIC TESTGF08 ...) ; compiling (ASSERT (EQUALP # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-3.impure-cload.fasl written ; compilation finished in 0:00:01 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-4.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-4.impure-cload.lisp" (written 02 NOV 2005 05:53:37 PM): ; compiling (DEFPACKAGE "MOP-4" ...) ; compiling (IN-PACKAGE "MOP-4") ; compiling (DEFCLASS MY-GENERIC-FUNCTION1 ...) ; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...) ; compiling (DEFGENERIC FOO ...) ; compiling (DEFMETHOD FOO ...) ; compiling (ASSERT (= # ...)) ; compiling (DEFCLASS MY-GENERIC-FUNCTION-PCL1 ...) ; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...) ; compiling (DEFGENERIC PCL1 ...) ; compiling (DEFMETHOD PCL1 ...) ; compiling (LET (#) ...) ; compiling (DEFCLASS TRACED-GENERIC-FUNCTION ...) ; compiling (DEFVAR *LAST-TRACED-ARGUMENTS* ...) ; compiling (DEFVAR *LAST-TRACED-VALUES* ...) ; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION ...) ; compiling (DEFGENERIC TESTGF15 ...) ; compiling (TESTGF15 5) ; compiling (ASSERT (EQUAL # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-4.impure-cload.fasl written ; compilation finished in 0:00:00 => TESTGF15 arguments: (5) <= TESTGF15 values: (5 -5 25 1/5)// Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-5.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-5.impure-cload.lisp" (written 26 AUG 2005 10:09:04 PM): ; compiling (DEFCLASS FN ...) ; compiling (DEFVAR *FN*) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (LET (#) ...) ; compiling (DEFCLASS COUNTER ...) ; compiling (DEFUN MAKE-COUNTER ...) ; compiling (DEFPARAMETER *COUNTER* ...) ; compiling (ASSERT (EQ # ...)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-5.impure-cload.fasl written ; compilation finished in 0:00:00 ; in: LAMBDA NIL ; (LET* ((SB-PCL::.INSTANCE. ; (SB-PCL::ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE ; #)) ; (SB-PCL::.SLOTS. (SB-PCL::FSC-INSTANCE-SLOTS SB-PCL::.INSTANCE.))) ; (LET () ; (DECLARE (IGNORABLE)) ; (LET ((SB-PCL::.II-ARGS. #)) ; (SB-PCL::INVOKE-METHOD ; # ; SB-PCL::.II-ARGS.))) ; SB-PCL::.INSTANCE.) ; ; caught STYLE-WARNING: ; The variable SB-PCL::.SLOTS. is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition # // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-6.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-6.impure-cload.lisp" (written 19 SEP 2005 03:18:13 PM): ; compiling (DEFPACKAGE "MOP-6" ...) ; compiling (IN-PACKAGE "MOP-6") ; compiling (DEFCLASS SLOT-REARRANGEMENT-CLASS ...) ; compiling (DEFMETHOD COMPUTE-SLOTS ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFCLASS REARRANGED-CLASS ...) ; compiling (WITH-TEST (:NAME #) ...) ; compiling (WITH-TEST (:NAME #) ...) ; compiling (DEFCLASS FUNCALLABLE-SLOT-REARRANGEMENT-CLASS ...) ; compiling (DEFMETHOD COMPUTE-SLOTS ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFCLASS FUNCALLABLE-REARRANGED-CLASS ...) ; compiling (WITH-TEST (:NAME #) ...) ; compiling (WITH-TEST (:NAME #) ...) ; compiling (WITH-TEST (:NAME #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-6.impure-cload.fasl written ; compilation finished in 0:00:01 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-7.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-7.impure-cload.lisp" (written 02 NOV 2005 05:53:37 PM): ; compiling (DEFPACKAGE "MOP-7" ...) ; compiling (IN-PACKAGE "MOP-7") ; compiling (DEFCLASS G1 ...) ; compiling (DEFCLASS G2 ...) ; compiling (DEFGENERIC F1 ...) ; compiling (DEFGENERIC F2 ...) ; compiling (PRINT (FUNCTION F1)) ; compiling (PRINT (FUNCTION F2)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-7.impure-cload.fasl written ; compilation finished in 0:00:00 # # // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-8.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-8.impure-cload.lisp" (written 02 NOV 2005 08:50:01 PM): ; compiling (DEFPACKAGE "MOP-8" ...) ; compiling (IN-PACKAGE "MOP-8") ; compiling (DEFCLASS DEPENDENT-HISTORY ...) ; compiling (DEFMETHOD UPDATE-DEPENDENT ...) ; compiling (DEFMETHOD UPDATE-DEPENDENT ...) ; compiling (DEFVAR *HISTORY* ...) ; compiling (DEFGENERIC UPD1 ...) ; compiling (ADD-DEPENDENT (FUNCTION UPD1) ...) ; compiling (DEFMETHOD UPD1 ...) ; compiling (LET (#) ...) ; compiling (DEFCLASS FOO ...) ; compiling (ADD-DEPENDENT (FIND-CLASS #) ...) ; compiling (DEFCLASS FOO ...) ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-8.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-9.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-9.impure-cload.lisp" (written 02 NOV 2005 10:19:47 PM): ; compiling (DEFPACKAGE "MOP-9" ...) ; compiling (IN-PACKAGE "MOP-9") ; compiling (DEFCLASS METACLASS/RI ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFCLASS CLASS/RI ...) ; compiling (DEFVAR *CLASS/RI-ARGS* ...) ; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...) ; compiling (WITH-TEST (:NAME #) ...) ; compiling (DEFCLASS DEPENDENT ...) ; compiling (DEFCLASS CLASS/DEPENDENT ...) ; compiling (DEFVAR *DEPENDENT* ...) ; compiling (DEFMETHOD UPDATE-DEPENDENT ...) ; compiling (WITH-TEST (:NAME #) ...) ; compiling (DEFCLASS GFC/RI ...) ; compiling (DEFGENERIC GF/RI ...) ; compiling (DEFVAR *GF/RI-ARGS* ...) ; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...) ; compiling (WITH-TEST (:NAME #) ...) ; compiling (DEFGENERIC GF/DEPENDENT ...) ; compiling (DEFMETHOD UPDATE-DEPENDENT ...) ; compiling (WITH-TEST (:NAME #) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop-9.impure-cload.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop.impure-cload.lisp" (written 07 NOV 2006 10:22:18 AM): ; compiling (DEFPACKAGE "MOP-TEST" ...) ; compiling (IN-PACKAGE "MOP-TEST") ; compiling (DEFCLASS HYPEROBJECT-CLASS ...) ; compiling (DEFCLASS HYPEROBJECT-DSD ...) ; compiling (DEFCLASS HYPEROBJECT-ESD ...) ; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...) ; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...) ; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...) ; compiling (DEFCLASS HYPEROBJECT ...) ; compiling (DEFCLASS PERSON ...) ; compiling (EVAL (QUOTE #)) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/mop.impure-cload.fasl written ; compilation finished in 0:00:00 # # # // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/stream.impure-cload.lisp ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/stream.impure-cload.lisp" (written 14 JUL 2005 05:30:44 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFPARAMETER *SCRATCH-FILE-NAME* ...) ; compiling (DEFVAR *SCRATCH-FILE-STREAM*) ; compiling (DOLIST (SCRATCH-FILE-LENGTH #) ...) ; compiling (WITH-OPEN-FILE (S *SCRATCH-FILE-NAME* ...) ...) ; compiling (ASSERT (STRING= # ...)) ; compiling (DELETE-FILE *SCRATCH-FILE-NAME*) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/stream.impure-cload.fasl written ; compilation finished in 0:00:00 /SCRATCH-FILE-LENGTH=1 /WRAP-NAMED-STREAM-FN=# /WRAP-NAMED-STREAM-FN=# /WRAP-NAMED-STREAM-FN=# /SCRATCH-FILE-LENGTH=200123 /WRAP-NAMED-STREAM-FN=# /WRAP-NAMED-STREAM-FN=# /WRAP-NAMED-STREAM-FN=# // Running impure tests (#) // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clocc-ansi.test.sh //punting clocc ansi-test because SBCL_CLOCC_ANSI_TEST is undefined // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos.test.sh ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos-test-31546-tmp.lisp" (written 29 DEC 2006 10:38:51 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFMETHOD ZUT ...) ; compiling (ZUT 1) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos-test-31546-tmp.fasl written ; compilation finished in 0:00:00 STYLE-WARNING: implicitly creating new generic function ZUT WARNING: Invalid qualifiers for standard method combination in method #: (PROGN :AROUND). VALUE1=# (invalid method error for # method: The method # on # has too many qualifiers. Standard method combination requires all methods to have one of the single qualifiers :AROUND, :BEFORE and :AFTER or to have no qualifier at all.) STYLE-WARNING: implicitly creating new generic function ZUT WARNING: Invalid qualifiers for standard method combination in method #: (PROGN :AROUND). VALUE1=# (invalid method error for # method: The method # on # has too many qualifiers. Standard method combination requires all methods to have one of the single qualifiers :AROUND, :BEFORE and :AFTER or to have no qualifier at all.) ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos-test-31546-tmp.lisp" (written 29 DEC 2006 10:38:51 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFGENERIC ZUT ...) ; compiling (DEFMETHOD ZUT ...) ; compiling (ZUT 1) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos-test-31546-tmp.fasl written ; compilation finished in 0:00:00 WARNING: Invalid qualifiers for PROGN method combination in method #: NIL. VALUE1=# (invalid method error for # method: The method # on # has no qualifiers. The method combination type PROGN was defined with the short form of DEFINE-METHOD-COMBINATION and so requires all methods have either the single qualifier PROGN or the single qualifier :AROUND.) WARNING: Invalid qualifiers for PROGN method combination in method #: NIL. VALUE1=# (invalid method error for # method: The method # on # has no qualifiers. The method combination type PROGN was defined with the short form of DEFINE-METHOD-COMBINATION and so requires all methods have either the single qualifier PROGN or the single qualifier :AROUND.) ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos-test-31546-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFGENERIC ZUT ...) ; compiling (DEFMETHOD ZUT ...) ; compiling (ZUT 1) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos-test-31546-tmp.fasl written ; compilation finished in 0:00:00 WARNING: Invalid qualifiers for PROGN method combination in method #: (PROGN :AROUND). VALUE1=# (invalid method error for # method: The method # on # has too many qualifiers. The method combination type PROGN was defined with the short form of DEFINE-METHOD-COMBINATION and so requires all methods have either the single qualifier PROGN or the single qualifier :AROUND.) WARNING: Invalid qualifiers for PROGN method combination in method #: (PROGN :AROUND). VALUE1=# (invalid method error for # method: The method # on # has too many qualifiers. The method combination type PROGN was defined with the short form of DEFINE-METHOD-COMBINATION and so requires all methods have either the single qualifier PROGN or the single qualifier :AROUND.) ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos-test-31546-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFCLASS ANOTHER-CLASS-WITH-SLOTS ...) ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/clos-test-31546-tmp.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler.test.sh ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; compiling (DEFUN BAR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp ; in: DEFUN BAR ; (1+ (FOO X)) ; ==> ; (+ (FOO X) 1) ; ; caught WARNING: ; Asserted type NUMBER conflicts with derived type (VALUES CONS &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; compiling (DEFUN FOO ...); ; caught WARNING: ; Duplicate definition for FOO found in one file. ; See also: ; The ANSI Standard, Section 3.2.2.3 ; ; compilation unit finished ; caught 1 WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; compiling (DEFUN BAR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; compiling (DECLAIM (NOTINLINE FOO)) ; compiling (DEFUN BAR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DECLAIM (INLINE FOO)) ; compiling (DEFUN FOO ...) ; compiling (DEFUN BAR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; compiling (DEFUN BAR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:52 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; compiling (DEFUN BAR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp ; in: DEFUN BAR ; (1+ (FOO X)) ; ==> ; (+ (FOO X) 1) ; ; caught WARNING: ; Asserted type NUMBER conflicts with derived type (VALUES &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:01 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; compiling (DEFUN BAR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp ; in: DEFUN FOO ; (1+ (LIST X)) ; ==> ; (+ (LIST X) 1) ; ; caught WARNING: ; Asserted type NUMBER conflicts with derived type (VALUES LIST &OPTIONAL). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; compilation unit finished ; caught 1 WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...); ; caught WARNING: ; Too few arguments (0) to ERROR "~S": requires at least 1. ; See also: ; The ANSI Standard, Section 22.3.10.2 ; ; compilation unit finished ; caught 1 WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (DEFSTRUCT BUFFER-STATE ...) ; compiling (DEFCLASS BUFFERED-STREAM-MIXIN ...) ; compiling (DEFGENERIC FROB ...) ; compiling (DEFMETHOD FROB ...) ; compiling (DEFMETHOD FROB ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (DEFUN FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp ; in: DEFUN FOO ; (DEFUN FOO () X) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; ==> ; (BLOCK FOO X) ; ; caught WARNING: ; undefined variable: X ; ; caught WARNING: ; This variable is undefined: ; X ; ; compilation unit finished ; caught 2 WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (DECLAIM (SPECIAL *X*)) ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:53 PM): ; compiling (DECLAIM (MUFFLE-CONDITIONS COMPILER-NOTE)) ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:54 PM): ; compiling (DECLAIM (MUFFLE-CONDITIONS COMPILER-NOTE)) ; compiling (DEFUN FOO ...); ; compilation unit aborted ; caught 1 fatal ERROR condition ; compilation aborted after 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:54 PM): ; compiling (DECLAIM (MUFFLE-CONDITIONS WARNING)) ; compiling (DECLAIM (UNMUFFLE-CONDITIONS STYLE-WARNING)) ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:54 PM): ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:54 PM): ; compiling (DEFUN FOO ...) ; compiling (DEFUN BAR ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp ; in: DEFUN BAR ; (DEFUN BAR () X) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; ==> ; (BLOCK BAR X) ; ; caught WARNING: ; undefined variable: X ; ; caught WARNING: ; This variable is undefined: ; X ; ; compilation unit finished ; caught 2 WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:54 PM): ; compiling (DEFMACRO MACRO-WITH-UNBOUND-VARIABLES ...); in: LAMBDA NIL ; (LET* ((FOO (CAR (CDR #:WHOLE0)))) ; (BLOCK MACRO-WITH-UNBOUND-VARIABLES `(PRINT ,BAR))) ; ; caught STYLE-WARNING: ; The variable FOO is defined but never used. ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp ; in: DEFMACRO MACRO-WITH-UNBOUND-VARIABLES ; (DEFMACRO MACRO-WITH-UNBOUND-VARIABLES (FOO) `(PRINT ,BAR)) ; --> EVAL-WHEN SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA FUNCTION LET* ; ==> ; (LET* ((FOO (CAR (CDR #:WHOLE0)))) ; (BLOCK MACRO-WITH-UNBOUND-VARIABLES `(PRINT ,BAR))) ; ; caught STYLE-WARNING: ; The variable FOO is defined but never used. ; compiling (MACRO-WITH-UNBOUND-VARIABLES (QUOTE XXX)) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp ; in: MACRO-WITH-UNBOUND-VARIABLES 'XXX ; (MACRO-WITH-UNBOUND-VARIABLES 'XXX) ; ; caught ERROR: ; (during macroexpansion of (MACRO-WITH-UNBOUND-VARIABLES 'XXX)) ; The variable BAR is unbound. ; in: DEFMACRO MACRO-WITH-UNBOUND-VARIABLES ; `(PRINT ,BAR) ; ; caught WARNING: ; undefined variable: BAR ; in: LAMBDA NIL ; `(PRINT ,BAR) ; ; caught WARNING: ; undefined variable: BAR ; ; caught WARNING: ; This variable is undefined: ; BAR ; ; compilation unit finished ; caught 1 ERROR condition ; caught 3 WARNING conditions ; caught 2 STYLE-WARNING conditions ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:54 PM): ; compiling (DEFVAR *OOPS* ...); ; caught ERROR: ; don't know how to dump # (default MAKE-LOAD-FORM method called). ; ; compilation unit finished ; caught 1 ERROR condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:54 PM): ; compiling (DEFVAR *OOPS* ...); ; caught ERROR: ; don't know how to dump # (default MAKE-LOAD-FORM method called). ; ; compilation unit finished ; caught 1 ERROR condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:54 PM): ; compiling (DEFVAR *STRING* ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:54 PM): ; compiling (DEFUN FOO ...); ; caught STYLE-WARNING: ; Too many arguments (2) to FORMAT "abc~~def": uses at most 0. ; See also: ; The ANSI Standard, Section 22.3.10.2 ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:54 PM): ; compiling (LET (#) ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:55 PM): ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:55 PM): ; compiling (DEFUN BAR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:55 PM): ; compiling (LET (#) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp ; in: DEFUN FOO ; (REPLACE STRING "bar") ; ; caught WARNING: ; Destructive function REPLACE called on constant data. ; See also: ; The ANSI Standard, Special Operator QUOTE ; The ANSI Standard, Section 3.2.2.3 ; ; compilation unit finished ; caught 1 WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:55 PM): ; compiling (DEFUN FOO ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp ; in: DEFUN FOO ; (SETF (CHAR "bar" 0) #\1) ; --> SB-KERNEL:%CHARSET ; ==> ; (SB-KERNEL:%ASET (THE STRING "bar") 0 #\1) ; ; caught WARNING: ; Destructive function SB-KERNEL:%ASET called on constant data. ; See also: ; The ANSI Standard, Special Operator QUOTE ; The ANSI Standard, Section 3.2.2.3 ; ; compilation unit finished ; caught 1 WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:55 PM): ; compiling (LET (#) ...) ; file: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp ; in: DEFUN FOO ; (NCONC FOO FOO) ; ; caught WARNING: ; Destructive function NCONC called on constant data. ; See also: ; The ANSI Standard, Special Operator QUOTE ; The ANSI Standard, Section 3.2.2.3 ; ; compilation unit finished ; caught 1 WARNING condition ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:55 PM): ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFUN FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:55 PM): ; compiling (DEFSTRUCT FOO ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.lisp" (written 29 DEC 2006 10:38:55 PM): ; compiling (DEFSTRUCT FOOX) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DEFSTRUCT BAR ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/compiler-test-31591-tmp.fasl written ; compilation finished in 0:00:00 // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/core.test.sh [undoing binding stack and other enclosing state... done] [saving current Lisp image into /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/core-test-sh-31849.core: writing 1872 bytes from the read-only space at 0x04000000 writing 1128 bytes from the static space at 0x08000000 writing 25165824 bytes from the dynamic space at 0x4f000000 done] This is SBCL 1.0.1, 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. * /Basic SAVE-LISP-AND-DIE worked, good. [undoing binding stack and other enclosing state... done] [saving current Lisp image into /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/core-test-sh-31849.core: writing 1872 bytes from the read-only space at 0x04000000 writing 1128 bytes from the static space at 0x08000000 writing 25165824 bytes from the dynamic space at 0x4f000000 done] This is SBCL 1.0.1, 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. * Callbacks not supported, skipping /Callbacks after SAVE-LISP-AND-DIE worked, good. /returning success from core.test.sh // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys.test.sh TRUENAMES=(#P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/link-3" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/link-4" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/link-5" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/link-6" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/test-1.tmp" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/test-2.tmp" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/wild\\?test.tmp") TRUENAMES=(#P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/link-3" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/link-4" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/link-5" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/link-6" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/test-1.tmp" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/test-2.tmp" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/filesys-test-31912/wild\\?test.tmp") // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/finalize.test.sh //entering finalize.test.sh Waiting for SBCL to finish stress-testing finalizers OK // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/foreign.test.sh //entering foreign.test.sh building /tmp/sbcl-foreign-test-32286.so building /tmp/sbcl-foreign-test-32286-b.so building /tmp/sbcl-foreign-test-32286-b2.so building /tmp/sbcl-foreign-test-32286-c.so ; compiling file "/tmp/sbcl-foreign-test-32286.def.lisp" (written 29 DEC 2006 10:39:04 PM): ; compiling (DEFINE-ALIEN-VARIABLE ENVIRON ...) ; compiling (DEFVAR *ENVIRON* ...) ; file: /tmp/sbcl-foreign-test-32286.def.lisp ; in: DEFVAR *ENVIRON* ; (DEFVAR *ENVIRON* ENVIRON) ; --> PROGN EVAL-WHEN SB-IMPL::%DEFVAR SB-IMPL::%DEFVAR UNLESS COND IF PROGN ; --> ENVIRON SB-ALIEN-INTERNALS:%HEAP-ALIEN ; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compiling (HANDLER-CASE (PROGN # ...) ...) ; compiling (DEFINE-ALIEN-ROUTINE SUMMISH ...) ; compiling (DEFINE-ALIEN-VARIABLE NUMBERISH ...) ; compiling (DEFINE-ALIEN-ROUTINE NUMMISH ...) ; compiling (DEFINE-ALIEN-VARIABLE "foo" ...) ; compiling (DEFINE-ALIEN-ROUTINE "bar" ...) ; compiling (DEFINE-ALIEN-ROUTINE "negative_short" ...) ; compiling (DEFINE-ALIEN-ROUTINE "negative_int" ...) ; compiling (DEFINE-ALIEN-ROUTINE "negative_long" ...) ; compiling (DEFINE-ALIEN-ROUTINE RETURN9TH ...) ; compiling (DEFINE-ALIEN-ROUTINE RETURN9THD ...) ; compiling (DEFINE-ALIEN-ROUTINE LONG-TEST8 ...) ; compiling (DEFINE-ALIEN-ROUTINE LONG-TEST9 ...) ; compiling (DEFINE-ALIEN-ROUTINE LONG-TEST2 ...) ; compiling (DEFINE-ALIEN-ROUTINE RETURN-LONG-LONG ...) ; compiling (DEFVAR *EXTERN* ...) ; compiling (ASSERT (= # ...)) ; compiling (ENABLE-DEBUGGER) ; compiling (SETF *DEBUGGER-HOOK* ...) ; file: /tmp/sbcl-foreign-test-32286.def.lisp ; in: SETF *DEBUGGER-HOOK* ; (LAMBDA (CONDITION HOOK) ; (PRINT (LIST :DEBUGGER-HOOK CONDITION)) ; (LET ((CONT (FIND-RESTART 'CONTINUE CONDITION))) ; (WHEN CONT (INVOKE-RESTART CONT))) ; (PRINT :FELL-THROUGH) ; (INVOKE-DEBUGGER CONDITION)) ; ==> ; #'(LAMBDA (CONDITION HOOK) ; (PRINT (LIST :DEBUGGER-HOOK CONDITION)) ; (LET ((CONT (FIND-RESTART 'CONTINUE CONDITION))) ; (WHEN CONT (INVOKE-RESTART CONT))) ; (PRINT :FELL-THROUGH) ; (INVOKE-DEBUGGER CONDITION)) ; ; caught STYLE-WARNING: ; The variable HOOK is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 1 note ; /tmp/sbcl-foreign-test-32286.def.fasl written ; compilation finished in 0:00:00 compile ok :STAGE-1 ; ; caught STYLE-WARNING: ; Undefined alien: "late_bar" ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; caught STYLE-WARNING: ; Undefined alien: "late_foo" ; ; compilation unit finished ; caught 1 STYLE-WARNING condition :STAGE-2 :STAGE-3 load ok [undoing binding stack and other enclosing state... done] [saving current Lisp image into /tmp/sbcl-foreign-test-32286.core: writing 1872 bytes from the read-only space at 0x04000000 writing 1128 bytes from the static space at 0x08000000 writing 25165824 bytes from the dynamic space at 0x4f000000 done] table ok This is SBCL 1.0.1, 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. :STAGE-1 ; ; caught STYLE-WARNING: ; Undefined alien: "late_bar" ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; ; caught STYLE-WARNING: ; Undefined alien: "late_foo" ; ; compilation unit finished ; caught 1 STYLE-WARNING condition :STAGE-2 :STAGE-3 start ok This is SBCL 1.0.1, 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. (:DEBUGGER-HOOK #) * NIL * ; ; caught STYLE-WARNING: ; Undefined alien: "foo" ; ; compilation unit finished ; caught 1 STYLE-WARNING condition NIL * NIL * missing ok // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/init.test.sh [undoing binding stack and other enclosing state... done] [saving current Lisp image into /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/init-test-sh-32547.core: writing 1872 bytes from the read-only space at 0x04000000 writing 1128 bytes from the static space at 0x08000000 writing 25100288 bytes from the dynamic space at 0x4f000000 done] This is SBCL 1.0.1, 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. /loading custom sysinit /loading custom userinit * /Default userinit and sysinit loading worked, good /returning success from init.test.sh // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/room.test.sh //entering room.test.sh Dynamic space usage is: 25,562,472 bytes. Read-only space usage is: 1,872 bytes. Static space usage is: 1,128 bytes. Control stack usage is: 800 bytes. Binding stack usage is: 112 bytes. Garbage collection is currently enabled. unhandled SIMPLE-ERROR: Error during processing of --eval option "(progn (dotimes (i 10) (dotimes (j 10) (room)) (gc)) (sb-ext:quit :unix-status 52))": failed AVER: "(OR (EQL (ROOM-INFO-LENGTH INFO) (1+ (GET-HEADER-DATA OBJ))) (FLOATP OBJ) (SIMPLE-ARRAY-NIL-P OBJ))" This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at . 0: (BACKTRACE 128 #) 1: (SB-DEBUG::DEBUGGER-DISABLED-HOOK # #) 2: (INVOKE-DEBUGGER #) 3: (ERROR "Error during processing of --eval ~ option ~S:~%~% ~A") 4: ((LAMBDA (SB-IMPL::E)) #) 5: ((LAMBDA (SB-IMPL::E)) #) 6: (SIGNAL #) 7: (ERROR SB-INT:BUG) 8: (SB-INT:BUG "~@") 9: (SB-IMPL::%FAILED-AVER "(OR (EQL (ROOM-INFO-LENGTH INFO) (1+ (GET-HEADER-DATA OBJ))) (FLOATP OBJ) (SIMPLE-ARRAY-NIL-P OBJ))") 10: (SB-VM::MAP-ALLOCATED-OBJECTS # #) 11: (SB-VM::TYPE-BREAKDOWN :DYNAMIC) 12: (SB-VM:MEMORY-USAGE) 13: (ROOM :DEFAULT) 14: (NIL) 15: (SB-INT:SIMPLE-EVAL-IN-LEXENV (DOTIMES (I 10) (DOTIMES (J 10) (ROOM)) (GC)) #) 16: (SB-IMPL::SIMPLE-EVAL-PROGN-BODY ((DOTIMES (I 10) (DOTIMES (J 10) (ROOM)) (GC)) (QUIT :UNIX-STATUS 52)) #) 17: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (DOTIMES (I 10) (DOTIMES (J 10) (ROOM)) (GC)) (QUIT :UNIX-STATUS 52)) #) 18: (SB-IMPL::PROCESS-EVAL-OPTIONS ((DISABLE-DEBUGGER) "(progn (dotimes (i 10) (dotimes (j 10) (room)) (gc)) (sb-ext:quit :unix-status 52))")) 19: (SB-IMPL::TOPLEVEL-INIT) 20: ((LABELS SB-IMPL::RESTART-LISP)) unhandled condition in --disable-debugger mode, quitting // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/run-program.test.sh // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/side-effectful-pathnames.test.sh /translations=(("**;*.*.*" "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/side-effectful-pathnames-test-32685/**/*.*")) ; in: LAMBDA NIL ; (LET* ((UNTRANSLATED "test:Load-Test.lisp") ; (IGNORE-ME (FORMAT T "untranslated=~S~%" UNTRANSLATED)) ; (TRANSLATION (NAMESTRING (TRANSLATE-LOGICAL-PATHNAME UNTRANSLATED))) ; (EXPECTED-TRANSLATION ; "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/side-effectful-pathnames-test-32685/load-test.lisp")) ; (FORMAT T "translation=~S~%" TRANSLATION) ; (FORMAT T "expected-translation=~S~%" EXPECTED-TRANSLATION) ; (ASSERT (STRING= TRANSLATION EXPECTED-TRANSLATION))) ; ; caught STYLE-WARNING: ; The variable IGNORE-ME is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition untranslated="test:Load-Test.lisp" translation="/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/side-effectful-pathnames-test-32685/load-test.lisp" expected-translation="/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/side-effectful-pathnames-test-32685/load-test.lisp" about to LOAD "TEST:Load-Test" ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/side-effectful-pathnames-test-32685/load-test.lisp" (written 29 DEC 2006 10:39:09 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFPARAMETER *LOADED* ...) ; TEST:LOAD-TEST.FASL.NEWEST written ; compilation finished in 0:00:00 compiled-file-name="/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/side-effectful-pathnames-test-32685/load-test.fasl" expected-file-name="/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/side-effectful-pathnames-test-32685/load-test.fasl" // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/threads.test.sh /waiting unhandled SIMPLE-ERROR: Error during processing of --eval option (LOAD #P"condition-wait-sigcont.lisp"): Not supported in unithread builds. 0: (BACKTRACE 128 #) 1: (SB-DEBUG::DEBUGGER-DISABLED-HOOK # #) 2: (INVOKE-DEBUGGER #) 3: (ERROR "Error during processing of --eval ~ option ~S:~%~% ~A") 4: ((LAMBDA (SB-IMPL::E)) #) 5: ((LAMBDA (SB-IMPL::E)) #) 6: (SIGNAL #) 7: (ERROR "Not supported in unithread builds.") 8: (CONDITION-WAIT # #S(MUTEX :NAME "lock" :VALUE NIL)) 9: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CONDITION-WAIT *QUEUE* *LOCK*) #) 10: (SB-IMPL::SIMPLE-EVAL-PROGN-BODY ((WRITE-LINE "/waiting") (FORCE-OUTPUT) (DELETE-FILE "condition-wait-sigcont.tmp") (CONDITION-WAIT *QUEUE* *LOCK*) (WRITE-LINE "/woken") (FORCE-OUTPUT) (WITH-OPEN-FILE (F "condition-wait-sigcont.tmp" :DIRECTION :OUTPUT) (WRITE-LINE "woken!" F))) #) 11: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WITH-MUTEX (*LOCK*) (WRITE-LINE "/waiting") (FORCE-OUTPUT) (DELETE-FILE "condition-wait-sigcont.tmp") (CONDITION-WAIT *QUEUE* *LOCK*) (WRITE-LINE "/woken") (FORCE-OUTPUT) (WITH-OPEN-FILE (F "condition-wait-sigcont.tmp" :DIRECTION :OUTPUT) (WRITE-LINE "woken!" F))) #) 12: (SB-FASL::LOAD-AS-SOURCE # NIL NIL) 13: (SB-FASL::INTERNAL-LOAD #P"condition-wait-sigcont.lisp" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/condition-wait-sigcont.lisp" :ERROR NIL NIL :SOURCE :DEFAULT) 14: (SB-FASL::INTERNAL-LOAD #P"condition-wait-sigcont.lisp" #P"/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/condition-wait-sigcont.lisp" :ERROR NIL NIL NIL :DEFAULT) 15: (LOAD #P"condition-wait-sigcont.lisp") 16: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD #P"condition-wait-sigcont.lisp") #) 17: (SB-IMPL::PROCESS-EVAL-OPTIONS ((DISABLE-DEBUGGER) (LOAD #P"condition-wait-sigcont.lisp"))) 18: (SB-IMPL::TOPLEVEL-INIT) 19: ((LABELS SB-IMPL::RESTART-LISP)) unhandled condition in --disable-debugger mode, quitting /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/threads.test.sh: line 22: kill: (32727) - No such process /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/threads.test.sh: line 23: kill: (32727) - No such process /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/threads.test.sh: line 26: kill: (32727) - No such process // Running /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/undefined-classoid-bug.test.sh ; in: LAMBDA NIL ; (A-STRUCT-SLOT STRUCT) ; ; caught STYLE-WARNING: ; undefined function: A-STRUCT-SLOT ; ; caught STYLE-WARNING: ; This function is undefined: ; A-STRUCT-SLOT ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: LAMBDA NIL ; (A-STRUCT-SLOT STRUCT) ; ; caught STYLE-WARNING: ; undefined function: A-STRUCT-SLOT ; ; caught STYLE-WARNING: ; This function is undefined: ; A-STRUCT-SLOT ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/undefined-classoid-bug-1.lisp" (written 16 FEB 2005 06:02:06 AM): ; compiling (IN-PACKAGE "CL-USER") ; compiling (DEFUN A-STRUCT-REFERENCER-1 ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/undefined-classoid-bug-1.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/undefined-classoid-bug-2.lisp" (written 16 FEB 2005 06:02:06 AM): ; compiling (IN-PACKAGE "CL-USER") ; compiling (DEFUN A-STRUCT-REFERENCER-2 ...) ; compiling (DEFSTRUCT A-STRUCT ...) ; /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1/tests/undefined-classoid-bug-2.fasl written ; compilation finished in 0:00:00 Finished running tests. Status: Expected failure: float.pure.lisp / (SCALE-FLOAT-OVERFLOW BUG-372) Expected failure: float.pure.lisp / (ADDITION-OVERFLOW BUG-372) Failure: debug.impure.lisp / (UNDEFINED-FUNCTION BUG-346) Failure: debug.impure.lisp / (THROW NO-SUCH-TAG) Expected failure: debug.impure.lisp / (TRACE ENCAPSULATE NIL) Expected failure: debug.impure.lisp / (TRACE-RECURSIVE ENCAPSULATE NIL) Unhandled error defstruct.impure.lisp Expected failure: external-format.impure.lisp / (CHARACTER-DECODE-LARGE FORCE-END-OF-FILE) Unhandled error smoke.impure.lisp Invalid exit status: room.test.sh test failed, expected 104 return code, got 1 + : + popd ~/working/extras/sbcl/devel/sbcl-1.0.1 + exit 0 Processing files: sbcl-1.0.1-3.64KiB.fc7 Executing(%doc): /bin/sh -e /var/tmp/rpm-tmp.46690 + umask 022 + cd /home/dwmw2/working/extras/sbcl/devel + cd sbcl-1.0.1 + DOCDIR=/var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/share/doc/sbcl-1.0.1 + export DOCDIR + rm -rf /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/share/doc/sbcl-1.0.1 + /bin/mkdir -p /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/share/doc/sbcl-1.0.1 + cp -pr BUGS COPYING README CREDITS NEWS TLA TODO /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/share/doc/sbcl-1.0.1 + cp -pr SUPPORT STYLE PRINCIPLES /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2/usr/share/doc/sbcl-1.0.1 + exit 0 Requires(interp): /bin/sh Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1 Requires(pre): /bin/sh Requires(post): /sbin/install-info Requires(preun): /sbin/install-info Requires: libc.so.6 libc.so.6(GLIBC_2.0) libc.so.6(GLIBC_2.1) libc.so.6(GLIBC_2.3) libc.so.6(GLIBC_2.3.4) libc.so.6(GLIBC_2.4) libdl.so.2 libdl.so.2(GLIBC_2.0) libdl.so.2(GLIBC_2.1) libm.so.6 libm.so.6(GLIBC_2.0) rtld(GNU_HASH) Processing files: sbcl-debuginfo-1.0.1-3.64KiB.fc7 Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1 Checking for unpackaged file(s): /usr/lib/rpm/check-files /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2 Wrote: /home/dwmw2/working/extras/sbcl/devel/sbcl-1.0.1-3.64KiB.fc7.src.rpm Wrote: /home/dwmw2/working/extras/sbcl/devel/ppc/sbcl-1.0.1-3.64KiB.fc7.ppc.rpm Wrote: /home/dwmw2/working/extras/sbcl/devel/ppc/sbcl-debuginfo-1.0.1-3.64KiB.fc7.ppc.rpm Executing(%clean): /bin/sh -e /var/tmp/rpm-tmp.48180 + umask 022 + cd /home/dwmw2/working/extras/sbcl/devel + cd sbcl-1.0.1 + rm -rf /var/tmp/sbcl-1.0.1-3.64KiB.fc7-root-dwmw2 + exit 0