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
; "~@