//starting build: Wed Jul 30 15:11:09 EEST 2008
//SBCL_XC_HOST="sbcl --disable-debugger --userinit /dev/null --sysinit /dev/null"
//entering make-config.sh
//ensuring the existence of output/ directory
//initializing /Users/nikodemus/src/sbcl/local-target-features.lisp-expr
//guessing default target CPU architecture from host architecture
//setting up CPU-architecture-dependent information
sbcl_arch="x86"
//setting up symlink src/compiler/target
//setting up symlink src/assembly/target
//setting up symlink src/compiler/assembly
//setting up OS-dependent information
//finishing /Users/nikodemus/src/sbcl/local-target-features.lisp-expr
/in canonicalize-whitespace-1
/$*=./contrib/asdf/asdf.lisp ./contrib/asdf-install/defpackage.lisp ./contrib/asdf-install/installer.lisp ./contrib/asdf-stub.lisp ./contrib/code-extras.lisp ./contrib/compiler-extras.lisp ./contrib/sb-aclrepl/debug.lisp ./contrib/sb-aclrepl/inspect.lisp ./contrib/sb-aclrepl/repl.lisp ./contrib/sb-aclrepl/tests.lisp ./contrib/sb-aclrepl/toplevel.lisp ./contrib/sb-bsd-sockets/constants.lisp ./contrib/sb-bsd-sockets/defpackage.lisp ./contrib/sb-bsd-sockets/inet.lisp ./contrib/sb-bsd-sockets/local.lisp ./contrib/sb-bsd-sockets/misc.lisp ./contrib/sb-bsd-sockets/name-service.lisp ./contrib/sb-bsd-sockets/sockets.lisp ./contrib/sb-bsd-sockets/sockopt.lisp ./contrib/sb-bsd-sockets/split.lisp ./contrib/sb-bsd-sockets/tests.lisp ./contrib/sb-bsd-sockets/win32-constants.lisp ./contrib/sb-bsd-sockets/win32-lib.lisp ./contrib/sb-bsd-sockets/win32-sockets.lisp ./contrib/sb-cltl2/compiler-let.lisp ./contrib/sb-cltl2/defpackage.lisp ./contrib/sb-cltl2/env.lisp ./contrib/sb-cltl2/macroexpand.lisp ./contrib/sb-cltl2/tests.lisp ./contrib/sb-cover/cover.lisp ./contrib/sb-cover/test-data-1.lisp ./contrib/sb-cover/test-data-2.lisp ./contrib/sb-cover/test-data-3.lisp ./contrib/sb-cover/tests.lisp ./contrib/sb-executable/sb-executable.lisp ./contrib/sb-grovel/def-to-lisp.lisp ./contrib/sb-grovel/defpackage.lisp ./contrib/sb-grovel/example-constants.lisp ./contrib/sb-grovel/foreign-glue.lisp ./contrib/sb-introspect/sb-introspect.lisp ./contrib/sb-introspect/test-driver.lisp ./contrib/sb-introspect/test.lisp ./contrib/sb-introspect/xref-test-data.lisp ./contrib/sb-introspect/xref-test.lisp ./contrib/sb-md5/md5-tests.lisp ./contrib/sb-md5/md5.lisp ./contrib/sb-posix/constants.lisp ./contrib/sb-posix/defpackage.lisp ./contrib/sb-posix/designator.lisp ./contrib/sb-posix/interface.lisp ./contrib/sb-posix/macros.lisp ./contrib/sb-posix/posix-tests.lisp ./contrib/sb-rotate-byte/compiler.lisp ./contrib/sb-rotate-byte/package.lisp ./contrib/sb-rotate-byte/ppc-vm.lisp ./contrib/sb-rotate-byte/rotate-byte-tests.lisp ./contrib/sb-rotate-byte/rotate-byte.lisp ./contrib/sb-rotate-byte/x86-vm.lisp ./contrib/sb-rt/rt.lisp ./contrib/sb-simple-streams/classes.lisp ./contrib/sb-simple-streams/direct.lisp ./contrib/sb-simple-streams/file.lisp ./contrib/sb-simple-streams/fndb.lisp ./contrib/sb-simple-streams/impl.lisp ./contrib/sb-simple-streams/internal.lisp ./contrib/sb-simple-streams/iodefs.lisp ./contrib/sb-simple-streams/null.lisp ./contrib/sb-simple-streams/package.lisp ./contrib/sb-simple-streams/simple-stream-tests.lisp ./contrib/sb-simple-streams/socket.lisp ./contrib/sb-simple-streams/strategy.lisp ./contrib/sb-simple-streams/string.lisp ./contrib/sb-simple-streams/terminal.lisp ./contrib/sb-sprof/sb-sprof.lisp ./contrib/stale-symbols.lisp ./doc/manual/create-contrib-doc-list.lisp ./doc/manual/docstrings.lisp ./make-genesis-2.lisp ./make-host-1.lisp ./make-host-2.lisp ./make-target-2-load.lisp ./make-target-2.lisp ./src/assembly/alpha/alloc.lisp ./src/assembly/alpha/arith.lisp ./src/assembly/alpha/array.lisp ./src/assembly/alpha/assem-rtns.lisp ./src/assembly/alpha/support.lisp ./src/assembly/assemfile.lisp ./src/assembly/hppa/alloc.lisp ./src/assembly/hppa/arith.lisp ./src/assembly/hppa/array.lisp ./src/assembly/hppa/assem-rtns.lisp ./src/assembly/hppa/support.lisp ./src/assembly/mips/alloc.lisp ./src/assembly/mips/arith.lisp ./src/assembly/mips/array.lisp ./src/assembly/mips/assem-rtns.lisp ./src/assembly/mips/support.lisp ./src/assembly/ppc/alloc.lisp ./src/assembly/ppc/arith.lisp ./src/assembly/ppc/array.lisp ./src/assembly/ppc/assem-rtns.lisp ./src/assembly/ppc/support.lisp ./src/assembly/sparc/alloc.lisp ./src/assembly/sparc/arith.lisp ./src/assembly/sparc/array.lisp ./src/assembly/sparc/assem-rtns.lisp ./src/assembly/sparc/support.lisp ./src/assembly/x86/alloc.lisp ./src/assembly/x86/arith.lisp ./src/assembly/x86/array.lisp ./src/assembly/x86/assem-rtns.lisp ./src/assembly/x86/bit-bash.lisp ./src/assembly/x86/support.lisp ./src/assembly/x86-64/alloc.lisp ./src/assembly/x86-64/arith.lisp ./src/assembly/x86-64/array.lisp ./src/assembly/x86-64/assem-rtns.lisp ./src/assembly/x86-64/bit-bash.lisp ./src/assembly/x86-64/support.lisp ./src/code/alien-type.lisp ./src/code/alloc.lisp ./src/code/alpha-vm.lisp ./src/code/ansi-stream.lisp ./src/code/array.lisp ./src/code/backq.lisp ./src/code/bignum.lisp ./src/code/bit-bash.lisp ./src/code/bsd-os.lisp ./src/code/char.lisp ./src/code/cl-specials.lisp ./src/code/class-init.lisp ./src/code/class.lisp ./src/code/coerce.lisp ./src/code/cold-error.lisp ./src/code/cold-init-helper-macros.lisp ./src/code/cold-init.lisp ./src/code/common-os.lisp ./src/code/condition.lisp ./src/code/cross-boole.lisp ./src/code/cross-byte.lisp ./src/code/cross-char.lisp ./src/code/cross-condition.lisp ./src/code/cross-float.lisp ./src/code/cross-io.lisp ./src/code/cross-make-load-form.lisp ./src/code/cross-misc.lisp ./src/code/cross-modular.lisp ./src/code/cross-sap.lisp ./src/code/cross-thread.lisp ./src/code/cross-type.lisp ./src/code/deadline.lisp ./src/code/debug-info.lisp ./src/code/debug-int.lisp ./src/code/debug-var-io.lisp ./src/code/debug.lisp ./src/code/defbangconstant.lisp ./src/code/defbangmacro.lisp ./src/code/defbangstruct.lisp ./src/code/defbangtype.lisp ./src/code/defboot.lisp ./src/code/defmacro.lisp ./src/code/defpackage.lisp ./src/code/defsetfs.lisp ./src/code/defstruct.lisp ./src/code/deftypes-for-target.lisp ./src/code/describe-policy.lisp ./src/code/describe.lisp ./src/code/destructuring-bind.lisp ./src/code/dyncount.lisp ./src/code/early-alieneval.lisp ./src/code/early-array.lisp ./src/code/early-cl.lisp ./src/code/early-constants.lisp ./src/code/early-defbangmethod.lisp ./src/code/early-defstructs.lisp ./src/code/early-extensions.lisp ./src/code/early-fasl.lisp ./src/code/early-float.lisp ./src/code/early-format.lisp ./src/code/early-full-eval.lisp ./src/code/early-impl.lisp ./src/code/early-package.lisp ./src/code/early-pcounter.lisp ./src/code/early-pprint.lisp ./src/code/early-print.lisp ./src/code/early-setf.lisp ./src/code/early-source-location.lisp ./src/code/early-step.lisp ./src/code/early-thread.lisp ./src/code/early-time.lisp ./src/code/early-type.lisp ./src/code/error-error.lisp ./src/code/error.lisp ./src/code/eval.lisp ./src/code/exhaust.lisp ./src/code/external-formats/enc-cn-tbl.lisp ./src/code/external-formats/enc-cn.lisp ./src/code/external-formats/enc-cyr.lisp ./src/code/external-formats/enc-dos.lisp ./src/code/external-formats/enc-iso.lisp ./src/code/external-formats/enc-jpn-tbl.lisp ./src/code/external-formats/enc-jpn.lisp ./src/code/external-formats/enc-win.lisp ./src/code/external-formats/mb-util.lisp ./src/code/external-formats/ucs-2.lisp ./src/code/fd-stream.lisp ./src/code/fdefinition.lisp ./src/code/filesys.lisp ./src/code/final.lisp ./src/code/float-trap.lisp ./src/code/float.lisp ./src/code/fop.lisp ./src/code/force-delayed-defbangconstants.lisp ./src/code/force-delayed-defbangmacros.lisp ./src/code/force-delayed-defbangmethods.lisp ./src/code/force-delayed-defbangstructs.lisp ./src/code/foreign-load.lisp ./src/code/foreign.lisp ./src/code/format-time.lisp ./src/code/full-eval.lisp ./src/code/function-names.lisp ./src/code/funutils.lisp ./src/code/gc.lisp ./src/code/globals.lisp ./src/code/hash-table.lisp ./src/code/host-alieneval.lisp ./src/code/host-c-call.lisp ./src/code/host-pprint.lisp ./src/code/hppa-vm.lisp ./src/code/huffman.lisp ./src/code/inspect.lisp ./src/code/interr.lisp ./src/code/irrat.lisp ./src/code/kernel.lisp ./src/code/late-condition.lisp ./src/code/late-defbangmethod.lisp ./src/code/late-deftypes-for-target.lisp ./src/code/late-extensions.lisp ./src/code/late-format.lisp ./src/code/late-setf.lisp ./src/code/late-type.lisp ./src/code/linkage-table.lisp ./src/code/linux-os.lisp ./src/code/list.lisp ./src/code/load.lisp ./src/code/loop.lisp ./src/code/macroexpand.lisp ./src/code/macros.lisp ./src/code/mips-vm.lisp ./src/code/mipsstrops.lisp ./src/code/misc-aliens.lisp ./src/code/misc.lisp ./src/code/module.lisp ./src/code/ntrace.lisp ./src/code/numbers.lisp ./src/code/octets.lisp ./src/code/osf1-os.lisp ./src/code/package.lisp ./src/code/parse-body.lisp ./src/code/parse-defmacro-errors.lisp ./src/code/parse-defmacro.lisp ./src/code/pathname.lisp ./src/code/pcounter.lisp ./src/code/pp-backq.lisp ./src/code/ppc-vm.lisp ./src/code/pprint.lisp ./src/code/pred.lisp ./src/code/primordial-extensions.lisp ./src/code/primordial-type.lisp ./src/code/print.lisp ./src/code/profile.lisp ./src/code/purify.lisp ./src/code/query.lisp ./src/code/random.lisp ./src/code/reader.lisp ./src/code/readtable.lisp ./src/code/room.lisp ./src/code/run-program.lisp ./src/code/save.lisp ./src/code/sc-offset.lisp ./src/code/seq.lisp ./src/code/serve-event.lisp ./src/code/setf-funs.lisp ./src/code/sharpm.lisp ./src/code/show.lisp ./src/code/signal.lisp ./src/code/sort.lisp ./src/code/source-location.lisp ./src/code/sparc-vm.lisp ./src/code/specializable-array.lisp ./src/code/step.lisp ./src/code/stream.lisp ./src/code/string.lisp ./src/code/stubs.lisp ./src/code/sunos-os.lisp ./src/code/sxhash.lisp ./src/code/symbol.lisp ./src/code/sysmacs.lisp ./src/code/target-alieneval.lisp ./src/code/target-allocate.lisp ./src/code/target-c-call.lisp ./src/code/target-char.lisp ./src/code/target-defbangmethod.lisp ./src/code/target-defstruct.lisp ./src/code/target-error.lisp ./src/code/target-exception.lisp ./src/code/target-extensions.lisp ./src/code/target-format.lisp ./src/code/target-hash-table.lisp ./src/code/target-load.lisp ./src/code/target-misc.lisp ./src/code/target-package.lisp ./src/code/target-pathname.lisp ./src/code/target-random.lisp ./src/code/target-sap.lisp ./src/code/target-signal.lisp ./src/code/target-stream.lisp ./src/code/target-sxhash.lisp ./src/code/target-thread.lisp ./src/code/target-type.lisp ./src/code/thread.lisp ./src/code/time.lisp ./src/code/timer.lisp ./src/code/toplevel.lisp ./src/code/type-class.lisp ./src/code/type-init.lisp ./src/code/typecheckfuns.lisp ./src/code/typedefs.lisp ./src/code/typep.lisp ./src/code/uncross.lisp ./src/code/unix-pathname.lisp ./src/code/unix.lisp ./src/code/unportable-float.lisp ./src/code/weak.lisp ./src/code/win32-foreign-load.lisp ./src/code/win32-os.lisp ./src/code/win32-pathname.lisp ./src/code/win32.lisp ./src/code/x86-64-vm.lisp ./src/code/x86-vm.lisp ./src/code/xset.lisp ./src/cold/ansify.lisp ./src/cold/chill.lisp ./src/cold/compile-cold-sbcl.lisp ./src/cold/defun-load-or-cload-xcompiler.lisp ./src/cold/read-from-file.lisp ./src/cold/rename-package-carefully.lisp ./src/cold/set-up-cold-packages.lisp ./src/cold/shared.lisp ./src/cold/shebang.lisp ./src/cold/slam.lisp ./src/cold/snapshot.lisp ./src/cold/warm.lisp ./src/cold/with-stuff.lisp ./src/compiler/aliencomp.lisp ./src/compiler/alpha/alloc.lisp ./src/compiler/alpha/arith.lisp ./src/compiler/alpha/array.lisp ./src/compiler/alpha/backend-parms.lisp ./src/compiler/alpha/c-call.lisp ./src/compiler/alpha/call.lisp ./src/compiler/alpha/cell.lisp ./src/compiler/alpha/char.lisp ./src/compiler/alpha/debug.lisp ./src/compiler/alpha/float.lisp ./src/compiler/alpha/insts.lisp ./src/compiler/alpha/macros.lisp ./src/compiler/alpha/memory.lisp ./src/compiler/alpha/move.lisp ./src/compiler/alpha/nlx.lisp ./src/compiler/alpha/parms.lisp ./src/compiler/alpha/pred.lisp ./src/compiler/alpha/sanctify.lisp ./src/compiler/alpha/sap.lisp ./src/compiler/alpha/show.lisp ./src/compiler/alpha/static-fn.lisp ./src/compiler/alpha/subprim.lisp ./src/compiler/alpha/system.lisp ./src/compiler/alpha/target-insts.lisp ./src/compiler/alpha/type-vops.lisp ./src/compiler/alpha/values.lisp ./src/compiler/alpha/vm.lisp ./src/compiler/array-tran.lisp ./src/compiler/assem.lisp ./src/compiler/backend.lisp ./src/compiler/bit-util.lisp ./src/compiler/checkgen.lisp ./src/compiler/codegen.lisp ./src/compiler/compiler-deftype.lisp ./src/compiler/compiler-error.lisp ./src/compiler/constantp.lisp ./src/compiler/constraint.lisp ./src/compiler/control.lisp ./src/compiler/copyprop.lisp ./src/compiler/ctype.lisp ./src/compiler/debug-dump.lisp ./src/compiler/debug.lisp ./src/compiler/defconstant.lisp ./src/compiler/deftype.lisp ./src/compiler/dfo.lisp ./src/compiler/disassem.lisp ./src/compiler/dump.lisp ./src/compiler/dyncount.lisp ./src/compiler/early-aliencomp.lisp ./src/compiler/early-assem.lisp ./src/compiler/early-backend.lisp ./src/compiler/early-c.lisp ./src/compiler/entry.lisp ./src/compiler/fixup-type.lisp ./src/compiler/fixup.lisp ./src/compiler/float-tran.lisp ./src/compiler/fndb.lisp ./src/compiler/fopcompile.lisp ./src/compiler/fun-info-funs.lisp ./src/compiler/generic/array.lisp ./src/compiler/generic/core.lisp ./src/compiler/generic/early-objdef.lisp ./src/compiler/generic/early-type-vops.lisp ./src/compiler/generic/early-vm.lisp ./src/compiler/generic/genesis.lisp ./src/compiler/generic/interr.lisp ./src/compiler/generic/late-nlx.lisp ./src/compiler/generic/late-type-vops.lisp ./src/compiler/generic/objdef.lisp ./src/compiler/generic/parms.lisp ./src/compiler/generic/primtype.lisp ./src/compiler/generic/target-core.lisp ./src/compiler/generic/utils.lisp ./src/compiler/generic/vm-array.lisp ./src/compiler/generic/vm-fndb.lisp ./src/compiler/generic/vm-ir2tran.lisp ./src/compiler/generic/vm-macs.lisp ./src/compiler/generic/vm-tran.lisp ./src/compiler/generic/vm-type.lisp ./src/compiler/generic/vm-typetran.lisp ./src/compiler/globaldb.lisp ./src/compiler/gtn.lisp ./src/compiler/hppa/alloc.lisp ./src/compiler/hppa/arith.lisp ./src/compiler/hppa/array.lisp ./src/compiler/hppa/backend-parms.lisp ./src/compiler/hppa/c-call.lisp ./src/compiler/hppa/call.lisp ./src/compiler/hppa/cell.lisp ./src/compiler/hppa/char.lisp ./src/compiler/hppa/debug.lisp ./src/compiler/hppa/float.lisp ./src/compiler/hppa/insts.lisp ./src/compiler/hppa/macros.lisp ./src/compiler/hppa/memory.lisp ./src/compiler/hppa/move.lisp ./src/compiler/hppa/nlx.lisp ./src/compiler/hppa/parms.lisp ./src/compiler/hppa/pred.lisp ./src/compiler/hppa/sanctify.lisp ./src/compiler/hppa/sap.lisp ./src/compiler/hppa/show.lisp ./src/compiler/hppa/static-fn.lisp ./src/compiler/hppa/subprim.lisp ./src/compiler/hppa/system.lisp ./src/compiler/hppa/target-insts.lisp ./src/compiler/hppa/type-vops.lisp ./src/compiler/hppa/values.lisp ./src/compiler/hppa/vm.lisp ./src/compiler/info-functions.lisp ./src/compiler/integer-tran.lisp ./src/compiler/ir1-translators.lisp ./src/compiler/ir1final.lisp ./src/compiler/ir1opt.lisp ./src/compiler/ir1report.lisp ./src/compiler/ir1tran-lambda.lisp ./src/compiler/ir1tran.lisp ./src/compiler/ir1util.lisp ./src/compiler/ir2tran.lisp ./src/compiler/knownfun.lisp ./src/compiler/late-macros.lisp ./src/compiler/late-proclaim.lisp ./src/compiler/late-vmdef.lisp ./src/compiler/lexenv.lisp ./src/compiler/life.lisp ./src/compiler/locall.lisp ./src/compiler/loop.lisp ./src/compiler/ltn.lisp ./src/compiler/ltv.lisp ./src/compiler/macros.lisp ./src/compiler/main.lisp ./src/compiler/meta-vmdef.lisp ./src/compiler/mips/alloc.lisp ./src/compiler/mips/arith.lisp ./src/compiler/mips/array.lisp ./src/compiler/mips/backend-parms.lisp ./src/compiler/mips/c-call.lisp ./src/compiler/mips/call.lisp ./src/compiler/mips/cell.lisp ./src/compiler/mips/char.lisp ./src/compiler/mips/debug.lisp ./src/compiler/mips/float.lisp ./src/compiler/mips/insts.lisp ./src/compiler/mips/macros.lisp ./src/compiler/mips/memory.lisp ./src/compiler/mips/move.lisp ./src/compiler/mips/nlx.lisp ./src/compiler/mips/parms.lisp ./src/compiler/mips/pred.lisp ./src/compiler/mips/sanctify.lisp ./src/compiler/mips/sap.lisp ./src/compiler/mips/show.lisp ./src/compiler/mips/static-fn.lisp ./src/compiler/mips/subprim.lisp ./src/compiler/mips/system.lisp ./src/compiler/mips/target-insts.lisp ./src/compiler/mips/type-vops.lisp ./src/compiler/mips/values.lisp ./src/compiler/mips/vm.lisp ./src/compiler/node.lisp ./src/compiler/pack.lisp ./src/compiler/parse-lambda-list.lisp ./src/compiler/physenvanal.lisp ./src/compiler/policies.lisp ./src/compiler/policy.lisp ./src/compiler/ppc/alloc.lisp ./src/compiler/ppc/arith.lisp ./src/compiler/ppc/array.lisp ./src/compiler/ppc/backend-parms.lisp ./src/compiler/ppc/c-call.lisp ./src/compiler/ppc/call.lisp ./src/compiler/ppc/cell.lisp ./src/compiler/ppc/char.lisp ./src/compiler/ppc/debug.lisp ./src/compiler/ppc/float.lisp ./src/compiler/ppc/insts.lisp ./src/compiler/ppc/macros.lisp ./src/compiler/ppc/memory.lisp ./src/compiler/ppc/move.lisp ./src/compiler/ppc/nlx.lisp ./src/compiler/ppc/parms.lisp ./src/compiler/ppc/pred.lisp ./src/compiler/ppc/sanctify.lisp ./src/compiler/ppc/sap.lisp ./src/compiler/ppc/show.lisp ./src/compiler/ppc/static-fn.lisp ./src/compiler/ppc/subprim.lisp ./src/compiler/ppc/system.lisp ./src/compiler/ppc/target-insts.lisp ./src/compiler/ppc/type-vops.lisp ./src/compiler/ppc/values.lisp ./src/compiler/ppc/vm.lisp ./src/compiler/proclaim.lisp ./src/compiler/pseudo-vops.lisp ./src/compiler/represent.lisp ./src/compiler/saptran.lisp ./src/compiler/seqtran.lisp ./src/compiler/sparc/alloc.lisp ./src/compiler/sparc/arith.lisp ./src/compiler/sparc/array.lisp ./src/compiler/sparc/backend-parms.lisp ./src/compiler/sparc/c-call.lisp ./src/compiler/sparc/call.lisp ./src/compiler/sparc/cell.lisp ./src/compiler/sparc/char.lisp ./src/compiler/sparc/debug.lisp ./src/compiler/sparc/float.lisp ./src/compiler/sparc/insts.lisp ./src/compiler/sparc/macros.lisp ./src/compiler/sparc/memory.lisp ./src/compiler/sparc/move.lisp ./src/compiler/sparc/nlx.lisp ./src/compiler/sparc/parms.lisp ./src/compiler/sparc/pred.lisp ./src/compiler/sparc/sanctify.lisp ./src/compiler/sparc/sap.lisp ./src/compiler/sparc/show.lisp ./src/compiler/sparc/static-fn.lisp ./src/compiler/sparc/subprim.lisp ./src/compiler/sparc/system.lisp ./src/compiler/sparc/target-insts.lisp ./src/compiler/sparc/type-vops.lisp ./src/compiler/sparc/values.lisp ./src/compiler/sparc/vm.lisp ./src/compiler/srctran.lisp ./src/compiler/sset.lisp ./src/compiler/stack.lisp ./src/compiler/target-disassem.lisp ./src/compiler/target-dump.lisp ./src/compiler/target-main.lisp ./src/compiler/tn.lisp ./src/compiler/trace-table.lisp ./src/compiler/typetran.lisp ./src/compiler/vmdef.lisp ./src/compiler/vop.lisp ./src/compiler/x86/alloc.lisp ./src/compiler/x86/arith.lisp ./src/compiler/x86/array.lisp ./src/compiler/x86/backend-parms.lisp ./src/compiler/x86/c-call.lisp ./src/compiler/x86/call.lisp ./src/compiler/x86/cell.lisp ./src/compiler/x86/char.lisp ./src/compiler/x86/debug.lisp ./src/compiler/x86/float.lisp ./src/compiler/x86/insts.lisp ./src/compiler/x86/macros.lisp ./src/compiler/x86/memory.lisp ./src/compiler/x86/move.lisp ./src/compiler/x86/nlx.lisp ./src/compiler/x86/parms.lisp ./src/compiler/x86/pred.lisp ./src/compiler/x86/sanctify.lisp ./src/compiler/x86/sap.lisp ./src/compiler/x86/show.lisp ./src/compiler/x86/static-fn.lisp ./src/compiler/x86/subprim.lisp ./src/compiler/x86/system.lisp ./src/compiler/x86/target-insts.lisp ./src/compiler/x86/type-vops.lisp ./src/compiler/x86/values.lisp ./src/compiler/x86/vm.lisp ./src/compiler/x86-64/alloc.lisp ./src/compiler/x86-64/arith.lisp ./src/compiler/x86-64/array.lisp ./src/compiler/x86-64/backend-parms.lisp ./src/compiler/x86-64/c-call.lisp ./src/compiler/x86-64/call.lisp ./src/compiler/x86-64/cell.lisp ./src/compiler/x86-64/char.lisp ./src/compiler/x86-64/debug.lisp ./src/compiler/x86-64/float.lisp ./src/compiler/x86-64/insts.lisp ./src/compiler/x86-64/macros.lisp ./src/compiler/x86-64/memory.lisp ./src/compiler/x86-64/move.lisp ./src/compiler/x86-64/nlx.lisp ./src/compiler/x86-64/parms.lisp ./src/compiler/x86-64/pred.lisp ./src/compiler/x86-64/sanctify.lisp ./src/compiler/x86-64/sap.lisp ./src/compiler/x86-64/show.lisp ./src/compiler/x86-64/static-fn.lisp ./src/compiler/x86-64/subprim.lisp ./src/compiler/x86-64/system.lisp ./src/compiler/x86-64/target-insts.lisp ./src/compiler/x86-64/type-vops.lisp ./src/compiler/x86-64/values.lisp ./src/compiler/x86-64/vm.lisp ./src/compiler/xref.lisp ./src/pcl/boot.lisp ./src/pcl/braid.lisp ./src/pcl/cache.lisp ./src/pcl/combin.lisp ./src/pcl/compiler-support.lisp ./src/pcl/cpl.lisp ./src/pcl/ctor.lisp ./src/pcl/ctypes.lisp ./src/pcl/defclass.lisp ./src/pcl/defcombin.lisp ./src/pcl/defs.lisp ./src/pcl/describe.lisp ./src/pcl/dfun.lisp ./src/pcl/dlisp.lisp ./src/pcl/dlisp3.lisp ./src/pcl/documentation.lisp ./src/pcl/early-low.lisp ./src/pcl/env.lisp ./src/pcl/fixup.lisp ./src/pcl/fngen.lisp ./src/pcl/fsc.lisp ./src/pcl/generic-functions.lisp ./src/pcl/gray-streams-class.lisp ./src/pcl/gray-streams.lisp ./src/pcl/init.lisp ./src/pcl/low.lisp ./src/pcl/macros.lisp ./src/pcl/methods.lisp ./src/pcl/precom1.lisp ./src/pcl/precom2.lisp ./src/pcl/print-object.lisp ./src/pcl/sequence.lisp ./src/pcl/slot-name.lisp ./src/pcl/slots-boot.lisp ./src/pcl/slots.lisp ./src/pcl/std-class.lisp ./src/pcl/time.lisp ./src/pcl/vector.lisp ./src/pcl/walk.lisp ./src/pcl/wrapper.lisp ./tests/alien.impure.lisp ./tests/arith.impure.lisp ./tests/arith.pure.lisp ./tests/array.pure.lisp ./tests/assertoid.lisp ./tests/backq.impure.lisp ./tests/bit-vector.impure-cload.lisp ./tests/bivalent-stream.impure.lisp ./tests/break-on-signals.impure.lisp ./tests/bug-414.lisp ./tests/bug-417.lisp ./tests/bug-doug-mcnaught-20030914.lisp ./tests/bug204-test.lisp ./tests/callback.impure.lisp ./tests/case.pure.lisp ./tests/character.pure.lisp ./tests/circ-tree-test.lisp ./tests/clocc-ansi-test-known-bugs.lisp ./tests/clos-1.impure.lisp ./tests/clos-add-remove-method.impure.lisp ./tests/clos-cache.impure.lisp ./tests/clos-ignore.interactive.lisp ./tests/clos-interrupts.impure.lisp ./tests/clos-typechecking.impure.lisp ./tests/clos.impure-cload.lisp ./tests/clos.impure.lisp ./tests/clos.pure.lisp ./tests/compare-and-swap.impure.lisp ./tests/compiler-1.impure-cload.lisp ./tests/compiler-2.impure-cload.lisp ./tests/compiler-output-test.lisp ./tests/compiler.impure-cload.lisp ./tests/compiler.impure.lisp ./tests/compiler.pure-cload.lisp ./tests/compiler.pure.lisp ./tests/compound-cons.impure.lisp ./tests/condition-wait-sigcont.lisp ./tests/condition.impure.lisp ./tests/condition.pure.lisp ./tests/ctor.impure.lisp ./tests/custom-sysinit.lisp ./tests/custom-userinit.lisp ./tests/deadline.impure.lisp ./tests/debug.impure.lisp ./tests/define-compiler-macro.impure.lisp ./tests/defmacro-test.lisp ./tests/defstruct.impure.lisp ./tests/deftype.impure.lisp ./tests/destructure.impure.lisp ./tests/dump.impure-cload.lisp ./tests/dynamic-extent.impure.lisp ./tests/enc-cn.impure.lisp ./tests/enc-jpn.impure.lisp ./tests/eval.impure.lisp ./tests/exhaust.impure.lisp ./tests/external-format.impure.lisp ./tests/filesys.pure.lisp ./tests/float.impure.lisp ./tests/float.pure.lisp ./tests/fopcompiler.impure-cload.lisp ./tests/foreign-stack-alignment.impure.lisp ./tests/full-eval.impure.lisp ./tests/gc.impure.lisp ./tests/gcd.pure.lisp ./tests/gray-streams.impure.lisp ./tests/hash.impure.lisp ./tests/hash.pure.lisp ./tests/info.before-xc.lisp ./tests/info.impure.lisp ./tests/interface.impure.lisp ./tests/interface.pure.lisp ./tests/lambda-list.pure.lisp ./tests/list.pure.lisp ./tests/load.impure.lisp ./tests/load.pure.lisp ./tests/loop.impure.lisp ./tests/loop.pure.lisp ./tests/macroexpand.impure.lisp ./tests/map-tests.impure.lisp ./tests/mop-1.impure-cload.lisp ./tests/mop-10.impure-cload.lisp ./tests/mop-11.impure-cload.lisp ./tests/mop-12.impure-cload.lisp ./tests/mop-13.impure-cload.lisp ./tests/mop-14.impure-cload.lisp ./tests/mop-15.impure-cload.lisp ./tests/mop-16.impure-cload.lisp ./tests/mop-17.impure-cload.lisp ./tests/mop-18.impure-cload.lisp ./tests/mop-19.impure-cload.lisp ./tests/mop-2.impure-cload.lisp ./tests/mop-20.impure-cload.lisp ./tests/mop-21.impure-cload.lisp ./tests/mop-22.impure-cload.lisp ./tests/mop-23.impure.lisp ./tests/mop-24.impure.lisp ./tests/mop-25.impure.lisp ./tests/mop-26.impure.lisp ./tests/mop-27.impure.lisp ./tests/mop-28.impure.lisp ./tests/mop-3.impure-cload.lisp ./tests/mop-4.impure-cload.lisp ./tests/mop-5.impure-cload.lisp ./tests/mop-6.impure-cload.lisp ./tests/mop-7.impure-cload.lisp ./tests/mop-8.impure-cload.lisp ./tests/mop-9.impure-cload.lisp ./tests/mop.impure-cload.lisp ./tests/mop.impure.lisp ./tests/mop.pure.lisp ./tests/octets.pure.lisp ./tests/package-ctor-bug.lisp ./tests/package-locks.impure.lisp ./tests/packages.impure.lisp ./tests/pathnames.impure.lisp ./tests/pprint.impure.lisp ./tests/print.impure.lisp ./tests/properties.impure.lisp ./tests/pure.lisp ./tests/reader.impure.lisp ./tests/reader.pure.lisp ./tests/run-program.impure.lisp ./tests/run-tests.lisp ./tests/seq.impure.lisp ./tests/seq.pure.lisp ./tests/setf.impure.lisp ./tests/signals.impure.lisp ./tests/smoke.impure.lisp ./tests/static-alloc.impure.lisp ./tests/step.impure.lisp ./tests/stream.impure-cload.lisp ./tests/stream.impure.lisp ./tests/stream.pure.lisp ./tests/stress-gc.lisp ./tests/string.pure.lisp ./tests/symbol-macrolet-test.lisp ./tests/symbol.pure.lisp ./tests/test-util.lisp ./tests/threads.impure.lisp ./tests/threads.pure.lisp ./tests/time.pure.lisp ./tests/timer.impure.lisp ./tests/type.after-xc.lisp ./tests/type.before-xc.lisp ./tests/type.impure.lisp ./tests/type.pure.lisp ./tests/undefined-classoid-bug-1.lisp ./tests/undefined-classoid-bug-2.lisp ./tests/unwind-to-frame-and-call.impure.lisp ./tests/vector.impure.lisp ./tests/vector.pure.lisp ./tests/vm.before-xc.lisp ./tests/walk.impure.lisp ./tests/win32-foreign-stack-unwind.impure.lisp ./tests/with-compilation-unit.impure.lisp ./tools-for-build/ldso-stubs.lisp ./tools-for-build/rtf.lisp ./tools-for-build/ucd.lisp ./tools-for-build/wxs.lisp ./base-target-features.lisp-expr ./build-order.lisp-expr ./common-lisp-exports.lisp-expr ./local-target-features.lisp-expr ./package-data-list.lisp-expr ./src/code/early-defstruct-args.lisp-expr ./version.lisp-expr ./src/runtime/alloc.c ./src/runtime/alpha-arch.c ./src/runtime/alpha-linux-os.c ./src/runtime/alpha-osf1-os.c ./src/runtime/backtrace.c ./src/runtime/breakpoint.c ./src/runtime/bsd-os.c ./src/runtime/cheneygc.c ./src/runtime/coreparse.c ./src/runtime/darwin-dlshim.c ./src/runtime/darwin-langinfo.c ./src/runtime/darwin-os.c ./src/runtime/dynbind.c ./src/runtime/funcall.c ./src/runtime/gc-common.c ./src/runtime/gencgc.c ./src/runtime/globals.c ./src/runtime/hppa-arch.c ./src/runtime/hppa-linux-os.c ./src/runtime/interr.c ./src/runtime/interrupt.c ./src/runtime/largefile.c ./src/runtime/linux-os.c ./src/runtime/mips-arch.c ./src/runtime/mips-linux-os.c ./src/runtime/monitor.c ./src/runtime/os-common.c ./src/runtime/osf1-os.c ./src/runtime/parse.c ./src/runtime/ppc-arch.c ./src/runtime/ppc-bsd-os.c ./src/runtime/ppc-darwin-os.c ./src/runtime/ppc-linux-os.c ./src/runtime/print.c ./src/runtime/pthread-futex.c ./src/runtime/pthread-lutex.c ./src/runtime/purify.c ./src/runtime/regnames.c ./src/runtime/run-program.c ./src/runtime/runtime.c ./src/runtime/save.c ./src/runtime/search.c ./src/runtime/sparc-arch.c ./src/runtime/sparc-bsd-os.c ./src/runtime/sparc-linux-os.c ./src/runtime/sparc-sunos-os.c ./src/runtime/sunos-os.c ./src/runtime/thread.c ./src/runtime/time.c ./src/runtime/trymap.c ./src/runtime/undefineds.c ./src/runtime/util.c ./src/runtime/validate.c ./src/runtime/vars.c ./src/runtime/win32-os.c ./src/runtime/wrap.c ./src/runtime/x86-64-arch.c ./src/runtime/x86-64-bsd-os.c ./src/runtime/x86-64-darwin-os.c ./src/runtime/x86-64-linux-os.c ./src/runtime/x86-arch.c ./src/runtime/x86-bsd-os.c ./src/runtime/x86-darwin-os.c ./src/runtime/x86-linux-os.c ./src/runtime/x86-sunos-os.c ./src/runtime/x86-win32-os.c ./tests/stack-alignment-offset.c ./tests/win32-stack-unwind.c ./tools-for-build/determine-endianness.c ./tools-for-build/grovel-headers.c ./tools-for-build/os-provides-blksize-t-test.c ./tools-for-build/os-provides-dladdr-test.c ./tools-for-build/os-provides-dlopen-test.c ./tools-for-build/os-provides-putwc-test.c ./tools-for-build/os-provides-suseconds-t-test.c ./tools-for-build/where-is-mcontext.c ./src/runtime/alloc.h ./src/runtime/alpha-arch.h ./src/runtime/alpha-linux-os.h ./src/runtime/alpha-lispregs.h ./src/runtime/alpha-osf1-os.h ./src/runtime/arch.h ./src/runtime/breakpoint.h ./src/runtime/bsd-os.h ./src/runtime/cheneygc-internal.h ./src/runtime/core.h ./src/runtime/darwin-dlshim.h ./src/runtime/darwin-langinfo.h ./src/runtime/darwin-os.h ./src/runtime/dynbind.h ./src/runtime/fixnump.h ./src/runtime/gc-internal.h ./src/runtime/gc.h ./src/runtime/gencgc-alloc-region.h ./src/runtime/gencgc-internal.h ./src/runtime/gencgc.h ./src/runtime/globals.h ./src/runtime/hppa-arch.h ./src/runtime/hppa-linux-os.h ./src/runtime/hppa-lispregs.h ./src/runtime/interr.h ./src/runtime/interrupt.h ./src/runtime/linux-os.h ./src/runtime/lispregs.h ./src/runtime/mips-arch.h ./src/runtime/mips-linux-os.h ./src/runtime/mips-lispregs.h ./src/runtime/monitor.h ./src/runtime/os.h ./src/runtime/osf1-os.h ./src/runtime/parse.h ./src/runtime/ppc-arch.h ./src/runtime/ppc-bsd-os.h ./src/runtime/ppc-darwin-os.h ./src/runtime/ppc-linux-os.h ./src/runtime/ppc-lispregs.h ./src/runtime/print.h ./src/runtime/pseudo-atomic.h ./src/runtime/pthread-lutex.h ./src/runtime/purify.h ./src/runtime/runtime.h ./src/runtime/save.h ./src/runtime/search.h ./src/runtime/sparc-arch.h ./src/runtime/sparc-bsd-os.h ./src/runtime/sparc-linux-os.h ./src/runtime/sparc-lispregs.h ./src/runtime/sparc-sunos-os.h ./src/runtime/sunos-os.h ./src/runtime/target-arch-os.h ./src/runtime/target-arch.h ./src/runtime/target-lispregs.h ./src/runtime/target-os.h ./src/runtime/thread.h ./src/runtime/undefineds.h ./src/runtime/util.h ./src/runtime/validate.h ./src/runtime/vars.h ./src/runtime/win32-os.h ./src/runtime/wrap.h ./src/runtime/x86-64-arch.h ./src/runtime/x86-64-bsd-os.h ./src/runtime/x86-64-darwin-os.h ./src/runtime/x86-64-linux-os.h ./src/runtime/x86-64-lispregs.h ./src/runtime/x86-arch.h ./src/runtime/x86-bsd-os.h ./src/runtime/x86-darwin-os.h ./src/runtime/x86-linux-os.h ./src/runtime/x86-lispregs.h ./src/runtime/x86-sunos-os.h ./src/runtime/x86-win32-os.h
/$scratchfilename=/tmp/canonicalize-whitespace-1.41245.tmp
//entering make-host-1.sh
//building cross-compiler, and doing first genesis
This is SBCL 1.0.19, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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 :SB-DOC
                                      :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS
                                      :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS
                                      :IEEE-FLOATING-POINT :X86 :UNIX :MACH-O
                                      :BSD :DARWIN :MACH-EXCEPTION-HANDLER
                                      :SB-LUTEX
                                      :RESTORE-FS-SEGMENT-REGISTER-FROM-TLS
                                      :GENCGC :STACK-GROWS-DOWNWARD-NOT-UPWARD
                                      :C-STACK-IS-CONTROL-STACK
                                      :COMPARE-AND-SWAP-VOPS
                                      :UNWIND-TO-FRAME-AND-CALL-VOP
                                      :RAW-INSTANCE-INIT-VOPS
                                      :STACK-ALLOCATABLE-CLOSURES
                                      :ALIEN-CALLBACKS :CYCLE-COUNTER
                                      :LINKAGE-TABLE :OS-PROVIDES-DLOPEN
                                      :OS-PROVIDES-DLADDR :OS-PROVIDES-PUTWC
                                      :OS-PROVIDES-BLKSIZE-T
                                      :OS-PROVIDES-SUSECONDS-T)
target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL
T
* 
T
* 
#<PACKAGE "SB-COLD">
* 
"obj/from-host/"
* 
T
* 
T
* 
creating directory: /Users/nikodemus/src/sbcl/obj/
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/src/
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/src/code/

; compiling file "/Users/nikodemus/src/sbcl/src/code/show.lisp" (written 05 FEB 2008 12:55:21 AM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (DEFUN CANNOT-/SHOW ...)
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/show.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-source-location.lisp" (written 16 JUL 2008 10:21:04 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFCONSTANT +CODE-COVERAGE-UNMARKED+ ...)
; compiling (DEFVAR *SOURCE-LOCATION-THUNKS* ...)
; compiling (DEFUN SOURCE-LOCATION ...)
; compiling (DEFMACRO WITH-SOURCE-LOCATION ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-source-location.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-constants.lisp" (written 04 JUN 2008 03:39:40 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF SB-XC:LAMBDA-LIST-KEYWORDS ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-constants.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/backq.lisp" (written 16 SEP 2007 03:05:17 PM):
; 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 SIMPLE-READER-ERROR ...)
; compiling (/SHOW0 "done with backq.lisp")
; file: /Users/nikodemus/src/sbcl/src/code/backq.lisp
; in: DEFUN SIMPLE-READER-ERROR
;     (SB!INT:BUG "READER-ERROR on stream ~S: ~?" STREAM SB!IMPL::FORMAT-STRING
;      SB!IMPL::FORMAT-ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: BUG

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     BUG
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/backq.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defsetfs.lisp" (written 04 JUN 2006 05: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")

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/defsetfs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cold-init-helper-macros.lisp" (written 04 JUL 2003 08: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cold-init-helper-macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-misc.lisp" (written 29 NOV 2007 07:30:18 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO TRULY-THE ...)
; compiling (DECLAIM (DECLARATION FREEZE-TYPE ...))
; compiling (DECLAIM (DECLARATION INHIBIT-WARNINGS))
; compiling (DEFMACRO WITHOUT-INTERRUPTS ...)
; compiling (DEFMACRO WITH-LOCKED-HASH-TABLE ...)
; 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 %WITH-ARRAY-DATA/FP ...)
; compiling (DEFUN SIGNED-BYTE-32-P ...)
; compiling (DEFMACRO WITHOUT-PACKAGE-LOCKS ...)
; compiling (DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR ...)
; compiling (DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)
; compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...)
; compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)
; compiling (DECLAIM (DECLARATION ENABLE-PACKAGE-LOCKS ...))
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-misc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-char.lisp" (written 14 JUL 2005 07:30:14 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-char.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-byte.lisp" (written 06 MAY 2008 07:43:52 PM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (DEFUN BYTE ...)
; compiling (DEFUN BYTE-SIZE ...)
; compiling (DEFUN BYTE-POSITION ...)
; compiling (DEFUN UNCROSS-BYTE ...)
; compiling (DEFUN LDB ...)
; compiling (DEFUN LDB-TEST ...)
; compiling (DEFUN DPB ...)
; compiling (DEFUN MASK-FIELD ...)
; compiling (DEFUN DEPOSIT-FIELD ...)
; compiling (DEFINE-SETF-EXPANDER LDB ...)
; compiling (DEFINE-SETF-EXPANDER MASK-FIELD ...); in: LAMBDA NIL
;     (SB!INT:BUG "SETF SB!XC:MASK-FIELD too hairy!")
; 
; caught STYLE-WARNING:
;   undefined function: BUG


; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-byte.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-boole.lisp" (written 26 OCT 2003 12:40:48 AM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-boole.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-float.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-float.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-io.lisp" (written 07 JUN 2001 12:43:50 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFMACRO PREPARE-FOR-FAST-READ-BYTE ...)
; compiling (DEFMACRO FAST-READ-BYTE ...)
; compiling (DEFMACRO DONE-WITH-FAST-READ-BYTE ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-io.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-sap.lisp" (written 14 JUL 2005 07: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-127 ...)
; compiling (DEFSETF SAP-REF-8 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-16 ...)
; compiling (DEFUN #:SETTER-STUB-128 ...)
; compiling (DEFSETF SAP-REF-16 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-32 ...)
; compiling (DEFUN #:SETTER-STUB-129 ...)
; compiling (DEFSETF SAP-REF-32 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-64 ...)
; compiling (DEFUN #:SETTER-STUB-130 ...)
; compiling (DEFSETF SAP-REF-64 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-SAP ...)
; compiling (DEFUN #:SETTER-STUB-131 ...)
; compiling (DEFSETF SAP-REF-SAP ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-WORD ...)
; compiling (DEFUN #:SETTER-STUB-132 ...)
; compiling (DEFSETF SAP-REF-WORD ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-SINGLE ...)
; compiling (DEFUN #:SETTER-STUB-133 ...)
; compiling (DEFSETF SAP-REF-SINGLE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SAP-REF-DOUBLE ...)
; compiling (DEFUN #:SETTER-STUB-134 ...)
; compiling (DEFSETF SAP-REF-DOUBLE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-8 ...)
; compiling (DEFUN #:SETTER-STUB-135 ...)
; compiling (DEFSETF SIGNED-SAP-REF-8 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-16 ...)
; compiling (DEFUN #:SETTER-STUB-136 ...)
; compiling (DEFSETF SIGNED-SAP-REF-16 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-32 ...)
; compiling (DEFUN #:SETTER-STUB-137 ...)
; compiling (DEFSETF SIGNED-SAP-REF-32 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-64 ...)
; compiling (DEFUN #:SETTER-STUB-138 ...)
; compiling (DEFSETF SIGNED-SAP-REF-64 ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SIGNED-SAP-REF-WORD ...)
; compiling (DEFUN #:SETTER-STUB-139 ...)
; compiling (DEFSETF SIGNED-SAP-REF-WORD ...)
; file: /Users/nikodemus/src/sbcl/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!SYS::MAKE-SAP
;                    (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
;                                           (SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO
;                                            #<SB-KERNEL:DEFSTRUCT-DESCRIPTION SB!SYS:SYSTEM-AREA-POINTER>
;                                            '(#) #:G0)))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: SAP-INT

; 
; caught STYLE-WARNING:
;   undefined type: SAP-INT


; file: /Users/nikodemus/src/sbcl/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:
;   22 more uses of undefined type SAP-INT

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     SAP-INT
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-sap.lisp-obj-tmp written
; compilation finished in 0:00:00
; in: LAMBDA NIL
;     (THE SB!SYS:SAP-INT #:ONCE-ONLY-648)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G4 'SB!SYS:SAP-INT)
; 
; caught STYLE-WARNING:
;   undefined type: SAP-INT

; --> MULTIPLE-VALUE-BIND LET UNLESS 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 "/Users/nikodemus/src/sbcl/src/code/cross-thread.lisp" (written 11 APR 2007 09:08:41 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-thread.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-make-load-form.lisp" (written 14 JUL 2005 07:30:14 PM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS ...)
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-make-load-form.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-condition.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-condition.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/uncross.lisp" (written 14 JUL 2005 07:30:40 PM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/uncross.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/primordial-type.lisp" (written 28 FEB 2007 06:06:01 PM):
; 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 *EXTENDED-SEQUENCE-TYPE*)
; compiling (DEFVAR *BUILT-IN-CLASS-CODES*)
; compiling (DEFVAR *NULL-CLASSOID-LAYOUT*)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/primordial-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-defbangmethod.lisp" (written 21 OCT 2000 02:30:33 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO DEF!METHOD ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defbangtype.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/defbangtype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defbangmacro.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/defbangmacro.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/defbangconstant.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/defbangconstant.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/primordial-extensions.lisp" (written 15 JUN 2008 02:13:41 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...)
; compiling (DEFUN FROB-DO-BODY ...)
; compiling (DEFMACRO DO-ANONYMOUS ...)
; compiling (DEFUN BLOCK-GENSYM ...)
; compiling (DEFMACRO STRING-DISPATCH ...)
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 (SB!INT:BLOCK-GENSYM)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G91 'SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined type: INDEX

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G91 '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: /Users/nikodemus/src/sbcl/src/code/primordial-extensions.lisp
; in: DEFUN BLOCK-GENSYM
;     (SB!C::LEXENV-BLOCKS SB!IMPL::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::LEXENV-BLOCKS

; 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:
;   These functions are undefined:
;     SB!C::LEXENV-BLOCKS PARSE-BODY

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     INDEX
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/primordial-extensions.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/function-names.lisp" (written 05 DEC 2006 06:35:56 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/function-names.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/parms.lisp" (written 08 MAY 2008 10:14:02 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...)
; compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...)
; compiling (DEF!CONSTANT TLS-SIZE ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/parms.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/parms.lisp" (written 07 JUL 2008 10:57:19 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEF!CONSTANT N-WORD-BITS ...)
; compiling (DEF!CONSTANT N-MACHINE-WORD-BITS ...)
; compiling (DEF!CONSTANT N-BYTE-BITS ...)
; compiling (DEF!CONSTANT MINIMUM-IMMEDIATE-OFFSET ...)
; compiling (DEF!CONSTANT MAXIMUM-IMMEDIATE-OFFSET ...)
; compiling (DEF!CONSTANT FLOAT-SIGN-SHIFT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-BIAS ...)
; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-EXPONENT-BYTE ...)
; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-SIGNIFICAND-BYTE ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-HIDDEN-BIT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-TRAPPING-NAN-BIT ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-BIAS ...)
; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-EXPONENT-BYTE ...)
; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-SIGNIFICAND-BYTE ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-HIDDEN-BIT ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-TRAPPING-NAN-BIT ...)
; compiling (DEF!CONSTANT LONG-FLOAT-BIAS ...)
; compiling (DEFCONSTANT-EQX LONG-FLOAT-EXPONENT-BYTE ...)
; compiling (DEFCONSTANT-EQX LONG-FLOAT-SIGNIFICAND-BYTE ...)
; compiling (DEF!CONSTANT LONG-FLOAT-NORMAL-EXPONENT-MIN ...)
; compiling (DEF!CONSTANT LONG-FLOAT-NORMAL-EXPONENT-MAX ...)
; compiling (DEF!CONSTANT LONG-FLOAT-HIDDEN-BIT ...)
; compiling (DEF!CONSTANT LONG-FLOAT-TRAPPING-NAN-BIT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-DIGITS ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...)
; compiling (DEF!CONSTANT LONG-FLOAT-DIGITS ...)
; compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-DENORMAL-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...)
; compiling (DEF!CONSTANT FLOAT-PRECISION-24-BIT ...)
; compiling (DEF!CONSTANT FLOAT-PRECISION-53-BIT ...)
; compiling (DEF!CONSTANT FLOAT-PRECISION-64-BIT ...)
; compiling (DEFCONSTANT-EQX FLOAT-ROUNDING-MODE ...)
; compiling (DEFCONSTANT-EQX FLOAT-STICKY-BITS ...)
; compiling (DEFCONSTANT-EQX FLOAT-TRAPS-BYTE ...)
; compiling (DEFCONSTANT-EQX FLOAT-EXCEPTIONS-BYTE ...)
; compiling (DEFCONSTANT-EQX FLOAT-PRECISION-CONTROL ...)
; compiling (DEF!CONSTANT FLOAT-FAST-BIT ...)
; compiling (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 (DEF!CONSTANT NIL-VALUE ...)
; compiling (DEFENUM (:SUFFIX -TRAP ...) ...)
; compiling (DEFENUM (:PREFIX OBJECT-NOT- ...) ...)
; compiling (DEFENUM (:PREFIX TRACE-TABLE-) ...)
; compiling (DEFVAR *ALLOCATION-POINTER*)
; compiling (DEFVAR *BINDING-STACK-POINTER*)
; compiling (DEFPARAMETER *STATIC-SYMBOLS* ...)
; compiling (DEFPARAMETER *STATIC-FUNS* ...)
; compiling (DEFPARAMETER *ASSEMBLY-UNIT-LENGTH* ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/parms.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/early-vm.lisp" (written 30 JUN 2008 12:00:39 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 ...)
; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/early-vm.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/early-objdef.lisp" (written 01 OCT 2007 02:18:51 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFENUM (:SUFFIX -LOWTAG) ...)
; compiling (DEF!CONSTANT NIL-VALUE ...)
; compiling (DEFENUM (:SUFFIX -WIDETAG ...) ...)
; compiling (DEFENUM (:PREFIX VECTOR- ...) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/early-objdef.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-array.lisp" (written 19 MAY 2002 04: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-extensions.lisp" (written 04 JUN 2008 03:39:40 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFPARAMETER *EOF-OBJECT* ...)
; compiling (DEF!TYPE INDEX ...)
; compiling (DEF!TYPE INDEX/2 ...)
; compiling (DEF!TYPE INDEX-OR-MINUS-1 ...)
; compiling (DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT ...)
; compiling (DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT ...)
; compiling (DEF!TYPE LOAD/STORE-INDEX ...)
; compiling (DEFUN DISPLACEMENT-BOUNDS ...)
; compiling (DEF!TYPE CONSTANT-DISPLACEMENT ...)
; compiling (DEF!TYPE SFUNCTION ...)
; compiling (DEF!TYPE TYPE-SPECIFIER ...)
; compiling (DEFPARAMETER *DEFAULT-INIT-CHAR-FORM* ...)
; compiling (DEF!CONSTANT BELL-CHAR-CODE ...)
; compiling (DEF!CONSTANT BACKSPACE-CHAR-CODE ...)
; compiling (DEF!CONSTANT TAB-CHAR-CODE ...)
; compiling (DEF!CONSTANT LINE-FEED-CHAR-CODE ...)
; compiling (DEF!CONSTANT FORM-FEED-CHAR-CODE ...)
; compiling (DEF!CONSTANT RETURN-CHAR-CODE ...)
; compiling (DEF!CONSTANT ESCAPE-CHAR-CODE ...)
; compiling (DEF!CONSTANT RUBOUT-CHAR-CODE ...)
; compiling (DEFUN MAYBE-CYCLIC-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LIST-OF-LENGTH-AT-LEAST-P ...)
; compiling (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: /Users/nikodemus/src/sbcl/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 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 (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* ...)
; compiling (DEFMACRO DX-FLET ...)
; compiling (DEFMACRO DX-LET ...)
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN FP-ZERO-P ...)
; compiling (DEFUN NEG-FP-ZERO ...)
; file: /Users/nikodemus/src/sbcl/src/code/early-extensions.lisp
; in: DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE
;     (SB!INT:INFO :VARIABLE :KIND SYMBOL)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

; in: DEFUN NEG-FP-ZERO
;     (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-UNPORTABLE-FLOAT

; in: LAMBDA NIL
;     (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY


; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/code/early-extensions.lisp
; in: DEFMACRO COLD-FSET
;     (SB!INT:STYLE-WARN
;      "~@<COLD-FSET ~S not cross-compiled at top level: demoting to ~
;   (SETF FDEFINITION)~:@>"
;      SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: LAMBDA NIL
;     (SB!INT:STYLE-WARN
;      "~@<COLD-FSET ~S not cross-compiled at top level: demoting to ~
;   (SETF FDEFINITION)~:@>"
;      SB!IMPL::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     INFO MAKE-UNPORTABLE-FLOAT PARSE-BODY STYLE-WARN
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-extensions.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/parse-body.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/parse-body.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/parse-defmacro.lisp" (written 14 AUG 2007 10:52:21 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFVAR *ARG-TESTS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *SYSTEM-LETS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *USER-LETS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *ENV-VAR*)
; compiling (DEFVAR *DEFAULT-DEFAULT*)
; compiling (DEFVAR *IGNORABLE-VARS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFUN PARSE-DEFMACRO ...)
; compiling (DEFUN PARSE-DEFMACRO-LAMBDA-LIST ...)
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/parse-defmacro.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/deftype.lisp" (written 14 JUL 2005 09:52:38 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!MACRO SB-XC:DEFTYPE ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/deftype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/defconstant.lisp" (written 11 JUL 2008 09:55:08 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!MACRO SB-XC:DEFCONSTANT ...)
; compiling (DEFUN SB!C::%DEFCONSTANT ...)
; file: /Users/nikodemus/src/sbcl/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) #:G32 #:G34 #:G33)
; 
; 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) #:G11 #:G14 #:G13 #:G12)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF INFO)

;     (SB!INT:INFO :VARIABLE :KIND 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 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 'SB!KERNEL:ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME
;      :FORMAT-CONTROL "defining ~S as a constant" :FORMAT-ARGUMENTS
;      (LIST SB!IMPL::NAME))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; 
; 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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/defconstant.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-alieneval.lisp" (written 06 SEP 2006 11: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* ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/specializable-array.lisp" (written 14 JUL 2005 07:30:38 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFTYPE SPECIALIZABLE ...)
; compiling (DEFTYPE SPECIALIZABLE-VECTOR ...)
; compiling (DEFUN MAKE-SPECIALIZABLE-ARRAY ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/specializable-array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-cl.lisp" (written 14 JUL 2005 07:30:32 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (PROCLAIM (QUOTE #))
; compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-cl.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-fasl.lisp" (written 09 NOV 2007 03:10:22 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* ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-fasl.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/debug-var-io.lisp" (written 28 NOV 2006 05:43:28 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/debug-var-io.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-thread.lisp" (written 01 JUL 2005 11:48:33 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (DEFVAR *CURRENT-THREAD*)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-thread.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defbangstruct.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/defbangstruct.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/unportable-float.lisp" (written 14 JUL 2005 07:30:41 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/unportable-float.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/type-class.lisp" (written 03 AUG 2005 05: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/type-class.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-pcounter.lisp" (written 14 JUL 2005 07:30:32 PM):
; compiling (IN-PACKAGE "SB!PROFILE")
; compiling (DEF!STRUCT (PCOUNTER #) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-pcounter.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/early-backend.lisp" (written 09 MAR 2004 02:08:40 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *BACKEND-PAGE-SIZE* ...)
; compiling (DECLAIM (TYPE INDEX ...))

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/early-backend.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/sc-offset.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/sc-offset.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/char.lisp" (written 02 NOV 2004 10:37:51 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...)
; compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/char.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/huffman.lisp" (written 27 FEB 2006 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/huffman.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/misc.lisp" (written 04 AUG 2007 05:49:33 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...)
; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/misc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-format.lisp" (written 14 JUL 2005 07: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*)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-format.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/early-c.lisp" (written 11 JUL 2008 09:55:08 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT SB-XC:CALL-ARGUMENTS-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:LAMBDA-PARAMETERS-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:MULTIPLE-VALUES-LIMIT ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME*)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME*)
; compiling (DEFVAR SB-XC:*COMPILE-PRINT*)
; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE*)
; compiling (DEF!TYPE LAYOUT-DEPTHOID ...)
; compiling (DEFTYPE INLINEP ...)
; compiling (DEFPARAMETER *INLINEP-TRANSLATIONS* ...)
; compiling (DEFVAR *LEXENV*)
; compiling (DECLAIM (TYPE LEXENV ...))
; compiling (DEFVAR *FREE-VARS*)
; compiling (DEFVAR *FREE-FUNS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *CONSTANTS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *ALLOW-INSTRUMENTING*)
; compiling (DEFVAR *CODE-SEGMENT*)
; compiling (DEFVAR *COMPONENT-BEING-COMPILED*)
; compiling (DEFVAR *COMPILER-ERROR-CONTEXT*)
; compiling (DEFVAR *COMPILER-ERROR-COUNT*)
; compiling (DEFVAR *COMPILER-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-NOTE-COUNT*)
; compiling (DEFVAR *COMPILER-TRACE-OUTPUT*)
; compiling (DEFVAR *CONSTRAINT-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 *LAMBDA-CONVERSIONS*)
; compiling (DEFVAR *BIG-COMPILER-LOCK* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *COMPILER-SSET-COUNTER* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-NAME-DEFINED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-LEXICAL-BINDING ...)
; compiling (DEF!STRUCT (DEBUG-NAME-MARKER # ...))
; compiling (DEFVAR *DEBUG-NAME-LEVEL* ...)
; compiling (DEFVAR *DEBUG-NAME-LENGTH* ...)
; compiling (DEFVAR *DEBUG-NAME-PUNT*)
; compiling (DEFVAR *DEBUG-NAME-SHARP*)
; compiling (DEFVAR *DEBUG-NAME-ELLIPSIS*)
; compiling (DEFUN DUMP-DEBUG-NAME-MARKER ...)
; compiling (DEFUN PRINT-DEBUG-NAME-MARKER ...)
; compiling (SETF *DEBUG-NAME-SHARP* ...)
; compiling (DEFUN DEBUG-NAME ...); 
; caught STYLE-WARNING:
;   undefined type: LEXENV


; file: /Users/nikodemus/src/sbcl/src/compiler/early-c.lisp
; in: DEFUN NOTE-LEXICAL-BINDING
;     (SB!INT:STYLE-WARN 'SB!KERNEL:ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME
;      :FORMAT-CONTROL "using the lexical binding of the symbol ~S, not the~@
;                    dynamic binding"
;      :FORMAT-ARGUMENTS (LIST SYMBOL))
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEFUN NOTE-NAME-DEFINED
;     (SB!C::UNDEFINED-WARNING-KIND SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: UNDEFINED-WARNING-KIND

;     (SB!C::UNDEFINED-WARNING-NAME SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: UNDEFINED-WARNING-NAME

; 
; 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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/early-c.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/policy.lisp" (written 06 MAY 2008 01:45:44 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!TYPE POLICY-QUALITY ...)
; compiling (DEFVAR *POLICY-RESTRICTIONS* ...)
; compiling (DEFUN RESTRICT-COMPILER-POLICY ...)
; compiling (DEF!TYPE POLICY ...)
; compiling (DEFSTRUCT POLICY-DEPENDENT-QUALITY ...)
; compiling (DEFVAR *POLICY-QUALITIES*)
; compiling (DEFVAR *POLICY-DEPENDENT-QUALITIES* ...)
; compiling (DEFUN POLICY-QUALITY-NAME-P ...)
; compiling (DECLAIM (TYPE POLICY ...))
; compiling (DEFVAR *POLICY*)
; compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...)
; compiling (!POLICY-COLD-INIT-OR-RESANIFY)
; compiling (DEFUN POLICY-QUALITY ...)
; compiling (DEFUN %POLICY-QUALITY ...)
; compiling (DEFMACRO POLICY ...)
; compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/policy.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/policies.lisp" (written 12 MAY 2008 05:12:43 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY 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-VALUE-CELLS ...)
; 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 ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-COVERAGE-DATA ...); in: LAMBDA NIL
;     (SB!C:POLICY SB!C:POLICY
;                  (COND ((= SAFETY 0) 0) ((AND (< SAFETY 2) (< SAFETY SPEED)) 2)
;                        (T 3)))
; --> LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY


; file: /Users/nikodemus/src/sbcl/src/compiler/policies.lisp
; in: DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION
;     (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-CONSTANT-MODIFICATION SAFETY
;                                        ("no" "maybe" "yes" "yes")
;                                        "Control whether the compiler should check for constant
;   modification. Defaults to SAFETY.")
; --> EVAL-WHEN LET 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 SAFETY)
; --> LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY

; 
; caught STYLE-WARNING:
;   33 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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/policies.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/typedefs.lisp" (written 27 APR 2006 06: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/typedefs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/macros.lisp" (written 12 DEC 2007 02:19:44 PM):
; 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: /Users/nikodemus/src/sbcl/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!C::GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER
;                    (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 '# # '# #))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; 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: /Users/nikodemus/src/sbcl/src/compiler/macros.lisp
; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE
;     (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: AVER-LIVE-COMPONENT

;     (LET ((SB!C::*CURRENT-COMPONENT* (SB!C::NODE-COMPONENT SB!C::NODE))
;           (SB!C:*LEXENV* (SB!C::NODE-LEXENV SB!C::NODE))
;           (SB!C::*CURRENT-PATH* (SB!C::NODE-SOURCE-PATH SB!C::NODE)))
;       (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*)
;       (FUNCALL SB!C::FUN))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET OR LET TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:ONCE-ONLY-502 'SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET OR LET 
; ==>
;   (TYPEP #:ONCE-ONLY-502 'SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G501 '(OR SB!KERNEL:LEXENV NULL))
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; 
; caught STYLE-WARNING:
;   1 more use of undefined type LEXENV


; file: /Users/nikodemus/src/sbcl/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 LOCALLY SB-C::%FUNCALL 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G505 'SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined type: NODE

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G505 'SB!C::NODE)
; 
; caught STYLE-WARNING:
;   undefined type: NODE

; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB!C::%WITH-IR1-ENVIRONMENT-FROM-NODE
;                    (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::AVER-LIVE-COMPONENT
;                                              SB!C::*CURRENT-COMPONENT*)
;                                             (FUNCALL SB!C::FUN))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: NODE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type NODE


; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-macs.lisp" (written 04 JUN 2008 03:39:41 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 (DEFMACRO DEF-CASSER ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...)
; compiling (DEFSTRUCT MODULAR-CLASS ...)
; compiling (DEFVAR *UNTAGGED-UNSIGNED-MODULAR-CLASS* ...)
; compiling (DEFVAR *UNTAGGED-SIGNED-MODULAR-CLASS* ...)
; compiling (DEFVAR *TAGGED-MODULAR-CLASS* ...)
; compiling (DEFUN FIND-MODULAR-CLASS ...)
; compiling (DEFSTRUCT MODULAR-FUN-INFO ...)
; compiling (DEFUN FIND-MODULAR-VERSION ...)
; compiling (DEFUN MODULAR-VERSION-INFO ...)
; compiling (DEFUN %DEFINE-MODULAR-FUN ...)
; compiling (DEFMACRO DEFINE-MODULAR-FUN ...)
; compiling (DEFUN %DEFINE-GOOD-MODULAR-FUN ...)
; compiling (DEFMACRO DEFINE-GOOD-MODULAR-FUN ...)
; compiling (DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/generic/vm-macs.lisp
; in: DEFUN %DEFINE-MODULAR-FUN
;     (SB!INT:STYLE-WARN "Redefining modular version ~S of ~S for ~
;                          ~:[un~;~]signed width ~S."
;      SB!C::NAME SB!C::PROTOTYPE SB!C::SIGNEDP SB!C::WIDTH)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     STYLE-WARN
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/vm-macs.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/sset.lisp" (written 11 APR 2007 11:57:13 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...)
; compiling (DEFSTRUCT (SSET #) ...)
; compiling (DEFPRINTER (SSET) ...)
; compiling (DEFMACRO DO-SSET-ELEMENTS ...)
; compiling (DECLAIM (INLINE SSET-HASH1))
; compiling (DEFUN SSET-HASH1 ...)
; compiling (DECLAIM (INLINE SSET-HASH2))
; compiling (DEFUN SSET-HASH2 ...)
; compiling (DEFUN SSET-GROW ...)
; compiling (DEFCONSTANT +SSET-REHASH-THRESHOLD+ ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-ADJOIN ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/sset.lisp
; in: DEFUN SSET-ADJOIN
;     (LOOP SB!C::WITH VECTOR = (SB!C::SSET-VECTOR SET) SB!C::WITH SB!C::MASK
;           SB!C::OF-TYPE FIXNUM = (1- (LENGTH VECTOR)) SB!C::WITH ...)
; --> BLOCK LET LET LET LET LET LET SB-LOOP::LOOP-BODY TAGBODY 
; --> SB-LOOP::LOOP-REALLY-DESETQ SETQ 
; ==>
;   (THE #<SB-KERNEL:NUMERIC-TYPE (MOD 536870911)>
;        (LOGAND SB!C::MASK (+ SB!C::HASH SB!C::SECONDARY-HASH)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-DELETE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-MEMBER ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET= ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-EMPTY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN COPY-SSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-UNION ...)
; compiling (DEFUN SSET-INTERSECTION ...)
; compiling (DEFUN SSET-DIFFERENCE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-UNION-OF-DIFFERENCE ...); 
; compilation unit finished
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/sset.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/node.lisp" (written 16 JUL 2008 11:51:15 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (CTRAN # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (LVAR # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (NODE # ...) ...)
; compiling (DEF!STRUCT (VALUED-NODE # ...) ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE BLOCK ...)
; compiling (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 (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: /Users/nikodemus/src/sbcl/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 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G336 '(OR NULL SB!C::CLOOP))
; 
; caught STYLE-WARNING:
;   undefined type: CLOOP

; 
; caught STYLE-WARNING:
;   undefined type: CLOOP


; file: /Users/nikodemus/src/sbcl/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:
;   14 more uses of undefined type CLOOP


; file: /Users/nikodemus/src/sbcl/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

; in:
;      DEF!STRUCT (CONSTANT
;              (:CONSTRUCTOR MAKE-CONSTANT
;               (VALUE &AUX (TYPE #) (%SOURCE-NAME '.ANONYMOUS.)
;                (WHERE-FROM :DEFINED)))
;              (:INCLUDE LEAF))
;     (SB!KERNEL:CTYPE-OF SB!C::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO


; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 "<unknown>" :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 "<unknown>" :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: /Users/nikodemus/src/sbcl/src/compiler/node.lisp
; in:
;      DEF!STRUCT (NODE (:CONSTRUCTOR NIL)
;              (:INCLUDE SSET-ELEMENT (NUMBER (INCF *COMPILER-SSET-COUNTER*)))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::NODE (:CONSTRUCTOR NIL)
;       (:INCLUDE SB!ASSEM:SSET-ELEMENT
;        (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*)))
;       (:COPIER NIL))
;      (SB!C::REOPTIMIZE T :TYPE BOOLEAN)
;      (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL))
;      (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL))
;      (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV)
;      (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST)
;      (SB!C::TAIL-P NIL :TYPE BOOLEAN))
; --> PROGN 
; ==>
;   (DEFSTRUCT
;       (SB!C::NODE (:CONSTRUCTOR NIL)
;        (:INCLUDE SB!ASSEM:SSET-ELEMENT
;         (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*)))
;        (:COPIER NIL))
;     (SB!C::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:
;   115 more uses of undefined type LEXENV


; file: /Users/nikodemus/src/sbcl/src/compiler/node.lisp
; in: DEFUN %COERCE-TO-POLICY
;     (SB!C::LEXENV-POLICY SB!C::THING)
; 
; caught STYLE-WARNING:
;   undefined function: LEXENV-POLICY

; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!C::MAKE-LOOP :KIND :OUTER :HEAD SB!C::HEAD)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LOOP

; in:
;      DEF!STRUCT (CSET
;              (:INCLUDE VALUED-NODE
;               (DERIVED-TYPE (MAKE-SINGLE-VALUE-TYPE *UNIVERSAL-TYPE*)))
;              (:CONC-NAME SET-) (:PREDICATE SET-P) (:CONSTRUCTOR MAKE-SET) ...)
;     (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!KERNEL:*UNIVERSAL-TYPE*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-SINGLE-VALUE-TYPE

; in:
;      DEF!STRUCT (REF (:INCLUDE VALUED-NODE (REOPTIMIZE NIL))
;              (:CONSTRUCTOR MAKE-REF
;               (LEAF &OPTIONAL (%SOURCE-NAME '.ANONYMOUS.) &AUX (LEAF-TYPE #)
;                ...))
;              (:COPIER NIL))
;     (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!C::LEAF-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-SINGLE-VALUE-TYPE

; in:
;      DEF!STRUCT (NLX-INFO
;              (:CONSTRUCTOR MAKE-NLX-INFO (CLEANUP EXIT &AUX (BLOCK #)))
;              (:MAKE-LOAD-FORM-FUN IGNORE-IT))
;     (SB!C::NODE-BLOCK SB!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:
;     CONT-NUM CTYPE-OF 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
; 
; compilation unit finished
;   caught 29 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/node.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/vop.lisp" (written 05 DEC 2006 06:35:57 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: /Users/nikodemus/src/sbcl/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 "<not computed>" :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 MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF TYPEP LET OR LET 
; ==>
;   (TYPEP #:ONCE-ONLY-572 'SB!ASSEM:LABEL)
; 
; caught STYLE-WARNING:
;   undefined type: LABEL

; 
; caught STYLE-WARNING:
;   undefined type: LABEL


; file: /Users/nikodemus/src/sbcl/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 "<not computed>" :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:
;   17 more uses of undefined type LABEL


; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/vop.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/backend.lisp" (written 07 FEB 2006 05: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* ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/backend.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/vmdef.lisp" (written 14 JUL 2005 09: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/vmdef.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/backend-parms.lisp" (written 16 JAN 2007 12:15:49 AM):
; 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* ...)
; compiling (DEF!CONSTANT GENCGC-PAGE-SIZE ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/backend-parms.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/globaldb.lisp" (written 15 JUN 2008 02:13:41 PM):
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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-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-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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/globaldb.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/info-functions.lisp" (written 16 JUL 2007 01:28:13 AM):
; 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: /Users/nikodemus/src/sbcl/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:FUN-NAME-INLINE-EXPANSION
;                    (SB-INT:NAMED-LAMBDA SB!INT:FUN-NAME-INLINE-EXPANSION
;                                         (SB!C::FUN-NAME)
;                                         (BLOCK SB!INT:FUN-NAME-INLINE-EXPANSION
;                                           (LET (#)
;                                             (IF # # SB!INT:INFO))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL LIST &REST T).

; compiling (DEFUN SB-XC:MACRO-FUNCTION ...)
; compiling (DEFUN (SETF SB-XC:MACRO-FUNCTION) ...)
; compiling (DEFUN FUN-LOCALLY-DEFINED-P ...)
; compiling (DEFUN SB-XC:COMPILER-MACRO-FUNCTION ...)
; compiling (DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION) ...)
; compiling (DEFUN FDOCUMENTATION ...)
; compiling (DEFUN (SETF FDOCUMENTATION) ...)
; file: /Users/nikodemus/src/sbcl/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 :STRUCTURE-ACCESSOR)
; --> UNLESS IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS IF TYPEP LET OR 
; --> LET TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:ONCE-ONLY-231 'SB!KERNEL:DEFSTRUCT-DESCRIPTION)
; 
; caught STYLE-WARNING:
;   undefined type: DEFSTRUCT-DESCRIPTION

; --> UNLESS IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS IF TYPEP LET OR 
; --> LET 
; ==>
;   (TYPEP #:ONCE-ONLY-231 'SB!KERNEL:DEFSTRUCT-DESCRIPTION)
; 
; caught STYLE-WARNING:
;   undefined type: DEFSTRUCT-DESCRIPTION

; --> UNLESS IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:VALUE158) (#:FOUNDP159) &REST #:G160)
;       (DECLARE (IGNORE #:G160))
;       (DECLARE (TYPE (OR SB!KERNEL:DEFSTRUCT-DESCRIPTION NULL) #:VALUE158))
;       (VALUES #:VALUE158 #:FOUNDP159))
; 
; caught STYLE-WARNING:
;   undefined type: DEFSTRUCT-DESCRIPTION

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type DEFSTRUCT-DESCRIPTION


; file: /Users/nikodemus/src/sbcl/src/compiler/info-functions.lisp
; in: DEFUN UNDEFINE-FUN-NAME
;     (SB!C::FROB :INFO)
; --> UNLESS IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS IF TYPEP LET OR 
; --> LET TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:ONCE-ONLY-190 'SB!C::FUN-INFO)
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; --> UNLESS IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS IF TYPEP LET OR 
; --> LET 
; ==>
;   (TYPEP #:ONCE-ONLY-190 'SB!C::FUN-INFO)
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; --> UNLESS IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:VALUE95) (#:FOUNDP96) &REST #:G97)
;       (DECLARE (IGNORE #:G97))
;       (DECLARE (TYPE (OR SB!C::FUN-INFO NULL) #:VALUE95))
;       (VALUES #:VALUE95 #:FOUNDP96))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type FUN-INFO


; file: /Users/nikodemus/src/sbcl/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:
;   These types are undefined:
;     DEFSTRUCT-DESCRIPTION FUN-INFO
; 
; compilation unit finished
;   caught 18 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/info-functions.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/force-delayed-defbangconstants.lisp" (written 19 MAY 2002 04:55:31 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (FORCE-DELAYED-DEF!CONSTANTS)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/force-delayed-defbangconstants.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defmacro.lisp" (written 19 APR 2007 09:27:48 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/defmacro.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/force-delayed-defbangmacros.lisp" (written 21 OCT 2000 02:30:33 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (FORCE-DELAYED-DEF!MACROS)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/force-delayed-defbangmacros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/late-macros.lisp" (written 14 JUL 2005 09: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/late-macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/meta-vmdef.lisp" (written 12 DEC 2007 02:19:44 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFMACRO DEFINE-STORAGE-BASE ...)
; compiling (DEFMACRO DEFINE-STORAGE-CLASS ...)
; compiling (DEFMACRO DO-SC-PAIRS ...)
; compiling (DEFMACRO DEFINE-MOVE-FUN ...)
; compiling (DEFPARAMETER *SC-VOP-SLOTS* ...)
; compiling (DEFMACRO DEFINE-MOVE-VOP ...)
; compiling (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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/meta-vmdef.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/vm.lisp" (written 12 APR 2007 05:55:07 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFTYPE SAP-INT ...)
; compiling (DEFVAR *BYTE-REGISTER-NAMES* ...)
; compiling (DEFVAR *WORD-REGISTER-NAMES* ...)
; compiling (DEFVAR *DWORD-REGISTER-NAMES* ...)
; compiling (DEFVAR *FLOAT-REGISTER-NAMES* ...)
; compiling (DEFREG AL ...)
; compiling (DEFREG AH ...)
; compiling (DEFREG CL ...)
; compiling (DEFREG CH ...)
; compiling (DEFREG DL ...)
; compiling (DEFREG DH ...)
; compiling (DEFREG BL ...)
; compiling (DEFREG BH ...)
; compiling (DEFREGSET *BYTE-REGS* ...)
; compiling (DEFREG AX ...)
; compiling (DEFREG CX ...)
; compiling (DEFREG DX ...)
; compiling (DEFREG BX ...)
; compiling (DEFREG SP ...)
; compiling (DEFREG BP ...)
; compiling (DEFREG SI ...)
; compiling (DEFREG DI ...)
; compiling (DEFREGSET *WORD-REGS* ...)
; compiling (DEFREG EAX ...)
; compiling (DEFREG ECX ...)
; compiling (DEFREG EDX ...)
; compiling (DEFREG EBX ...)
; compiling (DEFREG ESP ...)
; compiling (DEFREG EBP ...)
; compiling (DEFREG ESI ...)
; compiling (DEFREG EDI ...)
; compiling (DEFREGSET *DWORD-REGS* ...)
; compiling (DEFREG FR0 ...)
; compiling (DEFREG FR1 ...)
; compiling (DEFREG FR2 ...)
; compiling (DEFREG FR3 ...)
; compiling (DEFREG FR4 ...)
; compiling (DEFREG FR5 ...)
; compiling (DEFREG FR6 ...)
; compiling (DEFREG FR7 ...)
; compiling (DEFREGSET *FLOAT-REGS* ...)
; compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...)
; compiling (DEFPARAMETER *REGISTER-ARG-NAMES* ...)
; compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...)
; compiling (DEFINE-STORAGE-BASE REGISTERS ...)
; compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...)
; compiling (DEFINE-STORAGE-BASE STACK ...)
; compiling (DEFINE-STORAGE-BASE CONSTANT ...)
; compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...)
; compiling (DEFINE-STORAGE-BASE NOISE ...)
; compiling (DEFMACRO !DEFINE-STORAGE-CLASSES ...)
; compiling (DEF!CONSTANT KLUDGE-NONDETERMINISTIC-CATCH-BLOCK-SIZE ...)
; compiling (!DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...)
; compiling (DEFPARAMETER *BYTE-SC-NAMES* ...)
; compiling (DEFPARAMETER *WORD-SC-NAMES* ...)
; compiling (DEFPARAMETER *DWORD-SC-NAMES* ...)
; compiling (DEFPARAMETER *FLOAT-SC-NAMES* ...)
; compiling (DEFPARAMETER *DOUBLE-SC-NAMES* ...)
; compiling (DEF-MISC-REG-TNS UNSIGNED-REG ...)
; compiling (DEF-MISC-REG-TNS WORD-REG ...)
; compiling (DEF-MISC-REG-TNS BYTE-REG ...)
; compiling (DEF-MISC-REG-TNS SINGLE-REG ...)
; compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...)
; compiling (!DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC ...)
; compiling (DEFUN ENCODE-VALUE-IF-IMMEDIATE ...)
; compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...)
; compiling (DEF!CONSTANT RETURN-PC-SAVE-OFFSET ...)
; compiling (DECLAIM (INLINE FRAME-WORD-OFFSET))
; compiling (DEFUN FRAME-WORD-OFFSET ...)
; compiling (DECLAIM (INLINE FRAME-BYTE-OFFSET))
; compiling (DEFUN FRAME-BYTE-OFFSET ...)
; compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...)
; compiling (DEF!CONSTANT CFP-OFFSET ...)
; compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...)
; compiling (!DEF-VM-SUPPORT-ROUTINE LOCATION-PRINT-NAME ...)
; compiling (!DEF-VM-SUPPORT-ROUTINE COMBINATION-IMPLEMENTATION-STYLE ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/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!C::CONSTANT-LVAR-P (FIRST (SB!C::BASIC-COMBINATION-ARGS SB!VM::NODE)))
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::CONSTANT-LVAR-P

; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE
;     (SB!VM:FIXNUMIZE SB!VM::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: FIXNUMIZE

; in: !DEF-VM-SUPPORT-ROUTINE COMBINATION-IMPLEMENTATION-STYLE
;     (SB!KERNEL:SPECIFIER-TYPE
;      (SB!IMPL::BACKQ-LIST 'FUNCTION SB!VM::ARGS SB!VM::RESULT))
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE
;     (SB!VM:STATIC-SYMBOL-OFFSET SB!VM::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: STATIC-SYMBOL-OFFSET

; in: !DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC
;     (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: STATIC-SYMBOL-P

; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE
;     (SB!C:TN-VALUE SB!C:TN)
; 
; caught STYLE-WARNING:
;   undefined function: TN-VALUE

; in: !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 SB!C::CONSTANT-LVAR-P FIXNUMIZE SPECIFIER-TYPE STATIC-SYMBOL-OFFSET STATIC-SYMBOL-P TN-VALUE SB!C::VALID-FUN-USE
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/vm.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/xset.lisp" (written 05 JUN 2008 07:55:09 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DECLAIM (INLINE ALLOC-XSET ...))
; compiling (DEFSTRUCT (XSET # ...) ...)
; compiling (DEFUN XSET-COUNT ...)
; compiling (DEFUN MAP-XSET ...)
; compiling (DEFCONSTANT +XSET-LIST-SIZE-LIMIT+ ...)
; compiling (DEFUN ADD-TO-XSET ...)
; compiling (DEFUN XSET-UNION ...)
; compiling (DEFUN XSET-MEMBER-P ...)
; compiling (DEFUN XSET-MEMBERS ...)
; compiling (DEFUN XSET-INTERSECTION ...)
; compiling (DEFUN XSET-SUBSET-P ...)
; compiling (DECLAIM (INLINE XSET-EMPTY-P))
; compiling (DEFUN XSET-EMPTY-P ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/xset.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-type.lisp" (written 09 DEC 2007 04:37:23 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFSTRUCT (HAIRY-TYPE # ...) ...)
; compiling (!DEFINE-TYPE-CLASS HAIRY)
; compiling (DEFSTRUCT (UNKNOWN-TYPE # ...))
; compiling (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 (DEFUN MEMBER-TYPE-SIZE ...)
; compiling (DEFUN MEMBER-TYPE-MEMBER-P ...)
; compiling (DEFUN MAPCAR-MEMBER-TYPE-MEMBERS ...)
; compiling (DEFUN MAPC-MEMBER-TYPE-MEMBERS ...)
; compiling (DEFUN MEMBER-TYPE-MEMBERS ...)
; compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...)
; compiling (DEFSTRUCT (UNION-TYPE # ...))
; compiling (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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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::FROB 0.0)
; --> LET IF PUSH LET* 
; ==>
;   (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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/class.lisp" (written 14 MAR 2008 09:03:05 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEF!STRUCT (CLASSOID # ...) ...)
; compiling (DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ...)
; compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LIMIT ...)
; compiling (DEF!TYPE LAYOUT-CLOS-HASH ...)
; compiling (DEFVAR *!INITIAL-LAYOUTS*)
; compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*)
; compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...))
; compiling (DEF!STRUCT (LAYOUT #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN LAYOUT-PROPER-NAME ...)
; compiling (DEFVAR *LAYOUT-CLOS-HASH-RANDOM-STATE*)
; compiling (DEFUN RANDOM-LAYOUT-CLOS-HASH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-LAYOUT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN INIT-OR-CHECK-LAYOUT ...)
; compiling (DEFUN MAKE-LOAD-FORM-FOR-LAYOUT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN REDEFINE-LAYOUT-WARNING ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CHECK-LAYOUT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ...)
; compiling (DEFUN REGISTER-LAYOUT ...)
; compiling (DEFUN ORDER-LAYOUT-INHERITS ...)
; compiling (DEFUN TOPOLOGICAL-SORT ...)
; compiling (DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST ...)
; compiling (DEF!STRUCT (UNDEFINED-CLASSOID # ...))
; compiling (DEF!STRUCT (BUILT-IN-CLASSOID # ...) ...)
; compiling (DEF!STRUCT (STRUCTURE-CLASSOID # ...) ...)
; compiling (DEF!STRUCT (CLASSOID-CELL # ...) ...)
; compiling (DEFVAR *CLASSOID-CELLS*)
; compiling (!COLD-INIT-FORMS (SETQ *CLASSOID-CELLS* ...))
; compiling (DEFUN FIND-CLASSOID-CELL ...)
; compiling (DEFUN FIND-CLASSOID ...)
; compiling (DEFUN (SETF FIND-CLASSOID) ...)
; compiling (DEFUN CLEAR-CLASSOID ...)
; compiling (DEFUN INSURED-FIND-CLASSOID ...)
; compiling (DEFUN CLASSOID-PROPER-NAME ...)
; compiling (!DEFINE-TYPE-CLASS CLASSOID)
; compiling (DEFUN ENSURE-CLASSOID-VALID ...)
; compiling (DEFUN ENSURE-BOTH-CLASSOIDS-VALID ...)
; compiling (DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ...)
; compiling (DEFUN SEALED-CLASS-INTERSECTION2 ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-INTERSECTION2) ...)
; compiling (DEFVAR *NON-INSTANCE-CLASSOID-TYPES* ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :UNPARSE) ...)
; compiling (DEF!STRUCT (STANDARD-CLASSOID # ...))
; compiling (DEF!STRUCT (STATIC-CLASSOID # ...))
; compiling (DEFVAR *BUILT-IN-CLASSES*)
; compiling (!COLD-INIT-FORMS (/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: /Users/nikodemus/src/sbcl/src/code/class.lisp
; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID
;     (SB!C::%LAYOUT-INVALID-ERROR SB!KERNEL::OBJECT SB!KERNEL:LAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::%LAYOUT-INVALID-ERROR

;     (SB!PCL::CHECK-WRAPPER-VALIDITY SB!KERNEL::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::CHECK-WRAPPER-VALIDITY

; in: DEFUN ENSURE-CLASSOID-VALID
;     (SB!MOP:CLASS-FINALIZED-P CLASS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!MOP:CLASS-FINALIZED-P

;     (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: 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: 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-1253)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-UNION

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!C::%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 SB!MOP:FINALIZE-INHERITANCE SB!PCL::FORCE-CACHE-FLUSHES TYPE-UNION
; 
; compilation unit finished
;   caught 11 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/class.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-array.lisp" (written 10 APR 2007 04:50:45 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* ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FIND-SAETP ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/vm-array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/primtype.lisp" (written 15 MAY 2008 07:10:03 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 ...)
(FIXNUM SIGNED-BYTE-32 UNSIGNED-BYTE-32 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/primtype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/parse-lambda-list.lisp" (written 09 JUL 2008 12:31:53 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/parse-lambda-list.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/host-alieneval.lisp" (written 01 SEP 2007 05:02:27 PM):
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (/SHOW0 "host-alieneval.lisp 15")
; compiling (DEFUN ALIGN-OFFSET ...)
; compiling (DEFUN GUESS-ALIGNMENT ...)
; compiling (DEFSTRUCT (ALIEN-TYPE-CLASS #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN ALIEN-TYPE-CLASS-OR-LOSE ...)
; compiling (DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ...)
; compiling (DEFPARAMETER *METHOD-SLOT-ALIST* ...)
; compiling (DEFUN METHOD-SLOT ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-METHOD ...)
; compiling (DEF!MACRO INVOKE-ALIEN-TYPE-METHOD ...)
; compiling (DEFUN AUXILIARY-TYPE-DEFINITIONS ...)
; compiling (DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES ...)
; compiling (DEFUN PARSE-ALIEN-TYPE ...)
; compiling (DEFUN AUXILIARY-ALIEN-TYPE ...)
; compiling (DEFUN (SETF AUXILIARY-ALIEN-TYPE) ...)
; compiling (DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY ...)
; compiling (DEFUN UNPARSE-ALIEN-TYPE ...)
; compiling (DEFUN %UNPARSE-ALIEN-TYPE ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; compiling (DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE ...)
; compiling (DEFUN %DEF-AUXILIARY-ALIEN-TYPES ...)
; compiling (DEFUN %DEFINE-ALIEN-TYPE ...)
; compiling (CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY (QUOTE ROOT) ...)
; compiling (DEF!STRUCT (ALIEN-TYPE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER))
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (ALIEN-VALUE :INCLUDE ...))
; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :DEPORT-GEN) ...)
; compiling (DEF!STRUCT (HEAP-ALIEN-INFO #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN ALIEN-TYPE-= ...)
; compiling (DEFUN ALIEN-SUBTYPE-P ...)
; compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...)
; compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...)
; compiling (DEFUN COMPUTE-DEPORT-ALLOC-LAMBDA ...)
; compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...)
; compiling (DEF!MACRO MAYBE-WITH-PINNED-OBJECTS ...)
; compiling (DEFUN COMPUTE-DEPOSIT-LAMBDA ...)
; compiling (DEFUN COMPUTE-LISP-REP-TYPE ...)
; compiling (DEFUN COMPUTE-ALIEN-REP-TYPE ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-ALLOC-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-PIN-P) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (INTEGER) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :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: /Users/nikodemus/src/sbcl/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) ...)
; 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: /Users/nikodemus/src/sbcl/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 LOCALLY SB-C::%FUNCALL 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET OR LET TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:ONCE-ONLY-371 'SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET OR LET 
; ==>
;   (TYPEP #:ONCE-ONLY-371 'SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE
;                    (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 #
;                                                 #
;                                                 #)
;                                               (ECASE # # # #))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   undefined type: SB!KERNEL:LEXENV

; 
; caught STYLE-WARNING:
;   12 more uses of undefined type SB!KERNEL:LEXENV


; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 1 note


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/host-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/host-c-call.lisp" (written 19 APR 2007 03:01:27 PM):
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (/SHOW0 "host-c-call.lisp 12")
; compiling (DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE ...) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ...)
; compiling (DEFUN C-STRING-EXTERNAL-FORMAT ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-PIN-P) ...)
; compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...)
; file: /Users/nikodemus/src/sbcl/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!ALIEN::C-STRING-NEEDS-CONVERSION-P
;                    (SB-INT:NAMED-LAMBDA SB!ALIEN::C-STRING-NEEDS-CONVERSION-P
;                                         (TYPE)
;                                         (BLOCK
;                                             SB!ALIEN::C-STRING-NEEDS-CONVERSION-P
;                                           T))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The variable TYPE is defined but never used.

; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...)
; file: /Users/nikodemus/src/sbcl/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 (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN) ...)
; file: /Users/nikodemus/src/sbcl/src/code/host-c-call.lisp
; in: DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN)
;     (IF (SB!ALIEN::C-STRING-NEEDS-CONVERSION-P TYPE)
;         (SB!IMPL::BACKQ-LIST 'SB!ALIEN::STRING-TO-C-STRING SB!ALIEN::VALUE
;                              (SB!IMPL::BACKQ-LIST
;                               'SB!ALIEN::C-STRING-EXTERNAL-FORMAT TYPE))
;         SB!ALIEN::VALUE)
; ==>
;   SB!ALIEN::VALUE
; 
; note: deleting unreachable code

; compiling (/SHOW0 "host-c-call.lisp end of file")
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/host-c-call.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/compiler-deftype.lisp" (written 14 MAR 2008 09:03:06 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (/SHOW0 "compiler-deftype.lisp 14")
; compiling (DEFUN %COMPILER-DEFTYPE ...)
; compiling (/SHOW0 "compiler-deftype.lisp end of file")
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/compiler-deftype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-type.lisp" (written 09 DEC 2007 04:37:23 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "late-type.lisp 19")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFINE-CONDITION PARSE-UNKNOWN-TYPE ...)
; compiling (DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2 ...)
; compiling (DEFUN DELEGATE-COMPLEX-INTERSECTION2 ...)
; compiling (DEFUN !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: /Users/nikodemus/src/sbcl/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::OPPOSITE)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in: !DEF-TYPE-TRANSLATOR COMPLEX
;     (SB!KERNEL:CTYPE-OF SB!KERNEL::X)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPE-OF

; in: DEFUN TYPE-DIFFERENCE
;     (SB!KERNEL:CTYPEP ELT SB!KERNEL::Y)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPEP

; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2)
;     (SB!KERNEL:CTYPEP MEMBER SB!KERNEL::TYPE1)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPEP

; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1)
;     (SB!KERNEL:CTYPEP ELT SB!KERNEL::TYPE2)
; 
; caught STYLE-WARNING:
;   undefined function: CTYPEP

; in: DEFUN CTYPE-OF-NUMBER
;     (SB!KERNEL:FLOAT-FORMAT-NAME SB!KERNEL::NUM)
; 
; caught STYLE-WARNING:
;   undefined function: FLOAT-FORMAT-NAME

; in: !DEF-TYPE-TRANSLATOR 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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/late-type.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/code/deftypes-for-target.lisp" (written 28 FEB 2007 06:05:59 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "deftypes-for-target.lisp 14")
; compiling (/SHOW "about to force delayed DEF!TYPEs")
; compiling (FORCE-DELAYED-DEF!TYPES)
; compiling (/SHOW "done forcing delayed DEF!TYPEs")
; compiling (SB-XC:DEFTYPE BOOLEAN ...)
; compiling (SB-XC:DEFTYPE MOD ...)
; compiling (SB-XC:DEFTYPE SIGNED-BYTE ...)
; compiling (SB-XC:DEFTYPE UNSIGNED-BYTE ...)
; compiling (SB-XC:DEFTYPE UNSIGNED-BYTE* ...)
; compiling (SB-XC:DEFTYPE BIT ...)
; compiling (SB-XC:DEFTYPE ATOM ...)
; compiling (SB-XC:DEFTYPE BASE-CHAR ...)
; compiling (SB-XC:DEFTYPE EXTENDED-CHAR ...)
; compiling (SB-XC:DEFTYPE STANDARD-CHAR ...)
; compiling (SB-XC:DEFTYPE KEYWORD ...)
; compiling (SB-XC:DEFTYPE EQL ...)
; compiling (SB-XC:DEFTYPE VECTOR ...)
; compiling (SB-XC:DEFTYPE SIMPLE-VECTOR ...)
; compiling (SB-XC:DEFTYPE BASE-STRING ...)
; compiling (SB-XC:DEFTYPE SIMPLE-BASE-STRING ...)
; compiling (SB-XC:DEFTYPE STRING ...)
; compiling (SB-XC:DEFTYPE SIMPLE-STRING ...)
; compiling (SB-XC:DEFTYPE BIT-VECTOR ...)
; compiling (SB-XC:DEFTYPE SIMPLE-BIT-VECTOR ...)
; compiling (SB-XC:DEFTYPE GENERALIZED-BOOLEAN ...)
; compiling (SB-XC:DEFTYPE FORMAT-CONTROL ...)
; compiling (SB-XC:DEFTYPE RESTART-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE ARRAY-RANK ...)
; compiling (SB-XC:DEFTYPE ARRAY-TOTAL-SIZE ...)
; compiling (SB-XC:DEFTYPE FORM ...)
; compiling (SB-XC:DEFTYPE STRING-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE FILENAME ...)
; compiling (SB-XC:DEFTYPE PATHNAME-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE LOGICAL-HOST-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE PACKAGE-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE SYMBOLS-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE IRRATIONAL ...)
; compiling (SB-XC:DEFTYPE CHAR-CODE ...)
; compiling (SB-XC:DEFTYPE CONSED-SEQUENCE ...)
; compiling (SB-XC:DEFTYPE SEQUENCE-END ...)
; compiling (SB-XC:DEFTYPE SEQUENCE-COUNT ...)
; compiling (SB-XC:DEFTYPE STREAM-DESIGNATOR ...)
; compiling (SB-XC:DEFTYPE 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")

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/deftypes-for-target.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/knownfun.lisp" (written 09 JUL 2008 12:31:53 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/compiler/knownfun.lisp
; in: DEFUN %DEFTRANSFORM
;     (SB!INT:STYLE-WARN 'SB!KERNEL:REDEFINITION-WITH-DEFTRANSFORM :TRANSFORM
;      SB!C::OLD)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; 
; 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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/knownfun.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/constantp.lisp" (written 30 JUN 2008 11:35:59 AM):
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/constantp.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/fun-info-funs.lisp" (written 29 MAY 2008 01:32:28 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN %DEF-REFFER ...)
; compiling (DEFUN %DEF-SETTER ...)
; compiling (DEFUN %DEF-ALLOC ...)
; compiling (DEFUN %DEF-CASSER ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/fun-info-funs.lisp
; in: DEFUN %DEF-CASSER
;     (SB!C::IR2-CONVERT-CASSER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-CASSER

; in: DEFUN %DEF-ALLOC
;     (SB!C::IR2-CONVERT-FIXED-ALLOCATION SB!C::NODE BLOCK SB!C::NAME SB!SYS:WORDS
;      SB!C::HEADER SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-FIXED-ALLOCATION

; in: DEFUN %DEF-REFFER
;     (SB!C::IR2-CONVERT-REFFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-REFFER

; in: DEFUN %DEF-SETTER
;     (SB!C::IR2-CONVERT-SETFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-SETFER

;     (SB!C::IR2-CONVERT-SETTER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;      SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-SETTER

; in: DEFUN %DEF-ALLOC
;     (SB!C::IR2-CONVERT-STRUCTURE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME
;      SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-STRUCTURE-ALLOCATION

;     (SB!C::IR2-CONVERT-VARIABLE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME
;      SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-VARIABLE-ALLOCATION

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     IR2-CONVERT-CASSER IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-STRUCTURE-ALLOCATION IR2-CONVERT-VARIABLE-ALLOCATION
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/fun-info-funs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-type.lisp" (written 09 DEC 2007 04:37:23 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN FIXNUMP ...)
; compiling (DEFINE-CONDITION CROSS-TYPE-STYLE-WARNING ...)
; compiling (DEFINE-CONDITION CROSS-TYPE-GIVING-UP-CONSERVATIVELY ...)
; compiling (DEFUN WARN-POSSIBLE-CROSS-TYPE-FLOAT-INFO-LOSS ...)
; compiling (DEFUN SB-XC:TYPE-OF ...)
; compiling (DEFUN IN-CL-PACKAGE-P ...)
; compiling (DEFUN CROSS-TYPEP ...)
; compiling (DEFUN SB-XC:TYPEP ...)
; compiling (DEFUN CTYPEP ...)
; compiling (DEFUN CTYPE-OF ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-type.lisp" (written 21 AUG 2007 08:12:33 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEF!TYPE SB!VM:WORD ...)
; compiling (DEF!TYPE SB!VM:SIGNED-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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/vm-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/proclaim.lisp" (written 09 JUL 2008 12:31:53 AM):
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/proclaim.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/class-init.lisp" (written 14 MAR 2008 09:03:05 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")

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/class-init.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/typecheckfuns.lisp" (written 10 JAN 2006 12:46:14 AM):
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/typecheckfuns.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defstruct.lisp" (written 22 JUL 2008 08:17:15 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "code/defstruct.lisp 15")
; compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...)
; compiling (DEFUN COMPILER-LAYOUT-READY-P ...)
; compiling (SB-XC:DEFMACRO %MAKE-STRUCTURE-INSTANCE-MACRO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %MAKE-STRUCTURE-INSTANCE-ALLOCATOR ...)
; compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-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: /Users/nikodemus/src/sbcl/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 (DECLAIM (INLINE DD-LAYOUT-LENGTH))
; compiling (DEFUN DD-LAYOUT-LENGTH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DD-INSTANCE-LENGTH ...)
; compiling (DEFUN ENSURE-STRUCTURE-CLASS ...)
; file: /Users/nikodemus/src/sbcl/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 (DEFUN FIND-DEFSTRUCT-DESCRIPTION ...)
; compiling (/SHOW0 "code/defstruct.lisp end of file")
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/code/defstruct.lisp
; in: DEFUN SLOT-SETTER-LAMBDA-FORM
;     (LET ((SB!C:*LEXENV*
;            (IF (BOUNDP 'SB!C:*LEXENV*) SB!C:*LEXENV*
;                (SB!KERNEL:MAKE-NULL-LEXENV))))
;       (SB!IMPL::BACKQ-LIST 'LAMBDA '(SB!KERNEL::NEW-VALUE SB!KERNEL:INSTANCE)
;                            (FUNCALL
;                             (NTH-VALUE 1
;                                        (SB!KERNEL::SLOT-ACCESSOR-TRANSFORMS
;                                         SB!KERNEL::DD SB!KERNEL::DSD))
;                             '(SB!KERNEL::DUMMY SB!KERNEL::NEW-VALUE
;                               SB!KERNEL:INSTANCE))))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET OR LET TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:ONCE-ONLY-1184 'SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET OR LET 
; ==>
;   (TYPEP #:ONCE-ONLY-1184 'SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G1183 '(OR SB!KERNEL:LEXENV NULL))
; 
; caught STYLE-WARNING:
;   undefined type: LEXENV

; 
; caught STYLE-WARNING:
;   1 more use of undefined type LEXENV


; file: /Users/nikodemus/src/sbcl/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 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 SLOT-SETTER-LAMBDA-FORM
;     (SB!KERNEL:MAKE-NULL-LEXENV)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-NULL-LEXENV

; in: DEFUN %COMPILER-DEFSTRUCT
;     (SB!INT:STYLE-WARN "~@<Non-overwritten accessor ~S does not access ~
;                               slot with name ~S (accessing an inherited slot ~
;                               instead).~:@>"
;      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
;      "~@<The structure accessor name ~S is the same as the name of the ~
;             structure type predicate. ANSI doesn't specify what to do in ~
;             this case. We'll overwrite the type predicate with the slot ~
;             accessor, but you can't rely on this behavior, so it'd be wise to ~
;             remove the ambiguity in your code.~@:>"
;      SB!KERNEL::ACCESSOR-NAME)
; 
; caught STYLE-WARNING:
;   undefined function: STYLE-WARN

; in: DEFUN TYPED-ACCESSOR-DEFINITIONS
;     (SB!INT:STYLE-WARN "~@<Non-overwritten accessor ~S does not access ~
;                               slot with name ~S (accessing an inherited slot ~
;                               instead).~:@>"
;      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 MAKE-NULL-LEXENV STYLE-WARN

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     LEXENV
; 
; compilation unit finished
;   caught 13 STYLE-WARNING conditions
;   printed 5 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/defstruct.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/alien-type.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/alien-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/force-delayed-defbangstructs.lisp" (written 21 OCT 2000 02:30:33 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (FORCE-DELAYED-DEF!STRUCTS)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/force-delayed-defbangstructs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-full-eval.lisp" (written 17 MAY 2008 02:02:29 PM):
; compiling (IN-PACKAGE "SB!EVAL")
; compiling (DEFPARAMETER *EVAL-LEVEL* ...)
; compiling (DEFPARAMETER *EVAL-VERBOSE* ...)
; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-full-eval.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/compiler-error.lisp" (written 14 JUL 2005 09: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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/compiler-error.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-deftypes-for-target.lisp" (written 15 SEP 2006 12:10:44 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/late-deftypes-for-target.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/type-init.lisp" (written 14 JUL 2005 07: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")

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/type-init.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/fixup-type.lisp" (written 14 JUL 2005 09: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)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/fixup-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/package.lisp" (written 11 JUL 2007 04:56:51 PM):
; 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: /Users/nikodemus/src/sbcl/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 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET OR LET IF OR 
; ==>
;   (TYPEP #:ONCE-ONLY-327 '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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/package.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/random.lisp" (written 28 MAR 2007 08:59:18 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 # ...) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/random.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/hash-table.lisp" (written 03 JAN 2008 05:54:05 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...)
; compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...)
; compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...)
; compiling (DEFMACRO-MUNDANELY WITH-LOCKED-HASH-TABLE ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/hash-table.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/readtable.lisp" (written 14 JUL 2005 07: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 # ...) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/readtable.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/pathname.lisp" (written 31 DEC 2007 08:39:23 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/pathname.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/host-pprint.lisp" (written 04 FEB 2004 11:16:24 PM):
; compiling (IN-PACKAGE "SB!PRETTY")
; compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/host-pprint.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/lexenv.lisp" (written 09 JUN 2006 11: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: /Users/nikodemus/src/sbcl/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-380 NIL)
;          #:DECLS-N-TAIL-381
;          (#:MACROS-N-VALUE-382 NIL)
;          #:MACROS-N-TAIL-383
;          (#:SYMBOL-MACROS-N-VALUE-384 NIL)
;          #:SYMBOL-MACROS-N-TAIL-385)
;     (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-381 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable #:MACROS-N-TAIL-383 is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable #:SYMBOL-MACROS-N-TAIL-385 is defined but never used.

;     (DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((SB!C::X (CAR #:N-LIST396)))
;     (SETQ #:N-LIST396 (CDR #:N-LIST396))
;     (TAGBODY (RETURN T)))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.

;     (DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T))
; --> BLOCK LET TAGBODY UNLESS IF PROGN 
; ==>
;   (LET ((SB!C::X (CAR #:N-LIST398)))
;     (SETQ #:N-LIST398 (CDR #:N-LIST398))
;     (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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/lexenv.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/fndb.lisp" (written 09 JUL 2008 12:31:53 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 %LAST0 ...)
; compiling (DEFKNOWN %LAST1 ...)
; compiling (DEFKNOWN %LASTN/FIXNUM ...)
; compiling (DEFKNOWN %LASTN/BIGNUM ...)
; 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 PSXHASH ...)
; 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-KW-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-REF-WITH-OFFSET ...)
; compiling (DEFKNOWN DATA-VECTOR-SET ...)
; compiling (DEFKNOWN DATA-VECTOR-SET-WITH-OFFSET ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; compiling (DEFKNOWN %CALLER-FRAME-AND-PC ...)
; compiling (DEFKNOWN %WITH-ARRAY-DATA ...)
; compiling (DEFKNOWN %WITH-ARRAY-DATA/FP ...)
; compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...)
; compiling (DEFKNOWN %COERCE-NAME-TO-FUN ...)
; compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...)
; compiling (DEFKNOWN ARRAY-BOUNDING-INDICES-BAD-ERROR ...)
; compiling (DEFKNOWN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...)
; compiling (DEFKNOWN %FIND-POSITION ...)
; compiling (DEFKNOWN (%FIND-POSITION-IF %FIND-POSITION-IF-NOT) ...)
; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-TEST ...)
; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-KEY ...)
; compiling (DEFKNOWN %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::TOUCH-OBJECT ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-DATAREF-SAP ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-SAP ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFKNOWN %FUN-NAME ...)
; compiling (DEFKNOWN (SETF %FUN-NAME) ...)
; compiling (DEFKNOWN POLICY-QUALITY ...)
; compiling (DEFKNOWN COMPILER-ERROR ...)
; compiling (DEFKNOWN (COMPILER-WARN COMPILER-STYLE-WARN) ...)
; compiling (DEFKNOWN (COMPILER-NOTIFY MAYBE-COMPILER-NOTIFY) ...)
; compiling (DEFKNOWN STYLE-WARN ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-SVREF ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-INSTANCE-REF ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-SYMBOL-VALUE ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/fndb.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-fndb.lisp" (written 29 MAY 2008 01:32:28 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...)
; compiling (DEFKNOWN POINTER-HASH ...)
; 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 %MAKE-STRUCTURE-INSTANCE ...)
; compiling (DEFKNOWN %INSTANCE-LAYOUT ...)
; compiling (DEFKNOWN %SET-INSTANCE-LAYOUT ...)
; compiling (DEFKNOWN %INSTANCE-LENGTH ...)
; compiling (DEFKNOWN %INSTANCE-REF ...)
; compiling (DEFKNOWN %INSTANCE-SET ...)
; compiling (DEFKNOWN %LAYOUT-INVALID-ERROR ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/WORD ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/WORD ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...)
; compiling (DEFKNOWN %RAW-BITS ...)
; compiling (DEFKNOWN %RAW-BITS-WITH-OFFSET ...)
; compiling (DEFKNOWN (%SET-RAW-BITS) ...)
; compiling (DEFKNOWN (%SET-RAW-BITS-WITH-OFFSET) ...)
; 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-REF-WITH-OFFSET ...)
; compiling (DEFKNOWN %BIGNUM-SET ...)
; compiling (DEFKNOWN %BIGNUM-SET-WITH-OFFSET ...)
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/vm-fndb.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/objdef.lisp" (written 17 MAY 2008 10:52:22 PM):
; 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 ...) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/objdef.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/interr.lisp" (written 08 MAY 2008 10:14:02 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN ERROR-NUMBER-OR-LOSE ...)
; compiling (DEFINE-INTERNAL-ERRORS (UNKNOWN "unknown system lossage") ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/interr.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/bit-util.lisp" (written 10 APR 2007 09:10:31 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/bit-util.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/early-assem.lisp" (written 14 JUL 2004 11: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/early-assem.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/core.lisp" (written 03 JUL 2008 10:24:50 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: /Users/nikodemus/src/sbcl/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) #:G87 #:G88)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF DEBUG-INFO-SOURCE)

; in: DEFUN REFERENCE-CORE-FUN
;     (SETF (SB!KERNEL:CODE-HEADER-REF SB!C::CODE-OBJ SB!C::I) SB!C::FOUND)
; ==>
;   (SB!KERNEL:CODE-HEADER-SET SB!C::CODE-OBJ SB!C::I SB!C::FOUND)
; 
; caught STYLE-WARNING:
;   undefined function: CODE-HEADER-SET

; in: DEFUN NOTE-FUN
;     (SETF (SB!KERNEL:CODE-HEADER-REF (CAR SB!C::PATCH)
;            (THE SB!INT:INDEX (CDR SB!C::PATCH)))
;             FUNCTION)
; ==>
;   (SB!KERNEL:CODE-HEADER-SET (CAR SB!C::PATCH)
;    (THE SB!INT:INDEX (CDR SB!C::PATCH)) FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: CODE-HEADER-SET

; in: DEFUN FIX-CORE-SOURCE-INFO
;     (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO :FUNCTION FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: DEBUG-SOURCE-FOR-INFO

; in: DEFUN DO-CORE-FIXUPS
;     (SB!VM:FIXUP-CODE-OBJECT SB!C::CODE POSITION SB!C::VALUE SB!C::KIND)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:FIXUP-CODE-OBJECT

;     (SB!C:FIXUP-FLAVOR SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-FLAVOR

;     (SB!C:FIXUP-NAME SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NAME

;     (SB!C:FIXUP-NOTE-FIXUP SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-FIXUP

;     (SB!C:FIXUP-NOTE-KIND SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-KIND

;     (SB!C:FIXUP-NOTE-POSITION SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-POSITION

;     (SB!SYS:FOREIGN-SYMBOL-ADDRESS SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FOREIGN-SYMBOL-ADDRESS

;     (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!C::CODE)
; 
; caught STYLE-WARNING:
;   undefined function: GET-LISP-OBJ-ADDRESS

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     (SETF DEBUG-INFO-SOURCE) 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 GET-LISP-OBJ-ADDRESS
; 
; compilation unit finished
;   caught 13 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/core.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/thread.lisp" (written 26 MAY 2008 10:38:29 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (DEF!STRUCT MUTEX ...)
; compiling (DEFUN MUTEX-VALUE ...)
; compiling (DEFSETF MUTEX-VALUE ...)
; compiling (DECLAIM (INLINE SET-MUTEX-VALUE))
; compiling (DEFUN SET-MUTEX-VALUE ...)
; compiling (DEFINE-COMPILER-MACRO SET-MUTEX-VALUE ...)
; compiling (DEF!STRUCT SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITH-MUTEX ...)
; compiling (SB-XC:DEFMACRO WITH-SYSTEM-MUTEX ...)
; compiling (SB-XC:DEFMACRO WITH-SYSTEM-SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SYSTEM-SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITH-SPINLOCK ...)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; compiling (DEF CALL-WITH-SYSTEM-SPINLOCK)
; compiling (DEF CALL-WITH-RECURSIVE-SYSTEM-SPINLOCK)
; compiling (DEF CALL-WITH-RECURSIVE-SYSTEM-SPINLOCK ...)
; compiling (DEFUN CALL-WITH-MUTEX ...)
; compiling (DEFUN CALL-WITH-RECURSIVE-LOCK ...)
; compiling (DEFUN CALL-WITH-SPINLOCK ...)
; compiling (DEFUN CALL-WITH-RECURSIVE-SPINLOCK ...)
; file: /Users/nikodemus/src/sbcl/src/code/thread.lisp
; in: DEF!STRUCT MUTEX
;     (SB!INT:DEF!STRUCT SB!THREAD:MUTEX "Mutex type."
;                        (SB!THREAD::NAME NIL :TYPE (OR NULL SIMPLE-STRING))
;                        (SB!THREAD::%OWNER NIL :TYPE (OR NULL SB!THREAD:THREAD)))
; --> PROGN DEFSTRUCT PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET OR LET IF OR 
; ==>
;   (TYPEP #:ONCE-ONLY-36 'SB!THREAD:THREAD)
; 
; caught STYLE-WARNING:
;   undefined type: THREAD

; 
; caught STYLE-WARNING:
;   undefined type: THREAD


; file: /Users/nikodemus/src/sbcl/src/code/thread.lisp
; in: DEF!STRUCT MUTEX
;     (SB!INT:DEF!STRUCT SB!THREAD:MUTEX "Mutex type."
;                        (SB!THREAD::NAME NIL :TYPE (OR NULL SIMPLE-STRING))
;                        (SB!THREAD::%OWNER NIL :TYPE (OR NULL SB!THREAD:THREAD)))
; --> PROGN 
; ==>
;   (DEFSTRUCT (SB!THREAD:MUTEX (:INCLUDE SB!SYS:STRUCTURE!OBJECT))
;     "Mutex type."
;     (SB!THREAD::NAME NIL :TYPE (OR NULL SIMPLE-STRING))
;     (SB!THREAD::%OWNER NIL :TYPE (OR NULL SB!THREAD:THREAD)))
; 
; caught STYLE-WARNING:
;   undefined type: THREAD

; 
; caught STYLE-WARNING:
;   3 more uses of undefined type THREAD


; file: /Users/nikodemus/src/sbcl/src/code/thread.lisp
; in: DEF (NAME &OPTIONAL VARIANT)
;     (SB!SYS:WITHOUT-GCING (FUNCALL FUNCTION))
; 
; caught STYLE-WARNING:
;   undefined function: WITHOUT-GCING
; 
; caught STYLE-WARNING:
;   undefined function: WITHOUT-GCING

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     WITHOUT-GCING

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     THREAD
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/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 "/Users/nikodemus/src/sbcl/src/code/load.lisp" (written 17 APR 2008 05:05:03 PM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFUN LOAD-FRESH-LINE ...)
; compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...)
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/load.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/foreign.lisp" (written 17 JUN 2008 03:04:19 AM):
; 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: /Users/nikodemus/src/sbcl/src/code/foreign.lisp
; in: DEFUN FOREIGN-SYMBOL-SAP
;     (SB!SYS:INT-SAP (SB!SYS:SAP-REF-WORD (SB!SYS:INT-SAP SB!ALIEN:ADDR) 0))
; 
; note: The first argument never returns a value.
; 
; note: deleting unreachable code

; compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL))
; compiling (DEFUN SAP-FOREIGN-SYMBOL ...)
; compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*)
; file: /Users/nikodemus/src/sbcl/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 2 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/foreign.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/fop.lisp" (written 24 MAY 2008 02:26:22 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: /Users/nikodemus/src/sbcl/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 BLOCK SB!FASL::WITH-FOP-STACK 
; --> LET MACROLET 
; ==>
;   (VECTOR-PUSH-EXTEND
;    (PROGN (ERROR "FOP-MISC-TRAP can't be defined without %PRIMITIVE."))
;    #:FOP-STACK-426)
; 
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 BLOCK SB!FASL::WITH-FOP-STACK 
; --> LET MACROLET 
; ==>
;   (VECTOR-PUSH-EXTEND
;    (PROGN (ERROR "FOP-FUN-ENTRY can't be defined without %PRIMITIVE."))
;    #:FOP-STACK-5353)
; 
; note: The first argument never returns a value.

; compiling (DEFINE-FOP (FOP-ASSEMBLER-CODE 144) ...)
; file: /Users/nikodemus/src/sbcl/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 BLOCK SB!FASL::WITH-FOP-STACK 
; --> LET MACROLET 
; ==>
;   (VECTOR-PUSH-EXTEND
;    (PROGN (ERROR "cannot load assembler code except at cold load"))
;    #:FOP-STACK-5367)
; 
; note: The first argument never returns a value.

; compiling (DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145) ...)
; file: /Users/nikodemus/src/sbcl/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 BLOCK SB!FASL::WITH-FOP-STACK 
; --> LET MACROLET 
; ==>
;   (VECTOR-PUSH-EXTEND
;    (PROGN (ERROR "cannot load assembler code except at cold load"))
;    #:FOP-STACK-5381)
; 
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/fop.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ctype.lisp" (written 18 FEB 2008 09:14:11 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: /Users/nikodemus/src/sbcl/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!C::S-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: DERIVE-NODE-TYPE

; in: DEFUN VALID-FUN-USE
;     (SB!C::IMMEDIATELY-USED-P SB!C::LVAR SB!C:CALL)
; 
; caught STYLE-WARNING:
;   undefined function: IMMEDIATELY-USED-P

; in: DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT)
;     (SB!C::IR2-CONVERT-FULL-CALL SB!C::NODE BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-FULL-CALL

; in: DEFUN 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ctype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/disassem.lisp" (written 04 NOV 2005 02: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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/compiler/disassem.lisp
; in: DEFUN SAP-REF-DCHUNK
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)))
; ==>
;   (+
;    (+
;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)))
; 
; note: The second argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))
;             24))
; --> + + 
; ==>
;   (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;      (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8))
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
;             48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET))
;             40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))
;             32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET))
;             24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)))
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET))
;            8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)))
; 
; note: The second argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: The first argument never returns a value.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET))
;             16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))
;             24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET))
;             32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET))
;             40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET))
;             48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET))
;             56))
; --> + + + + + + 
; ==>
;   (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
;      (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8))
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: The first argument never returns a value.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)) 56)
; 
; note: The first argument never returns a value.
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 32)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 40)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 48)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET))
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16)
; 
; note: deleting unreachable code

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24)
; 
; note: deleting unreachable code

;     (THE SB!DISASSEM:DCHUNK
;          (ECASE SB!DISASSEM::DCHUNK-BITS
;            (32
;             (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) (+ # # # #)
;                 (+ # # # #)))
;            (64
;             (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) (+ # # # # # # # #)
;                 (+ # # # # # # # #)))))
; 
; note: deleting unreachable code

;     (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
; ==>
;   SB!DISASSEM::BYTE-ORDER
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFUN DCHUNK-CORRECTED-EXTRACT ...)
; compiling (DEFMACRO DCHUNK-INSERTF ...)
; compiling (DEFUN DCHUNK= ...)
; compiling (DEFMACRO DCHUNK-ZEROP ...)
; compiling (DEFUN DCHUNK-STRICT-SUPERSET-P ...)
; compiling (DEFUN DCHUNK-COUNT-BITS ...)
; compiling (DEFSTRUCT (INSTRUCTION # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFSTRUCT (INST-SPACE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFSTRUCT (INST-SPACE-CHOICE # ...) ...)
; compiling (DEFVAR *ARG-FORM-KINDS* ...)
; compiling (DEFSTRUCT (ARG-FORM-KIND #) ...)
; compiling (DEFUN ARG-FORM-KIND-OR-LOSE ...)
; compiling (DEFUN FIND-ARG-FORM-PRODUCER ...)
; compiling (DEFUN FIND-ARG-FORM-CHECKER ...)
; compiling (DEFUN CANONICALIZE-ARG-FORM-KIND ...)
; compiling (DEFVAR *DISASSEM-INST-FORMATS* ...)
; compiling (DEFVAR *DISASSEM-ARG-TYPES* ...)
; compiling (DEFVAR *DISASSEM-FUN-CACHE* ...)
; compiling (DEFSTRUCT (ARG # ...) ...)
; compiling (DEFSTRUCT (INSTRUCTION-FORMAT # ...) ...)
; compiling (DEFSTRUCT (FUNSTATE # ...) ...)
; compiling (DEFUN MAKE-FUNSTATE ...)
; compiling (DEFUN FUNSTATE-COMPATIBLE-P ...)
; compiling (DEFUN ARG-OR-LOSE ...)
; compiling (DEFSTRUCT (VALSRC # ...) ...)
; compiling (DEFUN MAKE-VALSRC ...)
; compiling (DEFVAR *CURRENT-INSTRUCTION-FLAVOR* ...)
; compiling (DEFUN PD-ERROR ...)
; compiling (DEFUN SELF-EVALUATING-P ...)
; compiling (DEFUN MAYBE-QUOTE ...)
; compiling (DEFUN DOESNT-NEED-WRAPPING-P ...)
; compiling (DEFUN MAKE-WRAPPER ...)
; compiling (DEFUN FILTER-OVERRIDES ...)
; compiling (DEFPARAMETER *ARG-FUN-PARAMS* ...)
; compiling (DEFUN MUNGE-FUN-REFS ...)
; compiling (DEFUN GEN-ARGS-DEF-FORM ...)
; compiling (DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM ...)
; compiling (DEFUN UPDATE-ARGS-FORM ...)
; compiling (DEFUN FORMAT-OR-LOSE ...)
; compiling (DEFMACRO DEFINE-INSTRUCTION-FORMAT ...)
; compiling (DEFUN 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: /Users/nikodemus/src/sbcl/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 MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF TYPEP LET OR LET IF OR 
; ==>
;   (TYPEP #:ONCE-ONLY-2098 'SB!DISASSEM:SEGMENT)
; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT

; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT


; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/disassem.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/assem.lisp" (written 17 MAR 2007 11:25:00 PM):
; compiling (IN-PACKAGE "SB!ASSEM")
; compiling (DEFVAR *ASSEM-SCHEDULER-P* ...)
; compiling (DECLAIM (TYPE BOOLEAN ...))
; compiling (DEFVAR *ASSEM-INSTRUCTIONS* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *ASSEM-MAX-LOCATIONS* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFSTRUCT (SEGMENT #) ...)
; compiling (DEFPRINTER (SEGMENT) ...)
; compiling (DECLAIM (INLINE SEGMENT-CURRENT-INDEX))
; compiling (DEFUN SEGMENT-CURRENT-INDEX ...)
; compiling (DEFUN (SETF SEGMENT-CURRENT-INDEX) ...)
; compiling (DEFMACRO WITH-MODIFIED-SEGMENT-INDEX-AND-POSN ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ...)
; compiling (DEF!STRUCT (INSTRUCTION # ...) ...)
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/assem.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/trace-table.lisp" (written 19 MAY 2002 04: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/trace-table.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/dump.lisp" (written 05 JUN 2008 11:47:40 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 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: /Users/nikodemus/src/sbcl/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 LOCALLY SB-C::%FUNCALL 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G912 'SB!C::SOURCE-INFO)
; 
; caught STYLE-WARNING:
;   undefined type: SB!C::SOURCE-INFO

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G912 'SB!C::SOURCE-INFO)
; 
; caught STYLE-WARNING:
;   undefined type: SB!C::SOURCE-INFO

; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB!FASL:FASL-DUMP-SOURCE-INFO
;                    (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:DUMP-OBJECT SB!FASL::RES
;                                              SB!FASL:FASL-OUTPUT)
;                                             (LET #
;                                               #))
;                                           (SETF (SB!FASL::FASL-OUTPUT-DEBUG-INFO
;                                                  SB!FASL:FASL-OUTPUT)
;                                                   NIL)
;                                           (VALUES)))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; 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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/dump.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/main.lisp" (written 03 JUL 2008 10:24:50 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *CONSTANTS* ...))
; compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-FUNCTION* ...)
; compiling (DEFVAR *CHECK-CONSISTENCY* ...)
; compiling (DEFVAR *LOOP-ANALYZE* ...)
; compiling (DEFVAR *COMPILER-TRACE-OUTPUT* ...)
; compiling (DEFVAR *BLOCK-COMPILE*)
; compiling (DEFVAR *BLOCK-COMPILE-ARG*)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *ENTRY-POINTS*)
; compiling (DECLAIM (LIST *ENTRY-POINTS*))
; compiling (DEFVAR *TOPLEVEL-LAMBDAS*)
; compiling (DECLAIM (LIST *TOPLEVEL-LAMBDAS*))
; compiling (DEFVAR *TOP-LEVEL-FORM-NOTED* ...)
; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE* ...)
; compiling (DEFVAR SB-XC:*COMPILE-PRINT* ...)
; compiling (DEFVAR *COMPILE-PROGRESS* ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME* ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *SOURCE-INFO* ...)
; compiling (DEFVAR *IN-COMPILATION-UNIT* ...)
; compiling (DEFVAR *ABORTED-COMPILATION-UNIT-COUNT*)
; compiling (DEFUN MAYBE-MUMBLE ...)
; compiling (DEFTYPE OBJECT ...)
; compiling (DEFVAR *COMPILE-OBJECT* ...)
; compiling (DECLAIM (TYPE OBJECT ...))
; compiling (DEFVAR *FOPCOMPILE-LABEL-COUNTER*)
; compiling (DEFVAR *CODE-COVERAGE-RECORDS* ...)
; compiling (DEFVAR *CODE-COVERAGE-BLOCKS* ...)
; compiling (DEFVAR *CODE-COVERAGE-INFO* ...)
; compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...)
; compiling (DEFVAR *SOURCE-PLIST* ...)
; compiling (DEFUN %WITH-COMPILATION-UNIT ...)
; compiling (DEFUN FUN-NAME-RESERVED-BY-ANSI-P ...)
; compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/main.lisp
; in: DEFUN SUMMARIZE-COMPILATION-UNIT
;     (CASE SB!C::NAME
;       ((DECLARE)
;        (SB!C:COMPILER-WARN
;         "~@<There is no function named ~S. References to ~S in ~
;                          some contexts (like starts of blocks) have special ~
;                          meaning, but here it would have to be a function, ~
;                          and that shouldn't be right.~:@>"
;         SB!C::NAME SB!C::NAME))
;       (T
;        (SB!C:COMPILER-WARN "~@<The ~(~A~) ~S is undefined, and its name is ~
;                          reserved by ANSI CL so that even if it were ~
;                          defined later, the code doing so would not be ~
;                          portable.~:@>"
;                            SB!C::KIND SB!C::NAME)))
; --> LET 
; ==>
;   SB!C::NAME
; 
; note: deleting unreachable code

;     (SB!C:COMPILER-WARN "~@<There is no function named ~S. References to ~S in ~
;                          some contexts (like starts of blocks) have special ~
;                          meaning, but here it would have to be a function, ~
;                          and that shouldn't be right.~:@>"
;                         SB!C::NAME SB!C::NAME)
; ==>
;   "~@<There is no function named ~S. References to ~S in ~
;                        some contexts (like starts of blocks) have special ~
;                        meaning, but here it would have to be a function, ~
;                        and that shouldn't be right.~:@>"
; 
; note: deleting unreachable code

;     (SB!C:COMPILER-WARN "~@<The ~(~A~) ~S is undefined, and its name is ~
;                          reserved by ANSI CL so that even if it were ~
;                          defined later, the code doing so would not be ~
;                          portable.~:@>"
;                         SB!C::KIND SB!C::NAME)
; ==>
;   "~@<The ~(~A~) ~S is undefined, and its name is ~
;                        reserved by ANSI CL so that even if it were ~
;                        defined later, the code doing so would not be ~
;                        portable.~:@>"
; 
; 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 GET-TOPLEVELISH-FILE-INFO ...)
; compiling (DEFUN READ-FOR-COMPILE-FILE ...)
; compiling (DEFUN GET-SOURCE-STREAM ...)
; compiling (DEFUN CLOSE-SOURCE-INFO ...)
; compiling (DEFMACRO DO-FORMS-FROM-INFO ...)
; compiling (DEFUN SUB-SUB-COMPILE-FILE ...)
; compiling (DEFUN FIND-SOURCE-ROOT ...)
; compiling (DEFUN CONVERT-AND-MAYBE-COMPILE ...)
; compiling (DEFUN PREPROCESSOR-MACROEXPAND-1 ...)
; compiling (DEFUN PROCESS-TOPLEVEL-PROGN ...)
; compiling (DEFUN PROCESS-TOPLEVEL-LOCALLY ...)
; compiling (DEFUN PARSE-EVAL-WHEN-SITUATIONS ...)
; compiling (DEFUN FUNCTIONAL-COMPONENTS ...)
; compiling (DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ...)
; compiling (DEFUN %COMPILE ...)
; compiling (DEFUN 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 #:G1763 'SB!C::COMPILER-ERROR-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G1763 '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: /Users/nikodemus/src/sbcl/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)
;                                   (UNLESS
;                                       (ZEROP
;                                        (HASH-TABLE-COUNT
;                                         SB!C::*CODE-COVERAGE-RECORDS*))
;                                     (SB!C::FOPCOMPILE
;                                      (SB!IMPL::BACKQ-LIST
;                                       'SB!C::RECORD-CODE-COVERAGE # #)
;                                      NIL NIL))
;                                   (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 SB-IMPL::%HANDLER-BIND 
; --> SB-INT:DX-FLET FLET FLET 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 NIL)))
;        (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T)
;        LAMBDA))
; --> LET HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET FLET 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: /Users/nikodemus/src/sbcl/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)
;                                   (UNLESS
;                                       (ZEROP
;                                        (HASH-TABLE-COUNT
;                                         SB!C::*CODE-COVERAGE-RECORDS*))
;                                     (SB!C::FOPCOMPILE
;                                      (SB!IMPL::BACKQ-LIST
;                                       'SB!C::RECORD-CODE-COVERAGE # #)
;                                      NIL NIL))
;                                   (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 SB-IMPL::%HANDLER-BIND 
; --> SB-INT:DX-FLET FLET FLET 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 NIL)))
;        (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T)
;        LAMBDA))
; --> LET HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET FLET 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)
;                                   (UNLESS
;                                       (ZEROP
;                                        (HASH-TABLE-COUNT
;                                         SB!C::*CODE-COVERAGE-RECORDS*))
;                                     (SB!C::FOPCOMPILE
;                                      (SB!IMPL::BACKQ-LIST
;                                       'SB!C::RECORD-CODE-COVERAGE # #)
;                                      NIL NIL))
;                                   (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 SB-IMPL::%HANDLER-BIND 
; --> SB-INT:DX-FLET FLET FLET 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 NIL)))
;        (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T)
;        LAMBDA))
; --> LET HANDLER-BIND SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET FLET 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-INDEX)
; 
; 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

; in: DEFUN SUB-COMPILE-FILE
;     (SB!C::FOPCOMPILE
;      (SB!IMPL::BACKQ-LIST 'SB!C::RECORD-CODE-COVERAGE
;                           (SB!IMPL::BACKQ-LIST 'QUOTE
;                                                (NAMESTRING
;                                                 *COMPILE-FILE-PATHNAME*))
;                           (SB!IMPL::BACKQ-LIST 'QUOTE
;                                                (LET (LIST)
;                                                  (MAPHASH #
;                                                           SB!C::*CODE-COVERAGE-RECORDS*)
;                                                  LIST)))
;      NIL NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (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 PROCESS-TOPLEVEL-FORM
;     (SB!C::GET-SOURCE-PATH SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: GET-SOURCE-PATH

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::GTN-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: GTN-ANALYZE

;     (SB!C::INIT-ASSEMBLER)
; 
; caught STYLE-WARNING:
;   undefined function: INIT-ASSEMBLER

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::IR1-CONVERT-LAMBDA (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::LOCALL-FUN)
;      :SOURCE-NAME SB!C::SOURCE-NAME :DEBUG-NAME
;      (SB!C::DEBUG-NAME 'SB!C::TL-XEP SB!C::DEBUG-NAME-TAIL))
; 
; caught STYLE-WARNING:
;   undefined function: IR1-CONVERT-LAMBDA

;     (FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION :SOURCE-NAME
;              SB!C::SOURCE-NAME)
; ==>
;   (SB-C::%FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION
;                   :SOURCE-NAME SB!C::SOURCE-NAME)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-CONVERT-LAMBDALIKE

; in: DEFUN IR1-PHASES
;     (SB!C::IR1-FINALIZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-FINALIZE

; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
;     (SB!C::IR1-OPTIMIZE SB!C:COMPONENT SB!C::FASTP)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-OPTIMIZE

; in: DEFUN COMPILE-LOAD-TIME-STUFF
;     (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* SB!C::FOR-VALUE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-TOPLEVEL

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::PATH NIL)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-TOPLEVEL

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C:IR2-CONVERT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT

; 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 MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::MAKE-LEXENV :POLICY
;      (SB!C::LEXENV-POLICY (SB!C::FUNCTIONAL-LEXENV SB!C::LOCALL-FUN)))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS
;      SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS
;      SB!C::*DISABLED-PACKAGE-LOCKS*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; 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 MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!C::LAMBDA-EXPRESSION)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN CLEAR-IR1-INFO
;     (SB!C::NODE-COMPONENT SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::NODE-COMPONENT (SB!C::LAMBDA-BIND LAMBDA))
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; in: DEFUN DELETE-IF-NO-ENTRIES
;     (SB!C::NODE-COMPONENT SB!C::REF)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; 
; caught STYLE-WARNING:
;   1 more use of undefined function NODE-COMPONENT


; file: /Users/nikodemus/src/sbcl/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 GET-SOURCE-PATH 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 NAME-LAMBDALIKE 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 95 STYLE-WARNING conditions
;   printed 3 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/main.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/xref.lisp" (written 28 MAY 2008 07:23:13 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *XREF-KINDS* ...)
; compiling (DEFUN RECORD-COMPONENT-XREFS ...)
; compiling (DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ...)
; compiling (DEFUN RECORD-NODE-XREFS ...)
; compiling (DEFUN INTERNAL-NAME-P ...)
; compiling (DEFUN RECORD-XREF ...)
; compiling (DEFUN RECORD-MACROEXPANSION ...)
; compiling (DEFUN PACK-XREF-DATA ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/xref.lisp
; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS
;     (SB!C::BLOCK-HOME-LAMBDA BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: BLOCK-HOME-LAMBDA

; in: DEFUN RECORD-NODE-XREFS
;     (SB!C::CONSTANT-LVAR-P SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

;     (SB!C::LVAR-VALUE SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS
;     (SB!C::NODE-HOME-LAMBDA SB!C::REF)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-HOME-LAMBDA

; in: DEFUN RECORD-NODE-XREFS
;     (SB!C::PRINCIPAL-LVAR-USE (SB!C::COMBINATION-FUN SB!C::NODE))
; 
; caught STYLE-WARNING:
;   undefined function: PRINCIPAL-LVAR-USE

; in: DEFUN RECORD-XREF
;     (SB!C::SOURCE-PATH-ORIGINAL-SOURCE
;      (OR SB!C::PATH (SB!C::NODE-SOURCE-PATH SB!C::NODE)))
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-ORIGINAL-SOURCE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     BLOCK-HOME-LAMBDA CONSTANT-LVAR-P LVAR-VALUE NODE-HOME-LAMBDA PRINCIPAL-LVAR-USE SOURCE-PATH-ORIGINAL-SOURCE
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/xref.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/source-location.lisp" (written 16 JUL 2008 10:21:05 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION #) ...)
; compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...)
; compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; 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: /Users/nikodemus/src/sbcl/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 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/source-location.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1tran.lisp" (written 19 JUL 2008 02:32:54 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*))
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFVAR *CURRENT-FORM-NUMBER*)
; compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*))
; compiling (DEFVAR *SOURCE-PATHS*)
; compiling (DECLAIM (INLINE SOURCE-FORM-HAS-PATH-P))
; compiling (DEFUN SOURCE-FORM-HAS-PATH-P ...)
; compiling (DEFUN GET-SOURCE-PATH ...)
; compiling (DEFUN NOTE-SOURCE-PATH ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CURRENT-COMPONENT*)
; compiling (DECLAIM (LIST *CURRENT-PATH*))
; compiling (DEFVAR *CURRENT-PATH*)
; compiling (DEFVAR *DERIVE-FUNCTION-TYPES* ...)
; compiling (DEFVAR *FUN-NAMES-IN-THIS-FILE* ...)
; compiling (DEFVAR *POST-BINDING-VARIABLE-LEXENV* ...)
; compiling (DEFUN FUN-LEXICALLY-NOTINLINE-P ...)
; compiling (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 (DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS ...)
; compiling (DEFUN LINK-NODE-TO-PREVIOUS-CTRAN ...)
; compiling (DECLAIM (INLINE USE-CTRAN))
; compiling (DEFUN USE-CTRAN ...)
; compiling (DEFUN %USE-CTRAN ...)
; compiling (DEFUN INSERT-NODE-BEFORE ...)
; compiling (DEFUN USE-LVAR ...)
; compiling (DECLAIM (INLINE USE-CONTINUATION))
; compiling (DEFUN USE-CONTINUATION ...)
; compiling (DEFUN IR1-TOPLEVEL ...)
; compiling (DEFUN FIND-SOURCE-PATHS ...)
; compiling (DEFUN SUB-FIND-SOURCE-PATHS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT ...)
; compiling (DEFUN REFERENCE-CONSTANT ...)
; compiling (DEFUN MAYBE-REANALYZE-FUNCTIONAL ...)
; compiling (DEFUN REFERENCE-LEAF ...)
; compiling (DEFUN 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: /Users/nikodemus/src/sbcl/src/compiler/ir1tran.lisp
; in: DEFUN MUFFLE-WARNING-OR-DIE
;     (SB!INT:BUG "no MUFFLE-WARNING restart")
; ==>
;   "no MUFFLE-WARNING restart"
; 
; note: deleting unreachable code

; compiling (DEFUN CAREFUL-EXPAND-MACRO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT-PROGN-BODY ...)
; compiling (DEFUN INSTRUMENT-COVERAGE ...)
; compiling (DEFUN MAYBE-INSTRUMENT-PROGN-LIKE ...)
; compiling (DEFUN RECORD-CODE-COVERAGE ...)
; compiling (DEFUN CLEAR-CODE-COVERAGE ...)
; compiling (DEFUN RESET-CODE-COVERAGE ...)
; compiling (DEFUN CODE-COVERAGE-RECORD-MARKED ...)
; compiling (DEFUN STEP-FORM-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT-COMBINATION ...)
; compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...)
; compiling (DEFUN IR1-CONVERT-SRCTRAN ...)
; compiling (DEFVAR *INSTRUMENT-IF-FOR-CODE-COVERAGE* ...)
; compiling (DEFUN IR1-CONVERT-MAYBE-PREDICATE ...)
; compiling (DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ...)
; compiling (DEFUN IR1-CONVERT-LOCAL-COMBINATION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-IN-BINDINGS ...)
; compiling (DEFUN PROCESS-TYPE-DECL ...)
; compiling (DEFUN PROCESS-FTYPE-DECL ...)
; compiling (DEFUN PROCESS-SPECIAL-DECL ...)
; compiling (DEFUN MAKE-NEW-INLINEP ...)
; compiling (DEFUN PROCESS-INLINE-DECL ...)
; compiling (DEFUN FIND-IN-BINDINGS-OR-FBINDINGS ...)
; compiling (DEFUN PROCESS-IGNORE-DECL ...)
; compiling (DEFUN PROCESS-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: /Users/nikodemus/src/sbcl/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 INSERT-NODE-BEFORE
;     (SB!C::ENSURE-BLOCK-START SB!C::PREV)
; 
; caught STYLE-WARNING:
;   undefined function: ENSURE-BLOCK-START

; in: DEFUN REFERENCE-CONSTANT
;     (SB!C::FIND-CONSTANT SB!C::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CONSTANT

; in: DEFUN FIND-FREE-VAR
;     (SB!C::FIND-CONSTANT SB!C::VALUE SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CONSTANT

; in: DEFUN IR1-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: /Users/nikodemus/src/sbcl/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 INSTRUMENT-COVERAGE
;     (SB!C::SOURCE-PATH-ORIGINAL-SOURCE SB!C::*CURRENT-PATH*)
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-ORIGINAL-SOURCE

; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE
;     (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE SB!C::DEFINED-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 ENSURE-BLOCK-START FIND-CONSTANT IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDA-BODY LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE REOPTIMIZE-LVAR SOURCE-PATH-ORIGINAL-SOURCE VALIDATE-CALL-TYPE
; 
; compilation unit finished
;   caught 30 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ir1tran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1tran-lambda.lisp" (written 17 MAY 2008 02:02:29 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN VARIFY-LAMBDA-ARG ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-KEYWORD-FOR-ARG ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-LAMBDA-VARS ...)
; compiling (DEFUN IR1-CONVERT-AUX-BINDINGS ...)
; compiling (DEFUN IR1-CONVERT-SPECIAL-BINDINGS ...)
; compiling (DEFUN IR1-CONVERT-LAMBDA-BODY ...)
; compiling (DEFUN REGISTER-ENTRY-POINT ...)
; compiling (DEFUN CONVERT-OPTIONAL-ENTRY ...)
; compiling (DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY ...)
; compiling (DEFUN CONVERT-MORE-ENTRY ...)
; compiling (DEFUN IR1-CONVERT-MORE ...)
; compiling (DEFUN IR1-CONVERT-HAIRY-ARGS ...)
; compiling (DEFUN IR1-CONVERT-HAIRY-LAMBDA ...)
; compiling (DEFUN IR1-CONVERT-LAMBDA ...)
; compiling (DEFUN WRAP-FORMS-IN-DEBUG-CATCH ...)
; compiling (DEFUN IR1-CONVERT-LAMBDALIKE ...)
; compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...)
; compiling (DEFUN 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/compiler/ir1tran-lambda.lisp
; in: DEFUN IR1-CONVERT-INLINE-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDALIKE
;     (SB!C::NAME-LAMBDALIKE SB!C::THING)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDA-BODY
;     (SB!C::NODE-BLOCK SB!C:BIND)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-BLOCK

; in: DEFUN IR1-CONVERT-INLINE-EXPANSION
;     (SB!C::SUBSTITUTE-LEAF SB!C::FUN SB!C::VAR)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF

; in: DEFUN GET-DEFINED-FUN
;     (SB!C::SUBSTITUTE-LEAF SB!C::RES SB!C::FOUND)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF

; in: DEFUN IR1-CONVERT-LAMBDALIKE
;     (SB!C::SUBSTITUTE-LEAF-IF
;      (LAMBDA (SB!C::REF)
;        (SB!C:POLICY SB!C::REF (> SB!C::RECOGNIZE-SELF-CALLS 0)))
;      SB!C::RES SB!C::DEFINED-FUN-RES)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF-IF

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     COMPILER-NOTIFY CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NAME-LAMBDALIKE NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF
; 
; compilation unit finished
;   caught 16 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ir1tran-lambda.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1-translators.lisp" (written 04 JUN 2008 03:39:40 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF-IR1-TRANSLATOR PROGN ...)
; compiling (DEF-IR1-TRANSLATOR IF ...)
; compiling (DEFUN BEST-SUB-SOURCE-PATH ...)
; compiling (DEF-IR1-TRANSLATOR BLOCK ...)
; compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...)
; file: /Users/nikodemus/src/sbcl/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
;                                    (SB!ASSEM:SSET-ADJOIN 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 BLOCK LET* 
; ==>
;   (LET* ((SB!C::NAME (CAR (CDR #:WHOLE-VAR-160)))
;          (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 (SB!ASSEM:SSET-ADJOIN 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 (DEFINE-SOURCE-TRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXTRACT-LET-VARS ...)
; compiling (DEF-IR1-TRANSLATOR LET ...)
; compiling (DEF-IR1-TRANSLATOR LET* ...)
; compiling (DEFUN IR1-TRANSLATE-LOCALLY ...)
; compiling (DEF-IR1-TRANSLATOR LOCALLY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXTRACT-FLET-VARS ...)
; compiling (DEFUN IR1-CONVERT-FBINDINGS ...)
; compiling (DEF-IR1-TRANSLATOR FLET ...)
; compiling (DEF-IR1-TRANSLATOR LABELS ...)
; compiling (DEFUN THE-IN-POLICY ...)
; compiling (DEF-IR1-TRANSLATOR THE ...)
; compiling (DEF-IR1-TRANSLATOR TRULY-THE ...)
; compiling (DEF-IR1-TRANSLATOR SETQ ...)
; compiling (DEFUN SETQ-VAR ...)
; compiling (DEF-IR1-TRANSLATOR THROW ...)
; compiling (DEF-IR1-TRANSLATOR %WITHIN-CLEANUP ...)
; compiling (DEF-IR1-TRANSLATOR %ESCAPE-FUN ...)
; compiling (DEF-IR1-TRANSLATOR %CLEANUP-FUN ...)
; compiling (DEF-IR1-TRANSLATOR CATCH ...)
; compiling (DEF-IR1-TRANSLATOR UNWIND-PROTECT ...)
; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL ...)
; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1 ...)
; compiling (DEFUN REVERT-SOURCE-PATH ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/ir1-translators.lisp
; in: DEFUN THE-IN-POLICY
;     (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-VALUES-SPECIFIER-TYPE

; in: 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: /Users/nikodemus/src/sbcl/src/compiler/ir1-translators.lisp
; 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 LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET 
; --> UNLESS IF PROGN 
; ==>
;   (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEFTRANSFORM FUNCALL
;     (SB!C:DEFTRANSFORM FUNCALL ((FUNCTION &REST SB!C::ARGS) * *)
;                        (LET ((SB!C::ARG-NAMES (SB!INT:MAKE-GENSYM-LIST #)))
;                          (SB!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 LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET 
; --> UNLESS 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: /Users/nikodemus/src/sbcl/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 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 26 STYLE-WARNING conditions
;   printed 4 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ir1-translators.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1util.lisp" (written 20 JUL 2008 10:52:08 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NODE-ENCLOSING-CLEANUP ...)
; compiling (DEFUN INSERT-CLEANUP-CODE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-USES ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PRINCIPAL-LVAR ...)
; compiling (DEFUN PRINCIPAL-LVAR-USE ...)
; compiling (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 (FTYPE # ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN USE-GOOD-FOR-DX-P ...)
; compiling (DEFUN LVAR-GOOD-FOR-DX-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 SPLICE-FUN-ARGS ...)
; compiling (DEFUN EXTRACT-FUN-ARGS ...)
; compiling (DEFUN FLUSH-COMBINATION ...)
; compiling (DEFUN CHANGE-REF-LEAF ...)
; compiling (DEFUN SUBSTITUTE-LEAF ...)
; compiling (DEFUN SUBSTITUTE-LEAF-IF ...)
; compiling (DEFUN FIND-CONSTANT ...)
; compiling (DEFUN CLOSURE-VAR-P ...)
; compiling (DEFUN FIND-NLX-INFO ...)
; compiling (DEFUN NLX-INFO-LVAR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAIN-ENTRY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LOOKS-LIKE-AN-MV-BIND ...)
; compiling (DEFUN XEP-P ...)
; compiling (DEFUN LVAR-FUN-NAME ...)
; compiling (DEFUN LVAR-FUN-DEBUG-NAME ...)
; compiling (DEFUN COMBINATION-FUN-SOURCE-NAME ...)
; compiling (DEFUN 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 ...)
; compiling (DEFUN LVAR-FOR-NAMED-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/compiler/ir1util.lisp
; in: DEFUN LVAR-FOR-NAMED-FUNCTION
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; 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 SPLICE-FUN-ARGS
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFUN FLUSH-DEST
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFUN SUBSTITUTE-LVAR
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::NEW)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFFROB (BASIC CAREFUL COMPILER TRANSFORM)
;     #'SB!C::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 SPLICE-FUN-ARGS
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; 
; caught STYLE-WARNING:
;   1 more use of undefined function GIVE-UP-IR1-TRANSFORM


; file: /Users/nikodemus/src/sbcl/src/compiler/ir1util.lisp
; in: DEFUN CAST-TYPE-CHECK
;     (SB!C::IR1-OPTIMIZE-CAST SB!ALIEN:CAST T)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-OPTIMIZE-CAST

; in: DEFUN FILTER-LVAR
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN LVAR-FOR-NAMED-FUNCTION
;     (SB!C::LVAR-VALUE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; 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 35 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ir1util.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1report.lisp" (written 17 JUN 2008 02:10:06 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: /Users/nikodemus/src/sbcl/src/compiler/ir1report.lisp
; in: DEFUN MAYBE-COMPILER-NOTIFY
;     (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS)
;      (LET ((STREAM *ERROR-OUTPUT*))
;        (PPRINT-LOGICAL-BLOCK (STREAM NIL :PER-LINE-PREFIX ";")
;          (FORMAT STREAM " note: ~3I~_")
;          (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FORMAT STREAM "~A" CONDITION)))
;        (FRESH-LINE STREAM)))
; --> BLOCK LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGS
;    'SB!INT:SIMPLE-COMPILER-NOTE 'SB!C::WITH-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; in: DEFUN COMPILER-NOTIFY
;     (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS)
;      (INCF SB!C::*COMPILER-NOTE-COUNT*)
;      (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* (FORMAT NIL "note: ~~A")
;                                    (LIST (PRINC-TO-STRING CONDITION))))
; --> BLOCK LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGS
;    'SB!INT:SIMPLE-COMPILER-NOTE 'SB!C::WITH-CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     COERCE-TO-CONDITION
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ir1report.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1opt.lisp" (written 16 JUL 2008 11:51:14 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 DELETE-CAST ...)
; compiling (DEFUN IR1-OPTIMIZE-CAST ...)
; compiling (DEFTRANSFORM MAKE-SYMBOL ...)
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ir1opt.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/loop.lisp" (written 14 JUL 2005 09: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/loop.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1final.lisp" (written 14 JUL 2005 09: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ir1final.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/array-tran.lisp" (written 06 MAY 2008 07:43:52 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 (DEFINE HAIRY-DATA-VECTOR-REF)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS)
; compiling (DEFINE DATA-VECTOR-REF)
; compiling (DEFOPTIMIZER (DATA-VECTOR-REF-WITH-OFFSET DERIVE-TYPE) ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS)
; compiling (DEFINE DATA-VECTOR-SET)
; compiling (DEFOPTIMIZER (DATA-VECTOR-SET-WITH-OFFSET DERIVE-TYPE) ...)
; compiling (DEFUN DERIVE-%WITH-ARRAY-DATA/MUMBLE-TYPE ...)
; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA/FP DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE) ...)
; compiling (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: /Users/nikodemus/src/sbcl/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 (DEFUN TRANSFORM-%WITH-ARRAY-DATA/MUBLE ...)
; compiling (DEFTRANSFORM %WITH-ARRAY-DATA ...)
; compiling (DEFTRANSFORM %WITH-ARRAY-DATA/FP ...)
; 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 AREF ...)
; compiling (DEFTRANSFORM %ASET ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; compiling (DEFTRANSFORM ROW-MAJOR-AREF ...)
; compiling (DEFTRANSFORM %SET-ROW-MAJOR-AREF ...)
; compiling (DEF BIT-AND)
; compiling (DEF BIT-IOR)
; compiling (DEF BIT-XOR)
; compiling (DEF BIT-EQV)
; compiling (DEF BIT-NAND)
; compiling (DEF BIT-NOR)
; compiling (DEF BIT-ANDC1)
; compiling (DEF BIT-ANDC2)
; compiling (DEF BIT-ORC1)
; compiling (DEF BIT-ORC2)
; compiling (DEFTRANSFORM BIT-NOT ...)
; compiling (DEFTRANSFORM BIT-NOT ...)
; compiling (DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE) ...); 
; compilation unit finished
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/array-tran.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/seqtran.lisp" (written 30 JUN 2008 12:48:27 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN MAPFOO-TRANSFORM ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPC ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCAR ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCAN ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPL ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPLIST ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCON ...)
; compiling (DEFTRANSFORM MAP ...)
; compiling (DEFUN BUILD-SEQUENCE-ITERATOR ...)
; compiling (DEFTRANSFORM %MAP ...)
; compiling (DEFTRANSFORM MAP-INTO ...)
; compiling (DEFTRANSFORM ELT ...)
; compiling (DEFTRANSFORM ELT ...)
; compiling (DEFTRANSFORM %SETELT ...)
; compiling (DEFTRANSFORM %SETELT ...)
; compiling (DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; compiling (DEFUN SPECIALIZED-LIST-SEEK-FUNCTION-NAME ...)
; compiling (DEFUN TRANSFORM-LIST-ITEM-SEEK ...)
; compiling (DEFTRANSFORM MEMBER ...)
; compiling (DEFTRANSFORM ASSOC ...)
; compiling (DEFTRANSFORM ADJOIN ...)
; compiling (DEFTRANSFORM MEMQ ...)
; compiling (DEFTRANSFORM DELETE ...)
; compiling (DEFTRANSFORM DELETE-IF ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM FILL ...)
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 (DEFUN MAKE-REPLACE-TRANSFORM ...)
; compiling (DEFINE-REPLACE-TRANSFORMS)
; compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY BASE-CHAR ...) ...)
; compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY CHARACTER ...) ...)
; compiling (DEFUN FROB-BASH-TRANSFORM ...)
; compiling (DEFTRANSFORM UB1-BASH-COPY ...)
; compiling (DEFTRANSFORM UB2-BASH-COPY ...)
; compiling (DEFTRANSFORM UB4-BASH-COPY ...)
; compiling (DEFTRANSFORM UB8-BASH-COPY ...)
; compiling (DEFTRANSFORM UB16-BASH-COPY ...)
; compiling (DEFTRANSFORM UB32-BASH-COPY ...)
; compiling (DEFUN MAYBE-EXPAND-COPY-LOOP-INLINE ...)
; compiling (DEFUN EXPAND-AREF-COPY-LOOP ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM SEARCH ...)
; compiling (DEFTRANSFORM CONCATENATE ...)
; 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 ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-LEFT-TRIM ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-RIGHT-TRIM ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-TRIM ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/seqtran.lisp
; in: DEFUN TRANSFORM-LIST-ITEM-SEEK
;     (SB!C::EQ-COMPARABLE-TYPE-P (SB!C::LVAR-TYPE SB!C::ITEM))
; 
; caught STYLE-WARNING:
;   undefined function: EQ-COMPARABLE-TYPE-P

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     EQ-COMPARABLE-TYPE-P
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 10 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/seqtran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/typetran.lisp" (written 14 MAR 2008 09:03:06 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFMACRO DEFINE-TYPE-PREDICATE ...)
; compiling (DEFUN %DEFINE-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM TYPEP ...)
; compiling (DEFUN IR1-TRANSFORM-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM %TYPEP ...)
; compiling (DEFTRANSFORM FOLD-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM FIND-CLASSOID ...)
; compiling (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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/typetran.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-typetran.lisp" (written 10 JAN 2006 12:46:14 AM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/vm-typetran.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/float-tran.lisp" (written 30 JUN 2008 12:18:32 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: /Users/nikodemus/src/sbcl/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 ...)
; compiling (DEFTRANSFORM SCALE-FLOAT ...)
; compiling (DEFUN SAFE-CTYPE-FOR-SINGLE-COERCION-P ...)
; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...)
; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...)
; compiling (DOLIST (X #) ...)
; compiling (DOLIST (X #) ...)
; compiling (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: /Users/nikodemus/src/sbcl/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.

;     (- (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::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   can't tell whether the first argument is a FLOAT

; --> OR LET IF OR = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   can't tell whether the first argument is a FLOAT
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (COMPLEX SINGLE-FLOAT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (COMPLEX DOUBLE-FLOAT)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   can't tell whether the first argument is a FLOAT

; --> OR LET IF OR = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   can't tell whether the first argument is a FLOAT
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (COMPLEX SINGLE-FLOAT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (COMPLEX DOUBLE-FLOAT)
; 
; note: unable to open code because: The operands might not be the same type.

;     (- EXP SB!VM:SINGLE-FLOAT-BIAS)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       etc.

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       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))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       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 inline (signed-byte 32) arithmetic (cost 5) because:
;       can't tell whether the second argument is a (SIGNED-BYTE 32)
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (ASH 1 SB!C::FRAC-BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       etc.

;     (- (ASH 1 SB!C::FRAC-BITS) 1)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

;     (LOGANDC2 SB!SYS:BITS (- (ASH 1 SB!C::FRAC-BITS) 1))
; --> LOGAND 
; ==>
;   (LOGNOT (- (ASH 1 SB!C::FRAC-BITS) 1))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (INTEGER -1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).

; ==>
;   (LOGAND SB!SYS:BITS (LOGNOT (- (ASH 1 SB!C::FRAC-BITS) 1)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER * 0), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER * 0), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (* SB!C::X 0.0)
; 
; note: doing float to pointer coercion (cost 13) to "<return value>", for:
;       the first result of inline float arithmetic

; compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...)
; file: /Users/nikodemus/src/sbcl/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.

;     (- (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.

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   can't tell whether the first argument is a FLOAT

; --> OR LET IF OR = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   can't tell whether the first argument is a FLOAT
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (COMPLEX SINGLE-FLOAT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (COMPLEX DOUBLE-FLOAT)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   can't tell whether the first argument is a FLOAT

; --> OR LET IF OR = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   can't tell whether the first argument is a FLOAT
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (COMPLEX SINGLE-FLOAT)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   can't tell whether the first argument is a (COMPLEX DOUBLE-FLOAT)
; 
; note: unable to open code because: The operands might not be the same type.

;     (- EXP SB!VM:DOUBLE-FLOAT-BIAS)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       can't tell whether the result is a (VALUES FIXNUM &REST T)
;       etc.

;     (<= SB!C::BIASED 0)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       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))
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       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 inline (signed-byte 32) arithmetic (cost 5) because:
;       can't tell whether the second argument is a (SIGNED-BYTE 32)
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (< SB!C::FRAC-BITS 32)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (- SB!C::FRAC-BITS 32)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (ASH 1 (- SB!C::FRAC-BITS 32))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       etc.

;     (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

;     (LOGANDC2 SB!C::HIGH (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1))
; --> LOGAND 
; ==>
;   (LOGNOT (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a (INTEGER -1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES
;                                                                (SIGNED-BYTE 32)
;                                                                &REST T).

; ==>
;   (LOGAND SB!C::HIGH (LOGNOT (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER * 0), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The second argument is a (INTEGER * 0), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (ASH 1 SB!C::FRAC-BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       etc.

;     (- (ASH 1 SB!C::FRAC-BITS) 1)
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a (INTEGER -2147483648
;                                                     4294967295).
;       etc.

;     (* SB!C::X 0.0d0)
; 
; note: doing float to pointer coercion (cost 13) to "<return value>", for:
;       the first result of inline float arithmetic

;     (SETF SB!C::LOW (LOGANDC2 SB!C::LOW (- (ASH 1 SB!C::FRAC-BITS) 1)))
; ==>
;   (SETQ SB!C::LOW (LOGANDC2 SB!C::LOW (- (ASH 1 SB!C::FRAC-BITS) 1)))
; 
; note: doing unsigned word to integer coercion (cost 20) to LOW

; compiling (DEF SINGLE-FLOAT ...)
; compiling (DEF DOUBLE-FLOAT ...)
; file: /Users/nikodemus/src/sbcl/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 66 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/float-tran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/saptran.lisp" (written 27 JAN 2007 05:45:49 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...)
; file: /Users/nikodemus/src/sbcl/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 (DEFSAPREF SAP-REF-8 ...)
; compiling (DEFSAPREF SAP-REF-16 ...)
; compiling (DEFSAPREF SAP-REF-32 ...)
; compiling (DEFSAPREF SAP-REF-64 ...)
; compiling (DEFSAPREF SAP-REF-WORD ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-8 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-16 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-32 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-64 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-WORD ...)
; compiling (DEFSAPREF SAP-REF-SAP ...)
; compiling (DEFSAPREF SAP-REF-SINGLE ...)
; compiling (DEFSAPREF SAP-REF-DOUBLE ...)
; compiling (DEFSAPREF SAP-REF-LONG ...)
; compiling (DEF SAP< ...)
; compiling (DEF SAP<= ...)
; compiling (DEF SAP= ...)
; compiling (DEF SAP>= ...)
; compiling (DEF SAP> ...)
; compiling (DEFTRANSFORM SAP+ ...)
; compiling (DEF SAP-REF-8 ...)
; compiling (DEF %SET-SAP-REF-8 ...)
; compiling (DEF SIGNED-SAP-REF-8 ...)
; compiling (DEF %SET-SIGNED-SAP-REF-8 ...)
; compiling (DEF SAP-REF-16 ...)
; compiling (DEF %SET-SAP-REF-16 ...)
; compiling (DEF SIGNED-SAP-REF-16 ...)
; compiling (DEF %SET-SIGNED-SAP-REF-16 ...)
; compiling (DEF SAP-REF-32 ...)
; compiling (DEF %SET-SAP-REF-32 ...)
; compiling (DEF SIGNED-SAP-REF-32 ...)
; compiling (DEF %SET-SIGNED-SAP-REF-32 ...)
; compiling (DEF SAP-REF-64 ...)
; compiling (DEF %SET-SAP-REF-64 ...)
; compiling (DEF SIGNED-SAP-REF-64 ...)
; compiling (DEF %SET-SIGNED-SAP-REF-64 ...)
; compiling (DEF SAP-REF-SAP ...)
; compiling (DEF %SET-SAP-REF-SAP ...)
; compiling (DEF SAP-REF-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 ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/saptran.lisp
; in: DEF SIGNED-SAP-REF-8
;     (SB!C::DEF SB!SYS:SIGNED-SAP-REF-8 8)
; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM LET* 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET LET 
; ==>
;   (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::SIGNED-SAP-REF-8-WITH-OFFSET 8 0 0
;    SB!C::OFFSET SB!C::DISP NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FOLD-INDEX-ADDRESSING

; in: DEF %SET-SAP-REF-8
;     (SB!C::DEF SB!KERNEL:%SET-SAP-REF-8 8 T (UNSIGNED-BYTE 8))
; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM LET* 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET LET 
; ==>
;   (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::%SET-SAP-REF-8-WITH-OFFSET 8 0 0
;    SB!C::OFFSET SB!C::DISP T)
; 
; caught STYLE-WARNING:
;   undefined function: FOLD-INDEX-ADDRESSING

; in: DEF SAP-REF-8
;     (SB!C::DEF SB!SYS:SAP-REF-8 8)
; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM LET* 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET LET 
; ==>
;   (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::SAP-REF-8-WITH-OFFSET 8 0 0 SB!C::OFFSET
;    SB!C::DISP NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FOLD-INDEX-ADDRESSING

; 
; caught STYLE-WARNING:
;   17 more uses of undefined function FOLD-INDEX-ADDRESSING

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     FOLD-INDEX-ADDRESSING
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/saptran.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/srctran.lisp" (written 30 JUN 2008 12:44:42 PM):
; 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 (DEFOPTIMIZER (LIST* DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...)
; compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...)
; compiling (DEFINE-SOURCE-TRANSFORM NTH ...)
; compiling (DEFTRANSFORM LAST ...)
; compiling (DEFINE-SOURCE-TRANSFORM GETHASH ...)
; compiling (DEFINE-SOURCE-TRANSFORM GET ...)
; compiling (DEFVAR *DEFAULT-NTHCDR-OPEN-CODE-LIMIT* ...)
; compiling (DEFVAR *EXTREME-NTHCDR-OPEN-CODE-LIMIT* ...)
; compiling (DEFTRANSFORM NTHCDR ...)
; compiling (DEFINE-SOURCE-TRANSFORM PLUSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM MINUSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM ZEROP ...)
; compiling (DEFINE-SOURCE-TRANSFORM 1+ ...)
; compiling (DEFINE-SOURCE-TRANSFORM 1- ...)
; compiling (DEFINE-SOURCE-TRANSFORM ODDP ...)
; compiling (DEFINE-SOURCE-TRANSFORM EVENP ...)
; compiling (DEFFROB TRUNCATE)
; compiling (DEFFROB ROUND)
; compiling (DEFTRANSFORM LOGTEST ...)
; compiling (DEFTRANSFORM LOGBITP ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE-SIZE ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE-POSITION ...)
; compiling (DEFINE-SOURCE-TRANSFORM LDB-TEST ...)
; compiling (DEFINE-SOURCE-TRANSFORM NUMERATOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM DENOMINATOR ...)
; compiling (DEF SIGNED-ZERO->= ...)
; compiling (DEF SIGNED-ZERO-> ...)
; compiling (DEF SIGNED-ZERO-= ...)
; compiling (DEF SIGNED-ZERO-< ...)
; compiling (DEF SIGNED-ZERO-<= ...)
; compiling (DEFSTRUCT (INTERVAL # ...) ...)
; compiling (DEFUN MAKE-INTERVAL ...)
; compiling (DECLAIM (INLINE SET-BOUND))
; compiling (DEFUN SET-BOUND ...)
; compiling (DEFUN BOUND-FUNC ...)(can't portably mask float traps, proceeding anyway)

; compiling (DEFUN SAFE-DOUBLE-COERCION-P ...)
; compiling (DEFUN SAFE-SINGLE-COERCION-P ...)
; compiling (DEFMACRO SAFELY-BINOP ...)
; compiling (DEFMACRO BOUND-BINOP ...)
; compiling (DEFUN COERCE-FOR-BOUND ...)
; compiling (DEFUN COERCE-AND-TRUNCATE-FLOATS ...)
; compiling (DEFUN NUMERIC-TYPE->INTERVAL ...)
; compiling (DEFUN TYPE-APPROXIMATE-INTERVAL ...)
; compiling (DEFUN COPY-INTERVAL-LIMIT ...)
; compiling (DEFUN COPY-INTERVAL ...)
; compiling (DEFUN INTERVAL-SPLIT ...)
; compiling (DEFUN INTERVAL-CLOSURE ...)
; compiling (DEFUN INTERVAL-RANGE-INFO ...)
; compiling (DEFUN INTERVAL-BOUNDED-P ...)
; compiling (DEFUN INTERVAL-CONTAINS-P ...)
; compiling (DEFUN INTERVAL-INTERSECT-P ...)
; compiling (DEFUN INTERVAL-ADJACENT-P ...)
; compiling (DEFUN INTERVAL-INTERSECTION/DIFFERENCE ...)
; compiling (DEFUN INTERVAL-MERGE-PAIR ...)
; compiling (DEFUN INTERVAL-APPROXIMATE-UNION ...)
; compiling (DEFUN INTERVAL-NEG ...)
; compiling (DEFUN INTERVAL-ADD ...)(can't portably mask float traps, proceeding anyway)
(can't portably mask float traps, proceeding anyway)

; compiling (DEFUN INTERVAL-SUB ...)(can't portably mask float traps, proceeding anyway)
(can't portably mask float traps, proceeding anyway)

; compiling (DEFUN INTERVAL-MUL ...)(can't portably mask float traps, proceeding anyway)

; compiling (DEFUN INTERVAL-DIV ...)(can't portably mask float traps, proceeding anyway)

; compiling (DEFUN INTERVAL-FUNC ...)
; compiling (DEFUN INTERVAL-< ...)
; compiling (DEFUN INTERVAL->= ...)
; compiling (DEFUN INTERVAL-= ...)
; compiling (DEFUN INTERVAL-/= ...)
; compiling (DEFUN INTERVAL-ABS ...)
; compiling (DEFUN INTERVAL-SQR ...)
; compiling (DEFUN DERIVE-INTEGER-TYPE-AUX ...)
; compiling (DEFUN DERIVE-INTEGER-TYPE ...)
; compiling (DEFUN FLATTEN-LIST ...)
; compiling (DEFUN PREPARE-ARG-FOR-DERIVE-TYPE ...)
; compiling (DEFUN CONVERT-NUMERIC-TYPE ...)
; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE ...)
; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST ...)
; compiling (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 (DEFUN BEST-MODULAR-VERSION ...)
; 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 (DEFUN EQ-COMPARABLE-TYPE-P ...)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFTRANSFORM EQUAL ...)
; compiling (DEFTRANSFORM = ...)
; compiling (DEFUN MAYBE-FLOAT-LVAR-P ...)
; compiling (FLET (#) ...)
; compiling (DEF = ...)
; compiling (DEF /= ...)
; compiling (DEF < ...)
; compiling (DEF > ...)
; compiling (DEF <= ...)
; compiling (DEF >= ...)
; compiling (DEFUN IR1-TRANSFORM-CHAR< ...)
; compiling (DEFTRANSFORM CHAR< ...)
; compiling (DEFTRANSFORM CHAR> ...)
; compiling (DEFUN MULTI-COMPARE ...)
; compiling (DEFINE-SOURCE-TRANSFORM = ...)
; compiling (DEFINE-SOURCE-TRANSFORM < ...)
; compiling (DEFINE-SOURCE-TRANSFORM > ...)
; compiling (DEFINE-SOURCE-TRANSFORM <= ...)
; compiling (DEFINE-SOURCE-TRANSFORM >= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR< ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR> ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR<= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR>= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-LESSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-GREATERP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MULTI-NOT-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM /= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR/= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAX ...)
; compiling (DEFINE-SOURCE-TRANSFORM MIN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN ASSOCIATE-ARGS ...)
; file: /Users/nikodemus/src/sbcl/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!C::ASSOCIATE-ARGS
;                    (SB-INT:NAMED-LAMBDA SB!C::ASSOCIATE-ARGS
;                                         (FUNCTION SB!C::FIRST-ARG
;                                          SB!C::MORE-ARGS)
;                                         (BLOCK SB!C::ASSOCIATE-ARGS
;                                           (LET (# #)
;                                             (IF # # #))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; 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: /Users/nikodemus/src/sbcl/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!C::SOURCE-TRANSFORM-INTRANSITIVE
;                    (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)
;                                             (# #)
;                                             (1 #)
;                                             (T #))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; note: type assertion too complex to check:
;  (VALUES LIST &OPTIONAL (MEMBER NIL T)).

; compiling (DEFINE-SOURCE-TRANSFORM - ...)
; compiling (DEFINE-SOURCE-TRANSFORM / ...)
; compiling (DEFINE-SOURCE-TRANSFORM APPLY ...)
; compiling (DEFUN 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: /Users/nikodemus/src/sbcl/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 2 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/srctran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-tran.lisp" (written 24 APR 2008 12:43:59 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-INT ...)
; compiling (DEFTRANSFORM ABS ...)
; compiling (DEFINE-SOURCE-TRANSFORM %BIGNUM-REF ...)
; compiling (DEFUN FOLD-INDEX-ADDRESSING ...)
; compiling (DEFTRANSFORM %BIGNUM-REF-WITH-OFFSET ...)
; compiling (DEFINE-SOURCE-TRANSFORM %VECTOR-RAW-BITS ...)
; compiling (DEFINE-SOURCE-TRANSFORM %RAW-BITS ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-VECTOR-RAW-BITS ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-RAW-BITS ...)
; compiling (DEFTRANSFORM %RAW-BITS-WITH-OFFSET ...)
; compiling (DEFTRANSFORM %SET-RAW-BITS-WITH-OFFSET ...)
; compiling (DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-FUNCALLABLE-INSTANCE-LAYOUT ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM DATA-VECTOR-REF ...)
; compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM DATA-VECTOR-REF-WITH-OFFSET ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFTRANSFORM DATA-VECTOR-SET ...)
; compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-SET ...)
; compiling (DEFTRANSFORM DATA-VECTOR-SET-WITH-OFFSET ...)
; compiling (DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %DATA-VECTOR-AND-INDEX ...)
; compiling (DEF BIT-AND ...)
; compiling (DEF BIT-IOR ...)
; compiling (DEF BIT-XOR ...)
; compiling (DEF BIT-EQV ...)
; compiling (DEF BIT-NAND ...)
; compiling (DEF BIT-NOR ...)
; compiling (DEF BIT-ANDC1 ...)
; compiling (DEF BIT-ANDC2 ...)
; compiling (DEF BIT-ORC1 ...)
; compiling (DEF BIT-ORC2 ...)
; compiling (DEFTRANSFORM BIT-NOT ...)
; compiling (DEFTRANSFORM BIT-VECTOR-= ...)
; compiling (DEFTRANSFORM COUNT ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM %BYTE-BLT ...)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGAND ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGIOR ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGXOR ...)
; compiling (DEFINE-GOOD-SIGNED-MODULAR-FUNS LOGAND ...)
; compiling (DEF SB!VM::ASH-LEFT-SMOD30 ...)
; compiling (DEF SB!VM::ASH-LEFT-MOD32 ...)
; compiling (DEFINE-SOURCE-TRANSFORM WORD-LOGICAL-NOT ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-AND ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-NAND ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-OR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-NOR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-XOR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-EQV ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ORC1 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ORC2 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ANDC1 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ANDC2 ...)
; compiling (DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY ...)
; compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)
; compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/generic/vm-tran.lisp
; in: DEFUN FOLD-INDEX-ADDRESSING
;     (SB!VM::FOLDABLE-CONSTANT-OFFSET-P SB!C::ELEMENT-SIZE SB!C::LOWTAG
;      SB!C::DATA-OFFSET
;      (FUNCALL SB!C::FUNC SB!C::VALUE (SB!C::LVAR-VALUE SB!C::OFFSET)))
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM::FOLDABLE-CONSTANT-OFFSET-P

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB!VM::FOLDABLE-CONSTANT-OFFSET-P
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/vm-tran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/locall.lisp" (written 20 JUL 2008 10:52:08 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN PROPAGATE-TO-ARGS ...)
; compiling (DEFUN HANDLE-NESTED-DYNAMIC-EXTENT-LVARS ...)
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/locall.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/dfo.lisp" (written 06 FEB 2007 07:06:38 AM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/dfo.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/checkgen.lisp" (written 17 DEC 2007 03:34:28 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/checkgen.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/constraint.lisp" (written 18 FEB 2008 12:05:41 PM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/constraint.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/physenvanal.lisp" (written 08 MAY 2008 02:52:06 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN PHYSENV-ANALYZE ...)
; compiling (DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL ...)
; compiling (DEFUN GET-LAMBDA-PHYSENV ...)
; compiling (DEFUN REINIT-LAMBDA-PHYSENV ...)
; compiling (DEFUN GET-NODE-PHYSENV ...)
; compiling (DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES ...)
; compiling (DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES ...)
; compiling (DEFUN XEP-ALLOCATOR ...)
; compiling (DEFUN CLOSE-OVER ...)
; compiling (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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/physenvanal.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/tn.lisp" (written 14 JUL 2005 09: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/tn.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/life.lisp" (written 06 FEB 2007 07:51:30 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN ADD-GLOBAL-CONFLICT ...)
; compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...)
; compiling (DEFUN RESET-CURRENT-CONFLICT ...)
; compiling (DEFUN CACHED-BLOCK-PHYSENV ...)
; compiling (DEFUN CONVERT-TO-GLOBAL ...)
; compiling (DEFUN FIND-LOCAL-REFERENCES ...)
; compiling (DEFUN INIT-GLOBAL-CONFLICT-KIND ...)
; compiling (DEFEVENT SPLIT-IR2-BLOCK ...)
; compiling (DEFUN SPLIT-IR2-BLOCKS ...)
; compiling (DEFUN CLEAR-LIFETIME-INFO ...)
; compiling (DEFUN COALESCE-MORE-LTN-NUMBERS ...)
; file: /Users/nikodemus/src/sbcl/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 MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ...)
; compiling (DEFUN LIFETIME-ANALYZE ...)
; compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...)
; compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...)
; compiling (DEFUN TNS-CONFLICT ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/life.lisp
; in: DEFUN SPLIT-IR2-BLOCKS
;     (SB!C::ADD-TO-EMIT-ORDER SB!C::NEW SB!C::2BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: ADD-TO-EMIT-ORDER

; in: DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS
;     (SB!C::FIND-IN-PHYSENV SB!C::CLOSURE-VAR SB!C::PHYSENV)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-IN-PHYSENV

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ADD-TO-EMIT-ORDER FIND-IN-PHYSENV
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/life.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/debug-info.lisp" (written 03 JUL 2008 10:24:49 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 #) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/debug-info.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/debug-dump.lisp" (written 03 JUL 2008 10:24:50 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 LAMBDA-ANCESTOR-P ...)
; compiling (DEFUN DUMP-1-VAR ...)
; compiling (DEFUN COMPUTE-VARS ...)
; compiling (DEFUN COMPUTE-MINIMAL-VARS ...)
; compiling (DEFUN DEBUG-LOCATION-FOR ...)
; compiling (DEFUN COMPUTE-ARGS ...)
; compiling (DEFUN COMPUTE-DEBUG-RETURNS ...)
; compiling (DEFUN DFUN-FROM-FUN ...)
; compiling (DEFUN COMPUTE-1-DEBUG-FUN ...)
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/debug-dump.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/utils.lisp" (written 07 MAY 2007 03:42:38 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN FIXNUMIZE ...)
; compiling (DEFUN FOLDABLE-CONSTANT-OFFSET-P ...)
; compiling (DEFUN STATIC-SYMBOL-P ...)
; compiling (DEFUN STATIC-SYMBOL-OFFSET ...)
; compiling (DEFUN OFFSET-STATIC-SYMBOL ...)
; compiling (DEFUN STATIC-FUN-OFFSET ...)
; compiling (DEFVAR *ADJUSTABLE-VECTORS* ...)
; compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/utils.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/fopcompile.lisp" (written 05 JUN 2008 07:55:09 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FOPCOMPILABLE-P ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/fopcompile.lisp
; in: DEFUN FOPCOMPILABLE-P
;     (DEFUN SB!C::FOPCOMPILABLE-P (SB!KERNEL:FORM) NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB!C::FOPCOMPILABLE-P
;                    (SB-INT:NAMED-LAMBDA SB!C::FOPCOMPILABLE-P (SB!KERNEL:FORM)
;                                         (BLOCK SB!C::FOPCOMPILABLE-P NIL))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.

; compiling (DEFUN LET-FOPCOMPILABLE-P ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/fopcompile.lisp
; in: DEFUN LET-FOPCOMPILABLE-P
;     (SB!C::MAKE-LEXENV)
; 
; note: deleting unreachable code

; 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: /Users/nikodemus/src/sbcl/src/compiler/fopcompile.lisp
; in: DEFUN FOPCOMPILE
;     (SB-XC:MACROEXPAND SB!KERNEL:FORM SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:MACROEXPAND

; 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-76 'SB!KERNEL:UNBOXED-ARRAY)
; 
; caught STYLE-WARNING:
;   undefined type: UNBOXED-ARRAY

; --> LET OR LET 
; ==>
;   (TYPEP #:ONCE-ONLY-76 '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 function is undefined:
;     SB-XC:MACROEXPAND

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     UNBOXED-ARRAY
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/fopcompile.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/src/assembly/
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/assemfile.lisp" (written 22 AUG 2006 06: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/assembly/assemfile.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/late-vmdef.lisp" (written 14 JUL 2005 09:57:00 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NOTE-THIS-LOCATION ...)
; compiling (DEFUN NOTE-NEXT-INSTRUCTION ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/late-vmdef.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/fixup.lisp" (written 14 JUL 2005 09:52:38 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFSTRUCT (FIXUP # ...) ...)
; compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...)
; compiling (DEFVAR *FIXUP-NOTES*)
; compiling (DEFUN NOTE-FIXUP ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/fixup.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/insts.lisp" (written 14 MAR 2008 10:10:18 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (SETF SB!DISASSEM:*DISASSEM-INST-ALIGNMENT-BYTES* ...)
; compiling (DEFTYPE REG ...)
; compiling (DEF!CONSTANT +DEFAULT-OPERAND-SIZE+ ...)
; compiling (DEFUN OFFSET-NEXT ...)
; compiling (DEFPARAMETER *DEFAULT-ADDRESS-SIZE* ...)
; compiling (DEFPARAMETER *BYTE-REG-NAMES* ...)
; compiling (DEFPARAMETER *WORD-REG-NAMES* ...)
; compiling (DEFPARAMETER *DWORD-REG-NAMES* ...)
; compiling (DEFUN PRINT-REG-WITH-WIDTH ...)
; compiling (DEFUN PRINT-REG ...)
; compiling (DEFUN PRINT-WORD-REG ...)
; compiling (DEFUN PRINT-BYTE-REG ...)
; compiling (DEFUN PRINT-ADDR-REG ...)
; compiling (DEFUN PRINT-REG/MEM ...)
; compiling (DEFUN PRINT-SIZED-REG/MEM ...)
; compiling (DEFUN PRINT-BYTE-REG/MEM ...)
; compiling (DEFUN PRINT-WORD-REG/MEM ...)
; compiling (DEFUN PRINT-LABEL ...)
; compiling (DEFUN PREFILTER-REG/MEM ...)
; compiling (DEFUN PREFILTER-WIDTH ...)
; compiling (DEFUN READ-ADDRESS ...)
; compiling (DEFUN WIDTH-BITS ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE ACCUM ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-ACCUM ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE ADDR-REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-ADDR ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-DATA ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-BYTE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DWORD ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-WORD ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD-16 ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG/MEM ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-REG/MEM ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE BYTE-REG/MEM ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-REG/MEM ...)
; compiling (DEFUN PRINT-FP-REG ...)
; compiling (DEFUN PREFILTER-FP-REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE FP-REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WIDTH ...)
; compiling (DEFPARAMETER *CONDITIONS* ...)
; compiling (DEFPARAMETER *CONDITION-NAME-VEC* ...)
; compiling (SETF *ASSEM-SCHEDULER-P* ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE CONDITION-CODE ...)
; compiling (DEFUN CONDITIONAL-OPCODE ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BYTE 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE 8) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (TWO-BYTES 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE-DIR 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-IMM 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-NO-WIDTH 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-DIR 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (TWO-BYTES 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-REG/MEM 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-REG/MEM-DIR 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM-IMM 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-REG/MEM 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-REG/MEM 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-IMM 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-FP 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-FP-D 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-NO 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-3 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-5 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-ST 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (STRING-OP 8 ...))
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHORT-COND-JUMP 16) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHORT-JUMP 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-COND-JUMP 16) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-JUMP 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (COND-SET 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (COND-MOVE 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ENTER-FORMAT 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (PREFETCH 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BYTE-IMM 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (WORD-IMM 24 ...) ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-DWORD ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-BYTE-WITH-REG ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-MOD-REG-R/M-BYTE ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-SIB-BYTE ...)
; compiling (DEFUN EMIT-ABSOLUTE-FIXUP ...)
; compiling (DEFUN EMIT-RELATIVE-FIXUP ...)
; compiling (DEFUN REG-TN-ENCODING ...)
; compiling (DEFSTRUCT (EA # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN EMIT-EA ...)
; compiling (DEFUN FP-REG-TN-P ...)
; compiling (DEFUN EMIT-FP-OP ...)
; compiling (DEFUN BYTE-REG-P ...)
; compiling (DEFUN BYTE-EA-P ...)
; compiling (DEFUN WORD-REG-P ...)
; compiling (DEFUN WORD-EA-P ...)
; compiling (DEFUN DWORD-REG-P ...)
; compiling (DEFUN DWORD-EA-P ...)
; compiling (DEFUN REGISTER-P ...)
; compiling (DEFUN ACCUMULATOR-P ...)
; compiling (DEF!CONSTANT +OPERAND-SIZE-PREFIX-BYTE+ ...)
; compiling (DEFUN MAYBE-EMIT-OPERAND-SIZE-PREFIX ...)
; compiling (DEFUN OPERAND-SIZE ...)
; compiling (DEFUN MATCHING-OPERAND-SIZE ...)
; compiling (DEFUN EMIT-SIZED-IMMEDIATE ...)
; compiling (DEFUN TOGGLE-WORD-WIDTH ...)
; compiling (DEFINE-INSTRUCTION OPERAND-SIZE-PREFIX ...)
; compiling (DEFINE-INSTRUCTION MOV ...)
; compiling (DEFUN EMIT-MOVE-WITH-EXTENSION ...)
; compiling (DEFINE-INSTRUCTION MOVSX ...)
; compiling (DEFINE-INSTRUCTION MOVZX ...)
; compiling (DEFINE-INSTRUCTION PUSH ...)
; compiling (DEFINE-INSTRUCTION PUSHA ...)
; compiling (DEFINE-INSTRUCTION POP ...)
; compiling (DEFINE-INSTRUCTION POPA ...)
; compiling (DEFINE-INSTRUCTION XCHG ...)
; compiling (DEFINE-INSTRUCTION LEA ...)
; compiling (DEFINE-INSTRUCTION CMPXCHG ...)
; compiling (DEFINE-INSTRUCTION FS-SEGMENT-PREFIX ...)
; compiling (DEFINE-INSTRUCTION GS-SEGMENT-PREFIX ...)
; compiling (DEFINE-INSTRUCTION CLC ...)
; compiling (DEFINE-INSTRUCTION CLD ...)
; compiling (DEFINE-INSTRUCTION CLI ...)
; compiling (DEFINE-INSTRUCTION CMC ...)
; compiling (DEFINE-INSTRUCTION LAHF ...)
; compiling (DEFINE-INSTRUCTION POPF ...)
; compiling (DEFINE-INSTRUCTION PUSHF ...)
; compiling (DEFINE-INSTRUCTION SAHF ...)
; compiling (DEFINE-INSTRUCTION STC ...)
; compiling (DEFINE-INSTRUCTION STD ...)
; compiling (DEFINE-INSTRUCTION STI ...)
; compiling (DEFUN EMIT-RANDOM-ARITH-INST ...)
; compiling (DEFINE-INSTRUCTION ADD ...)
; compiling (DEFINE-INSTRUCTION ADC ...)
; compiling (DEFINE-INSTRUCTION SUB ...)
; compiling (DEFINE-INSTRUCTION SBB ...)
; compiling (DEFINE-INSTRUCTION CMP ...)
; compiling (DEFINE-INSTRUCTION INC ...)
; compiling (DEFINE-INSTRUCTION DEC ...)
; compiling (DEFINE-INSTRUCTION NEG ...)
; compiling (DEFINE-INSTRUCTION AAA ...)
; compiling (DEFINE-INSTRUCTION AAS ...)
; compiling (DEFINE-INSTRUCTION DAA ...)
; compiling (DEFINE-INSTRUCTION DAS ...)
; compiling (DEFINE-INSTRUCTION MUL ...)
; compiling (DEFINE-INSTRUCTION IMUL ...)
; compiling (DEFINE-INSTRUCTION DIV ...)
; compiling (DEFINE-INSTRUCTION IDIV ...)
; compiling (DEFINE-INSTRUCTION AAD ...)
; compiling (DEFINE-INSTRUCTION AAM ...)
; compiling (DEFINE-INSTRUCTION CBW ...)
; compiling (DEFINE-INSTRUCTION CWDE ...)
; compiling (DEFINE-INSTRUCTION CWD ...)
; compiling (DEFINE-INSTRUCTION CDQ ...)
; compiling (DEFINE-INSTRUCTION XADD ...)
; compiling (DEFUN EMIT-SHIFT-INST ...)
; compiling (DEFINE-INSTRUCTION ROL ...)
; compiling (DEFINE-INSTRUCTION ROR ...)
; compiling (DEFINE-INSTRUCTION RCL ...)
; compiling (DEFINE-INSTRUCTION RCR ...)
; compiling (DEFINE-INSTRUCTION SHL ...)
; compiling (DEFINE-INSTRUCTION SHR ...)
; compiling (DEFINE-INSTRUCTION SAR ...)
; compiling (DEFUN EMIT-DOUBLE-SHIFT ...)
; compiling (DEFINE-INSTRUCTION SHLD ...)
; compiling (DEFINE-INSTRUCTION SHRD ...)
; compiling (DEFINE-INSTRUCTION AND ...)
; compiling (DEFINE-INSTRUCTION TEST ...)
; compiling (DEFUN EMIT-OPTIMIZED-TEST-INST ...)
; compiling (DEFINE-INSTRUCTION OR ...)
; compiling (DEFINE-INSTRUCTION XOR ...)
; compiling (DEFINE-INSTRUCTION NOT ...)
; compiling (DEFINE-INSTRUCTION CMPS ...)
; compiling (DEFINE-INSTRUCTION INS ...)
; compiling (DEFINE-INSTRUCTION LODS ...)
; compiling (DEFINE-INSTRUCTION MOVS ...)
; compiling (DEFINE-INSTRUCTION OUTS ...)
; compiling (DEFINE-INSTRUCTION SCAS ...)
; compiling (DEFINE-INSTRUCTION STOS ...)
; compiling (DEFINE-INSTRUCTION XLAT ...)
; compiling (DEFINE-INSTRUCTION REP ...)
; compiling (DEFINE-INSTRUCTION REPE ...)
; compiling (DEFINE-INSTRUCTION REPNE ...)
; compiling (DEFINE-INSTRUCTION BSF ...)
; compiling (DEFINE-INSTRUCTION BSR ...)
; compiling (DEFUN EMIT-BIT-TEST-AND-MUMBLE ...)
; compiling (DEFINE-INSTRUCTION BT ...)
; compiling (DEFINE-INSTRUCTION BTC ...)
; compiling (DEFINE-INSTRUCTION BTR ...)
; compiling (DEFINE-INSTRUCTION BTS ...)
; compiling (DEFINE-INSTRUCTION CALL ...)
; compiling (DEFUN EMIT-BYTE-DISPLACEMENT-BACKPATCH ...)
; compiling (DEFINE-INSTRUCTION JMP ...)
; compiling (DEFINE-INSTRUCTION JMP-SHORT ...)
; compiling (DEFINE-INSTRUCTION RET ...)
; compiling (DEFINE-INSTRUCTION JECXZ ...)
; compiling (DEFINE-INSTRUCTION LOOP ...)
; compiling (DEFINE-INSTRUCTION LOOPZ ...)
; compiling (DEFINE-INSTRUCTION LOOPNZ ...)
; compiling (DEFINE-INSTRUCTION CMOV ...)
; compiling (DEFINE-INSTRUCTION SET ...)
; compiling (DEFINE-INSTRUCTION ENTER ...)
; compiling (DEFINE-INSTRUCTION LEAVE ...)
; compiling (DEFINE-INSTRUCTION PREFETCHNTA ...)
; compiling (DEFINE-INSTRUCTION PREFETCHT0 ...)
; compiling (DEFINE-INSTRUCTION PREFETCHT1 ...)
; compiling (DEFINE-INSTRUCTION PREFETCHT2 ...)
; compiling (DEFUN SNARF-ERROR-JUNK ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/insts.lisp
; in: DEFUN SNARF-ERROR-JUNK
;     (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET))
;            (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8))))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP)
;        (TYPE (UNSIGNED-BYTE 8) LENGTH)
;        (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) VECTOR))
;       (COND (SB!VM::LENGTH-ONLY (VALUES 0 (1+ LENGTH) NIL NIL))
;             (T
;              (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET)
;               VECTOR 0 LENGTH)
;              (SB!INT:COLLECT (# #) (SB!VM::LENGTHS 1)
;                              (LET* #
;                                #
;                                #
;                                #)))))
; 
; note: deleting unreachable code

;     (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)
; --> LET COND IF COND IF COND PROGN PROG1 LET INCF LET* + 
; ==>
;   SB!INT:INDEX
; 
; 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 COND PROGN PROG1 LET LOGIOR LOGIOR LOGIOR LOGIOR AREF 
; ==>
;   VECTOR
; 
; 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 PROGN PROG1 LET INCF LET* + 
; ==>
;   SB!INT:INDEX
; 
; 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 COND PROGN PROG1 LET LOGIOR LOGIOR LOGIOR LOGIOR AREF 
; ==>
;   VECTOR
; 
; 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)
; ==>
;   SB!INT:INDEX
; 
; note: deleting unreachable code

;     (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS) (SB!VM::LENGTHS))
; ==>
;   SB!VM::ERROR-NUMBER
; 
; note: deleting unreachable code

;     (LET* ((SB!INT:INDEX 0)
;            (SB!VM::ERROR-NUMBER (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)))
;       (SB!VM::LENGTHS SB!INT:INDEX)
;       (LOOP (WHEN (>= SB!INT:INDEX LENGTH) (RETURN))
;             (LET ((SB!VM::OLD-INDEX SB!INT:INDEX))
;               (SB!VM::SC-OFFSETS (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX))
;               (SB!VM::LENGTHS (- SB!INT:INDEX SB!VM::OLD-INDEX))))
;       (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS)
;               (SB!VM::LENGTHS)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) VECTOR 0
;      LENGTH)
; ==>
;   SB!VM::SAP
; 
; note: deleting unreachable code

;     (1+ LENGTH)
; --> + 
; ==>
;   LENGTH
; 
; note: deleting unreachable code

;     (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET))
;            (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8))))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP)
;        (TYPE (UNSIGNED-BYTE 8) LENGTH)
;        (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) VECTOR))
;       (COND (SB!VM::LENGTH-ONLY (VALUES 0 (1+ LENGTH) NIL NIL))
;             (T
;              (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET)
;               VECTOR 0 LENGTH)
;              (SB!INT:COLLECT (# #) (SB!VM::LENGTHS 1)
;                              (LET* #
;                                #
;                                #
;                                #)))))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFUN BREAK-CONTROL ...)
; compiling (DEFINE-INSTRUCTION BREAK ...)
; compiling (DEFINE-INSTRUCTION INT ...)
; compiling (DEFINE-INSTRUCTION INTO ...)
; compiling (DEFINE-INSTRUCTION BOUND ...)
; compiling (DEFINE-INSTRUCTION IRET ...)
; compiling (DEFINE-INSTRUCTION HLT ...)
; compiling (DEFINE-INSTRUCTION NOP ...)
; compiling (DEFINE-INSTRUCTION WAIT ...)
; compiling (DEFINE-INSTRUCTION LOCK ...)
; compiling (DEFINE-INSTRUCTION BYTE ...)
; compiling (DEFINE-INSTRUCTION WORD ...)
; compiling (DEFINE-INSTRUCTION DWORD ...)
; compiling (DEFUN EMIT-HEADER-DATA ...)
; compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...)
; compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...)
; compiling (DEFINE-INSTRUCTION FLD ...)
; compiling (DEFINE-INSTRUCTION FLDD ...)
; compiling (DEFINE-INSTRUCTION FLDL ...)
; compiling (DEFINE-INSTRUCTION FST ...)
; compiling (DEFINE-INSTRUCTION FSTD ...)
; compiling (DEFINE-INSTRUCTION FADD ...)
; compiling (DEFINE-INSTRUCTION FADDD ...)
; compiling (DEFINE-INSTRUCTION FADD-STI ...)
; compiling (DEFINE-INSTRUCTION FADDP-STI ...)
; compiling (DEFINE-INSTRUCTION FSUB ...)
; compiling (DEFINE-INSTRUCTION FSUBR ...)
; compiling (DEFINE-INSTRUCTION FSUBD ...)
; compiling (DEFINE-INSTRUCTION FSUBRD ...)
; compiling (DEFINE-INSTRUCTION FSUB-STI ...)
; compiling (DEFINE-INSTRUCTION FSUBP-STI ...)
; compiling (DEFINE-INSTRUCTION FSUBR-STI ...)
; compiling (DEFINE-INSTRUCTION FSUBRP-STI ...)
; compiling (DEFINE-INSTRUCTION FMUL ...)
; compiling (DEFINE-INSTRUCTION FMULD ...)
; compiling (DEFINE-INSTRUCTION FMUL-STI ...)
; compiling (DEFINE-INSTRUCTION FDIV ...)
; compiling (DEFINE-INSTRUCTION FDIVR ...)
; compiling (DEFINE-INSTRUCTION FDIVD ...)
; compiling (DEFINE-INSTRUCTION FDIVRD ...)
; compiling (DEFINE-INSTRUCTION FDIV-STI ...)
; compiling (DEFINE-INSTRUCTION FDIVR-STI ...)
; compiling (DEFINE-INSTRUCTION FXCH ...)
; compiling (DEFINE-INSTRUCTION FILD ...)
; compiling (DEFINE-INSTRUCTION FILDL ...)
; compiling (DEFINE-INSTRUCTION FIST ...)
; compiling (DEFINE-INSTRUCTION FISTP ...)
; compiling (DEFINE-INSTRUCTION FISTPL ...)
; compiling (DEFINE-INSTRUCTION FSTP ...)
; compiling (DEFINE-INSTRUCTION FSTPD ...)
; compiling (DEFINE-INSTRUCTION FSTPL ...)
; compiling (DEFINE-INSTRUCTION FDECSTP ...)
; compiling (DEFINE-INSTRUCTION FINCSTP ...)
; compiling (DEFINE-INSTRUCTION FFREE ...)
; compiling (DEFINE-INSTRUCTION FABS ...)
; compiling (DEFINE-INSTRUCTION FCHS ...)
; compiling (DEFINE-INSTRUCTION FRNDINT ...)
; compiling (DEFINE-INSTRUCTION FNINIT ...)
; compiling (DEFINE-INSTRUCTION FNSTSW ...)
; compiling (DEFINE-INSTRUCTION FLDCW ...)
; compiling (DEFINE-INSTRUCTION FNSTCW ...)
; compiling (DEFINE-INSTRUCTION FSTENV ...)
; compiling (DEFINE-INSTRUCTION FLDENV ...)
; compiling (DEFINE-INSTRUCTION FSAVE ...)
; compiling (DEFINE-INSTRUCTION FRSTOR ...)
; compiling (DEFINE-INSTRUCTION FNCLEX ...)
; compiling (DEFINE-INSTRUCTION FCOM ...)
; compiling (DEFINE-INSTRUCTION FCOMD ...)
; compiling (DEFINE-INSTRUCTION FCOMPP ...)
; compiling (DEFINE-INSTRUCTION FUCOM ...)
; compiling (DEFINE-INSTRUCTION FTST ...)
; compiling (DEFINE-INSTRUCTION FSQRT ...)
; compiling (DEFINE-INSTRUCTION FSCALE ...)
; compiling (DEFINE-INSTRUCTION FXTRACT ...)
; compiling (DEFINE-INSTRUCTION FSIN ...)
; compiling (DEFINE-INSTRUCTION FCOS ...)
; compiling (DEFINE-INSTRUCTION FPREM1 ...)
; compiling (DEFINE-INSTRUCTION FPREM ...)
; compiling (DEFINE-INSTRUCTION FXAM ...)
; compiling (DEFINE-INSTRUCTION FYL2X ...)
; compiling (DEFINE-INSTRUCTION FYL2XP1 ...)
; compiling (DEFINE-INSTRUCTION F2XM1 ...)
; compiling (DEFINE-INSTRUCTION FPTAN ...)
; compiling (DEFINE-INSTRUCTION FPATAN ...)
; compiling (DEFINE-INSTRUCTION FLDZ ...)
; compiling (DEFINE-INSTRUCTION FLD1 ...)
; compiling (DEFINE-INSTRUCTION FLDPI ...)
; compiling (DEFINE-INSTRUCTION FLDL2T ...)
; compiling (DEFINE-INSTRUCTION FLDL2E ...)
; compiling (DEFINE-INSTRUCTION FLDLG2 ...)
; compiling (DEFINE-INSTRUCTION FLDLN2 ...)
; compiling (DEFINE-INSTRUCTION CPUID ...)
; compiling (DEFINE-INSTRUCTION RDTSC ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/insts.lisp
; in: DEFUN EMIT-HEADER-DATA
;     (SB!C:COMPONENT-HEADER-LENGTH)
; 
; caught STYLE-WARNING:
;   undefined function: COMPONENT-HEADER-LENGTH

; in: DEFUN EMIT-ABSOLUTE-FIXUP
;     (SB!C:COMPONENT-HEADER-LENGTH)
; 
; caught STYLE-WARNING:
;   undefined function: COMPONENT-HEADER-LENGTH

; in: DEFUN SNARF-ERROR-JUNK
;     (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) VECTOR 0
;      LENGTH)
; 
; caught STYLE-WARNING:
;   undefined function: COPY-UB8-FROM-SYSTEM-AREA

; in: DEFUN BREAK-CONTROL
;     (SB!DISASSEM:HANDLE-BREAK-ARGS #'SB!VM::SNARF-ERROR-JUNK STREAM SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:HANDLE-BREAK-ARGS

; in: LAMBDA NIL
;     (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE


; file: /Users/nikodemus/src/sbcl/src/compiler/x86/insts.lisp
; in: SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT
;     (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE

; in: DEFUN BREAK-CONTROL
;     (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:NOTE

; in: LAMBDA NIL
;     (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM T SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-MEM-ACCESS


; file: /Users/nikodemus/src/sbcl/src/compiler/x86/insts.lisp
; in: DEFUN PRINT-REG/MEM
;     (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM NIL SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-MEM-ACCESS

; in: LAMBDA NIL
;     (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM NIL SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-MEM-ACCESS

; 
; caught STYLE-WARNING:
;   5 more uses of undefined function PRINT-MEM-ACCESS

; in: LAMBDA NIL
;     (SB!DISASSEM:READ-SUFFIX (SB!VM::WIDTH-BITS SB!VM::*DEFAULT-ADDRESS-SIZE*)
;      SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX


; file: /Users/nikodemus/src/sbcl/src/compiler/x86/insts.lisp
; in: DEFUN PREFILTER-REG/MEM
;     (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX

; in: LAMBDA NIL
;     (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX

; 
; caught STYLE-WARNING:
;   7 more uses of undefined function SB!DISASSEM:READ-SUFFIX


; file: /Users/nikodemus/src/sbcl/src/compiler/x86/insts.lisp
; in: DEFUN BREAK-CONTROL
;     (SB!VM::WORD-IMM-CODE SB!VM::CHUNK SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: WORD-IMM-CODE

; 
; 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:NOTE PRINT-MEM-ACCESS SB!DISASSEM:READ-SUFFIX WORD-IMM-CODE
; 
; compilation unit finished
;   caught 17 STYLE-WARNING conditions
;   printed 24 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/insts.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/macros.lisp" (written 19 JUL 2008 07:07:52 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFMACRO WITH-TN@FP-TOP ...)
; compiling (DEFMACRO WITH-EMPTY-TN@FP-TOP ...)
; compiling (DEFMACRO MOVE ...)
; compiling (DEFMACRO ALIGN-STACK-POINTER ...)
; compiling (DEFMACRO MAKE-EA-FOR-OBJECT-SLOT ...)
; compiling (DEFMACRO LOADW ...)
; compiling (DEFMACRO STOREW ...)
; compiling (DEFMACRO STOREB ...)
; compiling (DEFMACRO PUSHW ...)
; compiling (DEFMACRO POPW ...)
; compiling (DEFMACRO MAKE-EA-FOR-VECTOR-DATA ...)
; compiling (DEFMACRO LOAD-SYMBOL ...)
; compiling (DEFMACRO MAKE-EA-FOR-SYMBOL-VALUE ...)
; compiling (DEFMACRO LOAD-SYMBOL-VALUE ...)
; compiling (DEFMACRO STORE-SYMBOL-VALUE ...)
; compiling (DEFMACRO LOAD-TL-SYMBOL-VALUE ...)
; compiling (DEFMACRO STORE-TL-SYMBOL-VALUE ...)
; compiling (DEFMACRO LOAD-BINDING-STACK-POINTER ...)
; compiling (DEFMACRO STORE-BINDING-STACK-POINTER ...)
; compiling (DEFMACRO LOAD-TYPE ...)
; compiling (DEFUN ALLOCATION-DYNAMIC-EXTENT ...)
; compiling (DEFUN ALLOCATION-NOTINLINE ...)
; compiling (DEFUN ALLOCATION-INLINE ...)
; compiling (DEFUN ALLOCATION ...)
; compiling (DEFMACRO WITH-FIXED-ALLOCATION ...)
; compiling (DEFUN EMIT-ERROR-BREAK ...)
; compiling (DEFUN ERROR-CALL ...)
; compiling (DEFUN GENERATE-ERROR-CODE ...)
; compiling (DEFMACRO MAYBE-PSEUDO-ATOMIC ...)
; compiling (DEFMACRO PSEUDO-ATOMIC ...)
; compiling (DEFMACRO DEFINE-FULL-COMPARE-AND-SWAP ...)
; compiling (DEFMACRO DEFINE-FULL-REFFER ...)
; compiling (DEFMACRO DEFINE-FULL-REFFER+OFFSET ...)
; compiling (DEFMACRO DEFINE-FULL-SETTER ...)
; compiling (DEFMACRO DEFINE-FULL-SETTER+OFFSET ...)
; compiling (DEF!MACRO WITH-PINNED-OBJECTS ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/early-type-vops.lisp" (written 14 JUL 2005 09: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/early-type-vops.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/src/assembly/target/
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/x86/support.lisp" (written 07 MAR 2006 08:47:38 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (!DEF-VM-SUPPORT-ROUTINE GENERATE-CALL-SEQUENCE ...)
; compiling (!DEF-VM-SUPPORT-ROUTINE GENERATE-RETURN-SEQUENCE ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/assembly/target/support.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/move.lisp" (written 24 APR 2008 07:08:48 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-NUMBER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-CHARACTER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-CONSTANT 5) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-STACK 5) ...)
; compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...)
; compiling (DEFINE-VOP (MOVE) ...)
; compiling (DEFINE-MOVE-VOP MOVE ...)
; compiling (PRIMITIVE-TYPE-VOP MOVE ...)
; compiling (DEFINE-VOP (MOVE-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (ILLEGAL-MOVE) ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD/FIXNUM) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD-C) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD-C ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD/INTEGER) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER ...)
; compiling (DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM ...)
; compiling (DEFINE-VOP (MOVE-FROM-SIGNED) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-SIGNED ...)
; compiling (DEFINE-VOP (MOVE-FROM-UNSIGNED) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED ...)
; compiling (DEFINE-VOP (WORD-MOVE) ...)
; compiling (DEFINE-MOVE-VOP WORD-MOVE ...)
; compiling (DEFINE-VOP (MOVE-WORD-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-WORD-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/move.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/float.lisp" (written 12 APR 2007 05:28:52 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN EA-FOR-SF-DESC ...)
; compiling (DEFUN EA-FOR-DF-DESC ...)
; compiling (DEFUN EA-FOR-CSF-REAL-DESC ...)
; compiling (DEFUN EA-FOR-CSF-IMAG-DESC ...)
; compiling (DEFUN EA-FOR-CDF-REAL-DESC ...)
; compiling (DEFUN EA-FOR-CDF-IMAG-DESC ...)
; compiling (DEFUN EA-FOR-SF-STACK ...)
; compiling (DEFUN EA-FOR-DF-STACK ...)
; compiling (DEFUN MAYBE-FP-WAIT ...)
; compiling (DEFUN EA-FOR-CSF-REAL-STACK ...)
; compiling (DEFUN EA-FOR-CSF-IMAG-STACK ...)
; compiling (DEFUN EA-FOR-CDF-REAL-STACK ...)
; compiling (DEFUN EA-FOR-CDF-IMAG-STACK ...)
; compiling (DEFUN COPY-FP-REG-TO-FR0 ...)
; compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-FP-CONSTANT 2) ...)
; compiling (DEFUN COMPLEX-SINGLE-REG-REAL-TN ...)
; compiling (DEFUN COMPLEX-SINGLE-REG-IMAG-TN ...)
; compiling (DEFUN COMPLEX-DOUBLE-REG-REAL-TN ...)
; compiling (DEFUN COMPLEX-DOUBLE-REG-IMAG-TN ...)
; compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 2) ...)
; compiling (DEFINE-VOP (FLOAT-MOVE) ...)
; compiling (DEFINE-VOP (SINGLE-MOVE FLOAT-MOVE) ...)
; compiling (DEFINE-MOVE-VOP SINGLE-MOVE ...)
; compiling (DEFINE-VOP (DOUBLE-MOVE FLOAT-MOVE) ...)
; compiling (DEFINE-MOVE-VOP DOUBLE-MOVE ...)
; compiling (DEFINE-VOP (COMPLEX-FLOAT-MOVE) ...)
; compiling (DEFINE-VOP (COMPLEX-SINGLE-MOVE COMPLEX-FLOAT-MOVE) ...)
; compiling (DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE ...)
; compiling (DEFINE-VOP (COMPLEX-DOUBLE-MOVE COMPLEX-FLOAT-MOVE) ...)
; compiling (DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE ...)
; compiling (DEFINE-VOP (MOVE-FROM-SINGLE) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/float.lisp
; in: DEFINE-VOP (MOVE-FROM-SINGLE)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::Y SB!VM:SINGLE-FLOAT-WIDETAG SB!VM:SINGLE-FLOAT-SIZE SB!VM::NODE)
;      (SB!VM::WITH-TN@FP-TOP (SB!VM::X)
;                             (SB!ASSEM:INST SB!VM::FST
;                                            (SB!VM::EA-FOR-SF-DESC SB!VM::Y))))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-SF-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

; compiling (DEFINE-MOVE-VOP MOVE-FROM-SINGLE ...)
; compiling (DEFINE-VOP (MOVE-FROM-DOUBLE) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/float.lisp
; in: DEFINE-VOP (MOVE-FROM-DOUBLE)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::Y SB!VM:DOUBLE-FLOAT-WIDETAG SB!VM:DOUBLE-FLOAT-SIZE SB!VM::NODE)
;      (SB!VM::WITH-TN@FP-TOP (SB!VM::X)
;                             (SB!ASSEM:INST SB!VM::FSTD
;                                            (SB!VM::EA-FOR-DF-DESC SB!VM::Y))))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-DF-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

; compiling (DEFINE-MOVE-VOP MOVE-FROM-DOUBLE ...)
; compiling (DEFINE-VOP (MOVE-FROM-FP-CONSTANT) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-FP-CONSTANT ...)
; compiling (DEFINE-VOP (MOVE-TO-SINGLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-SINGLE ...)
; compiling (DEFINE-VOP (MOVE-TO-DOUBLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-DOUBLE ...)
; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/float.lisp
; in: DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::Y SB!VM:COMPLEX-SINGLE-FLOAT-WIDETAG SB!VM:COMPLEX-SINGLE-FLOAT-SIZE
;       SB!VM::NODE)
;      (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X)))
;        (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                               (SB!ASSEM:INST SB!VM::FST
;                                              (SB!VM::EA-FOR-CSF-REAL-DESC
;                                               SB!VM::Y))))
;      (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X)))
;        (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                               (SB!ASSEM:INST SB!VM::FST
;                                              (SB!VM::EA-FOR-CSF-IMAG-DESC
;                                               SB!VM::Y)))))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

;     (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                              (SB!ASSEM:INST SB!VM::FST
;                                             (SB!VM::EA-FOR-CSF-REAL-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-CSF-REAL-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

;     (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                              (SB!ASSEM:INST SB!VM::FST
;                                             (SB!VM::EA-FOR-CSF-REAL-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                              (SB!ASSEM:INST SB!VM::FST
;                                             (SB!VM::EA-FOR-CSF-IMAG-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-CSF-IMAG-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

;     (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                              (SB!ASSEM:INST SB!VM::FST
;                                             (SB!VM::EA-FOR-CSF-IMAG-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...)
; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/float.lisp
; in: DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::Y SB!VM:COMPLEX-DOUBLE-FLOAT-WIDETAG SB!VM:COMPLEX-DOUBLE-FLOAT-SIZE
;       SB!VM::NODE)
;      (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X)))
;        (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                               (SB!ASSEM:INST SB!VM::FSTD
;                                              (SB!VM::EA-FOR-CDF-REAL-DESC
;                                               SB!VM::Y))))
;      (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X)))
;        (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                               (SB!ASSEM:INST SB!VM::FSTD
;                                              (SB!VM::EA-FOR-CDF-IMAG-DESC
;                                               SB!VM::Y)))))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

;     (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                              (SB!ASSEM:INST SB!VM::FSTD
;                                             (SB!VM::EA-FOR-CDF-REAL-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-CDF-REAL-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

;     (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                              (SB!ASSEM:INST SB!VM::FSTD
;                                             (SB!VM::EA-FOR-CDF-REAL-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                              (SB!ASSEM:INST SB!VM::FSTD
;                                             (SB!VM::EA-FOR-CDF-IMAG-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-CDF-IMAG-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

;     (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                              (SB!ASSEM:INST SB!VM::FSTD
;                                             (SB!VM::EA-FOR-CDF-IMAG-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...)
; compiling (FROB MOVE-TO-COMPLEX-SINGLE ...)
; compiling (FROB MOVE-TO-COMPLEX-DOUBLE ...)
; compiling (FROB MOVE-SINGLE-FLOAT-ARG ...)
; compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...)
; compiling (FROB MOVE-COMPLEX-SINGLE-FLOAT-ARG ...)
; compiling (FROB MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (FROB + ...)
; compiling (FROB - ...)
; compiling (FROB * ...)
; compiling (FROB / ...)
; compiling (FROB ABS/SINGLE-FLOAT ...)
; compiling (FROB ABS/DOUBLE-FLOAT ...)
; compiling (FROB %NEGATE/SINGLE-FLOAT ...)
; compiling (FROB %NEGATE/DOUBLE-FLOAT ...)
; compiling (DEFINE-VOP (=/FLOAT) ...)
; compiling (DEFINE-VOP (=/SINGLE-FLOAT =/FLOAT) ...)
; compiling (DEFINE-VOP (=/DOUBLE-FLOAT =/FLOAT) ...)
; compiling (DEFINE-VOP (<SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (<DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (>SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (>DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (FLOAT-TEST) ...)
; compiling (DEFINE-VOP (=0/SINGLE-FLOAT FLOAT-TEST) ...)
; compiling (DEFINE-VOP (=0/DOUBLE-FLOAT FLOAT-TEST) ...)
; compiling (DEFINE-VOP (<0/SINGLE-FLOAT FLOAT-TEST) ...)
; compiling (DEFINE-VOP (<0/DOUBLE-FLOAT FLOAT-TEST) ...)
; compiling (DEFINE-VOP (>0/SINGLE-FLOAT FLOAT-TEST) ...)
; compiling (DEFINE-VOP (>0/DOUBLE-FLOAT FLOAT-TEST) ...)
; compiling (FROB %SINGLE-FLOAT/SIGNED ...)
; compiling (FROB %DOUBLE-FLOAT/SIGNED ...)
; compiling (FROB %SINGLE-FLOAT/UNSIGNED ...)
; compiling (FROB %DOUBLE-FLOAT/UNSIGNED ...)
; compiling (FROB %SINGLE-FLOAT/DOUBLE-FLOAT ...)
; compiling (FROB %DOUBLE-FLOAT/SINGLE-FLOAT ...)
; compiling (FROB %UNARY-TRUNCATE ...)
; compiling (FROB %UNARY-TRUNCATE ...)
; compiling (FROB %UNARY-ROUND ...)
; compiling (FROB %UNARY-ROUND ...)
; 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 (DEF!CONSTANT NPX-ENV-SIZE ...)
; compiling (DEF!CONSTANT NPX-CW-OFFSET ...)
; compiling (DEF!CONSTANT NPX-SW-OFFSET ...)
; compiling (DEFINE-VOP (FLOATING-POINT-MODES) ...)
; compiling (DEFINE-VOP (SET-FLOATING-POINT-MODES) ...)
; compiling (FROB FSIN-QUICK ...)
; compiling (FROB FCOS-QUICK ...)
; compiling (FROB FSQRT ...)
; compiling (DEFINE-VOP (FTAN-QUICK) ...)
; compiling (FROB FSIN ...)
; compiling (FROB FCOS ...)
; compiling (DEFINE-VOP (FTAN) ...)
; compiling (DEFINE-VOP (FEXP) ...)
; compiling (DEFINE-VOP (FEXPM1) ...)
; compiling (DEFINE-VOP (FLOG) ...)
; compiling (DEFINE-VOP (FLOG10) ...)
; compiling (DEFINE-VOP (FPOW) ...)
; compiling (DEFINE-VOP (FSCALEN) ...)
; compiling (DEFINE-VOP (FSCALE) ...)
; compiling (DEFINE-VOP (FLOG1P) ...)
; compiling (DEFINE-VOP (FLOG1P-PENTIUM) ...)
; compiling (DEFINE-VOP (FLOGB) ...)
; compiling (DEFINE-VOP (FATAN) ...)
; compiling (DEFINE-VOP (FATAN2) ...)
; compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (COMPLEX-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE) ...)
; compiling (DEFKNOWN DOUBLE-FLOAT-REG-BIAS ...)
; compiling (DEFINE-VOP (DOUBLE-FLOAT-REG-BIAS) ...)
; compiling (DEFKNOWN SINGLE-FLOAT-REG-BIAS ...)
; compiling (DEFINE-VOP (SINGLE-FLOAT-REG-BIAS) ...); 
; compilation unit finished
;   printed 18 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/float.lisp-obj-tmp written
; compilation finished in 0:00:05
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/sap.lisp" (written 07 APR 2007 11:00:25 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (MOVE-TO-SAP) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-SAP ...)
; compiling (DEFINE-VOP (MOVE-FROM-SAP) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/sap.lisp
; in: DEFINE-VOP (MOVE-FROM-SAP)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::RES SB!VM:SAP-WIDETAG SB!VM:SAP-SIZE SB!VM::NODE)
;      (SB!VM::STOREW SB!VM::SAP SB!VM::RES SB!VM:SAP-POINTER-SLOT
;                     SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::SAP SB!VM::RES SB!VM:SAP-POINTER-SLOT
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::SAP
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RES
; 
; note: deleting unreachable code

; compiling (DEFINE-MOVE-VOP MOVE-FROM-SAP ...)
; compiling (DEFINE-VOP (SAP-MOVE) ...)
; compiling (DEFINE-MOVE-VOP SAP-MOVE ...)
; compiling (DEFINE-VOP (MOVE-SAP-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-SAP-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (SAP-INT) ...)
; compiling (DEFINE-VOP (INT-SAP) ...)
; compiling (DEFINE-VOP (POINTER+) ...)
; compiling (DEFINE-VOP (POINTER-) ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-8-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-8-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-16-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-16-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-32-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-32-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-SAP-WITH-OFFSET ...)
; compiling (DEFINE-VOP (SAP-REF-DOUBLE-WITH-OFFSET) ...)
; compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE-WITH-OFFSET) ...)
; compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE-WITH-OFFSET-C) ...)
; compiling (DEFINE-VOP (SAP-REF-SINGLE-WITH-OFFSET) ...)
; compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE-WITH-OFFSET) ...)
; compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE-WITH-OFFSET-C) ...)
; compiling (DEFINE-VOP (SAP-REF-LONG) ...)
; compiling (DEFINE-VOP (SAP-REF-LONG-C) ...)
; compiling (DEFINE-VOP (VECTOR-SAP) ...)
; compiling (DEFTRANSFORM SAP-REF-64 ...)
; compiling (DEFTRANSFORM SIGNED-SAP-REF-64 ...)
; compiling (DEFTRANSFORM %SET-SAP-REF-64 ...)
; compiling (DEFTRANSFORM %SET-SIGNED-SAP-REF-64 ...); 
; compilation unit finished
;   printed 4 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/sap.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/system.lisp" (written 17 MAY 2008 02:02:29 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (LOWTAG-OF) ...)
; compiling (DEFINE-VOP (WIDETAG-OF) ...)
; compiling (DEFINE-VOP (FUN-SUBTYPE) ...)
; compiling (DEFINE-VOP (SET-FUN-SUBTYPE) ...)
; compiling (DEFINE-VOP (GET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (GET-CLOSURE-LENGTH) ...)
; compiling (DEFINE-VOP (SET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (POINTER-HASH) ...)
; compiling (DEFINE-VOP (MAKE-OTHER-IMMEDIATE-TYPE) ...)
; compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...)
; compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...)
; compiling (DEFKNOWN (SETF BINDING-STACK-POINTER-SAP) ...)
; compiling (DEFINE-VOP (SET-BINDING-STACK-POINTER-SAP) ...)
; compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...)
; compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...)
; compiling (DEFINE-VOP (COMPUTE-FUN) ...)
; compiling (DEFINE-VOP (%SIMPLE-FUN-SELF) ...)
; compiling (DEFINE-SOURCE-TRANSFORM %CLOSURE-FUN ...)
; compiling (DEFINE-VOP (%SET-FUN-SELF) ...)
; compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...)
; compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...)
; compiling (DEFINE-VOP (HALT) ...)
; compiling (DEFKNOWN FLOAT-WAIT ...)
; compiling (DEFINE-VOP (FLOAT-WAIT) ...)
; compiling (DEFKNOWN %READ-CYCLE-COUNTER ...)
; compiling (DEFINE-VOP (%READ-CYCLE-COUNTER) ...)
; compiling (DEFMACRO WITH-CYCLE-COUNTER ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/system.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/char.lisp" (written 10 APR 2007 04:20:25 AM):
; 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 (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) ...)
; compiling (DEFINE-VOP (FAST-CHAR>/CHARACTER/C CHARACTER-COMPARE/C) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/char.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/memory.lisp" (written 12 APR 2007 05:55:07 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (CELL-REF) ...)
; compiling (DEFINE-VOP (CELL-SET) ...)
; compiling (DEFINE-VOP (CELL-SETF) ...)
; compiling (DEFINE-VOP (CELL-SETF-FUN) ...)
; compiling (DEFMACRO DEFINE-CELL-ACCESSORS ...)
; compiling (DEFINE-VOP (CELL-XADD) ...)
; compiling (DEFINE-VOP (SLOT-REF) ...)
; compiling (DEFINE-VOP (SLOT-SET) ...)
; compiling (DEFINE-VOP (SLOT-SET-CONDITIONAL) ...)
; compiling (DEFINE-VOP (SLOT-XADD) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/memory.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/static-fn.lisp" (written 14 JUL 2005 10:13:48 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (STATIC-FUN-TEMPLATE) ...)
; compiling (DEFUN STATIC-FUN-TEMPLATE-NAME ...)
; compiling (DEFUN MOVES ...)
; compiling (DEFUN STATIC-FUN-TEMPLATE-VOP ...)
; compiling (FROB 0 ...)
; compiling (FROB 1 ...)
; compiling (FROB 2 ...)
; compiling (FROB 3 ...)
; compiling (DEFMACRO DEFINE-STATIC-FUN ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/static-fn.lisp
; in:
;      MACROLET ((FROB (NUM-ARGS NUM-RES)
;             (STATIC-FUN-TEMPLATE-VOP (EVAL NUM-ARGS) (EVAL NUM-RES))))
;     (SB!VM::FROB 2 1)
; --> SB!C:DEFINE-VOP PROGN LET LET* SB!ASSEM:ASSEMBLE LET* MACROLET 
; --> SYMBOL-MACROLET LET 
; ==>
;   (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-UNKNOWN-VALUES

;     (SB!VM::FROB 1 1)
; --> SB!C:DEFINE-VOP PROGN LET LET* SB!ASSEM:ASSEMBLE LET* MACROLET 
; --> SYMBOL-MACROLET LET 
; ==>
;   (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-UNKNOWN-VALUES

;     (SB!VM::FROB 0 1)
; --> SB!C:DEFINE-VOP PROGN LET LET* SB!ASSEM:ASSEMBLE LET* MACROLET 
; --> SYMBOL-MACROLET LET 
; ==>
;   (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-UNKNOWN-VALUES

; 
; caught STYLE-WARNING:
;   1 more use of undefined function DEFAULT-UNKNOWN-VALUES

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     DEFAULT-UNKNOWN-VALUES
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/static-fn.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/arith.lisp" (written 24 APR 2008 07:08:48 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-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-BINOP - ...)
; compiling (DEFINE-BINOP LOGAND ...)
; compiling (DEFINE-BINOP LOGIOR ...)
; compiling (DEFINE-BINOP LOGXOR ...)
; compiling (DEFINE-VOP (FAST-+/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-+-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-+/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-LOGAND/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGAND-C/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND-C/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGAND/UNSIGNED-SIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-+-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-+/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-+-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-ASH-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED) ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %LEA ...)
; compiling (DEFOPTIMIZER (%LEA DERIVE-TYPE) ...)
; compiling (DEFUN %LEA ...)
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (%LEA/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (%LEA/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (%LEA/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-CMOV-ASH/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (SIGNED-BYTE-32-LEN) ...)
; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-LEN) ...)
; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-COUNT) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/FIXNUM FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/SIGNED FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/SIGNED FAST-CONDITIONAL/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/UNSIGNED FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...)
; compiling (DEFINE-LOGTEST-VOPS)
; compiling (DEFKNOWN %LOGBITP ...)
; compiling (DEFUN %LOGBITP ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP/SIGNED FAST-CONDITIONAL/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...)
; compiling (DEFINE-CONDITIONAL-VOP < ...)
; compiling (DEFINE-CONDITIONAL-VOP > ...)
; compiling (DEFINE-VOP (FAST-IF-EQL/SIGNED FAST-CONDITIONAL/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-IF-EQL-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-IF-EQL/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-IF-EQL-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-EQL/FIXNUM FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...)
; compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...)
; compiling (DEFINE-VOP (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 (DEFMACRO DEFINE-MOD-BINOP ...)
; compiling (DEFMACRO DEFINE-MOD-BINOP-C ...); in: LAMBDA (#:WHOLE23922 #:ENVIRONMENT23923)
;     (LET ((SB!VM::FUN32 (INTERN (FORMAT NIL "~S-MOD32" SB!VM::NAME)))
;           (SB!VM::VOPU
;            (INTERN (FORMAT NIL "FAST-~S/UNSIGNED=>UNSIGNED" SB!VM::NAME)))
;           (SB!VM::VOPCU
;            (INTERN (FORMAT NIL "FAST-~S-C/UNSIGNED=>UNSIGNED" SB!VM::NAME)))
;           (SB!VM::VOPF
;            (INTERN (FORMAT NIL "FAST-~S/FIXNUM=>FIXNUM" SB!VM::NAME)))
;           (SB!VM::VOPCF
;            (INTERN (FORMAT NIL "FAST-~S-C/FIXNUM=>FIXNUM" SB!VM::NAME)))
;           (SB!VM::VOP32U
;            (INTERN (FORMAT NIL "FAST-~S-MOD32/WORD=>UNSIGNED" SB!VM::NAME)))
;           (SB!VM::VOP32F
;            (INTERN (FORMAT NIL "FAST-~S-MOD32/FIXNUM=>FIXNUM" SB!VM::NAME)))
;           (SB!VM::VOP32CU
;            (INTERN (FORMAT NIL "FAST-~S-MOD32-C/WORD=>UNSIGNED" SB!VM::NAME)))
;           (SB!VM::VOP32CF
;            (INTERN (FORMAT NIL "FAST-~S-MOD32-C/FIXNUM=>FIXNUM" SB!VM::NAME)))
;           (SB!VM::SFUN30 (INTERN (FORMAT NIL "~S-SMOD30" SB!VM::NAME)))
;           (SB!VM::SVOP30F
;            (INTERN (FORMAT NIL "FAST-~S-SMOD30/FIXNUM=>FIXNUM" SB!VM::NAME)))
;           (SB!VM::SVOP30CF
;            (INTERN (FORMAT NIL "FAST-~S-SMOD30-C/FIXNUM=>FIXNUM" SB!VM::NAME))))
;       (SB!IMPL::BACKQ-LIST* 'PROGN
;                             (SB!IMPL::BACKQ-LIST* 'SB!C:DEFINE-MODULAR-FUN
;                                                   SB!VM::FUN32
;                                                   '(SB!VM::X SB!VM::Y)
;                                                   SB!VM::NAME
;                                                   '(:UNTAGGED NIL 32))
;                             (SB!IMPL::BACKQ-LIST* 'SB!C:DEFINE-MODULAR-FUN
;                                                   SB!VM::SFUN30
;                                                   '(SB!VM::X SB!VM::Y)
;                                                   SB!VM::NAME '(:TAGGED T 30))
;                             (SB!IMPL::BACKQ-LIST 'SB!VM::DEFINE-MOD-BINOP
;                                                  (SB!IMPL::BACKQ-LIST
;                                                   SB!VM::VOP32U SB!VM::VOPU)
;                                                  SB!VM::FUN32)
;                             (SB!IMPL::BACKQ-LIST 'SB!C:DEFINE-VOP
;                                                  (SB!IMPL::BACKQ-LIST
;                                                   SB!VM::VOP32F SB!VM::VOPF)
;                                                  (SB!IMPL::BACKQ-LIST ':TRANSLATE
;                                                                       SB!VM::FUN32))
;                             (SB!IMPL::BACKQ-LIST 'SB!C:DEFINE-VOP
;                                                  (SB!IMPL::BACKQ-LIST
;                                                   SB!VM::SVOP30F SB!VM::VOPF)
;                                                  (SB!IMPL::BACKQ-LIST ':TRANSLATE
;                                                                       SB!VM::SFUN30))
;                             (WHEN SB!VM::-C-P
;                               (SB!IMPL::BACKQ-LIST
;                                (SB!IMPL::BACKQ-LIST 'SB!VM::DEFINE-MOD-BINOP-C #
;                                                     SB!VM::FUN32)
;                                (SB!IMPL::BACKQ-LIST 'SB!C:DEFINE-VOP # #)))))
; 
; caught STYLE-WARNING:
;   The variable VOP32CF is defined but never used.

; compiling (DEF + ...)
; compiling (DEF - ...)
; compiling (DEF * ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32/UNSIGNED=>UNSIGNED FAST-ASH-LEFT/UNSIGNED=>UNSIGNED))
; compiling (DEFTRANSFORM ASH-LEFT-MOD32 ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-SMOD30-C/FIXNUM=>FIXNUM FAST-ASH-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-SMOD30/FIXNUM=>FIXNUM FAST-ASH-LEFT/FIXNUM=>FIXNUM))
; compiling (DEFTRANSFORM ASH-LEFT-SMOD30 ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN SB!VM::%LEA-MOD32 ...)
; compiling (DEFKNOWN SB!VM::%LEA-SMOD30 ...)
; compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...)
; compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...)
; compiling (DEFUN SB!VM::%LEA-MOD32 ...)
; compiling (DEFUN SB!VM::%LEA-SMOD30 ...)
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (%LEA-MOD32/UNSIGNED=>UNSIGNED %LEA/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (%LEA-SMOD30/FIXNUM=>FIXNUM %LEA/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-MODULAR-FUN LOGNOT-MOD32 ...)
; compiling (DEFINE-VOP (LOGNOT-MOD32/WORD=>UNSIGNED) ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGANDC1 ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGANDC2 ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGORC1 ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGORC2 ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGNOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGNAND ...)
; compiling (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...)
; compiling (DEFINE-FULL-REFFER BIGNUM-REF ...)
; compiling (DEFINE-FULL-REFFER+OFFSET BIGNUM-REF-WITH-OFFSET ...)
; compiling (DEFINE-FULL-SETTER BIGNUM-SET ...)
; compiling (DEFINE-VOP (DIGIT-0-OR-PLUS) ...)
; compiling (DEFINE-VOP (ADD-W/CARRY) ...)
; compiling (DEFINE-VOP (SUB-W/BORROW) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT) ...)
; compiling (DEFINE-VOP (BIGNUM-LOGNOT LOGNOT-MOD32/WORD=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FIXNUM-TO-DIGIT) ...)
; compiling (DEFINE-VOP (BIGNUM-FLOOR) ...)
; compiling (DEFINE-VOP (SIGNIFY-DIGIT) ...)
; compiling (DEFINE-VOP (DIGIT-ASHR) ...)
; compiling (DEFINE-VOP (DIGIT-ASHR/C) ...)
; compiling (DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR) ...)
; compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...)
; compiling (DEFKNOWN RANDOM-MT19937 ...)
; compiling (DEFINE-VOP (RANDOM-MT19937) ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN MASK-RESULT ...)
; compiling (DEFUN BASIC-DECOMPOSE-MULTIPLICATION ...)
; compiling (DEFUN DECOMPOSE-MULTIPLICATION ...)
; compiling (DEFUN OPTIMIZE-MULTIPLY ...)
; compiling (DEFUN *-TRANSFORMER ...)
; compiling (DEFTRANSFORM * ...)
; compiling (DEFTRANSFORM SB!VM::*-MOD32 ...)
; compiling (DEFTRANSFORM * ...)
; compiling (DEFTRANSFORM SB!VM::*-SMOD30 ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/arith.lisp
; in: DEFUN SB!VM::%LEA-SMOD30
;     (SB!C::MASK-SIGNED-FIELD 30
;      (SB!KERNEL:%LEA SB!C::BASE SB!INT:INDEX SB!C::SCALE SB!C::DISP))
; 
; caught STYLE-WARNING:
;   undefined function: MASK-SIGNED-FIELD

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     MASK-SIGNED-FIELD
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/arith.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/Users/nikodemus/src/sbcl/src/code/cross-modular.lisp" (written 07 MAR 2008 02:26:41 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN MASK-SIGNED-FIELD ...)
; compiling (DEFUN SB!VM::+-MOD32 ...)
; compiling (DEFUN SB!VM::--MOD32 ...)
; compiling (DEFUN SB!VM::*-MOD32 ...)
; compiling (DEFUN SB!VM::LOGNOT-MOD32 ...)
; compiling (DEFUN SB!VM::+-SMOD30 ...)
; compiling (DEFUN SB!VM::--SMOD30 ...)
; compiling (DEFUN SB!VM::*-SMOD30 ...)
; compiling (DEFUN SB!VM::ASH-LEFT-MOD32 ...)
; compiling (DEFUN SB!VM::ASH-LEFT-SMOD30 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cross-modular.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/subprim.lisp" (written 24 APR 2008 07:08:48 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (LENGTH/LIST) ...)
; compiling (DEFINE-VOP (FAST-LENGTH/LIST) ...)
; compiling (DEFINE-STATIC-FUN LENGTH ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/subprim.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/debug.lisp" (written 28 JUN 2007 05:24:49 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (DEBUG-CUR-SP) ...)
; compiling (DEFINE-VOP (DEBUG-CUR-FP) ...)
; compiling (DEFINE-VOP (READ-CONTROL-STACK) ...)
; compiling (DEFINE-VOP (READ-CONTROL-STACK-C) ...)
; compiling (DEFINE-VOP (WRITE-CONTROL-STACK) ...)
; compiling (DEFINE-VOP (WRITE-CONTROL-STACK-C) ...)
; compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (CODE-FROM-FUNCTION CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (%MAKE-LISP-OBJ) ...)
; compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...)
; compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/debug.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/early-aliencomp.lisp" (written 16 JAN 2006 04:45:46 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %ALIEN-FUNCALL ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/early-aliencomp.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/c-call.lisp" (written 17 MAR 2008 07:13:41 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN MY-MAKE-WIRED-TN ...)
; compiling (DEFSTRUCT (ARG-STATE #) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...)
; compiling (DEFSTRUCT (RESULT-STATE #) ...)
; compiling (DEFUN RESULT-REG-OFFSET ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...)
; compiling (!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 (SET-FPU-WORD-FOR-C) ...)
; compiling (DEFINE-VOP (SET-FPU-WORD-FOR-LISP) ...)
; compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...)
; compiling (DEFINE-VOP (ALLOC-ALIEN-STACK-SPACE) ...)
; compiling (DEFINE-VOP (DEALLOC-ALIEN-STACK-SPACE) ...)
; compiling (DEFINE-VOP (TOUCH-OBJECT) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/c-call.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/cell.lisp" (written 29 MAY 2008 07:11:09 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (SLOT) ...)
; compiling (DEFINE-VOP (SET-SLOT) ...)
; compiling (DEFINE-VOP (COMPARE-AND-SWAP-SLOT) ...)
; compiling (DEFINE-VOP (%COMPARE-AND-SWAP-SYMBOL-VALUE) ...)
; compiling (DEFINE-VOP (SET CELL-SET) ...)
; compiling (DEFINE-VOP (SYMBOL-VALUE) ...)
; compiling (DEFINE-VOP (FAST-SYMBOL-VALUE CELL-REF) ...)
; compiling (DEFKNOWN LOCKED-SYMBOL-GLOBAL-VALUE-ADD ...)
; compiling (DEFINE-VOP (LOCKED-SYMBOL-GLOBAL-VALUE-ADD) ...)
; compiling (DEFINE-VOP (BOUNDP) ...)
; compiling (DEFINE-VOP (SYMBOL-HASH) ...)
; compiling (DEFINE-VOP (FDEFN-FUN CELL-REF) ...)
; compiling (DEFINE-VOP (SAFE-FDEFN-FUN) ...)
; compiling (DEFINE-VOP (SET-FDEFN-FUN) ...)
; compiling (DEFINE-VOP (FDEFN-MAKUNBOUND) ...)
; compiling (DEFINE-VOP (BIND) ...)
; compiling (DEFINE-VOP (UNBIND) ...)
; compiling (DEFINE-VOP (UNBIND-TO-HERE) ...)
; compiling (DEFINE-VOP (BIND-SENTINEL) ...)
; compiling (DEFINE-VOP (UNBIND-SENTINEL) ...)
; compiling (DEFINE-FULL-REFFER CLOSURE-INDEX-REF ...)
; compiling (DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...)
; compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...)
; compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...)
; compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...)
; compiling (DEFINE-VOP (INSTANCE-LENGTH) ...)
; compiling (DEFINE-FULL-REFFER INSTANCE-INDEX-REF ...)
; compiling (DEFINE-FULL-SETTER INSTANCE-INDEX-SET ...)
; compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-INSTANCE-REF ...)
; compiling (DEFINE-FULL-REFFER CODE-HEADER-REF ...)
; compiling (DEFINE-FULL-SETTER CODE-HEADER-SET ...)
; compiling (DEFUN MAKE-EA-FOR-RAW-SLOT ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-REF/WORD) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-SET/WORD) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/WORD) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-REF/SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-SET/SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-REF/DOUBLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-SET/DOUBLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/DOUBLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-DOUBLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-DOUBLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-DOUBLE) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/cell.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/values.lisp" (written 24 APR 2008 07:08:48 AM):
; 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) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/values.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/alloc.lisp" (written 19 JUL 2008 07:07:52 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFOPTIMIZER (CONS STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...)
; compiling (DEFINE-VOP (LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-HEAP) ...)
; compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-STACK) ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE) ...)
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (ALLOCATE-CODE-OBJECT) ...)
; compiling (DEFINE-VOP (MAKE-FDEFN) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/alloc.lisp
; in: DEFINE-VOP (MAKE-FDEFN)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::RESULT SB!VM:FDEFN-WIDETAG SB!VM:FDEFN-SIZE SB!VM::NODE)
;      (SB!VM::STOREW SB!VM::NAME SB!VM::RESULT SB!VM:FDEFN-NAME-SLOT
;                     SB!VM:OTHER-POINTER-LOWTAG)
;      (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::RESULT SB!VM:FDEFN-FUN-SLOT
;                     SB!VM:OTHER-POINTER-LOWTAG)
;      (SB!VM::STOREW (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!VM::RESULT
;                     SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::NAME SB!VM::RESULT SB!VM:FDEFN-NAME-SLOT
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::NAME
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RESULT
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::RESULT SB!VM:FDEFN-FUN-SLOT
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::NIL-VALUE
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RESULT
; 
; note: deleting unreachable code

;     (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN)
; ==>
;   "undefined_tramp"
; 
; note: deleting unreachable code

;     (SB!VM::STOREW (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!VM::RESULT
;                    SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG)
; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RESULT
; 
; note: deleting unreachable code

; compiling (DEFINE-VOP (MAKE-CLOSURE) ...)
; compiling (DEFINE-VOP (MAKE-VALUE-CELL) ...)
; compiling (DEFINE-VOP (MAKE-UNBOUND-MARKER) ...)
; compiling (DEFINE-VOP (MAKE-FUNCALLABLE-INSTANCE-TRAMP) ...)
; compiling (DEFINE-VOP (FIXED-ALLOC) ...)
; compiling (DEFINE-VOP (VAR-ALLOC) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/alloc.lisp
; in: DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE)
;     (SB!C::ANNOTATE-1-VALUE-LVAR SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::ANNOTATE-1-VALUE-LVAR

;     (SB!C::IS-OK-TEMPLATE-USE SB!C::TEMPLATE SB!C:CALL
;      (SB!C::LTN-POLICY-SAFE-P SB!C::LTN-POLICY))
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::IS-OK-TEMPLATE-USE

;     (SB!C::LTN-DEFAULT-CALL SB!C:CALL)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::LTN-DEFAULT-CALL

;     (SB!C::LTN-POLICY-SAFE-P SB!C::LTN-POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::LTN-POLICY-SAFE-P

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!C::ANNOTATE-1-VALUE-LVAR SB!C::IS-OK-TEMPLATE-USE SB!C::LTN-DEFAULT-CALL SB!C::LTN-POLICY-SAFE-P
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions
;   printed 8 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/alloc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/call.lisp" (written 19 JUL 2008 07:07:52 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 (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 (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) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/call.lisp
; in: DEFINE-VOP (COPY-MORE-ARG)
;     (SB!ASSEM:INST SB!VM::TEST SB!VM::ECX-TN SB!VM::ECX-TN)
; --> SB!VM::TEST-INST-EMITTER 
; ==>
;   SB!VM::ECX-TN
; 
; note: deleting unreachable code

; compiling (DEFINE-VOP (MORE-KW-ARG) ...)
; compiling (DEFINE-VOP (MORE-ARG) ...)
; compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...)
; compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...)
; compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...)
; compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...)
; compiling (DEF ARG-COUNT-ERROR ...)
; compiling (DEF TYPE-CHECK-ERROR ...)
; compiling (DEF LAYOUT-INVALID-ERROR ...)
; compiling (DEF ODD-KEY-ARGS-ERROR ...)
; compiling (DEF UNKNOWN-KEY-ARG-ERROR ...)
; compiling (DEF NIL-FUN-RETURNED-ERROR ...)
; compiling (DEFUN EMIT-SINGLE-STEP-TEST ...)
; compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/call.lisp
; 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

; in: DEFINE-VOP (COPY-MORE-ARG)
;     (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; in: DEFINE-VOP (ALLOCATE-FRAME)
;     (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; in: DEFINE-VOP (XEP-ALLOCATE-FRAME)
;     (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     CALLEE-RETURN-PC-TN SB-ALLOCATED-SIZE
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/call.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/nlx.lisp" (written 05 MAR 2008 05:11:19 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 (DEFUN CATCH-BLOCK-EA ...)
; compiling (DEFINE-VOP (SAVE-DYNAMIC-STATE) ...)
; compiling (DEFINE-VOP (RESTORE-DYNAMIC-STATE) ...)
; compiling (DEFINE-VOP (CURRENT-STACK-POINTER) ...)
; compiling (DEFINE-VOP (CURRENT-BINDING-POINTER) ...)
; compiling (DEFINE-VOP (MAKE-UNWIND-BLOCK) ...)
; compiling (DEFINE-VOP (MAKE-CATCH-BLOCK) ...)
; compiling (DEFINE-VOP (SET-UNWIND-PROTECT) ...)
; compiling (DEFINE-VOP (UNLINK-CATCH-BLOCK) ...)
; compiling (DEFINE-VOP (UNLINK-UNWIND-PROTECT) ...)
; compiling (DEFINE-VOP (NLX-ENTRY) ...)
; compiling (DEFINE-VOP (NLX-ENTRY-MULTIPLE) ...)
; compiling (DEFINE-VOP (UWP-ENTRY) ...)
; compiling (DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/nlx.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/late-nlx.lisp" (written 14 JUL 2005 09:35:35 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-DYNAMIC-STATE-TNS ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/late-nlx.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/show.lisp" (written 06 MAY 2007 08:56:28 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (PRINT) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/show.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/array.lisp" (written 24 APR 2008 07:08:48 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...)
; compiling (DEFINE-FULL-REFFER %ARRAY-DIMENSION ...)
; compiling (DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION ...)
; compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...)
; compiling (DEFINE-VOP (CHECK-BOUND) ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-30 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-29 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...)
; compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-SVREF ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2 ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4 ...)
; compiling (DEFUN MAKE-EA-FOR-FLOAT-REF ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-8 ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-16 ...)
; compiling (DEFINE-FULL-REFFER+OFFSET RAW-BITS-WITH-OFFSET ...)
; compiling (DEFINE-FULL-SETTER+OFFSET SET-RAW-BITS-WITH-OFFSET ...)
; compiling (DEFINE-VOP (GET-VECTOR-SUBTYPE GET-HEADER-DATA))
; compiling (DEFINE-VOP (SET-VECTOR-SUBTYPE SET-HEADER-DATA))

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/array.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/array.lisp" (written 08 MAY 2008 06:05:22 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-NIL) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-NIL) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/pred.lisp" (written 17 APR 2007 08:19:46 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (BRANCH) ...)
; compiling (DEFINE-VOP (IF-EQ) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/pred.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/type-vops.lisp" (written 24 APR 2008 07:08:48 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN GENERATE-FIXNUM-TEST ...)
; compiling (DEFUN %TEST-FIXNUM ...)
; compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...)
; compiling (DEFUN %TEST-IMMEDIATE ...)
; compiling (DEFUN %TEST-LOWTAG ...)
; compiling (DEFUN %TEST-HEADERS ...)
; compiling (DEFINE-VOP (CHECK-TYPE) ...)
; compiling (DEFINE-VOP (TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (SIMPLE-CHECK-TYPE) ...)
; compiling (DEFINE-VOP (SIMPLE-TYPE-PREDICATE) ...)
; compiling (DEFUN COST-TO-TEST-TYPES ...)
; compiling (DEFMACRO !DEFINE-TYPE-VOPS ...)
; compiling (DEFINE-VOP (FIXNUMP/UNSIGNED-BYTE-32 SIMPLE-TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (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) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/target/type-vops.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/late-type-vops.lisp" (written 17 APR 2007 07:19:36 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (!DEFINE-TYPE-VOPS FIXNUMP ...)
; compiling (!DEFINE-TYPE-VOPS FUNCTIONP ...)
; compiling (!DEFINE-TYPE-VOPS LISTP ...)
; compiling (!DEFINE-TYPE-VOPS %INSTANCEP ...)
; compiling (!DEFINE-TYPE-VOPS %OTHER-POINTER-P ...)
; compiling (!DEFINE-TYPE-VOPS BIGNUMP ...)
; compiling (!DEFINE-TYPE-VOPS RATIOP ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEXP ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS SINGLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS DOUBLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS SIMPLE-STRING-P ...)
; compiling (DEFINE-SIMPLE-ARRAY-TYPE-VOPS)
; compiling (!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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/late-type-vops.lisp-obj-tmp written
; compilation finished in 0:00:02
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/assembly/
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/assembly/target/
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/x86/assem-rtns.lisp" (written 24 APR 2008 07:08:48 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/assembly/target/assem-rtns.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/x86/array.lisp" (written 16 APR 2005 09:18:31 AM):
; compiling (IN-PACKAGE "SB!VM")

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/assembly/target/array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/x86/arith.lisp" (written 14 APR 2007 06:36:20 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-GENERIC-ARITH-ROUTINE (+ 10) ...)
; compiling (DEFINE-GENERIC-ARITH-ROUTINE (- 10) ...)
; compiling (DEFINE-GENERIC-ARITH-ROUTINE (* 30) ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-NEGATE # ...) ...)
; compiling (DEFINE-COND-ASSEM-RTN GENERIC-< ...)
; compiling (DEFINE-COND-ASSEM-RTN GENERIC-> ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-EQL # ...) ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-= # ...) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/assembly/target/arith.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/x86/alloc.lisp" (written 08 MAY 2008 10:14:02 AM):
; compiling (IN-PACKAGE "SB!VM")

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/assembly/target/alloc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/pseudo-vops.lisp" (written 21 OCT 2000 02:30:34 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...)
; compiling (DEFINE-VOP (MOVE-OPERAND) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/pseudo-vops.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/aliencomp.lisp" (written 13 APR 2008 06:48:19 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 DEPORT-ALLOC ...)
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/compiler/aliencomp.lisp
; in: DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE)
;     (SB!C::ANNOTATE-ORDINARY-LVAR FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: ANNOTATE-ORDINARY-LVAR

; in: DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT)
;     (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TN

;     (SB!C::MOVE-LVAR-RESULT SB!C:CALL BLOCK SB!C::RESULT-TNS SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: MOVE-LVAR-RESULT

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ANNOTATE-ORDINARY-LVAR LVAR-TN MOVE-LVAR-RESULT
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/aliencomp.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ltv.lisp" (written 03 MAY 2007 06:27:57 AM):
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ltv.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/gtn.lisp" (written 05 JUN 2007 02:42:54 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/gtn.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ltn.lisp" (written 04 JUN 2008 03:39:41 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 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ltn.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/stack.lisp" (written 20 JUL 2008 10:52:08 AM):
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/stack.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/control.lisp" (written 14 JUL 2005 09: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/control.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/entry.lisp" (written 05 DEC 2006 06:35:56 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN ENTRY-ANALYZE ...)
; compiling (DEFUN COMPUTE-ENTRY-INFO ...)
; compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/entry.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir2tran.lisp" (written 04 JUN 2008 03:39:41 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN EMIT-MOVE ...)
; compiling (DEFUN EMIT-STEP-P ...)
; compiling (DEFUN TYPE-CHECK-TEMPLATE ...)
; compiling (DEFUN EMIT-TYPE-CHECK ...)
; compiling (DEFEVENT MAKE-VALUE-CELL-EVENT ...)
; compiling (DEFUN EMIT-MAKE-VALUE-CELL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-IN-PHYSENV ...)
; file: /Users/nikodemus/src/sbcl/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!C::FIND-IN-PHYSENV
;                    (SB-INT:NAMED-LAMBDA SB!C::FIND-IN-PHYSENV
;                                         (SB!C::THING SB!C::PHYSENV)
;                                         (BLOCK SB!C::FIND-IN-PHYSENV
;                                           (OR (CDR #)
;                                               (ETYPECASE SB!C::THING # # #)
;                                               (SB!INT:BUG
;                                                "~@<~2I~_~S ~_not found in ~_~S~:>"
;                                                SB!C::THING SB!C::PHYSENV))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; note: type assertion too complex to check:
;  (VALUES TN &REST T).

; compiling (DEFUN CONSTANT-TN ...)
; compiling (DEFUN LEAF-TN ...)
; compiling (DEFUN EMIT-CONSTANT ...)
; compiling (DEFUN 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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/ir2tran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-ir2tran.lisp" (written 23 JUN 2008 03:55:49 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF-ALLOC %MAKE-STRUCTURE-INSTANCE ...)
; compiling (DEFOPTIMIZER (%MAKE-STRUCTURE-INSTANCE STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-CASSER ...)
; compiling (DEFUN EMIT-INITS ...)
; compiling (DEFUN EMIT-FIXED-ALLOC ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-STRUCTURE-ALLOCATION ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/vm-ir2tran.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/copyprop.lisp" (written 10 SEP 2007 03:37:00 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/copyprop.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/represent.lisp" (written 14 JUL 2005 09:57:01 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN GET-OPERAND-INFO ...)
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/represent.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/pack.lisp" (written 07 APR 2007 04:17:36 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: /Users/nikodemus/src/sbcl/src/compiler/pack.lisp
; in: DEFUN UNPACK-FOR-LOAD-TN
;     (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

;     (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

; 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 ...)
; 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: /Users/nikodemus/src/sbcl/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 6 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/pack.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/codegen.lisp" (written 14 JUL 2005 09: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/codegen.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/debug.lisp" (written 25 JAN 2007 05:51:34 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: /Users/nikodemus/src/sbcl/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 LOCALLY SB-C::%FUNCALL 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G1659 'SB!C::CONTINUATION)
; 
; caught STYLE-WARNING:
;   undefined type: CONTINUATION

; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (TYPEP #:G1659 'SB!C::CONTINUATION)
; 
; caught STYLE-WARNING:
;   undefined type: CONTINUATION

; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB!C::PRINT-CONTINUATION
;                    (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)))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; 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


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/debug.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/format-time.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/format-time.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/error.lisp" (written 09 JUL 2008 12:31:53 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 SYSTEM-CONDITION ...)
; compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...)
; compiling (DEFINE-CONDITION BREAKPOINT-ERROR ...)
; compiling (DEFINE-CONDITION INTERACTIVE-INTERRUPT ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/error.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/macroexpand.lisp" (written 27 SEP 2007 06:50:44 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN SB-XC:SPECIAL-OPERATOR-P ...)
; compiling (DEFVAR SB-XC:*MACROEXPAND-HOOK* ...)
; compiling (DEFUN SB-XC:MACROEXPAND-1 ...)
; compiling (DEFUN SB-XC:MACROEXPAND ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/macroexpand.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-extensions.lisp" (written 04 JUN 2008 03:39:40 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN LIST-WITH-LENGTH-P ...)
; compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...)
; compiling (DEFMACRO COMPARE-AND-SWAP ...)
; compiling (DEF %COMPARE-AND-SWAP-CAR ...)
; compiling (DEF %COMPARE-AND-SWAP-CDR ...)
; compiling (DEF %COMPARE-AND-SWAP-INSTANCE-REF ...)
; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-PLIST ...)
; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-VALUE ...)
; compiling (DEF %COMPARE-AND-SWAP-SVREF ...)
; compiling (DEFUN CALL-HOOKS ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/late-extensions.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-step.lisp" (written 18 SEP 2006 11: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-step.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/parse-defmacro-errors.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/parse-defmacro-errors.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cl-specials.lisp" (written 14 JUL 2005 07: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 #))

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/cl-specials.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/late-proclaim.lisp" (written 30 MAY 2003 01:44:11 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (!COLD-INIT-FORMS (AVER *TYPE-SYSTEM-INITIALIZED*))
; compiling (!COLD-INIT-FORMS (MAPCAR # ...))
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-PROCLAIM-COLD-INIT)

; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/late-proclaim.lisp-obj-tmp written
; compilation finished in 0:00:00
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (CLASSOID) (VALUES SYMBOL &OPTIONAL))>
for CLASSOID-NAME does not match old FTYPE proclamation
#<FUN-TYPE (FUNCTION (CLASSOID) (VALUES T &OPTIONAL))>
; compiling file "/Users/nikodemus/src/sbcl/src/code/defboot.lisp" (written 09 JUL 2008 12:31:53 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-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 #))

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/defboot.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/destructuring-bind.lisp" (written 14 AUG 2007 10:52:21 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/destructuring-bind.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-setf.lisp" (written 29 AUG 2007 06:13:32 PM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/early-setf.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/macros.lisp" (written 01 FEB 2008 01:15:34 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY ASSERT ...)
; compiling (DEFUN ASSERT-PROMPT ...)
; compiling (DEFMACRO-MUNDANELY CHECK-TYPE ...)
; compiling (DEFMACRO-MUNDANELY DEFINE-SYMBOL-MACRO ...)
; compiling (DEFUN SB!C::%DEFINE-SYMBOL-MACRO ...)
; compiling (DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO ...)
; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...)
; compiling (DEF (:COMPILE-TOPLEVEL) ...)
; compiling (DEFINE-CONDITION DUPLICATE-CASE-KEY-WARNING ...)
; compiling (DEFUN CASE-BODY ...)
; compiling (DEFUN CASE-BODY-AUX ...)
; compiling (DEFMACRO-MUNDANELY CASE ...)
; compiling (DEFMACRO-MUNDANELY CCASE ...)
; compiling (DEFMACRO-MUNDANELY ECASE ...)
; compiling (DEFMACRO-MUNDANELY TYPECASE ...)
; compiling (DEFMACRO-MUNDANELY CTYPECASE ...)
; compiling (DEFMACRO-MUNDANELY ETYPECASE ...)
; compiling (DEFMACRO-MUNDANELY WITH-OPEN-STREAM ...)
; compiling (DEFMACRO-MUNDANELY WITH-OPEN-FILE ...)
; compiling (DEFMACRO-MUNDANELY WITH-INPUT-FROM-STRING ...)
; compiling (DEFMACRO-MUNDANELY WITH-OUTPUT-TO-STRING ...)
; compiling (DEFMACRO-MUNDANELY NTH-VALUE ...)
; compiling (DEFMACRO-MUNDANELY DECLAIM ...)
; compiling (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...)
; compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/loop.lisp" (written 18 MAR 2007 02:06:52 AM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/loop.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-setf.lisp" (written 14 JUL 2005 07:30:35 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY PSETF ...)
; compiling (DEFMACRO-MUNDANELY ROTATEF ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/late-setf.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-format.lisp" (written 05 MAR 2007 01:52:41 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/late-format.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/sxhash.lisp" (written 14 APR 2007 03:28:15 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: /Users/nikodemus/src/sbcl/src/code/sxhash.lisp
; in: DEFTRANSFORM SXHASH
;     (SB!C::LVAR-VALUE SB!C::X)
; 
; note: deleting unreachable code

; compiling (DEFTRANSFORM SXHASH ...)
; file: /Users/nikodemus/src/sbcl/src/code/sxhash.lisp
; in: DEFTRANSFORM SXHASH
;     (SB!C::LVAR-VALUE SB!C::X)
; ==>
;   SB!C::X
; 
; note: deleting unreachable code

; compiling (DEFTRANSFORM PSXHASH ...)
; compiling (DEFTRANSFORM PSXHASH ...); 
; compilation unit finished
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/sxhash.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/signal.lisp" (written 28 JAN 2008 05:11:00 PM):
; compiling (IN-PACKAGE "SB!UNIX")
; compiling (DEFVAR *INTERRUPTS-ENABLED* ...)
; compiling (DEFVAR *INTERRUPT-PENDING* ...)
; compiling (DEFVAR *ALLOW-WITH-INTERRUPTS* ...)
; compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...)
; compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...)
; compiling (DEFMACRO ALLOW-WITH-INTERRUPTS ...)
; compiling (DEFMACRO WITH-LOCAL-INTERRUPTS ...)
; compiling (DEFUN %CHECK-INTERRUPTS ...)
; file: /Users/nikodemus/src/sbcl/src/code/signal.lisp
; in: DEFUN %CHECK-INTERRUPTS
;     (SB!UNIX::RECEIVE-PENDING-INTERRUPT)
; 
; caught STYLE-WARNING:
;   undefined function: RECEIVE-PENDING-INTERRUPT

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     RECEIVE-PENDING-INTERRUPT
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-host/src/code/signal.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-defbangmethod.lisp" (written 21 OCT 2000 02:30:33 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY DEF!METHOD ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/code/late-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: /Users/nikodemus/src/sbcl/obj/from-host/src/pcl/
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/walk.lisp" (written 04 JUN 2008 03:39:41 PM):
; compiling (IN-PACKAGE "SB!WALKER")
; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT*)
; compiling (/SHOW "walk.lisp 108")
; compiling (DEFMACRO WITH-AUGMENTED-ENVIRONMENT ...)
; compiling (DEFVAR *BOGO-FUN-MAGIC-TAG* ...)
; compiling (DEFUN WALKER-INFO-TO-BOGO-FUN ...)
; compiling (DEFUN BOGO-FUN-TO-WALKER-INFO ...)
; compiling (DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL ...)
; compiling (DEFUN ENVIRONMENT-FUNCTION ...)
; compiling (DEFUN ENVIRONMENT-MACRO ...)
; compiling (DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT ...)
; compiling (DEFUN CONVERT-MACRO-TO-LAMBDA ...)
; compiling (DEFMACRO WALKER-ENVIRONMENT-BIND ...)
; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT* ...)
; compiling (DEFUN ENV-LOCK ...)
; compiling (DEFUN WALKER-ENVIRONMENT-BIND-1 ...)
; compiling (DEFUN ENV-WALK-FUNCTION ...)
; compiling (DEFUN ENV-WALK-FORM ...)
; compiling (DEFUN ENV-DECLARATIONS ...)
; compiling (DEFUN ENV-LEXICAL-VARIABLES ...)
; compiling (DEFUN NOTE-DECLARATION ...)
; compiling (DEFUN NOTE-LEXICAL-BINDING ...)
; compiling (DEFUN VAR-LEXICAL-P ...)
; compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...)
; compiling (DEFUN WALKED-VAR-DECLARATION-P ...)
; compiling (DEFUN %VAR-DECLARATION ...)
; compiling (DEFUN VAR-DECLARATION ...)
; compiling (DEFUN VAR-SPECIAL-P ...)
; compiling (DEFUN VAR-GLOBALLY-SPECIAL-P ...)
; compiling (DEFMACRO GET-WALKER-TEMPLATE-INTERNAL ...)
; compiling (DEFMACRO DEFINE-WALKER-TEMPLATE ...)
; compiling (DEFUN GET-WALKER-TEMPLATE ...)
; compiling (DEFINE-WALKER-TEMPLATE BLOCK ...)
; compiling (DEFINE-WALKER-TEMPLATE CATCH ...)
; compiling (DEFINE-WALKER-TEMPLATE DECLARE ...)
; compiling (DEFINE-WALKER-TEMPLATE EVAL-WHEN ...)
; compiling (DEFINE-WALKER-TEMPLATE FLET ...)
; compiling (DEFINE-WALKER-TEMPLATE FUNCTION ...)
; compiling (DEFINE-WALKER-TEMPLATE GO ...)
; compiling (DEFINE-WALKER-TEMPLATE IF ...)
; compiling (DEFINE-WALKER-TEMPLATE LABELS ...)
; compiling (DEFINE-WALKER-TEMPLATE LAMBDA ...)
; compiling (DEFINE-WALKER-TEMPLATE LET ...)
; compiling (DEFINE-WALKER-TEMPLATE LET* ...)
; compiling (DEFINE-WALKER-TEMPLATE 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-host/src/pcl/walk.lisp-obj-tmp written
; compilation finished in 0:00:00
* ; in: LAMBDA NIL
;     #'(LAMBDA (&OPTIONAL (SB!KERNEL::YES) (SB!KERNEL::WIN) &REST #:G935)
;         (DECLARE (IGNORE #:G935))
;         (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 #:G944)
;         (DECLARE (IGNORE #:G944))
;         (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 "/Users/nikodemus/src/sbcl/src/compiler/generic/genesis.lisp" (written 04 JUN 2008 03:39:41 PM):
; 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: /Users/nikodemus/src/sbcl/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 TARGET-LAYOUT-INDEX ...)
; compiling (DEFUN COLD-SET-LAYOUT-SLOT ...)
; 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 (DEFVAR *LOAD-TIME-CODE-FIXUPS*)
; compiling (DEFUN NOTE-LOAD-TIME-CODE-FIXUP ...)
; compiling (DEFUN OUTPUT-LOAD-TIME-CODE-FIXUPS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CALC-OFFSET ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DO-COLD-FIXUP ...)
; file: /Users/nikodemus/src/sbcl/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 (#:G1349 #:G1348 #:G1347) (DECLARE (TYPE REAL #:G1349 #:G1348 #:G1347)) (IF (<= #:G1349 #:G1348) (IF (<= #:G1348 #:G1347) T NIL) NIL)) 
; ==>
;   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
;       (:BA
;        (SETF (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
;               SB!FASL::GSPACE-BYTE-OFFSET)
;                (SB-XC:DPB (ASH SB!FASL::VALUE -2) (SB-XC:BYTE 24 2)
;                           (SB!FASL::BVREF-32 SB!FASL::GSPACE-BYTES
;                            SB!FASL::GSPACE-BYTE-OFFSET))))
;       (:HA
;        (LET* ((SB!FASL::UN-FIXED-UP #)
;               (SB!FASL::FIXED-UP #)
;               (SB!FASL::H #)
;               (SB!FASL::L #))
;          (SETF (SB!FASL::BVREF-16 SB!FASL::GSPACE-BYTES #) (IF # # SB!FASL::H))))
;       (:L
;        (LET* ((SB!FASL::UN-FIXED-UP #) (SB!FASL::FIXED-UP #))
;          (SETF (SB!FASL::BVREF-16 SB!FASL::GSPACE-BYTES #)
;                  (SB-XC:LDB # SB!FASL::FIXED-UP)))))
; --> 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 (ASH SB!FASL::VALUE -2) (SB-XC:BYTE 24 2)
;                        (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

;     (ASH SB!FASL::VALUE -2)
; ==>
;   SB!FASL::VALUE
; 
; note: deleting unreachable code

;     (SB-XC:BYTE 16 0)
; 
; note: deleting unreachable code

;     (LET* ((SB!FASL::UN-FIXED-UP
;             (SB!FASL::BVREF-16 SB!FASL::GSPACE-BYTES
;              (+ SB!FASL::GSPACE-BYTE-OFFSET 2)))
;            (SB!FASL::FIXED-UP (+ SB!FASL::UN-FIXED-UP SB!FASL::VALUE))
;            (SB!FASL::H (SB-XC:LDB (SB-XC:BYTE 16 16) SB!FASL::FIXED-UP))
;            (SB!FASL::L (SB-XC:LDB (SB-XC:BYTE 16 0) SB!FASL::FIXED-UP)))
;       (SETF (SB!FASL::BVREF-16 SB!FASL::GSPACE-BYTES
;              (+ SB!FASL::GSPACE-BYTE-OFFSET 2))
;               (IF (LOGBITP 15 SB!FASL::L)
;                   (SB-XC:LDB (SB-XC:BYTE 16 0) (1+ SB!FASL::H)) SB!FASL::H)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (+ SB!FASL::GSPACE-BYTE-OFFSET 2)
; ==>
;   SB!FASL::GSPACE-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (LOGBITP 15 SB!FASL::L)
; ==>
;   SB!FASL::L
; 
; note: deleting unreachable code

;     (IF (LOGBITP 15 SB!FASL::L) (SB-XC:LDB (SB-XC:BYTE 16 0) (1+ SB!FASL::H))
;         SB!FASL::H)
; ==>
;   SB!FASL::H
; 
; note: deleting unreachable code

;     (LET* ((SB!FASL::UN-FIXED-UP
;             (SB!FASL::BVREF-16 SB!FASL::GSPACE-BYTES
;              (+ SB!FASL::GSPACE-BYTE-OFFSET 2)))
;            (SB!FASL::FIXED-UP (+ SB!FASL::UN-FIXED-UP SB!FASL::VALUE)))
;       (SETF (SB!FASL::BVREF-16 SB!FASL::GSPACE-BYTES
;              (+ SB!FASL::GSPACE-BYTE-OFFSET 2))
;               (SB-XC:LDB (SB-XC:BYTE 16 0) SB!FASL::FIXED-UP)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (+ SB!FASL::GSPACE-BYTE-OFFSET 2)
; ==>
;   SB!FASL::GSPACE-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (SB-XC:BYTE 16 0)
; 
; 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

; 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: /Users/nikodemus/src/sbcl/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 
; --> 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-3508)
; 
; note: The first argument never returns a value.

; compiling (NOT-COLD-FOP FOP-COMPLEX-SINGLE-FLOAT-VECTOR)
; file: /Users/nikodemus/src/sbcl/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 
; --> 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-3525)
; 
; note: The first argument never returns a value.

; compiling (NOT-COLD-FOP FOP-COMPLEX-DOUBLE-FLOAT-VECTOR)
; file: /Users/nikodemus/src/sbcl/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 
; --> 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-3542)
; 
; 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: /Users/nikodemus/src/sbcl/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 
; --> 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-3802)
; 
; note: The first argument never returns a value.

; compiling (NOT-COLD-FOP FOP-EVAL-FOR-EFFECT)
; file: /Users/nikodemus/src/sbcl/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 
; --> 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-3819)
; 
; 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: /Users/nikodemus/src/sbcl/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 C-NAME ...)
; compiling (DEFUN C-SYMBOL-NAME ...)
; compiling (DEFUN WRITE-MAKEFILE-FEATURES ...)
; compiling (DEFUN WRITE-CONFIG-H ...)
; compiling (DEFUN WRITE-CONSTANTS-H ...)
; compiling (DEFUN WRITE-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 ...); 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 116 notes


; /Users/nikodemus/src/sbcl/obj/from-host/src/compiler/generic/genesis.lisp-obj-tmp written
; compilation finished in 0:00:02
STYLE-WARNING: redefining FOP-MAYBE-COLD-LOAD in DEFUN
T
* 
beginning GENESIS, creating headers in "src/runtime/genesis"
NIL
* 
real	1m7.442s
user	0m56.365s
sys	0m5.515s
//entering make-target-1.sh
//building runtime system and symbol table file
rm -f *.[do] sbcl sbcl.nm sbcl.h core *.tmp 
echo '#include "genesis/config.h"' >sbcl.h
echo '#include "genesis/constants.h"' >>sbcl.h
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o alloc.o alloc.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o backtrace.o backtrace.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o breakpoint.o breakpoint.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o coreparse.o coreparse.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o dynbind.o dynbind.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o funcall.o funcall.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o gc-common.o gc-common.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o globals.o globals.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o interr.o interr.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o interrupt.o interrupt.c
interrupt.c: In function 'arrange_return_to_lisp_function':
interrupt.c:865: warning: unused variable 'sp'
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o largefile.o largefile.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o monitor.o monitor.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o os-common.o os-common.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o parse.o parse.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o print.o print.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o purify.o purify.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o pthread-futex.o pthread-futex.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o pthread-lutex.o pthread-lutex.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o regnames.o regnames.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o run-program.o run-program.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o runtime.o runtime.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o save.o save.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o search.o search.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o thread.o thread.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o time.o time.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o util.o util.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o validate.o validate.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o vars.o vars.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o wrap.o wrap.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o x86-arch.o x86-arch.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o bsd-os.o bsd-os.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o x86-bsd-os.o x86-bsd-os.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o darwin-os.o darwin-os.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o x86-darwin-os.o x86-darwin-os.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o darwin-dlshim.o darwin-dlshim.c
darwin-dlshim.c: In function 'dlopen':
darwin-dlshim.c:116: warning: 'NSAddImage' is deprecated (declared at /usr/include/mach-o/dyld.h:230)
darwin-dlshim.c:118: warning: 'NSAddImage' is deprecated (declared at /usr/include/mach-o/dyld.h:230)
darwin-dlshim.c:125: warning: 'NSCreateObjectFileImageFromFile' is deprecated (declared at /usr/include/mach-o/dyld.h:145)
darwin-dlshim.c:127: warning: 'NSLinkModule' is deprecated (declared at /usr/include/mach-o/dyld.h:161)
darwin-dlshim.c:144: warning: 'NSCreateObjectFileImageFromFile' is deprecated (declared at /usr/include/mach-o/dyld.h:145)
darwin-dlshim.c:146: warning: 'NSLinkModule' is deprecated (declared at /usr/include/mach-o/dyld.h:161)
darwin-dlshim.c:157: warning: 'NSLookupSymbolInImage' is deprecated (declared at /usr/include/mach-o/dyld.h:182)
darwin-dlshim.c:161: warning: 'NSIsSymbolNameDefinedInImage' is deprecated (declared at /usr/include/mach-o/dyld.h:178)
darwin-dlshim.c:164: warning: 'NSLookupSymbolInImage' is deprecated (declared at /usr/include/mach-o/dyld.h:182)
darwin-dlshim.c:165: warning: 'NSAddressOfSymbol' is deprecated (declared at /usr/include/mach-o/dyld.h:188)
darwin-dlshim.c: In function 'dlerror':
darwin-dlshim.c:183: warning: 'NSLinkEditError' is deprecated (declared at /usr/include/mach-o/dyld.h:217)
darwin-dlshim.c: In function 'dlsym':
darwin-dlshim.c:206: warning: 'NSIsSymbolNameDefined' is deprecated (declared at /usr/include/mach-o/dyld.h:176)
darwin-dlshim.c:208: warning: 'NSLookupAndBindSymbol' is deprecated (declared at /usr/include/mach-o/dyld.h:179)
darwin-dlshim.c:209: warning: 'NSAddressOfSymbol' is deprecated (declared at /usr/include/mach-o/dyld.h:188)
darwin-dlshim.c:215: warning: 'NSIsSymbolNameDefinedInImage' is deprecated (declared at /usr/include/mach-o/dyld.h:178)
darwin-dlshim.c:217: warning: 'NSLookupSymbolInImage' is deprecated (declared at /usr/include/mach-o/dyld.h:182)
darwin-dlshim.c:218: warning: 'NSAddressOfSymbol' is deprecated (declared at /usr/include/mach-o/dyld.h:188)
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o darwin-langinfo.o darwin-langinfo.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o gencgc.o gencgc.c
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o x86-assem.o x86-assem.S
gcc -g -Wall -O2 -fdollars-in-identifiers -I. -no-cpp-precomp  -c -o ldso-stubs.o ldso-stubs.S
gcc -g -o sbcl alloc.o backtrace.o breakpoint.o coreparse.o dynbind.o funcall.o gc-common.o globals.o interr.o interrupt.o largefile.o monitor.o os-common.o parse.o print.o purify.o pthread-futex.o 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 x86-arch.o bsd-os.o x86-bsd-os.o darwin-os.o x86-darwin-os.o darwin-dlshim.o darwin-langinfo.o gencgc.o x86-assem.o ldso-stubs.o -lSystem -lc -ldl -lm
nm -gp sbcl | grep -v " [FUw] " > ,sbcl.nm
mv -f ,sbcl.nm sbcl.nm
gcc -g -Wall -O2 -fdollars-in-identifiers -I../src/runtime  -lSystem -lc -ldl  grovel-headers.c   -o grovel-headers
grovel-headers.c: In function 'main':
grovel-headers.c:246: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:247: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:248: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:249: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:250: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:251: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:252: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:253: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:254: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:259: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:261: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:264: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:265: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:266: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:267: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:268: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:269: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
grovel-headers.c:270: warning: format '%d' expects type 'int', but argument 3 has type 'long unsigned int'
make: Nothing to be done for `after-grovel-headers'.

real	0m6.456s
user	0m4.400s
sys	0m1.267s
//entering make-host-2.sh
//running cross-compiler to create target object files
This is SBCL 1.0.19, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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 :SB-DOC
                                      :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS
                                      :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS
                                      :IEEE-FLOATING-POINT :X86 :UNIX :MACH-O
                                      :BSD :DARWIN :MACH-EXCEPTION-HANDLER
                                      :SB-LUTEX
                                      :RESTORE-FS-SEGMENT-REGISTER-FROM-TLS
                                      :GENCGC :STACK-GROWS-DOWNWARD-NOT-UPWARD
                                      :C-STACK-IS-CONTROL-STACK
                                      :COMPARE-AND-SWAP-VOPS
                                      :UNWIND-TO-FRAME-AND-CALL-VOP
                                      :RAW-INSTANCE-INIT-VOPS
                                      :STACK-ALLOCATABLE-CLOSURES
                                      :ALIEN-CALLBACKS :CYCLE-COUNTER
                                      :LINKAGE-TABLE :OS-PROVIDES-DLOPEN
                                      :OS-PROVIDES-DLADDR :OS-PROVIDES-PUTWC
                                      :OS-PROVIDES-BLKSIZE-T
                                      :OS-PROVIDES-SUSECONDS-T)
target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL
T
* 
#<PACKAGE "SB-COLD">
* 
"obj/from-xc/"
* 
T
* 
T
* 
; in: LAMBDA NIL
;     (THE SB!SYS:SAP-INT #:ONCE-ONLY-647)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G4 'SB!SYS:SAP-INT)
; 
; caught STYLE-WARNING:
;   undefined type: SAP-INT

; --> MULTIPLE-VALUE-BIND LET UNLESS 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-655)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G4 'SB!C::CLAMBDA)
; 
; caught STYLE-WARNING:
;   undefined type: CLAMBDA

; --> MULTIPLE-VALUE-BIND LET UNLESS 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-667)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G4 'SB!C:TN)
; 
; caught STYLE-WARNING:
;   undefined type: TN

; --> MULTIPLE-VALUE-BIND LET UNLESS 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: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (CLASSOID) (VALUES SYMBOL &OPTIONAL))>
for CLASSOID-NAME does not match old FTYPE proclamation
#<FUN-TYPE (FUNCTION (CLASSOID) (VALUES T &OPTIONAL))>

* 
PROCLAIM-TARGET-OPTIMIZATION
* 
PROCLAIM-TARGET-OPTIMIZATION
NIL
NIL
* 
IN-TARGET-CROSS-COMPILATION-MODE
* 
IN-TARGET-CROSS-COMPILATION-MODE
NIL
NIL
* 
#<FUNCTION (SB-C::&OPTIONAL-DISPATCH SB-XC:COMPILE-FILE) {120060AD}>
* 
#<FUNCTION (SB-C::&OPTIONAL-DISPATCH SB!C:ASSEMBLE-FILE) {1202160D}>
* 
#<FUNCTION IN-TARGET-CROSS-COMPILATION-MODE>
* 
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/code/
; compiling file "/Users/nikodemus/src/sbcl/src/code/show.lisp" (written 05 FEB 2008 12:55:21 AM):
; 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: /Users/nikodemus/src/sbcl/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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS73 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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS64 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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS55 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/show.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-source-location.lisp" (written 16 JUL 2008 10:21:04 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFCONSTANT +CODE-COVERAGE-UNMARKED+ ...)
; compiling (DEFVAR *SOURCE-LOCATION-THUNKS* ...)
; compiling (DEFUN SOURCE-LOCATION ...)
; compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...)
; compiling (DEFMACRO WITH-SOURCE-LOCATION ...)
; file: /Users/nikodemus/src/sbcl/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:GET-TOPLEVELISH-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*

; in: DEFINE-COMPILER-MACRO SOURCE-LOCATION
;     (SB!C:GET-TOPLEVELISH-FILE-INFO (SYMBOL-VALUE 'SB!C::*SOURCE-INFO*))
; 
; caught STYLE-WARNING:
;   undefined function: GET-TOPLEVELISH-FILE-INFO

; 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 IF 
; ==>
;   (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS18 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:GET-TOPLEVELISH-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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS17 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:GET-TOPLEVELISH-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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS7 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* GET-TOPLEVELISH-FILE-INFO LIST-OF-LENGTH-AT-LEAST-P MAKE-FILE-INFO-NAMESTRING PROPER-LIST-OF-LENGTH-P SOURCE-PATH-TLF-NUMBER
; 
; compilation unit finished
;   caught 10 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-source-location.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-constants.lisp" (written 04 JUN 2008 03:39:40 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF SB-XC:LAMBDA-LIST-KEYWORDS ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-constants.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/backq.lisp" (written 16 SEP 2007 03:05:17 PM):
; 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: /Users/nikodemus/src/sbcl/src/code/backq.lisp
; in: DEFUN BACKQUOTIFY
;     (SB!INT:SIMPLE-READER-ERROR STREAM ",@ after dot in ~S" SB!IMPL::CODE)
; 
; caught STYLE-WARNING:
;   undefined function: SIMPLE-READER-ERROR

; in: DEFUN COMMA-MACRO
;     (SB!INT:SIMPLE-READER-ERROR STREAM "comma not inside a backquote")
; 
; caught STYLE-WARNING:
;   undefined function: SIMPLE-READER-ERROR

; in: DEFUN BACKQUOTE-MACRO
;     (SB!INT:SIMPLE-READER-ERROR STREAM ",@ after backquote in ~S" SB!IMPL::THING)
; 
; caught STYLE-WARNING:
;   undefined function: SIMPLE-READER-ERROR

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SIMPLE-READER-ERROR
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/backq.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/globals.lisp" (written 11 AUG 2005 05:44:16 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (SPECIAL *KEYWORD-PACKAGE* ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DECLAIM (FTYPE # ...))

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/globals.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defsetfs.lisp" (written 04 JUN 2006 05: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: /Users/nikodemus/src/sbcl/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-4 #:ENVIRONMENT-5)
;                                 (DECLARE (IGNORE #:ENVIRONMENT-5))
;                                 (SB!IMPL::%DEFSETF #:ACCESS-FORM-4 1
;                                                    (LAMBDA (#:WHOLE-3)
;                                                      (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: /Users/nikodemus/src/sbcl/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 IF 
; ==>
;   (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS10 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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS54 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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS40 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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS11 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/defsetfs.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/cold-init-helper-macros.lisp" (written 04 JUL 2003 08: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: /Users/nikodemus/src/sbcl/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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS19 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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS6 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/cold-init-helper-macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/uncross.lisp" (written 14 JUL 2005 07:30:40 PM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (DECLAIM (INLINE UNCROSS))
; compiling (DEFUN UNCROSS ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/uncross.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/primordial-type.lisp" (written 28 FEB 2007 06:06:01 PM):
; 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 *EXTENDED-SEQUENCE-TYPE*)
; compiling (DEFVAR *BUILT-IN-CLASS-CODES*)
; compiling (DEFVAR *NULL-CLASSOID-LAYOUT*)
; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...))

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/primordial-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-defbangmethod.lisp" (written 21 OCT 2000 02:30:33 AM):
; compiling (IN-PACKAGE "SB!IMPL")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defbangtype.lisp" (written 14 JUL 2005 07:30:32 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFMACRO DEF!TYPE ...)
; file: /Users/nikodemus/src/sbcl/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 IF 
; ==>
;   (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS6 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/defbangtype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defbangmacro.lisp" (written 14 JUL 2005 07:30:32 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO DEF!MACRO ...)
; file: /Users/nikodemus/src/sbcl/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 IF 
; ==>
;   (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS6 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/defbangmacro.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defbangconstant.lisp" (written 14 JUL 2005 07:30:32 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFMACRO DEF!CONSTANT ...)
; file: /Users/nikodemus/src/sbcl/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 IF 
; ==>
;   (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS6 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/defbangconstant.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/primordial-extensions.lisp" (written 15 JUN 2008 02:13:41 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...)
; compiling (DEFUN FROB-DO-BODY ...)
; compiling (DEFMACRO DO-ANONYMOUS ...)
; compiling (DEFUN BLOCK-GENSYM ...)
; compiling (DEFMACRO STRING-DISPATCH ...)
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/code/primordial-extensions.lisp
; in: DEFMACRO WITH-UNIQUE-NAMES
;     (CONCATENATE 'STRING SYMBOL-NAME "-")
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-112 (#:G101)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G101)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-112))
;     (ETYPECASE #:G101
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-112 (THE # #:G101)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-112 (THE SEQUENCE #:G101)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH. (+ (SB!IMPL::STRING-DISPATCH # #:G101 # #) 1))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G101
;      (REPLACE SB!C::.STRING. #:G101 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G101)))
;     (PROGN (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-) (INCF SB!C::.POS.))
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type COMPILER-NOTE


; file: /Users/nikodemus/src/sbcl/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-315)
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL::KEYWORD-SUPPLIED-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 IF 
; ==>
;   (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS83 1)
; 
; caught STYLE-WARNING:
;   undefined function: LIST-OF-LENGTH-AT-LEAST-P

; in: DEFMACRO STRING-DISPATCH
;     (DEFMACRO SB!IMPL::STRING-DISPATCH
;               ((&REST SB!IMPL::TYPES) SB!DEBUG:VAR &BODY SB!IMPL::BODY)
;       (LET ((SB!IMPL::FUN (GENSYM "STRING-DISPATCH-FUN-")))
;         (SB!IMPL::BACKQ-LIST 'FLET
;                              (SB!IMPL::BACKQ-LIST
;                               (SB!IMPL::BACKQ-LIST* SB!IMPL::FUN #
;                                                     SB!IMPL::BODY))
;                              (SB!IMPL::BACKQ-LIST 'DECLARE
;                                                   (SB!IMPL::BACKQ-LIST 'INLINE
;                                                                        SB!IMPL::FUN))
;                              (SB!IMPL::BACKQ-LIST* 'ETYPECASE SB!DEBUG:VAR
;                                                    (LOOP SB!IMPL::FOR TYPE
;                                                          SB!IMPL::IN
;                                                          SB!IMPL::TYPES
;                                                          SB!INT:COLLECT #)))))
; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS IF 
; ==>
;   (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS70 2)
; 
; 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 IF 
; ==>
;   (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS20 2)
; 
; caught STYLE-WARNING:
;   undefined function: LIST-OF-LENGTH-AT-LEAST-P

; 
; caught STYLE-WARNING:
;   1 more use of undefined function LIST-OF-LENGTH-AT-LEAST-P


; file: /Users/nikodemus/src/sbcl/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* LET* IF 
; ==>
;   (SB!KERNEL::LOOKUP-KEYWORD ':STEP #:KEYWORDS-315)
; 
; 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-315 '(: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

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 14 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/primordial-extensions.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/function-names.lisp" (written 05 DEC 2006 06:35:56 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: /Users/nikodemus/src/sbcl/src/code/function-names.lisp
; in: DEFUN VALID-FUNCTION-NAME-P
;     (ASSOC (CAR SB!IMPL::NAME) SB!IMPL::*VALID-FUN-NAMES-ALIST* :TEST #'EQ)
; ==>
;   (SB!KERNEL:%ASSOC-EQ SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %ASSOC-EQ

; in: DEFUN %DEFINE-FUN-NAME-SYNTAX
;     (ASSOC SYMBOL SB!IMPL::*VALID-FUN-NAMES-ALIST* :TEST #'EQ)
; ==>
;   (SB!KERNEL:%ASSOC-EQ SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %ASSOC-EQ

; in: DEFUN MACRO-FUNCTION-NAME
;     (DESTRUCTURING-BIND
;         (SB!IMPL::FUN &REST REST)
;         (CDR SB!IMPL::NAME)
;       (WHEN (NULL REST)
;         (TYPECASE SB!IMPL::FUN
;           (SYMBOL (VALUES T SB!IMPL::FUN))
;           (CONS (WHEN # #)))))
; --> LET LET* LET UNLESS IF 
; ==>
;   (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS[MACRO-FUNCTION-NAME]75 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 IF 
; ==>
;   (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS[%CHECK-SETF-FUN-NAME]69 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 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:
;   These functions are undefined:
;     %ASSOC-EQ LIST-OF-LENGTH-AT-LEAST-P
; 
; compilation unit finished
;   caught 6 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/function-names.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/parms.lisp" (written 08 MAY 2008 10:14:02 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...)
; compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...)
; compiling (DEF!CONSTANT TLS-SIZE ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/parms.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/parms.lisp" (written 07 JUL 2008 10:57:19 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEF!CONSTANT N-WORD-BITS ...)
; compiling (DEF!CONSTANT N-MACHINE-WORD-BITS ...)
; compiling (DEF!CONSTANT N-BYTE-BITS ...)
; compiling (DEF!CONSTANT MINIMUM-IMMEDIATE-OFFSET ...)
; compiling (DEF!CONSTANT MAXIMUM-IMMEDIATE-OFFSET ...)
; compiling (DEF!CONSTANT FLOAT-SIGN-SHIFT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-BIAS ...)
; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-EXPONENT-BYTE ...)
; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-SIGNIFICAND-BYTE ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-HIDDEN-BIT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-TRAPPING-NAN-BIT ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-BIAS ...)
; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-EXPONENT-BYTE ...)
; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-SIGNIFICAND-BYTE ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MIN ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MAX ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-HIDDEN-BIT ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-TRAPPING-NAN-BIT ...)
; compiling (DEF!CONSTANT LONG-FLOAT-BIAS ...)
; compiling (DEFCONSTANT-EQX LONG-FLOAT-EXPONENT-BYTE ...)
; compiling (DEFCONSTANT-EQX LONG-FLOAT-SIGNIFICAND-BYTE ...)
; compiling (DEF!CONSTANT LONG-FLOAT-NORMAL-EXPONENT-MIN ...)
; compiling (DEF!CONSTANT LONG-FLOAT-NORMAL-EXPONENT-MAX ...)
; compiling (DEF!CONSTANT LONG-FLOAT-HIDDEN-BIT ...)
; compiling (DEF!CONSTANT LONG-FLOAT-TRAPPING-NAN-BIT ...)
; compiling (DEF!CONSTANT SINGLE-FLOAT-DIGITS ...)
; compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...)
; compiling (DEF!CONSTANT LONG-FLOAT-DIGITS ...)
; compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-DENORMAL-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...)
; compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...)
; compiling (DEF!CONSTANT FLOAT-PRECISION-24-BIT ...)
; compiling (DEF!CONSTANT FLOAT-PRECISION-53-BIT ...)
; compiling (DEF!CONSTANT FLOAT-PRECISION-64-BIT ...)
; compiling (DEFCONSTANT-EQX FLOAT-ROUNDING-MODE ...)
; compiling (DEFCONSTANT-EQX FLOAT-STICKY-BITS ...)
; compiling (DEFCONSTANT-EQX FLOAT-TRAPS-BYTE ...)
; compiling (DEFCONSTANT-EQX FLOAT-EXCEPTIONS-BYTE ...)
; compiling (DEFCONSTANT-EQX FLOAT-PRECISION-CONTROL ...)
; compiling (DEF!CONSTANT FLOAT-FAST-BIT ...)
; compiling (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 (DEF!CONSTANT NIL-VALUE ...)
; compiling (DEFENUM (:SUFFIX -TRAP ...) ...)
; compiling (DEFENUM (:PREFIX OBJECT-NOT- ...) ...)
; compiling (DEFENUM (:PREFIX TRACE-TABLE-) ...)
; compiling (DEFVAR *ALLOCATION-POINTER*)
; compiling (DEFVAR *BINDING-STACK-POINTER*)
; compiling (DEFPARAMETER *STATIC-SYMBOLS* ...)
; compiling (DEFPARAMETER *STATIC-FUNS* ...)
; compiling (DEFPARAMETER *ASSEMBLY-UNIT-LENGTH* ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/parms.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/early-vm.lisp" (written 30 JUN 2008 12:00:39 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 ...)
; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)
; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/early-vm.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/early-objdef.lisp" (written 01 OCT 2007 02:18:51 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFENUM (:SUFFIX -LOWTAG) ...)
; compiling (DEF!CONSTANT NIL-VALUE ...)
; compiling (DEFENUM (:SUFFIX -WIDETAG ...) ...)
; compiling (DEFENUM (:PREFIX VECTOR- ...) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/early-objdef.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-array.lisp" (written 19 MAY 2002 04: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-extensions.lisp" (written 04 JUN 2008 03:39:40 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFPARAMETER *EOF-OBJECT* ...)
; compiling (DEF!TYPE INDEX ...)
; compiling (DEF!TYPE INDEX/2 ...)
; compiling (DEF!TYPE INDEX-OR-MINUS-1 ...)
; compiling (DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT ...)
; compiling (DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT ...)
; compiling (DEF!TYPE LOAD/STORE-INDEX ...)
; compiling (DEFUN DISPLACEMENT-BOUNDS ...)
; compiling (DEF!TYPE CONSTANT-DISPLACEMENT ...)
; compiling (DEF!TYPE SFUNCTION ...)
; compiling (DEF!TYPE TYPE-SPECIFIER ...)
; compiling (DEFPARAMETER *DEFAULT-INIT-CHAR-FORM* ...)
; compiling (DEF!CONSTANT BELL-CHAR-CODE ...)
; compiling (DEF!CONSTANT BACKSPACE-CHAR-CODE ...)
; compiling (DEF!CONSTANT TAB-CHAR-CODE ...)
; compiling (DEF!CONSTANT LINE-FEED-CHAR-CODE ...)
; compiling (DEF!CONSTANT FORM-FEED-CHAR-CODE ...)
; compiling (DEF!CONSTANT RETURN-CHAR-CODE ...)
; compiling (DEF!CONSTANT ESCAPE-CHAR-CODE ...)
; compiling (DEF!CONSTANT RUBOUT-CHAR-CODE ...)
; compiling (DEFUN MAYBE-CYCLIC-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LIST-OF-LENGTH-AT-LEAST-P ...)
; compiling (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: /Users/nikodemus/src/sbcl/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 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 (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* ...)
; compiling (DEFMACRO DX-FLET ...)
; compiling (DEFMACRO DX-LET ...)
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN FP-ZERO-P ...)
; compiling (DEFUN NEG-FP-ZERO ...)
; file: /Users/nikodemus/src/sbcl/src/code/early-extensions.lisp
; in: DEFUN MAYBE-CYCLIC-P
;     (MEMBER SB!IMPL::OBJECT SB!IMPL::SEEN)
; ==>
;   (SB!KERNEL:%MEMBER SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %MEMBER

; in: DEFMACRO COLLECT
;     (CONCATENATE 'STRING (SYMBOL-NAME SB!IMPL::NAME) "-N-VALUE-")
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-228 (#:G177)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G177)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-228))
;     (ETYPECASE #:G177
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-228 (THE # #:G177)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-228 (THE SEQUENCE #:G177)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH. (+ (SB!IMPL::STRING-DISPATCH # #:G177 # #) 9))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G177
;      (REPLACE SB!C::.STRING. #:G177 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G177)))
;     (PROGN
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\N)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\V)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\A)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\L)
;      ...)
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   12 more uses of undefined type COMPILER-NOTE


; file: /Users/nikodemus/src/sbcl/src/code/early-extensions.lisp
; in: DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE
;     (SB!INT:INFO :VARIABLE :KIND SYMBOL)
; 
; caught STYLE-WARNING:
;   undefined function: INFO

; 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-946)
; 
; caught STYLE-WARNING:
;   undefined function: KEYWORD-SUPPLIED-P

; in: DEFMACRO DEFINE-HASH-CACHE
;     (DEFMACRO SB!INT:DEFINE-HASH-CACHE
;               (SB!IMPL::NAME SB!IMPL::ARGS
;                &KEY SB!IMPL::HASH-FUNCTION SB!IMPL::HASH-BITS SB!IMPL::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-813)
; 
; caught STYLE-WARNING:
;   undefined function: KEYWORD-SUPPLIED-P

; in: DEFMACRO DOHASH
;     (DEFMACRO SB!INT:DOHASH
;               (((SB!IMPL::KEY-VAR SB!IMPL::VALUE-VAR) SB!IMPL::TABLE
;                 &KEY SB!IMPL::RESULT SB!IMPL::LOCKED)
;                &BODY SB!IMPL::BODY)
;       (MULTIPLE-VALUE-BIND
;           (SB!IMPL::FORMS SB!IMPL::DECLS)
;           (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
;         (LET* ((SB!IMPL::GEN #)
;                (SB!IMPL::N-MORE #)
;                (SB!IMPL::N-TABLE #)
;                (SB!IMPL::ITER-FORM #))
;           (SB!IMPL::BACKQ-LIST 'LET (SB!IMPL::BACKQ-LIST #)
;                                (IF SB!IMPL::LOCKED # SB!IMPL::ITER-FORM)))))
; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF 
; ==>
;   (SB!KERNEL::KEYWORD-SUPPLIED-P :LOCKED #:KEYWORDS-796)
; 
; caught STYLE-WARNING:
;   undefined function: KEYWORD-SUPPLIED-P

; 
; caught STYLE-WARNING:
;   1 more use of undefined function KEYWORD-SUPPLIED-P


; file: /Users/nikodemus/src/sbcl/src/code/early-extensions.lisp
; 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-946)
; 
; caught STYLE-WARNING:
;   undefined function: LOOKUP-KEYWORD

; in: DEFMACRO DEFINE-HASH-CACHE
;     (DEFMACRO SB!INT:DEFINE-HASH-CACHE
;               (SB!IMPL::NAME SB!IMPL::ARGS
;                &KEY SB!IMPL::HASH-FUNCTION SB!IMPL::HASH-BITS SB!IMPL::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-813)
; 
; caught STYLE-WARNING:
;   undefined function: LOOKUP-KEYWORD

; in: DEFMACRO DOHASH
;     (DEFMACRO SB!INT:DOHASH
;               (((SB!IMPL::KEY-VAR SB!IMPL::VALUE-VAR) SB!IMPL::TABLE
;                 &KEY SB!IMPL::RESULT SB!IMPL::LOCKED)
;                &BODY SB!IMPL::BODY)
;       (MULTIPLE-VALUE-BIND
;           (SB!IMPL::FORMS SB!IMPL::DECLS)
;           (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
;         (LET* ((SB!IMPL::GEN #)
;                (SB!IMPL::N-MORE #)
;                (SB!IMPL::N-TABLE #)
;                (SB!IMPL::ITER-FORM #))
;           (SB!IMPL::BACKQ-LIST 'LET (SB!IMPL::BACKQ-LIST #)
;                                (IF SB!IMPL::LOCKED # SB!IMPL::ITER-FORM)))))
; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF 
; ==>
;   (SB!KERNEL::LOOKUP-KEYWORD :LOCKED #:KEYWORDS-796)
; 
; caught STYLE-WARNING:
;   undefined function: LOOKUP-KEYWORD

; 
; caught STYLE-WARNING:
;   1 more use of undefined function LOOKUP-KEYWORD


; file: /Users/nikodemus/src/sbcl/src/code/early-extensions.lisp
; in: DEFUN NEG-FP-ZERO
;     (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-UNPORTABLE-FLOAT

; in: DEFMACRO DEFUN-CACHED
;     (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY

; in: DEFMACRO DOHASH
;     (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY

; in: DEFMACRO DOVECTOR
;     (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-BODY

; in: DEFUN SB!IMPL::DEFPRINTER-PRINC
;     (DEFUN SB!IMPL::DEFPRINTER-PRINC (SB!IMPL::NAME SB!IMPL::VALUE STREAM)
;       (SB!IMPL::DEFPRINTER-PRINX #'PRINC SB!IMPL::NAME SB!IMPL::VALUE STREAM))
; --> PROGN SB!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ 
; --> THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {12911819}>)
; 
; caught STYLE-WARNING:
;   undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID

; in: DEFUN SB!IMPL::DEFPRINTER-PRIN1
;     (DEFUN SB!IMPL::DEFPRINTER-PRIN1 (SB!IMPL::NAME SB!IMPL::VALUE STREAM)
;       (SB!IMPL::DEFPRINTER-PRINX #'PRIN1 SB!IMPL::NAME SB!IMPL::VALUE STREAM))
; --> PROGN SB!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ 
; --> THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {12911819}>)
; 
; caught STYLE-WARNING:
;   undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID

; in: DEFMACRO DEFUN-CACHED
;     (DEFMACRO SB!INT:DEFUN-CACHED
;               ((SB!IMPL::NAME
;                 &REST SB!IMPL::OPTIONS
;                 &KEY (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-946 '(:DEFAULT :VALUES) 'T)
; 
; caught STYLE-WARNING:
;   undefined function: VERIFY-KEYWORDS

; in: DEFMACRO DEFINE-HASH-CACHE
;     (DEFMACRO SB!INT:DEFINE-HASH-CACHE
;               (SB!IMPL::NAME SB!IMPL::ARGS
;                &KEY SB!IMPL::HASH-FUNCTION SB!IMPL::HASH-BITS SB!IMPL::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-813
;                               '(:VALUES :INIT-WRAPPER :DEFAULT :HASH-BITS
;                                 :HASH-FUNCTION)
;                               'NIL)
; 
; caught STYLE-WARNING:
;   undefined function: VERIFY-KEYWORDS

; in: DEFMACRO DOHASH
;     (DEFMACRO SB!INT:DOHASH
;               (((SB!IMPL::KEY-VAR SB!IMPL::VALUE-VAR) SB!IMPL::TABLE
;                 &KEY SB!IMPL::RESULT SB!IMPL::LOCKED)
;                &BODY SB!IMPL::BODY)
;       (MULTIPLE-VALUE-BIND
;           (SB!IMPL::FORMS SB!IMPL::DECLS)
;           (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL)
;         (LET* ((SB!IMPL::GEN #)
;                (SB!IMPL::N-MORE #)
;                (SB!IMPL::N-TABLE #)
;                (SB!IMPL::ITER-FORM #))
;           (SB!IMPL::BACKQ-LIST 'LET (SB!IMPL::BACKQ-LIST #)
;                                (IF SB!IMPL::LOCKED # SB!IMPL::ITER-FORM)))))
; --> EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-796 '(:LOCKED :RESULT) 'NIL)
; 
; caught STYLE-WARNING:
;   undefined function: VERIFY-KEYWORDS

; 
; caught STYLE-WARNING:
;   1 more use of undefined function VERIFY-KEYWORDS

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     %MEMBER INFO KEYWORD-SUPPLIED-P LOOKUP-KEYWORD MAKE-UNPORTABLE-FLOAT PARSE-BODY UPDATE-OBJECT-LAYOUT-OR-INVALID VERIFY-KEYWORDS

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 26 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-extensions.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/parse-body.lisp" (written 14 JUL 2005 07:30:37 PM):
; compiling (IN-PACKAGE "SB!INT")
; compiling (/SHOW0 "entering parse-body.lisp")
; compiling (DEFUN PARSE-BODY ...)
; compiling (/SHOW0 "leaving parse-body.lisp")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/parse-body.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/parse-defmacro.lisp" (written 14 AUG 2007 10:52:21 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFVAR *ARG-TESTS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *SYSTEM-LETS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *USER-LETS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *ENV-VAR*)
; compiling (DEFVAR *DEFAULT-DEFAULT*)
; compiling (DEFVAR *IGNORABLE-VARS*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFUN PARSE-DEFMACRO ...)
; compiling (DEFUN PARSE-DEFMACRO-LAMBDA-LIST ...)
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/code/parse-defmacro.lisp
; in: DEFUN VERIFY-KEYWORDS
;     (MEMBER (CAR SB!KERNEL::REMAINING) SB!KERNEL::VALID-KEYS)
; ==>
;   (SB!KERNEL:%MEMBER SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %MEMBER

; in: DEFUN PARSE-DEFMACRO-LAMBDA-LIST
;     (MEMBER '&WHOLE (REST SB!KERNEL::LAMBDA-LIST))
; ==>
;   (SB!KERNEL:%MEMBER-EQ SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %MEMBER-EQ

; in: DEFUN CHECK-DEFMACRO-ARG
;     (MEMBER SB!KERNEL::ARG SB!KERNEL::*SYSTEM-LETS* :KEY #'CAR)
; ==>
;   (SB!KERNEL:%MEMBER-KEY SB!C::ITEM LIST
;    (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::KEY))
; 
; caught STYLE-WARNING:
;   undefined function: %MEMBER-KEY

; 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:
;   These functions are undefined:
;     %MEMBER %MEMBER-EQ %MEMBER-KEY FIND-CALLER-NAME-AND-FRAME
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/parse-defmacro.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/deftype.lisp" (written 14 JUL 2005 09:52:38 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!MACRO SB-XC:DEFTYPE ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/deftype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/defconstant.lisp" (written 11 JUL 2008 09:55:08 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!MACRO SB-XC:DEFCONSTANT ...)
; compiling (DEFUN SB!C::%DEFCONSTANT ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/defconstant.lisp
; in: DEFUN SB!C::%DEFCONSTANT
;     (WITH-SIMPLE-RESTART (ABORT "Keep the old value.")
;       (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME
;               SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE))
; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; --> WITH-CONDITION-RESTARTS LET CONS LET CONS APPEND CDR ASSOC 
; ==>
;   (SB!KERNEL:%ASSOC SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %ASSOC

;     (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)

;     (WITH-SIMPLE-RESTART (ABORT "Keep the old value.")
;       (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME
;               SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE))
; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!EXT:DEFCONSTANT-UNEQL
;                                  (LIST :NAME SB!IMPL::NAME :OLD-VALUE
;                                        SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)
;                                  'SIMPLE-ERROR 'CERROR)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

;     (SB!INT:INFO :VARIABLE :KIND 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 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!IMPL::OLD :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 #:G27 SB!IMPL::TEMP) (GO #:G28))
;    :REPORT-FUNCTION #'(LAMBDA (STREAM) (FORMAT STREAM "Keep the old value.")))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-RESTART

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     %ASSOC (SETF INFO) COERCE-TO-CONDITION INFO SB!C::MAKE-DEFINITION-SOURCE-LOCATION MAKE-RESTART
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/defconstant.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-alieneval.lisp" (written 06 SEP 2006 11: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* ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/specializable-array.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/specializable-array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-cl.lisp" (written 14 JUL 2005 07:30:32 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (PROCLAIM (QUOTE #))
; compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-cl.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-fasl.lisp" (written 09 NOV 2007 03:10:22 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-fasl.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/debug-var-io.lisp" (written 28 NOV 2006 05:43:28 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/debug-var-io.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-thread.lisp" (written 01 JUL 2005 11:48:33 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (DEFVAR *CURRENT-THREAD*)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-thread.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-defbangmethod.lisp" (written 21 OCT 2000 02:30:33 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *DELAYED-DEF!METHOD-ARGS* ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-print.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-print.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-pprint.lisp" (written 27 FEB 2006 03: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-pprint.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-impl.lisp" (written 01 OCT 2007 02:18:50 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (SPECIAL *POSIX-ARGV* ...))

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-impl.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-extensions.lisp" (written 30 JUN 2008 01:34:03 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *SAVE-HOOKS* ...)
; compiling (DEFVAR *INIT-HOOKS* ...)
; compiling (DEFVAR *EXIT-HOOKS* ...)
; compiling (DEFUN BINARY-SEARCH ...)
; compiling (DEFUN LISTEN-SKIP-WHITESPACE ...)
; compiling (DEFUN SIMPLE-PERROR ...)
; compiling (DEFMACRO WITH-PUSH-CHAR ...)
; compiling (DEFUN POWER-OF-TWO-CEILING ...)
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-extensions.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-package.lisp" (written 14 APR 2006 11: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-package.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-defstructs.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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 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 ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-defstructs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defbangstruct.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/defbangstruct.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/unportable-float.lisp" (written 14 JUL 2005 07:30:41 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/unportable-float.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/funutils.lisp" (written 14 JUL 2005 07:30:35 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN IDENTITY ...)
; compiling (DEFUN COMPLEMENT ...)
; compiling (DEFUN CONSTANTLY ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/funutils.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/type-class.lisp" (written 03 AUG 2005 05: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: /Users/nikodemus/src/sbcl/src/code/type-class.lisp
; in: DEFUN CLASS-FUN-SLOT-OR-LOSE
;     (ASSOC SB!KERNEL::NAME SB!KERNEL::*TYPE-CLASS-FUN-SLOTS*)
; ==>
;   (SB!KERNEL:%ASSOC SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %ASSOC

; 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 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:
;     %ASSOC ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED HIERARCHICAL-INTERSECTION2 HIERARCHICAL-UNION2
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/type-class.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-pcounter.lisp" (written 14 JUL 2005 07:30:32 PM):
; compiling (IN-PACKAGE "SB!PROFILE")
; compiling (DEF!STRUCT (PCOUNTER #) ...)
; file: /Users/nikodemus/src/sbcl/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 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:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-pcounter.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/pcounter.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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 #:PLACE #:ENV)
; 
; 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/pcounter.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/ansi-stream.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/ansi-stream.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/sysmacs.lisp" (written 10 DEC 2007 06:40:35 AM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/sysmacs.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-error.lisp" (written 04 JUL 2008 12:31:58 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFVAR *RESTART-CLUSTERS* ...)
; compiling (DEFVAR *CONDITION-RESTARTS* ...)
; compiling (DEFUN INITIAL-HANDLER-CLUSTERS ...)
; 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: /Users/nikodemus/src/sbcl/src/code/target-error.lisp
; 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 
; --> WITH-CONDITION-RESTARTS LET CONS LET CONS APPEND CDR ASSOC 
; ==>
;   (SB!KERNEL:%ASSOC SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %ASSOC

; 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 
; --> WITH-CONDITION-RESTARTS LET CONS LET CONS APPEND CDR ASSOC 
; ==>
;   (SB!KERNEL:%ASSOC SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %ASSOC

; 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 
; --> WITH-CONDITION-RESTARTS LET CONS LET CONS APPEND CDR ASSOC 
; ==>
;   (SB!KERNEL:%ASSOC SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %ASSOC

; in: DEFUN COMPUTE-RESTARTS
;     (MEMBER RESTART SB!KERNEL::ASSOCIATED)
; ==>
;   (SB!KERNEL:%MEMBER SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %MEMBER

; 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 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 INITIAL-HANDLER-CLUSTERS
;     (MUFFLE-WARNING WARNING)
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION
; 
; caught STYLE-WARNING:
;   undefined type: CONDITION

; 
; caught STYLE-WARNING:
;   1206 more uses of undefined type CONDITION

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     %ASSOC %MEMBER ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED COERCE-TO-CONDITION

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     CONDITION
; 
; compilation unit finished
;   caught 14 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-error.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/early-backend.lisp" (written 09 MAR 2004 02:08:40 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *BACKEND-PAGE-SIZE* ...)
; compiling (DECLAIM (TYPE INDEX ...))

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/early-backend.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/output/
; compiling file "/Users/nikodemus/src/sbcl/output/stuff-groveled-from-headers.lisp" (written 30 JUL 2008 03:12:27 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 SUSECONDS-T ...)
; compiling (DEFINE-ALIEN-TYPE UID-T ...)
; compiling (DEFINE-ALIEN-TYPE WST-DEV-T ...)
; compiling (DEFINE-ALIEN-TYPE WST-OFF-T ...)
; compiling (DEFINE-ALIEN-TYPE WST-BLKSIZE-T ...)
; compiling (DEFINE-ALIEN-TYPE WST-BLKCNT-T ...)
; compiling (DEFINE-ALIEN-TYPE WST-NLINK-T ...)
; compiling (DEFINE-ALIEN-TYPE WST-UID-T ...)
; compiling (DEFINE-ALIEN-TYPE WST-GID-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 ELOOP ...)
; 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 SIG-DFL ...)
; compiling (DEFCONSTANT SIG-IGN ...)
; compiling (DEFCONSTANT SIGALRM ...)
; compiling (DEFCONSTANT SIGBUS ...)
; compiling (DEFCONSTANT SIGCHLD ...)
; compiling (DEFCONSTANT SIGCONT ...)
; compiling (DEFCONSTANT SIGEMT ...)
; 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 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: /Users/nikodemus/src/sbcl/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
;                                 '#<SB!ALIEN-INTERNALS:ALIEN-INTEGER-TYPE (SB!ALIEN:UNSIGNED
;                                                                           32)>)
; 
; 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:SIGNED 32))
; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE 
; ==>
;   (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX:DEV-T
;                                 '#<SB!ALIEN-INTERNALS:ALIEN-INTEGER-TYPE (SB!ALIEN:SIGNED
;                                                                           32)>)
; 
; 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:UNSIGNED 32))
; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE 
; ==>
;   (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX::CLOCK-T
;                                 '#<SB!ALIEN-INTERNALS:ALIEN-INTEGER-TYPE (SB!ALIEN:UNSIGNED
;                                                                           32)>)
; 
; caught STYLE-WARNING:
;   undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE

; 
; caught STYLE-WARNING:
;   15 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


; /Users/nikodemus/src/sbcl/obj/from-xc/output/stuff-groveled-from-headers.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/kernel.lisp" (written 15 JAN 2007 11:05:43 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 (SETF %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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/kernel.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/toplevel.lisp" (written 10 JAN 2008 01:32:48 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 *PSEUDO-ATOMIC-BITS* ...))
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/code/toplevel.lisp
; in: DEFUN SCRUB-CONTROL-STACK
;     (+ (SB!SYS:SAP-INT (SB!DI::DESCRIPTOR-SAP SB!VM:*CONTROL-STACK-START*))
;        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 (MOD 4831838206) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 4831838206) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (< (SB!SYS:SAP-INT SB!IMPL::LOC) 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 (MOD 4831838206), not a FIXNUM.

;     (+ (SB!SYS:SAP-INT (SB!DI::DESCRIPTOR-SAP SB!VM:*CONTROL-STACK-START*))
;        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::LOC) 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: /Users/nikodemus/src/sbcl/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-START*)
; 
; 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 IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ 
; --> THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {11CFFC31}>)
; 
; 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/toplevel.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cold-error.lisp" (written 07 APR 2007 04:13:23 AM):
; 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: /Users/nikodemus/src/sbcl/src/code/cold-error.lisp
; in: DEFUN WARN
;     (RESTART-CASE (SIGNAL CONDITION)
;                   (MUFFLE-WARNING NIL :REPORT "Skip warning."
;                                   (RETURN-FROM WARN NIL)))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; --> WITH-CONDITION-RESTARTS LET CONS LET CONS APPEND CDR ASSOC 
; ==>
;   (SB!KERNEL:%ASSOC SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %ASSOC

; in: DEFUN CERROR
;     (WITH-CONDITION-RESTARTS CONDITION (LIST (FIND-RESTART 'CONTINUE))
;                              (LET ((SB!DEBUG:*STACK-TOP-HINT* NIL))
;                                (SIGNAL CONDITION))
;                              (INVOKE-DEBUGGER CONDITION))
; --> LET CONS LET CONS APPEND CDR ASSOC 
; ==>
;   (SB!KERNEL:%ASSOC SB!C::ITEM LIST)
; 
; caught STYLE-WARNING:
;   undefined function: %ASSOC

;     (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: /Users/nikodemus/src/sbcl/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 #:G178 '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: /Users/nikodemus/src/sbcl/src/code/cold-error.lisp
; in: DEFUN WARN
;     (SB!INT:ENFORCE-TYPE CONDITION WARNING)
; --> LET UNLESS IF 
; ==>
;   (TYPEP #:ONCE-ONLY-170 '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:
;     %ASSOC COERCE-TO-CONDITION FIND-CALLER-NAME-AND-FRAME

; 
; caught STYLE-WARNING:
;   These types are undefined:
;     CONDITION STYLE-WARNING WARNING
; 
; compilation unit finished
;   caught 22 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/cold-error.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/fdefinition.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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
;    #<SB!KERNEL:VALUES-TYPE (VALUES &OPTIONAL (OR SB!KERNEL:FDEFN NULL) &REST
;                                    T)>
;    (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: /Users/nikodemus/src/sbcl/src/code/fdefinition.lisp
; 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) #:G35 #:G38 #:G37 #:G36)
; 
; 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) #:G28 #:G31 #:G30 #:G29)
; 
; 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:
;     (SETF INFO) ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED INFO UNDEFINE-FUN-NAME
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/fdefinition.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-type.lisp" (written 30 JUN 2008 11:35:59 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 #:G3 '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 #:G3 '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: /Users/nikodemus/src/sbcl/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-4 '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-4 'SB!KERNEL:ARRAY-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: ARRAY-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G3
;          '(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: /Users/nikodemus/src/sbcl/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-4 '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-4 'SB!KERNEL:CHARACTER-SET-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: CHARACTER-SET-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G3
;          '(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: /Users/nikodemus/src/sbcl/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 #:G3 'SB!KERNEL:COMPOUND-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: COMPOUND-TYPE

; --> LET COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G3 'SB!KERNEL:COMPOUND-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: COMPOUND-TYPE

; 
; caught STYLE-WARNING:
;   4 more uses of undefined type COMPOUND-TYPE


; file: /Users/nikodemus/src/sbcl/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-4 '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-4 'SB!KERNEL:CONS-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: CONS-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G3
;          '(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: /Users/nikodemus/src/sbcl/src/code/target-type.lisp
; in: DEFUN CTYPEP
;     (SB!C::CONSTANT-FUNCTION-CALL-P SB!KERNEL:FORM NIL NIL)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::CONSTANT-FUNCTION-CALL-P

;     (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION))
; 
; caught STYLE-WARNING:
;   undefined function: CSUBTYPEP

; in:
;      DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION (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: /Users/nikodemus/src/sbcl/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 #:G3 'SB!KERNEL:FUN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: FUN-TYPE

; --> LET COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G3 '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: /Users/nikodemus/src/sbcl/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 #:G3 '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 #:G3 'SB!KERNEL:HAIRY-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: HAIRY-TYPE

; 
; caught STYLE-WARNING:
;   4 more uses of undefined type HAIRY-TYPE


; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 #:G12 'SB!KERNEL:INTERSECTION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: INTERSECTION-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G12 'SB!KERNEL:INTERSECTION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: INTERSECTION-TYPE

; 
; caught STYLE-WARNING:
;   4 more uses of undefined type INTERSECTION-TYPE


; file: /Users/nikodemus/src/sbcl/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-4 '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-4 'SB!KERNEL:MEMBER-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: MEMBER-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G3
;          '(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: /Users/nikodemus/src/sbcl/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-4 'SB!KERNEL:NAMED-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: NAMED-TYPE

; --> LET COND IF TYPEP LET OR LET IF OR LET 
; ==>
;   (TYPEP #:ONCE-ONLY-4 'SB!KERNEL:NAMED-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: NAMED-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G3
;          '(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: /Users/nikodemus/src/sbcl/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 #:G3 '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 #:G3 'SB!KERNEL:NEGATION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: NEGATION-TYPE

; 
; caught STYLE-WARNING:
;   4 more uses of undefined type NEGATION-TYPE


; file: /Users/nikodemus/src/sbcl/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-4 'SB!KERNEL:NUMERIC-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: NUMERIC-TYPE

; --> LET COND IF TYPEP LET OR LET 
; ==>
;   (TYPEP #:ONCE-ONLY-4 'SB!KERNEL:NUMERIC-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: NUMERIC-TYPE

; --> LET COND IF 
; ==>
;   (TYPEP #:G3
;          '(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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 #:G12 'SB!KERNEL:UNION-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: UNION-TYPE

; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G12 '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: /Users/nikodemus/src/sbcl/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 #:G3 'SB!KERNEL:UNKNOWN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined type: UNKNOWN-TYPE

; --> LET COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G3 '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 SB!C::CONSTANT-FUNCTION-CALL-P 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 76 STYLE-WARNING conditions
;   printed 5 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/pred.lisp" (written 21 AUG 2007 08:18:42 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (INLINE STREAMP))
; compiling (DEFUN STREAMP ...)
; compiling (DEFUN VECTOR-T-P ...)
; compiling (DEFUN EXTENDED-SEQUENCE-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: /Users/nikodemus/src/sbcl/src/code/pred.lisp
; 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 EXTENDED-SEQUENCE-P
;     (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

; 
; caught STYLE-WARNING:
;   1 more use of undefined function %FUNCALLABLE-INSTANCE-LAYOUT


; file: /Users/nikodemus/src/sbcl/src/code/pred.lisp
; 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-61)
; 
; 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 EQUALP
;     (SB!KERNEL:RAW-INSTANCE-SLOTS-EQUALP SB!IMPL::LAYOUT-X SB!IMPL::X SB!IMPL::Y)
; 
; caught STYLE-WARNING:
;   undefined function: RAW-INSTANCE-SLOTS-EQUALP

;     (CHAR-EQUAL SB!IMPL::X SB!IMPL::Y)
; ==>
;   (SB!IMPL::TWO-ARG-CHAR-EQUAL SB!IMPL::X SB!IMPL::Y)
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-CHAR-EQUAL

; 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 EXTENDED-SEQUENCE-P
;     (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!IMPL::X SB!IMPL::SLAYOUT)
; 
; caught STYLE-WARNING:
;   undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID

; in: DEFUN STREAMP
;     (TYPEP STREAM 'STREAM)
; --> SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {11CFFC31}>)
; 
; 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= RAW-INSTANCE-SLOTS-EQUALP TWO-ARG-CHAR-EQUAL TYPE-SPECIFIER SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE UPDATE-OBJECT-LAYOUT-OR-INVALID
; 
; compilation unit finished
;   caught 19 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/pred.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-alieneval.lisp" (written 04 JUN 2008 03:39:40 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 (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 COERCE-TO-INTERPRETED-FUNCTION ...)
; compiling (DEFUN NATURALIZE ...)
; compiling (DEFUN DEPORT ...)
; compiling (DEFUN DEPORT-ALLOC ...)
; compiling (DEFUN EXTRACT-ALIEN-VALUE ...)
; compiling (DEFUN DEPOSIT-ALIEN-VALUE ...)
; compiling (DEFUN ALIEN-FUNCALL ...)
; compiling (DEFMACRO DEFINE-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: /Users/nikodemus/src/sbcl/src/code/target-alieneval.lisp
; in: DEFUN ALIEN-CALLBACK-INFO
;     (ASSOC (SB!ALIEN:ALIEN-SAP SB!ALIEN:ALIEN) SB!ALIEN::*ALIEN-CALLBACK-INFO*
;            :TEST #'SB!SYS:SAP=)
; ==>
;   (SB!KERNEL:%ASSOC-TEST SB!C::ITEM LIST
;    (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::TEST))
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:%ASSOC-TEST

; 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) #:G22 #:G25 #:G24 #:G23)
; 
; 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!ALIEN::INFO-VAR (GENSYM))
;             (SB!ALIEN::ALLOC-TMP (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 'LET* # #))
;                 SB!ALIEN::WHOLE)))
; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO 
; ==>
;   (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ALIEN-INTERNALS:LOCAL-ALIEN
;                               (LAMBDA (#:WHOLE321 #:ENVIRONMENT322)
;                                 (DECLARE (IGNORE #:ENVIRONMENT322))
;                                 (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: DEFMACRO SAP-ALIEN
;     (SB!ALIEN-INTERNALS:COMPUTE-ALIEN-REP-TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: COMPUTE-ALIEN-REP-TYPE

; in: DEFUN DEPORT-ALLOC
;     (SB!ALIEN-INTERNALS:COMPUTE-DEPORT-ALLOC-LAMBDA TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: COMPUTE-DEPORT-ALLOC-LAMBDA

; in: DEFUN DEPORT
;     (SB!ALIEN-INTERNALS:COMPUTE-DEPORT-LAMBDA TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: COMPUTE-DEPORT-LAMBDA

; in: DEFUN 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))
;      :DONT-SAVE T)
; 
; 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: /Users/nikodemus/src/sbcl/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:%ASSOC-TEST (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 COMPUTE-ALIEN-REP-TYPE COMPUTE-DEPORT-ALLOC-LAMBDA COMPUTE-DEPORT-LAMBDA COMPUTE-DEPOSIT-LAMBDA COMPUTE-EXTRACT-LAMBDA COMPUTE-LISP-REP-TYPE COMPUTE-NATURALIZE-LAMBDA CONSTANT-FORM-VALUE FINALIZE 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-c-call.lisp" (written 06 SEP 2006 11: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: /Users/nikodemus/src/sbcl/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
;                                 '#<SB!ALIEN-INTERNALS:ALIEN-INTEGER-TYPE (SB!ALIEN:SIGNED
;                                                                           32)>)
; 
; 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
;                                 '#<SB!ALIEN-INTERNALS:ALIEN-INTEGER-TYPE (SB!ALIEN:SIGNED
;                                                                           16)>)
; 
; 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
;                                 '#<SB!ALIEN-INTERNALS:ALIEN-INTEGER-TYPE (SB!ALIEN:SIGNED
;                                                                           8)>)
; 
; caught STYLE-WARNING:
;   undefined function: %DEFINE-ALIEN-TYPE

; 
; caught STYLE-WARNING:
;   10 more uses of undefined function %DEFINE-ALIEN-TYPE


; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-c-call.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-allocate.lisp" (written 04 MAR 2006 11: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) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-allocate.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/misc-aliens.lisp" (written 13 DEC 2001 12:54:50 AM):
; 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: /Users/nikodemus/src/sbcl/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
;    #<SB!ALIEN::ALIEN-C-STRING-TYPE (SB!ALIEN:C-STRING :EXTERNAL-FORMAT :DEFAULT
;                                     :ELEMENT-TYPE CHARACTER)>)
; 
; 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/misc-aliens.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/array.lisp" (written 28 JAN 2008 05:11:00 PM):
; 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/FP ...)
; compiling (DEFUN %WITH-ARRAY-DATA ...)
; compiling (DEFUN %DATA-VECTOR-AND-INDEX ...)
; 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 (DEF !FIND-DATA-VECTOR-SETTER ...)
; compiling (DEF !FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS ...)
; compiling (DEF !FIND-DATA-VECTOR-REFFER ...)
; compiling (DEF !FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF ...)
; file: /Users/nikodemus/src/sbcl/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-REF
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-REF
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF SB!IMPL::!FIND-DATA-VECTOR-REFFER NIL
;      (PROGN))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET 
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:ONCE-ONLY-487)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET 
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF VECTOR SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFINE HAIRY-DATA-VECTOR-SET ...)
; file: /Users/nikodemus/src/sbcl/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-SET
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-SET
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET SB!IMPL::!FIND-DATA-VECTOR-SETTER
;      (SB!IMPL::NEW-VALUE) (PROGN))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET 
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:ONCE-ONLY-517)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET 
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-SET VECTOR SB!INT:INDEX SB!IMPL::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; file: /Users/nikodemus/src/sbcl/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS
;      SB!IMPL::!FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS NIL
;      (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0)))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET 
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:ONCE-ONLY-547)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET 
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
;    (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; file: /Users/nikodemus/src/sbcl/src/code/array.lisp
; in: DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
;     (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
;      SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS
;      SB!IMPL::!FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS (SB!IMPL::NEW-VALUE)
;      (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0)))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET 
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* 
; ==>
;   (ARRAY-TOTAL-SIZE #:ONCE-ONLY-579)
; 
; note: unable to optimize because: can't tell the rank at compile time

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET 
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-SET ARRAY
;    (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX)
;    SB!C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN HAIRY-REF-ERROR ...)
; compiling (DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT ...)
; file: /Users/nikodemus/src/sbcl/src/code/array.lisp
; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS *DATA-VECTOR-SETTERS*
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::*DATA-VECTOR-SETTERS*
;      SB!IMPL::DEFINE-SETTER (PROGN) #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET)
; --> PROGN SETF SB!KERNEL:%SVSET SB!KERNEL:%ASET SB!IMPL::DEFINE-SETTER 
; --> SB!INT:NAMED-LAMBDA FUNCTION SB!KERNEL:DATA-VECTOR-SET 
; ==>
;   (SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET (THE (SIMPLE-ARRAY NIL (*)) VECTOR)
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SAFETY 1)))
;     (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))
;    0
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SPEED 1) (SAFETY 1)))
;     (THE NIL SB!IMPL::NEW-VALUE)))
; 
; note: The fourth argument never returns a value.

; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS *DATA-VECTOR-SETTERS/CHECK-BOUNDS*
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::*DATA-VECTOR-SETTERS/CHECK-BOUNDS*
;      SB!IMPL::DEFINE-SETTER (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR))
;      #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS)
; --> PROGN SETF SB!KERNEL:%SVSET SB!KERNEL:%ASET SB!IMPL::DEFINE-SETTER 
; --> SB!INT:NAMED-LAMBDA FUNCTION SB!KERNEL:DATA-VECTOR-SET 
; ==>
;   (SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET (THE (SIMPLE-ARRAY NIL (*)) VECTOR)
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SAFETY 1)))
;     (THE SB!INT:INDEX
;          (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR) SB!INT:INDEX)))
;    0
;    (LOCALLY
;     (DECLARE (OPTIMIZE (SPEED 1) (SAFETY 1)))
;     (THE NIL SB!IMPL::NEW-VALUE)))
; 
; note: The fourth argument never returns a value.

; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS *DATA-VECTOR-REFFERS*
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::*DATA-VECTOR-REFFERS*
;      SB!IMPL::DEFINE-REFFER (PROGN) #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF)
; --> PROGN SETF SB!KERNEL:%SVSET SB!KERNEL:%ASET SB!IMPL::DEFINE-REFFER 
; --> SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY SINGLE-FLOAT (*)) VECTOR)
;       (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR)
;       (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF
;       (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) VECTOR)
;       (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF
;       (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) VECTOR)
;       (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF
;       (THE (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) VECTOR)
;       (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF
;       (THE (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) VECTOR)
;       (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF
;       (THE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) VECTOR)
;       (LOCALLY (DECLARE (OPTIMIZE #)) (THE SB!INT:INDEX (PROGN SB!INT:INDEX)))))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS *DATA-VECTOR-REFFERS/CHECK-BOUNDS*
;     (SB!IMPL::DEFINE-REFFERS SB!IMPL::*DATA-VECTOR-REFFERS/CHECK-BOUNDS*
;      SB!IMPL::DEFINE-REFFER (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR))
;      #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS)
; --> PROGN SETF SB!KERNEL:%SVSET SB!KERNEL:%ASET SB!IMPL::DEFINE-REFFER 
; --> SB!INT:NAMED-LAMBDA 
; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY SINGLE-FLOAT (*)) VECTOR)
;       (LOCALLY
;        (DECLARE (OPTIMIZE #))
;        (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR)
;       (LOCALLY
;        (DECLARE (OPTIMIZE #))
;        (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF
;       (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) VECTOR)
;       (LOCALLY
;        (DECLARE (OPTIMIZE #))
;        (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF
;       (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) VECTOR)
;       (LOCALLY
;        (DECLARE (OPTIMIZE #))
;        (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF
;       (THE (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) VECTOR)
;       (LOCALLY
;        (DECLARE (OPTIMIZE #))
;        (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF
;       (THE (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) VECTOR)
;       (LOCALLY
;        (DECLARE (OPTIMIZE #))
;        (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; ==>
;   #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF
;      (VECTOR SB!INT:INDEX) (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;      (SB!KERNEL:DATA-VECTOR-REF
;       (THE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) VECTOR)
;       (LOCALLY
;        (DECLARE (OPTIMIZE #))
;        (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX)))))
; 
; note: doing complex float to pointer coercion (cost 13) to "<return value>"

; compiling (DEFUN DATA-VECTOR-REF ...)
; compiling (DEFUN DATA-VECTOR-REF-WITH-OFFSET ...)
; 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 *MERGE-SORT-TEMP-VECTOR* ...)
; compiling (DECLAIM (SIMPLE-VECTOR *MERGE-SORT-TEMP-VECTOR*))
; compiling (DEFVAR *ZAP-ARRAY-DATA-TEMP* ...)
; compiling (DECLAIM (SIMPLE-VECTOR *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: /Users/nikodemus/src/sbcl/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

; in: DEFUN ADJUST-ARRAY
;     (FILL SB!IMPL::NEW-DATA SB!IMPL::INITIAL-ELEMENT)
; ==>
;   (SB!KERNEL:VECTOR-FILL* SB!C::SEQ SB!C::ITEM SB!C::START SB!C::END)
; 
; caught STYLE-WARNING:
;   undefined function: VECTOR-FILL*

; in: DEFUN DATA-VECTOR-FROM-INITS
;     (FILL (THE VECTOR SB!IMPL::DATA) SB!IMPL::INITIAL-ELEMENT)
; ==>
;   (SB!KERNEL:VECTOR-FILL* SB!C::SEQ SB!C::ITEM SB!C::START SB!C::END)
; 
; caught STYLE-WARNING:
;   undefined function: VECTOR-FILL*

; in: DEFUN MAKE-ARRAY
;     (FILL ARRAY SB!IMPL::INITIAL-ELEMENT)
; ==>
;   (SB!KERNEL:VECTOR-FILL* SB!C::SEQ SB!C::ITEM SB!C::START SB!C::END)
; 
; caught STYLE-WARNING:
;   undefined function: VECTOR-FILL*

; in: DEFUN SHRINK-VECTOR
;     (SUBSEQ VECTOR 0 SB!IMPL::NEW-LENGTH)
; ==>
;   (SB!KERNEL:VECTOR-SUBSEQ* SB!C::SEQ SB!C::START SB!C::END)
; 
; caught STYLE-WARNING:
;   undefined function: VECTOR-SUBSEQ*

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ALLOCATE-STATIC-VECTOR FILL-DATA-VECTOR VECTOR-FILL* VECTOR-SUBSEQ*
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions
;   printed 28 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/array.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-float.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-float.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-sxhash.lisp" (written 17 MAY 2008 11:05:09 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFCONSTANT MAX-HASH ...)
; compiling (DEFTYPE HASH ...)
; compiling (DEFUN POINTER-HASH ...)
; compiling (DEFCONSTANT +MAX-HASH-DEPTHOID+ ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DECLAIM (INLINE MIX))
; compiling (DEFUN MIX ...)
; compiling (DECLAIM (INLINE %SXHASH-SUBSTRING))
; compiling (DEFUN %SXHASH-SUBSTRING ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-sxhash.lisp
; in: DEFUN %SXHASH-SUBSTRING
;     (AREF STRING SB!IMPL::I)
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (VECTOR CHARACTER)
;                               BASE-STRING), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; 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 (DEFUN SXHASH ...)
; file: /Users/nikodemus/src/sbcl/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 (LOGXOR 191020317 #))))
;       (CHARACTER (LOGXOR 72185131 (SXHASH (CHAR-CODE SB!IMPL::X))))
;       (NUMBER (SB!IMPL::SXHASH-NUMBER SB!IMPL::X))
;       (GENERIC-FUNCTION (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))
;       (T 42))
; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G88 'GENERIC-FUNCTION)
; 
; note: can't open-code test of unknown type GENERIC-FUNCTION

; in: DEFUN %SXHASH-SUBSTRING
;     (AREF STRING SB!IMPL::I)
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a 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
;     (ARRAY-RANK SB!IMPL::X)
; 
; note: unable to optimize because: The array rank 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).

;     (REALPART SB!IMPL::X)
; 
; note: forced to do full call
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (IMAGPART SB!IMPL::X)
; 
; note: forced to do full call
;       unable to do complex float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

; compiling (DEFUN PSXHASH ...)
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/code/target-sxhash.lisp
; in: DEFUN ARRAY-PSXHASH
;     (SB!INT:PSXHASH (AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID)
; --> CHAR-CODE 
; ==>
;   (CHAR-UPCASE SB!C::X)
; 
; note: unable to
;   open code
; due to type uncertainty:
;   The first argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (AREF SB!IMPL::KEY SB!IMPL::I)
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

;     (SB!INT:PSXHASH (AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (ARRAY-RANK SB!IMPL::KEY)
; 
; note: unable to optimize because: The array rank is not known at compile time: *

;     (ARRAY-TOTAL-SIZE SB!IMPL::KEY)
; 
; note: unable to optimize because: can't tell the rank at compile time

;     (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I)
; --> SB!KERNEL:HAIRY-DATA-VECTOR-REF SB!KERNEL:%CHECK-BOUND 
; ==>
;   (ARRAY-TOTAL-SIZE ARRAY)
; 
; note: unable to optimize because: can't tell the rank at compile time

; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY
;    (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-TOTAL-SIZE ARRAY) SB!INT:INDEX))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a ARRAY, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (SB!INT:PSXHASH (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (ARRAY-DIMENSION SB!IMPL::KEY SB!IMPL::I)
; 
; note: unable to optimize because: The axis is not constant.

; compiling (DEFUN STRUCTURE-OBJECT-PSXHASH ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-sxhash.lisp
; in: DEFUN STRUCTURE-OBJECT-PSXHASH
;     (SB!INT:PSXHASH (SB!KERNEL:%INSTANCE-REF SB!IMPL::KEY SB!IMPL::J)
;      (1- SB!IMPL::DEPTHOID))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

; compiling (DEFUN LIST-PSXHASH ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-sxhash.lisp
; in: DEFUN LIST-PSXHASH
;     (SB!INT:PSXHASH (CAR SB!IMPL::KEY) (1- SB!IMPL::DEPTHOID))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

;     (SB!INT:PSXHASH (CDR SB!IMPL::KEY) (1- SB!IMPL::DEPTHOID))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a CHARACTER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a INTEGER.

; compiling (DEFUN HASH-TABLE-PSXHASH ...)
; compiling (DEFUN NUMBER-PSXHASH ...)
; file: /Users/nikodemus/src/sbcl/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.

;     (<= MOST-NEGATIVE-DOUBLE-FLOAT SB!IMPL::KEY MOST-POSITIVE-DOUBLE-FLOAT)
; --> 
; --> (LAMBDA (#:G280 #:G279 #:G278) (DECLARE (TYPE REAL #:G280 #:G279 #:G278)) (IF (<= #:G280 #:G279) (IF (<= #:G279 #:G278) T NIL) NIL)) 
; --> IF <= >= OR LET IF OR = IF 
; ==>
;   (= SB!C::X SB!C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

; --> 
; --> (LAMBDA (#:G280 #:G279 #:G278) (DECLARE (TYPE REAL #:G280 #:G279 #:G278)) (IF (<= #:G280 #:G279) (IF (<= #:G279 #:G278) T NIL) NIL)) 
; --> IF IF <= OR LET IF OR = IF 
; ==>
;   (= SB!C::X SB!C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (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).
;       unable to do inline float truncate (cost 5) because:
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-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 (SIGNED-BYTE 32).
;       unable to do inline float coercion (cost 6) because:
;       The first argument is a INTEGER, not a (UNSIGNED-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 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).
;       unable to do inline float truncate (cost 5) because:
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-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 (SIGNED-BYTE 32).
;       unable to do inline float coercion (cost 6) because:
;       The first argument is a INTEGER, not a (UNSIGNED-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
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       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 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
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       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 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 (SIGNED-BYTE 32).
;       unable to do inline float coercion (cost 6) because:
;       The first argument is a RATIONAL, not a (UNSIGNED-BYTE 32).
; 
; note: forced to do full call
;       unable to do inline float coercion (cost 5) because:
;       The first argument is a RATIONAL, not a (SIGNED-BYTE 32).
;       unable to do inline float coercion (cost 6) because:
;       The first argument is a RATIONAL, not a (UNSIGNED-BYTE 32).

;     (IMAGPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (REALPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).
; 
; note: forced to do full call
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (IMAGPART SB!IMPL::KEY)
; 
; note: forced to do full call
;       unable to do complex float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float imagpart (cost 3) because:
;       The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (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: doing float to pointer coercion (cost 13) from NUMBER

;     (FLOOR SB!IMPL::KEY)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET 
; ==>
;   (SB!KERNEL:%UNARY-TRUNCATE SB!C::X)
; 
; note: doing float to pointer coercion (cost 13) from #:G270

; 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:
;   26 more uses of undefined type CONDITION


; file: /Users/nikodemus/src/sbcl/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 (LOGXOR 191020317 #))))
;       (CHARACTER (LOGXOR 72185131 (SXHASH (CHAR-CODE SB!IMPL::X))))
;       (NUMBER (SB!IMPL::SXHASH-NUMBER SB!IMPL::X))
;       (GENERIC-FUNCTION (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))
;       (T 42))
; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF 
; ==>
;   (TYPEP #:G88 '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:
;   19 more uses of undefined type GENERIC-FUNCTION


; file: /Users/nikodemus/src/sbcl/src/code/target-sxhash.lisp
; in: DEFUN SXHASH
;     (COPY-SEQ SB!IMPL::X)
; ==>
;   (SB!KERNEL:VECTOR-SUBSEQ* SB!C::SEQ 0 NIL)
; 
; caught STYLE-WARNING:
;   undefined function: VECTOR-SUBSEQ*

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     VECTOR-SUBSEQ*

; 
; caught STYLE-WARNING:
;   These types are undefined:
;     CONDITION GENERIC-FUNCTION
; 
; compilation unit finished
;   caught 11 STYLE-WARNING conditions
;   printed 72 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-sxhash.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/list.lisp" (written 31 MAY 2008 08:43:12 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 %LAST0 ...)
; compiling (DEFUN %LAST1 ...)
; compiling (DEFUN %LASTN/FIXNUM ...)
; file: /Users/nikodemus/src/sbcl/src/code/list.lisp
; in:
;      MACROLET ((LAST0-MACRO NIL
;             '(LET (# #)
;                (LOOP # #)))
;            (LAST1-MACRO NIL
;             '(LET (# #)
;                (LOOP # #)))
;            (LASTN-MACRO (TYPE)
;             (BACKQ-LIST* 'LET (BACKQ-LIST '# '# #) (BACKQ-LIST 'DECLARE #)
;                          (BACKQ-LIST* 'TAGBODY ':SCAN '# '# ...) ...)))
;     (DECF SB!IMPL::N)
; --> LET* SETQ 
; ==>
;   (THE #<SB!KERNEL:NUMERIC-TYPE FIXNUM> #:G231)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; compiling (DEFUN %LASTN/BIGNUM ...)
; file: /Users/nikodemus/src/sbcl/src/code/list.lisp
; in:
;      MACROLET ((LAST0-MACRO NIL
;             '(LET (# #)
;                (LOOP # #)))
;            (LAST1-MACRO NIL
;             '(LET (# #)
;                (LOOP # #)))
;            (LASTN-MACRO (TYPE)
;             (BACKQ-LIST* 'LET (BACKQ-LIST '# '# #) (BACKQ-LIST 'DECLARE #)
;                          (BACKQ-LIST* 'TAGBODY ':SCAN '# '# ...) ...)))
;     (DECF SB!IMPL::N)
; --> LET* 
; ==>
;   (- SB!IMPL::N #:G250)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

; --> LET* SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF AND 
; --> LOCALLY AND >= IF 
; ==>
;   (< SB!C::X SB!C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (INTEGER -1), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -1), not a FIXNUM.
;       etc.

; in: DEFUN %LASTN/BIGNUM
;     (DEFUN SB!KERNEL:%LASTN/BIGNUM (LIST SB!IMPL::N)
;       (DECLARE (OPTIMIZE SPEED (SB!C:VERIFY-ARG-COUNT 0))
;        (TYPE (AND UNSIGNED-BYTE BIGNUM) SB!IMPL::N))
;       (SB!IMPL::LASTN-MACRO UNSIGNED-BYTE))
; --> PROGN SB!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF TYPEP LET AND IF AND LOCALLY AND >= IF 
; ==>
;   (< SB!C::X SB!C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline (unsigned-byte 32) comparison (cost 5) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       unable to do inline (signed-byte 32) comparison (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).

; compiling (DEFUN LAST ...)
; compiling (DEFINE-COMPILER-MACRO LAST ...)
; compiling (DEFUN LIST ...)
; compiling (DEFUN LIST* ...)
; compiling (DEFUN MAKE-LIST ...)
; compiling (DEFUN APPEND ...)
; compiling (DEFUN APPEND2 ...)
; compiling (DEFINE-COMPILER-MACRO APPEND ...)
; compiling (SB-XC:DEFMACRO !COPY-LIST-MACRO ...)
; compiling (DEFUN COPY-LIST ...)
; compiling (DEFUN COPY-ALIST ...)
; compiling (DEFUN COPY-TREE ...)
; compiling (DEFUN REVAPPEND ...)
; compiling (DEFUN NCONC ...)
; compiling (DEFUN NRECONC ...)
; compiling (FLET (#) ...)
; file: /Users/nikodemus/src/sbcl/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 (LAMBDA (LIST &OPTIONAL #) (BLOCK 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 (LAMBDA (LIST &OPTIONAL #) (BLOCK 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 ...)
; compiling (DEFCONSTANT +LIST-BASED-UNION-LIMIT+ ...)
; compiling (DEFUN UNION ...)
; compiling (DEFMACRO STEVE-SPLICE ...)
; compiling (DEFUN NUNION ...)
; compiling (DEFUN INTERSECTION ...)
; compiling (DEFUN NINTERSECTION ...)
; compiling (DEFUN SET-DIFFERENCE ...)
; compiling (DEFUN NSET-DIFFERENCE ...)
; compiling (DEFUN SET-EXCLUSIVE-OR ...)
; compiling (DEFUN NSET-EXCLUSIVE-OR ...)
; compiling (DEFUN SUBSETP ...)
; 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 ...)
; compiling (DEF NIL ...)
; file: /Users/nikodemus/src/sbcl/src/code/list.lisp
; in: DEF NIL
;     (EQL SB!IMPL::ITEM SB!IMPL::TARGET)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.

; compiling (DEF NIL ...)
; compiling (DEF (KEY) ...)
; file: /Users/nikodemus/src/sbcl/src/code/list.lisp
; in: DEF (KEY)
;     (EQL SB!IMPL::ITEM (FUNCALL SB!IMPL::KEY SB!IMPL::TARGET))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.

; compiling (DEF (KEY) ...)
; compiling (DEF (KEY TEST) ...)
; compiling (DEF (KEY TEST-NOT) ...)
; compiling (DEF (TEST) ...)
; compiling (DEF (TEST-NOT) ...)
; file: /Users/nikodemus/src/sbcl/src/code/list.lisp
; in: DEFINE-COMPILER-MACRO LAST
;     (SB!INT:CONSTANT-FORM-VALUE SB!IMPL::N SB!IMPL::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-FORM-VALUE

; in: DEFUN BUTLAST
;     (SUBSEQ LIST 0 (- SB!IMPL::N-CONSES-IN-LIST SB!IMPL::N))
; ==>
;   (SB!KERNEL:LIST-SUBSEQ* SB!C::SEQ SB!C::START SB!C::END)
; 
; caught STYLE-WARNING:
;   undefined function: LIST-SUBSEQ*

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     CONSTANT-FORM-VALUE LIST-SUBSEQ*
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions
;   printed 22 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/list.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/seq.lisp" (written 03 JUN 2008 06:07:03 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN %CHECK-GENERIC-SEQUENCE-BOUNDS ...)
; 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 SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...)
; compiling (DEFUN ARRAY-BOUNDING-INDICES-BAD-ERROR ...)
; compiling (DEFUN ELT ...)
; compiling (DEFUN %SETELT ...)
; compiling (DEFUN LENGTH ...)
; compiling (DEFUN MAKE-SEQUENCE ...)
; file: /Users/nikodemus/src/sbcl/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 PROGN 
; ==>
;   TYPE
; 
; note: deleting unreachable code

; compiling (DEFUN STRING-SUBSEQ* ...)
; compiling (DEFUN VECTOR-SUBSEQ* ...)
; file: /Users/nikodemus/src/sbcl/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

; --> SB!IMPL::SEQ-DISPATCH IF IF LET 
; ==>
;   (MAKE-ARRAY (- SB!IMPL::END SB!IMPL::START) :ELEMENT-TYPE
;               (ARRAY-ELEMENT-TYPE SEQUENCE))
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFUN LIST-SUBSEQ* ...)
; compiling (DEFUN SUBSEQ ...)
; compiling (DEFUN COPY-SEQ ...)
; compiling (DEFUN LIST-COPY-SEQ* ...)
; compiling (DEFUN LIST-FILL* ...)
; compiling (DEFUN VECTOR-FILL* ...)
; compiling (DEFUN STRING-FILL* ...)
; compiling (DEFUN 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 (DEFUN FILL-DATA-VECTOR ...)
; file: /Users/nikodemus/src/sbcl/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) #:G247 #:G249 #:G248)
; 
; caught STYLE-WARNING:
;   undefined function: (SETF SB!SEQUENCE:ELT)

; 
; caught STYLE-WARNING:
;   undefined type: ARRAY-TYPE


; file: /Users/nikodemus/src/sbcl/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:
;   6 more uses of undefined type ARRAY-TYPE


; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/code/seq.lisp
; in: DEFINE-SEQUENCE-TRAVERSER DELETE
;     #'SB!SEQUENCE:DELETE
; 
; caught STYLE-WARNING:
;   undefined function: SB!SEQUENCE:DELETE

; in: DEFINE-SEQUENCE-TRAVERSER DELETE-DUPLICATES
;     #'SB!SEQUENCE:DELETE-DUPLICATES
; 
; caught STYLE-WARNING:
;   undefined function: SB!SEQUENCE:DELETE-DUPLICATES

; in: DEFINE-SEQUENCE-TRAVERSER DELETE-IF
;     #'SB!SEQUENCE:DELETE-IF
; 
; caught STYLE-WARNING:
;   undefined function: SB!SEQUENCE:DELETE-IF

; in: DEFINE-SEQUENCE-TRAVERSER DELETE-IF-NOT
;     #'SB!SEQUENCE:DELETE-IF-NOT
; 
; caught STYLE-WARNING:
;   undefined function: SB!SEQUENCE:DELETE-IF-NOT

; in: DEFUN ELT
;     (SB!SEQUENCE:ELT SEQUENCE SB!INT:INDEX)
; 
; caught STYLE-WARNING:
;   undefined function: SB!SEQUENCE:ELT

; in: DEFUN FILL
;     (SB!SEQUENCE:FILL SEQUENCE SB!IMPL::ITEM :START SB!IMPL::START :END
;      (SB!KERNEL:%CHECK-GENERIC-SEQUENCE-BOUNDS SEQUENCE SB!IMPL::START
;       SB!IMPL::END))
; 
; caught STYLE-WARNING:
;   undefined function: SB!SEQUENCE:FILL

; in: DEFUN 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 %CHECK-GENERIC-SEQUENCE-BOUNDS
;     (SB!SEQUENCE:LENGTH SB!IMPL::SEQ)
; 
; 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 #:SEQUENCE1407)
; 
; 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 #:SEQUENCE1327)
; 
; 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 #:SEQUENCE1268)
; 
; 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: /Users/nikodemus/src/sbcl/src/code/seq.lisp
; in: SB-XC:DEFMACRO VECTOR-REVERSE
;     (SB!IMPL::%MAKE-SEQUENCE-LIKE SEQUENCE LENGTH)
; --> 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:
;   5 more uses of undefined function SB!SEQUENCE:MAKE-SEQUENCE-LIKE


; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 79 STYLE-WARNING conditions
;   printed 17 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/seq.lisp-obj-tmp written
; compilation finished in 0:00:05
; compiling file "/Users/nikodemus/src/sbcl/src/code/coerce.lisp" (written 05 DEC 2006 07:50:20 PM):
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/coerce.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/string.lisp" (written 24 JUN 2008 08:12:58 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: /Users/nikodemus/src/sbcl/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 (LAMBDA (STRING &KEY # ...) (BLOCK 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 (LAMBDA (STRING &KEY # ...) (BLOCK 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 SB!IMPL::%STRING IF STRING 
; ==>
;   STRING
; 
; note: deleting unreachable code

; compiling (FLET (#) ...)
; file: /Users/nikodemus/src/sbcl/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 (LAMBDA (STRING &KEY # ...) (BLOCK 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 (LAMBDA (STRING &KEY # ...) (BLOCK 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 SB!IMPL::%STRING IF STRING 
; ==>
;   STRING
; 
; note: deleting unreachable code

; compiling (FLET (#) ...)
; file: /Users/nikodemus/src/sbcl/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 (LAMBDA (STRING &KEY # ...) (BLOCK 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 (LAMBDA (STRING &KEY # ...) (BLOCK 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 SB!IMPL::%STRING IF STRING 
; ==>
;   STRING
; 
; note: deleting unreachable code

; compiling (DEFUN GENERIC-STRING-TRIM ...)
; compiling (DEFUN STRING-LEFT-TRIM ...)
; compiling (DEFUN STRING-RIGHT-TRIM ...)
; compiling (DEFUN STRING-TRIM ...)
; file: /Users/nikodemus/src/sbcl/src/code/string.lisp
; in: SB-XC:DEFMACRO STRING-LESS-GREATER-EQUAL
;     (CHAR-EQUAL SB!IMPL::CHAR1 SB!IMPL::CHAR2)
; ==>
;   (SB!IMPL::TWO-ARG-CHAR-EQUAL SB!IMPL::CHAR1 SB!IMPL::CHAR2)
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-CHAR-EQUAL

; in: SB-XC:DEFMACRO STRING-NOT-EQUAL-LOOP
;     (CHAR-EQUAL (SCHAR SB!IMPL::STRING1 SB!IMPL::INDEX1)
;                 (SCHAR SB!IMPL::STRING2 SB!IMPL::INDEX2))
; ==>
;   (SB!IMPL::TWO-ARG-CHAR-EQUAL (SCHAR SB!IMPL::STRING1 SB!IMPL::INDEX1)
;    (SCHAR SB!IMPL::STRING2 SB!IMPL::INDEX2))
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-CHAR-EQUAL
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-CHAR-EQUAL

; 
; caught STYLE-WARNING:
;   3 more uses of undefined function TWO-ARG-CHAR-EQUAL


; file: /Users/nikodemus/src/sbcl/src/code/string.lisp
; in: DEFUN STRING-LESS-GREATER-EQUAL-TESTS
;     (CHAR-GREATERP SB!IMPL::CHAR1 SB!IMPL::CHAR2)
; ==>
;   (SB!IMPL::TWO-ARG-CHAR-GREATERP SB!IMPL::CHAR1 SB!IMPL::CHAR2)
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-CHAR-GREATERP
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-CHAR-GREATERP

;     (CHAR-LESSP SB!IMPL::CHAR1 SB!IMPL::CHAR2)
; ==>
;   (SB!IMPL::TWO-ARG-CHAR-LESSP SB!IMPL::CHAR1 SB!IMPL::CHAR2)
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-CHAR-LESSP
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-CHAR-LESSP

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     TWO-ARG-CHAR-EQUAL TWO-ARG-CHAR-GREATERP TWO-ARG-CHAR-LESSP
; 
; compilation unit finished
;   caught 15 STYLE-WARNING conditions
;   printed 3 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/string.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/mipsstrops.lisp" (written 14 JUL 2005 07:30:36 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN %SP-STRING-COMPARE ...)
; compiling (DEFUN %SP-REVERSE-STRING-COMPARE ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/mipsstrops.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-time.lisp" (written 26 OCT 2006 11:38:51 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFCONSTANT SB-XC:INTERNAL-TIME-UNITS-PER-SECOND ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-time.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/unix.lisp" (written 14 MAR 2008 10:41:26 PM):
; compiling (IN-PACKAGE "SB!UNIX")
; compiling (/SHOW0 "unix.lisp 21")
; compiling (DEFMACRO DEF-ENUM ...)
; compiling (DEFUN C-STRINGS->STRING-LIST ...)
; file: /Users/nikodemus/src/sbcl/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 (DEFUN SB-MKSTEMP ...)
; 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 (DECLAIM (MAYBE-INLINE UNIX-READ))
; 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: /Users/nikodemus/src/sbcl/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
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; 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: /Users/nikodemus/src/sbcl/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
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; 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: /Users/nikodemus/src/sbcl/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
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFUN UNIX-READLINK ...)
; file: /Users/nikodemus/src/sbcl/src/code/unix.lisp
; in: DEFUN UNIX-READLINK
;     (SB!ALIEN:WITH-ALIEN ((SB!ALIEN:C-STRING SB!ALIEN:C-STRING SB!UNIX::PTR))
;      SB!ALIEN:C-STRING)
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SB!UNIX::PTR 
; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFUN UNIX-REALPATH ...)
; file: /Users/nikodemus/src/sbcl/src/code/unix.lisp
; in: DEFUN UNIX-REALPATH
;     (SB!ALIEN:WITH-ALIEN ((SB!ALIEN:C-STRING SB!ALIEN:C-STRING SB!UNIX::PTR))
;      SB!ALIEN:C-STRING)
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SB!UNIX::PTR 
; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; 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 (DEFVAR *ON-DANGEROUS-SELECT* ...)
; compiling (DEFUN NOTE-DANGEROUS-SELECT ...)
; 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: /Users/nikodemus/src/sbcl/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
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                              (SB!ALIEN:STRUCT
;                                               SB!UNIX::WRAPPED_STAT
;                                               (SB!UNIX:ST-DEV #)
;                                               (SB!UNIX::ST-INO #)
;                                               (SB!UNIX:ST-MODE #)
;                                               (SB!UNIX:ST-NLINK #)
;                                               (SB!UNIX:ST-UID #)
;                                               (SB!UNIX:ST-GID #)
;                                               (SB!UNIX:ST-RDEV #)
;                                               (SB!UNIX:ST-SIZE #)
;                                               (SB!UNIX:ST-BLKSIZE #)
;                                               (SB!UNIX:ST-BLOCKS #) ...))>)
; 
; 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: /Users/nikodemus/src/sbcl/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
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                              (SB!ALIEN:STRUCT
;                                               SB!UNIX::WRAPPED_STAT
;                                               (SB!UNIX:ST-DEV #)
;                                               (SB!UNIX::ST-INO #)
;                                               (SB!UNIX:ST-MODE #)
;                                               (SB!UNIX:ST-NLINK #)
;                                               (SB!UNIX:ST-UID #)
;                                               (SB!UNIX:ST-GID #)
;                                               (SB!UNIX:ST-RDEV #)
;                                               (SB!UNIX:ST-SIZE #)
;                                               (SB!UNIX:ST-BLKSIZE #)
;                                               (SB!UNIX:ST-BLOCKS #) ...))>)
; 
; 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: /Users/nikodemus/src/sbcl/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
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                              (SB!ALIEN:STRUCT
;                                               SB!UNIX::WRAPPED_STAT
;                                               (SB!UNIX:ST-DEV #)
;                                               (SB!UNIX::ST-INO #)
;                                               (SB!UNIX:ST-MODE #)
;                                               (SB!UNIX:ST-NLINK #)
;                                               (SB!UNIX:ST-UID #)
;                                               (SB!UNIX:ST-GID #)
;                                               (SB!UNIX:ST-RDEV #)
;                                               (SB!UNIX:ST-SIZE #)
;                                               (SB!UNIX:ST-BLKSIZE #)
;                                               (SB!UNIX:ST-BLOCKS #) ...))>)
; 
; 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 (DEFCONSTANT MICRO-SECONDS-PER-INTERNAL-TIME-UNIT ...)
; compiling (DECLAIM (INLINE SYSTEM-INTERNAL-RUN-TIME ...))
; compiling (DEFUN SYSTEM-REAL-TIME-VALUES ...)
; compiling (LET (# # ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/unix.lisp
; in: DEFUN REINIT-INTERNAL-REAL-TIME
;     (DEFUN SB!SYS:REINIT-INTERNAL-REAL-TIME ()
;       (SETF (VALUES SB!UNIX::E-SEC SB!UNIX::E-MSEC)
;               (SB!UNIX::SYSTEM-REAL-TIME-VALUES)
;             SB!UNIX::C-SEC
;               0
;             SB!UNIX::C-MSEC
;               0))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!SYS:REINIT-INTERNAL-REAL-TIME
;                     (LAMBDA ()
;                       (BLOCK SB!SYS:REINIT-INTERNAL-REAL-TIME
;                         (SETF (VALUES SB!UNIX::E-SEC SB!UNIX::E-MSEC)
;                                 (SB!UNIX::SYSTEM-REAL-TIME-VALUES)
;                               SB!UNIX::C-SEC
;                                 0
;                               SB!UNIX::C-MSEC
;                                 0))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET REINIT-INTERNAL-REAL-TIME (LAMBDA NIL (BLOCK REINIT-INTERNAL-REAL-TIME #))))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET REINIT-INTERNAL-REAL-TIME not cross-compiled at top level: demoting
;   to (SETF FDEFINITION)

; in: DEFUN GET-INTERNAL-REAL-TIME
;     (DEFUN GET-INTERNAL-REAL-TIME ()
;       (MULTIPLE-VALUE-BIND
;           (SB!UNIX::SEC SB!UNIX::MSEC)
;           (SB!UNIX::SYSTEM-REAL-TIME-VALUES)
;         (UNLESS
;             (AND (= SB!UNIX::MSEC SB!UNIX::C-MSEC)
;                  (= SB!UNIX::SEC SB!UNIX::C-SEC))
;           (SETF SB!UNIX::NOW
;                   (+ # #)
;                 SB!UNIX::C-MSEC
;                   SB!UNIX::MSEC
;                 SB!UNIX::C-SEC
;                   SB!UNIX::SEC))
;         SB!UNIX::NOW))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET GET-INTERNAL-REAL-TIME
;                     (LAMBDA ()
;                       (BLOCK GET-INTERNAL-REAL-TIME
;                         (MULTIPLE-VALUE-BIND
;                             (SB!UNIX::SEC SB!UNIX::MSEC)
;                             (SB!UNIX::SYSTEM-REAL-TIME-VALUES)
;                           (UNLESS # #)
;                           SB!UNIX::NOW))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET GET-INTERNAL-REAL-TIME (LAMBDA NIL (BLOCK GET-INTERNAL-REAL-TIME #))))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET GET-INTERNAL-REAL-TIME not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; 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: /Users/nikodemus/src/sbcl/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
;       #<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE (SB!ALIEN: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::SUSECONDS-T)))
; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES 
; ==>
;   (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES
;    '((:STRUCT SB!UNIX:TIMEVAL
;       #<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE (SB!ALIEN: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
;       #<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE (SB!ALIEN: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: /Users/nikodemus/src/sbcl/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
;                                 '#<SB!ALIEN-INTERNALS:ALIEN-INTEGER-TYPE (SB!ALIEN:UNSIGNED
;                                                                           32)>)
; 
; caught STYLE-WARNING:
;   undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE

; in: DEFUN NOTE-DANGEROUS-SELECT
;     (SB!DEBUG:BACKTRACE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DEBUG:BACKTRACE

; 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 LET SB!ALIEN-INTERNALS:DEPORT-ALLOC 
; --> ETYPECASE LET COND IF COND IF COND IF PROGN SB!ALIEN::STRING-TO-C-STRING 
; ==>
;   (SB!ALIEN::C-STRING-EXTERNAL-FORMAT
;    #<SB!ALIEN::ALIEN-C-STRING-TYPE (SB!ALIEN:C-STRING :EXTERNAL-FORMAT :DEFAULT
;                                     :ELEMENT-TYPE CHARACTER)>)
; 
; 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 LET 
; --> SB!ALIEN-INTERNALS:DEPORT-ALLOC ETYPECASE LET COND IF COND IF COND IF 
; --> PROGN SB!ALIEN::STRING-TO-C-STRING 
; ==>
;   (SB!ALIEN::C-STRING-EXTERNAL-FORMAT
;    #<SB!ALIEN::ALIEN-C-STRING-TYPE (SB!ALIEN:C-STRING :EXTERNAL-FORMAT :DEFAULT
;                                     :ELEMENT-TYPE CHARACTER)>)
; 
; 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
;    #<SB!ALIEN::ALIEN-C-STRING-TYPE (SB!ALIEN:C-STRING :EXTERNAL-FORMAT :DEFAULT
;                                     :ELEMENT-TYPE CHARACTER)>)
; 
; caught STYLE-WARNING:
;   undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT

; 
; caught STYLE-WARNING:
;   10 more uses of undefined function SB!ALIEN::C-STRING-EXTERNAL-FORMAT


; file: /Users/nikodemus/src/sbcl/src/code/unix.lisp
; in: DEFUN POSIX-GETCWD/
;     (CONCATENATE 'STRING (SB!UNIX:POSIX-GETCWD) "/")
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-470 (#:G459)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G459)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-470))
;     (ETYPECASE #:G459
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-470 (THE # #:G459)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-470 (THE SEQUENCE #:G459)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH. (+ (SB!IMPL::STRING-DISPATCH # #:G459 # #) 1))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G459
;      (REPLACE SB!C::.STRING. #:G459 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G459)))
;     (PROGN (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\/) (INCF SB!C::.POS.))
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type COMPILER-NOTE


; file: /Users/nikodemus/src/sbcl/src/code/unix.lisp
; in: DEFUN SB-MKSTEMP
;     (SB!EXT:OCTETS-TO-STRING SB!UNIX::TEMPLATE-BUFFER)
; 
; caught STYLE-WARNING:
;   undefined function: OCTETS-TO-STRING

;     (SB!EXT:STRING-TO-OCTETS SB!UNIX::TEMPLATE-STRING)
; 
; caught STYLE-WARNING:
;   undefined function: STRING-TO-OCTETS

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE SB!DEBUG:BACKTRACE SB!ALIEN::C-STRING-EXTERNAL-FORMAT OCTETS-TO-STRING STRING-TO-OCTETS

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 20 STYLE-WARNING conditions
;   printed 9 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/unix.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/Users/nikodemus/src/sbcl/src/code/common-os.lisp" (written 30 NOV 2006 05:18:58 PM):
; 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: /Users/nikodemus/src/sbcl/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
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:SIGNED 8))>)
; 
; 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
;    #<SB!ALIEN::ALIEN-C-STRING-TYPE (SB!ALIEN:C-STRING :EXTERNAL-FORMAT :DEFAULT
;                                     :ELEMENT-TYPE CHARACTER)>)
; 
; 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/common-os.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/bsd-os.lisp" (written 16 MAR 2006 02:01:07 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: /Users/nikodemus/src/sbcl/src/code/bsd-os.lisp
; in: DEFUN SOFTWARE-VERSION
;     (SB!EXT:RUN-PROGRAM "/usr/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/bsd-os.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/sc-offset.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/sc-offset.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/x86-vm.lisp" (written 14 NOV 2006 05:59:52 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-ALIEN-TYPE OS-CONTEXT-T ...)
; compiling (DEFUN MACHINE-TYPE ...)
; compiling (DEFUN GET-MACHINE-VERSION ...)
; compiling (DEFVAR *NUM-FIXUPS* ...)
; compiling (DECLAIM (INLINE ADJUST-FIXUP-ARRAY))
; compiling (DEFUN ADJUST-FIXUP-ARRAY ...)
; compiling (DEFUN FIXUP-CODE-OBJECT ...)
; compiling (DEFUN !ENVECTOR-LOAD-TIME-CODE-FIXUP ...)
; compiling (DECLAIM (INLINE CONTEXT-PC-ADDR))
; compiling (DEFINE-ALIEN-ROUTINE ("os_context_pc_addr" CONTEXT-PC-ADDR) ...)
; file: /Users/nikodemus/src/sbcl/src/code/x86-vm.lisp
; in: DEFINE-ALIEN-ROUTINE ("os_context_pc_addr" CONTEXT-PC-ADDR)
;     (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("os_context_pc_addr" SB!VM::CONTEXT-PC-ADDR)
;      (* SB!ALIEN:UNSIGNED-INT) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T)))
; --> PROGN DEFUN PROGN SB!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
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:UNSIGNED 32))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE CONTEXT-PC))
; compiling (DEFUN CONTEXT-PC ...)
; compiling (DECLAIM (INLINE CONTEXT-REGISTER-ADDR))
; compiling (DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR) ...)
; file: /Users/nikodemus/src/sbcl/src/code/x86-vm.lisp
; in:
;      DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR)
;     (SB!ALIEN:DEFINE-ALIEN-ROUTINE
;      ("os_context_register_addr" SB!VM::CONTEXT-REGISTER-ADDR)
;      (* SB!ALIEN:UNSIGNED-INT) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T))
;      (SB!INT:INDEX SB!ALIEN:INT))
; --> PROGN DEFUN PROGN SB!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
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (* (SB!ALIEN:UNSIGNED 32))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE CONTEXT-REGISTER))
; compiling (DEFUN CONTEXT-REGISTER ...)
; compiling (DEFUN %SET-CONTEXT-REGISTER ...)
; compiling (DEFUN CONTEXT-FLOAT-REGISTER ...)
; compiling (DEFUN %SET-CONTEXT-FLOAT-REGISTER ...)
; compiling (DEFUN CONTEXT-FLOATING-POINT-MODES ...)
; compiling (DEFUN INTERNAL-ERROR-ARGS ...)
; compiling (DEFUN FLOAT-WAIT ...)
; compiling (DEFVAR *FP-CONSTANT-0F0*)
; compiling (DEFVAR *FP-CONSTANT-1F0*)
; compiling (DEFVAR *FP-CONSTANT-0D0*)
; compiling (DEFVAR *FP-CONSTANT-1D0*)
; compiling (DEFVAR *FP-CONSTANT-0L0*)
; compiling (DEFVAR *FP-CONSTANT-1L0*)
; compiling (DEFVAR *FP-CONSTANT-PI*)
; compiling (DEFVAR *FP-CONSTANT-L2T*)
; compiling (DEFVAR *FP-CONSTANT-L2E*)
; compiling (DEFVAR *FP-CONSTANT-LG2*)
; compiling (DEFVAR *FP-CONSTANT-LN2*)
; compiling (DEFVAR *ALIEN-STACK*)
; compiling (DEFUN RANDOM-MT19937 ...)
; file: /Users/nikodemus/src/sbcl/src/code/x86-vm.lisp
; in: DEFUN !ENVECTOR-LOAD-TIME-CODE-FIXUP
;     (SB!IMPL::!COLD-LOSE "Argh! can't process fixup")
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::!COLD-LOSE

; 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
;       #<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE (SB!ALIEN: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
;                                 '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE (SB!ALIEN:STRUCT
;                                                                          SB!VM::OS-CONTEXT-T-STRUCT)>)
; 
; caught STYLE-WARNING:
;   undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!IMPL::!COLD-LOSE SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/x86-vm.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-signal.lisp" (written 19 MAY 2008 05:06:28 PM):
; compiling (IN-PACKAGE "SB!UNIX")
; compiling (DEFMACRO WITH-INTERRUPT-BINDINGS ...)
; compiling (DEFUN INVOKE-INTERRUPTION ...)
; compiling (DEFMACRO IN-INTERRUPTION ...)
; 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 ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-signal.lisp
; in: DEFUN ENABLE-INTERRUPT
;     (THE (OR FUNCTION FIXNUM) (SB!KERNEL:MAKE-LISP-OBJ SB!UNIX::RESULT))
; 
; note: type assertion too complex to check:
;  (VALUES (OR FUNCTION FIXNUM) &REST T).

; compiling (DEFUN DEFAULT-INTERRUPT ...)
; compiling (DEFUN IGNORE-INTERRUPT ...)
; compiling (DEFINE-SIGNAL-HANDLER SIGILL-HANDLER ...)
; compiling (DEFINE-SIGNAL-HANDLER SIGEMT-HANDLER ...)
; compiling (DEFINE-SIGNAL-HANDLER SIGBUS-HANDLER ...)
; compiling (DEFINE-SIGNAL-HANDLER SIGSEGV-HANDLER ...)
; compiling (DEFINE-SIGNAL-HANDLER SIGSYS-HANDLER ...)
; compiling (DEFUN SIGINT-HANDLER ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-signal.lisp
; in: DEFUN SIGINT-HANDLER
;     (SB!INT:%BREAK 'SB!UNIX:SIGINT 'SB!SYS:INTERACTIVE-INTERRUPT :CONTEXT
;      SB!UNIX::CONTEXT :ADDRESS
;      (SB!SYS:SAP-INT (SB!VM:CONTEXT-PC SB!UNIX::CONTEXT)))
; --> SB!UNIX::CONTEXT SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                              (SB!ALIEN:STRUCT
;                                               SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; 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: /Users/nikodemus/src/sbcl/src/code/target-signal.lisp
; in: DEFUN INVOKE-INTERRUPTION
;     (SB!KERNEL:FIND-INTERRUPTED-NAME-AND-FRAME)
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:FIND-INTERRUPTED-NAME-AND-FRAME

; in: DEFUN SIGINT-HANDLER
;     (SB!THREAD::FOREGROUND-THREAD)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::FOREGROUND-THREAD

;     (SB!THREAD:INTERRUPT-THREAD (SB!THREAD::FOREGROUND-THREAD)
;      #'SB!UNIX::INTERRUPT-IT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD:INTERRUPT-THREAD

; in: DEFUN ENABLE-INTERRUPT
;     (SB!KERNEL:MAKE-LISP-OBJ SB!UNIX::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:MAKE-LISP-OBJ

; in: DEFUN 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!KERNEL:FIND-INTERRUPTED-NAME-AND-FRAME SB!THREAD::FOREGROUND-THREAD SB!THREAD:INTERRUPT-THREAD SB!KERNEL:MAKE-LISP-OBJ QUIT SB!IMPL::RUN-EXPIRED-TIMERS SB!VM:SIGFPE-HANDLER SB!THREAD::TERMINATE-SESSION
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-signal.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/symbol.lisp" (written 04 JUN 2008 03:39:40 PM):
; 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 (DECLAIM (INLINE %MAKUNBOUND))
; compiling (DEFUN %MAKUNBOUND ...)
; 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: /Users/nikodemus/src/sbcl/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")
;      (SB!INT:ABOUT-TO-MODIFY-SYMBOL-VALUE SYMBOL "make ~S unbound")
;      (SB!IMPL::%MAKUNBOUND SYMBOL) 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
;     (CONCATENATE 'SIMPLE-STRING SB!IMPL::PREFIX
;                  (THE SIMPLE-STRING
;                       (SB!IMPL::QUICK-INTEGER-TO-STRING SB!ALIEN:INT)))
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-157 (#:G147)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G147)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-157))
;     (ETYPECASE #:G147
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-157 (THE # #:G147)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-157 (THE SEQUENCE #:G147)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH.
;           (+ (SB!IMPL::STRING-DISPATCH # #:G147 # #)
;              (SB!IMPL::STRING-DISPATCH # #:G148 # #)))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G147
;      (REPLACE SB!C::.STRING. #:G147 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G147)))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G148
;      (REPLACE SB!C::.STRING. #:G148 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G148)))
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   6 more uses of undefined type COMPILER-NOTE


; file: /Users/nikodemus/src/sbcl/src/code/symbol.lisp
; 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

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/symbol.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/bignum.lisp" (written 17 MAY 2008 11:05:09 PM):
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 "<return value>"

; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 GENERIC-NEGATE (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).

; compiling (DECLAIM (INLINE BMOD))
; compiling (DEFUN BMOD ...)
; file: /Users/nikodemus/src/sbcl/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))
;           (WHEN (LOGTEST SB!BIGNUM::UD SB!BIGNUM::UMASK)
;             (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 "<return value>"

; compiling (DEFUN DMOD ...)
; file: /Users/nikodemus/src/sbcl/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 DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       etc.

;     (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;        (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).
;       etc.

;     (+ 1
;        (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN)
;           (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V
;            SB!BIGNUM::V-LEN)))
; ==>
;   (+ 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 3) because:
;       The result is a (VALUES (INTEGER 1 9223372036854775808)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1 9223372036854775808)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (1- (ASH 1 SB!BIGNUM::D))
; ==>
;   (- (ASH 1 SB!BIGNUM::D) 1)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER 1 9223372036854775808), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 1 9223372036854775808), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       etc.

; compiling (DEFCONSTANT LOWER-ONES-DIGIT ...)
; compiling (DEFUN REDUCED-RATIO-MOD ...)
; file: /Users/nikodemus/src/sbcl/src/code/bignum.lisp
; in: DEFUN REDUCED-RATIO-MOD
;     (PSETF SB!BIGNUM::N1
;              SB!BIGNUM::N2
;            SB!BIGNUM::D1
;              SB!BIGNUM::D2
;            SB!BIGNUM::N2
;              SB!BIGNUM::N1
;            SB!BIGNUM::D2
;              SB!BIGNUM::D1)
; --> LET* MULTIPLE-VALUE-BIND LET LET* MULTIPLE-VALUE-BIND LET LET* 
; --> MULTIPLE-VALUE-BIND LET LET* MULTIPLE-VALUE-BIND LET PROGN 
; ==>
;   (SETQ SB!BIGNUM::D2 #:G466)
; 
; note: doing unsigned word to integer coercion (cost 20) to D2

; 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: /Users/nikodemus/src/sbcl/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

; 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.

;     (> SB!BIGNUM::U1 SB!BIGNUM::V1)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       etc.

;     (< 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 DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       etc.

;     (ASH
;      (SB!BIGNUM::BIGNUM-MOD-GCD SB!BIGNUM::U1
;       (IF (SB!INT:FIXNUMP SB!BIGNUM::N)
;           (SB!BIGNUM:MAKE-SMALL-BIGNUM SB!BIGNUM::N) SB!BIGNUM::N))
;      SB!BIGNUM::FACTORS-OF-TWO)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (DEFUN BIGNUM-MOD-GCD ...)
; compiling (DEFUN BIGNUM-BINARY-GCD ...)
; 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: /Users/nikodemus/src/sbcl/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 ...)
; compiling (DEFUN DOUBLE-FLOAT-FROM-BITS ...)
; compiling (DEFUN BIGNUM-TO-FLOAT ...)
; file: /Users/nikodemus/src/sbcl/src/code/bignum.lisp
; in: DEFUN BIGNUM-TO-FLOAT
;     (> EXP MAX)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.

;     (INTEGER-LENGTH SB!BIGNUM::ROUNDED)
; 
; note: forced to do full call
;       unable to do inline (unsigned-byte 32) integer-length (cost 26) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).

;     (+ EXP SB!BIGNUM::BIAS)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

;     (> EXP MAX)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.

; compiling (DEFUN BIGNUM-BUFFER-INTEGER-LENGTH ...)
; compiling (DEFUN BIGNUM-INTEGER-LENGTH ...)
; compiling (DEFUN BIGNUM-LOGBITP ...)
; file: /Users/nikodemus/src/sbcl/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!C::X SB!C::Y)
; 
; 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.

;     (LOGBITP SB!KERNEL:BIT-INDEX
;              (SB!BIGNUM:%BIGNUM-REF BIGNUM SB!BIGNUM::WORD-INDEX))
; --> IF >= IF 
; ==>
;   (< SB!C::X SB!C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       etc.

; compiling (DEFUN BIGNUM-LOGCOUNT ...)
; file: /Users/nikodemus/src/sbcl/src/code/bignum.lisp
; in: DEFUN BIGNUM-LOGCOUNT
;     (- (* LENGTH SB!BIGNUM::DIGIT-SIZE) SB!BIGNUM::RESULT)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>", for:
;       the first result of inline (signed-byte 32) arithmetic

; 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 ...)
; file: /Users/nikodemus/src/sbcl/src/code/bignum.lisp
; in: DEFUN BIGNUM-TRUNCATE
;     (VALUES
;      (SB!BIGNUM::SHIFT-RIGHT-UNALIGNED SB!BIGNUM::X 0 SB!BIGNUM::N-BITS
;       SB!BIGNUM::LEN-X
;       ((= SB!BIGNUM::J SB!BIGNUM::RES-LEN-1)
;        (SETF (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::RES SB!BIGNUM::J)
;                (SB!BIGNUM:%ASHR # SB!BIGNUM::N-BITS))
;        SB!BIGNUM::RES)
;       SB!BIGNUM::RES)
;      (LOGAND (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::X 0) (1- SB!BIGNUM::Y)))
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DECLAIM (MAYBE-INLINE %NORMALIZE-BIGNUM-BUFFER))
; compiling (DEFUN %NORMALIZE-BIGNUM-BUFFER ...)
; compiling (DEFUN %NORMALIZE-BIGNUM ...)
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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:
;   This function is undefined:
;     FLOAT-FORMAT-DIGITS
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 67 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/bignum.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/numbers.lisp" (written 30 JUN 2008 12:00:38 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 (DEF-TWO-ARG-</> TWO-ARG-< ...)
; file: /Users/nikodemus/src/sbcl/src/code/numbers.lisp
; in: DEFUN BASIC-COMPARE
;     ('DOUBLE-FLOAT
;      (VALUES SB!KERNEL:MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              SB!KERNEL:MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE SINGLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE DOUBLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE SINGLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE DOUBLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).

;     (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: /Users/nikodemus/src/sbcl/src/code/numbers.lisp
; in: DEFUN BASIC-COMPARE
;     ('DOUBLE-FLOAT
;      (VALUES SB!KERNEL:MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              SB!KERNEL:MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE SINGLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE DOUBLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE SINGLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE DOUBLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).

;     (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: /Users/nikodemus/src/sbcl/src/code/numbers.lisp
; in: DEFUN BASIC-COMPARE
;     ('DOUBLE-FLOAT
;      (VALUES SB!KERNEL:MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              SB!KERNEL:MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE SINGLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE DOUBLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE SINGLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (CASE (QUOTE DOUBLE-FLOAT) ((QUOTE SINGLE-FLOAT) (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key QUOTE in CASE form, occurring in the first clause:
;     ('SINGLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM)), and the second clause:
;     ('DOUBLE-FLOAT
;      (VALUES MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM
;              MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM)).

;     (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: /Users/nikodemus/src/sbcl/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::+-MOD32 ...)
; compiling (DEFUN SB!VM::--MOD32 ...)
; compiling (DEFUN SB!VM::*-MOD32 ...)
; compiling (DEFUN SB!VM::LOGNOT-MOD32 ...)
; compiling (DEFUN SB!VM::+-SMOD30 ...)
; file: /Users/nikodemus/src/sbcl/src/code/numbers.lisp
; in: DEFUN SB!VM::+-SMOD30
;     (SB!C::MASK-SIGNED-FIELD 30 SB!KERNEL::X)
; 
; note: deleting unreachable code

; compiling (DEFUN SB!VM::--SMOD30 ...)
; file: /Users/nikodemus/src/sbcl/src/code/numbers.lisp
; in: DEFUN SB!VM::--SMOD30
;     (SB!C::MASK-SIGNED-FIELD 30 SB!KERNEL::X)
; 
; note: deleting unreachable code

; compiling (DEFUN SB!VM::*-SMOD30 ...)
; file: /Users/nikodemus/src/sbcl/src/code/numbers.lisp
; in: DEFUN SB!VM::*-SMOD30
;     (SB!C::MASK-SIGNED-FIELD 30 SB!KERNEL::X)
; 
; note: deleting unreachable code

; compiling (DEFUN SB!VM::ASH-LEFT-MOD32 ...)
; compiling (DEFUN SB!VM::ASH-LEFT-SMOD30 ...)
; file: /Users/nikodemus/src/sbcl/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 16 STYLE-WARNING conditions
;   printed 40 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/numbers.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/float-trap.lisp" (written 26 AUG 2007 11:53:35 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFPARAMETER *FLOAT-TRAP-ALIST* ...)
; compiling (DEFPARAMETER *ROUNDING-MODE-ALIST* ...)
; compiling (DEFPARAMETER *PRECISION-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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/float-trap.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/float.lisp" (written 20 AUG 2007 02:46:05 AM):
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/float.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/irrat.lisp" (written 20 AUG 2007 02:46:05 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFCONSTANT PI ...)
; compiling (DEF %ATAN2 ...)
; compiling (DEF %ATAN ...)
; compiling (DEF %TAN ...)
; compiling (DEF %TAN-QUICK ...)
; compiling (DEF %COS ...)
; compiling (DEF %COS-QUICK ...)
; compiling (DEF %SIN ...)
; compiling (DEF %SIN-QUICK ...)
; compiling (DEF %SQRT ...)
; compiling (DEF %LOG ...)
; compiling (DEF %EXP ...)
; compiling (DEF-MATH-RTN "asin" ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T) (VALUES DOUBLE-FLOAT &OPTIONAL))>
;   for %ASIN does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (DOUBLE-FLOAT)
;               (VALUES (DOUBLE-FLOAT -1.5707963267948966d0 1.5707963267948966d0)
;                       &OPTIONAL))>

; compiling (DEF-MATH-RTN "acos" ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T) (VALUES DOUBLE-FLOAT &OPTIONAL))>
;   for %ACOS does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (DOUBLE-FLOAT)
;               (VALUES (DOUBLE-FLOAT 0.0d0 3.141592653589793d0) &OPTIONAL))>

; compiling (DEF-MATH-RTN "sinh" ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T) (VALUES DOUBLE-FLOAT &OPTIONAL))>
;   for %SINH does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (DOUBLE-FLOAT) (VALUES DOUBLE-FLOAT &OPTIONAL))>

; compiling (DEF-MATH-RTN "cosh" ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T) (VALUES DOUBLE-FLOAT &OPTIONAL))>
;   for %COSH does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (DOUBLE-FLOAT) (VALUES (DOUBLE-FLOAT 1.0d0) &OPTIONAL))>

; compiling (DEF-MATH-RTN "tanh" ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T) (VALUES DOUBLE-FLOAT &OPTIONAL))>
;   for %TANH does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (DOUBLE-FLOAT)
;               (VALUES (DOUBLE-FLOAT -1.0d0 1.0d0) &OPTIONAL))>

; compiling (DEF-MATH-RTN "asinh" ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T) (VALUES DOUBLE-FLOAT &OPTIONAL))>
;   for %ASINH does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (DOUBLE-FLOAT) (VALUES DOUBLE-FLOAT &OPTIONAL))>

; compiling (DEF-MATH-RTN "acosh" ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T) (VALUES DOUBLE-FLOAT &OPTIONAL))>
;   for %ACOSH does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (DOUBLE-FLOAT) (VALUES (DOUBLE-FLOAT 0.0d0) &OPTIONAL))>

; compiling (DEF-MATH-RTN "atanh" ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T) (VALUES DOUBLE-FLOAT &OPTIONAL))>
;   for %ATANH does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (DOUBLE-FLOAT) (VALUES DOUBLE-FLOAT &OPTIONAL))>

; compiling (DEF-MATH-RTN "pow" ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T T) (VALUES DOUBLE-FLOAT &OPTIONAL))>
;   for %POW does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (DOUBLE-FLOAT DOUBLE-FLOAT)
;               (VALUES DOUBLE-FLOAT &OPTIONAL))>

; compiling (DEF-MATH-RTN "hypot" ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T T) (VALUES DOUBLE-FLOAT &OPTIONAL))>
;   for %HYPOT does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (DOUBLE-FLOAT DOUBLE-FLOAT)
;               (VALUES (DOUBLE-FLOAT 0.0d0) &OPTIONAL))>

; 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: /Users/nikodemus/src/sbcl/src/code/irrat.lisp
; in: DEFUN LOGB-FINITE
;     (DECODE-FLOAT SB!KERNEL::X)
; ==>
;   (SB!KERNEL:DECODE-DOUBLE-FLOAT SB!C::X)
; 
; note: doing float to pointer coercion (cost 13) to X

; in: DEFUN CSSQS
;     (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 "<return value>"

;     (VALUES SB!KERNEL::RHO 0)
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; compiling (DEFUN COMPLEX-SQRT ...)
; file: /Users/nikodemus/src/sbcl/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 float realpart (cost 3) because:
;       The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX
;                                                                        SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX
;                                                                        DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (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) from ETA
; 
; note: doing float to pointer coercion (cost 13) from NU

; compiling (DEFUN COMPLEX-LOG-SCALED ...)
; file: /Users/nikodemus/src/sbcl/src/code/irrat.lisp
; in: DEFUN COMPLEX-LOG-SCALED
;     (LOG SB!KERNEL::RHO)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The result is a (VALUES
;                    (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                        (COMPLEX DOUBLE-FLOAT))
;                    &OPTIONAL), not a (VALUES FLOAT &REST T).

;     (/ (LOG SB!KERNEL::RHO) 2.0d0)
; 
; note: unable to
;   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).

;     (+ (/ (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.
; 
; 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).

; in: DEFUN COMPLEX-LOG-SCALED
;     (/ (LOG SB!KERNEL::RHO) 2.0d0)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 12) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;        (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

; in: DEFUN COERCE-TO-COMPLEX-TYPE
;     (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (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-LOG-SCALED
;     (+ (/ (LOG SB!KERNEL::RHO) 2.0d0)
;        (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))
; 
; note: doing float to pointer coercion (cost 13), for:
;       the second argument of GENERIC-+

; 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)

; 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: /Users/nikodemus/src/sbcl/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 DOUBLE-FLOAT.
;       The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                    (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).
;       unable to do inline float arithmetic (cost 12) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT.
;       The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                    (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &REST T).

;     (* SB!KERNEL::BETA SB!KERNEL::ETA)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 3) because:
;       The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT)
;                                    DOUBLE-FLOAT), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (* SB!KERNEL::BETA SB!KERNEL::NU)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 3) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (- (* SB!KERNEL::BETA SB!KERNEL::NU))
; ==>
;   (SB!KERNEL:%NEGATE (* SB!KERNEL::BETA SB!KERNEL::NU))
; 
; note: forced to do GENERIC-NEGATE (cost 10)
;       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 float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (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) from T2

; compiling (DEFUN COMPLEX-TANH ...)
; file: /Users/nikodemus/src/sbcl/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 float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (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 12) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                   (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

; in: DEFUN COERCE-TO-COMPLEX-TYPE
;     (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (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 30)
;       unable to do inline float arithmetic (cost 3) because:
;       The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT
;                                    (COMPLEX SINGLE-FLOAT)
;                                    (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

; ==>
;   (* (* SB!KERNEL::BETA SB!KERNEL::RHO) SB!KERNEL::S)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

;     (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN)
; 
; note: forced to do static-fun Two-arg-/ (cost 53)
;       unable to do inline float arithmetic (cost 12) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT
;                                                                &REST T).

; in: DEFUN COERCE-TO-COMPLEX-TYPE
;     (REALPART SB!KERNEL::Z)
; 
; note: forced to do full call
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL)), not a (COMPLEX
;                                                               SINGLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST
;                                                              T).
;       unable to do complex float realpart (cost 3) because:
;       The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT)
;                                   (COMPLEX DOUBLE-FLOAT)
;                                   (COMPLEX RATIONAL)), not a (COMPLEX
;                                                               DOUBLE-FLOAT).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST
;                                                              T).

;     (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 LET 
; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN 
; ==>
;   (SB!C:%ALIEN-FUNCALL
;    (SB!ALIEN-INTERNALS:DEPORT FUNCTION
;     '#<SB!ALIEN-INTERNALS:ALIEN-FUN-TYPE (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT)>)
;    '#<SB!ALIEN-INTERNALS:ALIEN-FUN-TYPE (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT)>
;    (SB!ALIEN-INTERNALS:DEPORT #:G627
;     '#<SB!ALIEN-INTERNALS:ALIEN-DOUBLE-FLOAT-TYPE DOUBLE-FLOAT>))
; 
; 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 10 STYLE-WARNING conditions
;   printed 107 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/irrat.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/char.lisp" (written 02 NOV 2004 10:37:51 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...)
; compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/char.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/huffman.lisp" (written 27 FEB 2006 07: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: /Users/nikodemus/src/sbcl/src/code/huffman.lisp
; in: DEFSTRUCT HUFFMAN-PAIR
;     (DEFSTRUCT
;         (SB!IMPL::HUFFMAN-PAIR (:INCLUDE SB!IMPL::HUFFMAN-NODE)
;          (:CONSTRUCTOR SB!IMPL::MAKE-HUFFMAN-PAIR
;           (SB!IMPL::LEFT SB!IMPL::RIGHT &AUX (SB!IMPL::KEY #)
;            (SB!IMPL::WEIGHT #))))
;       SB!IMPL::LEFT
;       SB!IMPL::RIGHT)
; --> PROGN SB!KERNEL: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

; in: DEFSTRUCT HUFFMAN-PAIR
;     (CONCATENATE 'STRING (SB!IMPL::HUFFMAN-NODE-KEY SB!IMPL::LEFT)
;                  (SB!IMPL::HUFFMAN-NODE-KEY SB!IMPL::RIGHT))
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-43 (#:G33)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G33)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-43))
;     (ETYPECASE #:G33
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-43 (THE # #:G33)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-43 (THE SEQUENCE #:G33)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH.
;           (+ (SB!IMPL::STRING-DISPATCH # #:G33 # #)
;              (SB!IMPL::STRING-DISPATCH # #:G34 # #)))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G33
;      (REPLACE SB!C::.STRING. #:G33 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G33)))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G34
;      (REPLACE SB!C::.STRING. #:G34 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G34)))
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   15 more uses of undefined type COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/huffman.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-char.lisp" (written 10 DEC 2007 07:42:47 AM):
; 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 TWO-ARG-CHAR-EQUAL ...)
; compiling (DEFUN CHAR-EQUAL ...)
; compiling (DEFUN TWO-ARG-CHAR-NOT-EQUAL ...)
; compiling (DEFUN CHAR-NOT-EQUAL ...)
; compiling (DEFUN TWO-ARG-CHAR-LESSP ...)
; compiling (DEFUN CHAR-LESSP ...)
; compiling (DEFUN TWO-ARG-CHAR-GREATERP ...)
; compiling (DEFUN CHAR-GREATERP ...)
; compiling (DEFUN TWO-ARG-CHAR-NOT-GREATERP ...)
; compiling (DEFUN CHAR-NOT-GREATERP ...)
; compiling (DEFUN TWO-ARG-CHAR-NOT-LESSP ...)
; compiling (DEFUN CHAR-NOT-LESSP ...)
; compiling (DEFUN CHAR-UPCASE ...)
; compiling (DEFUN CHAR-DOWNCASE ...)
; compiling (DEFUN DIGIT-CHAR ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-char.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-misc.lisp" (written 03 JUL 2008 10:24:50 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) ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-misc.lisp
; in: DEFUN (SETF %FUN-NAME)
;     (LET ((SB!IMPL::WIDETAG (SB!KERNEL:WIDETAG-OF SB!IMPL::FUN)))
;       (CASE SB!IMPL::WIDETAG
;         (42 (SETF (SB!KERNEL:%SIMPLE-FUN-NAME SB!IMPL::FUN) SB!IMPL::NEW-NAME))
;         (46 (WARN "can't set name for closure, leaving name unchanged"))
;         (T
;          (WARN "can't set function name ((~S function)=~S), leaving it unchanged"
;                'SB!KERNEL:WIDETAG-OF SB!IMPL::WIDETAG))))
; 
; note: deleting unreachable code

;     (WARN "can't set function name ((~S function)=~S), leaving it unchanged"
;           'SB!KERNEL:WIDETAG-OF SB!IMPL::WIDETAG)
; ==>
;   "can't set function name ((~S function)=~S), leaving it unchanged"
; 
; note: deleting unreachable code

;     (LET ((SB!IMPL::WIDETAG (SB!KERNEL:WIDETAG-OF SB!IMPL::FUN)))
;       (CASE SB!IMPL::WIDETAG
;         (42 (SETF (SB!KERNEL:%SIMPLE-FUN-NAME SB!IMPL::FUN) SB!IMPL::NEW-NAME))
;         (46 (WARN "can't set name for closure, leaving name unchanged"))
;         (T
;          (WARN "can't set function name ((~S function)=~S), leaving it unchanged"
;                'SB!KERNEL:WIDETAG-OF SB!IMPL::WIDETAG))))
; 
; note: deleting unreachable code

;     (SETF (SB!KERNEL:%SIMPLE-FUN-NAME SB!IMPL::FUN) SB!IMPL::NEW-NAME)
; --> LET* 
; ==>
;   SB!IMPL::FUN
; 
; note: deleting unreachable code

; --> LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   SB!IMPL::NEW-NAME
; 
; note: deleting unreachable code

;     (WARN "can't set name for closure, leaving name unchanged")
; ==>
;   "can't set name for closure, leaving name unchanged"
; 
; note: deleting unreachable code

;     (DEFUN (SETF SB!KERNEL:%FUN-NAME) (SB!IMPL::NEW-NAME SB!IMPL::FUN)
;       (SB!INT:AVER NIL)
;       (LET ((SB!IMPL::WIDETAG (SB!KERNEL:WIDETAG-OF SB!IMPL::FUN)))
;         (CASE SB!IMPL::WIDETAG
;           (42 (SETF # SB!IMPL::NEW-NAME))
;           (46 (WARN "can't set name for closure, leaving name unchanged"))
;           (T
;            (WARN
;             "can't set function name ((~S function)=~S), leaving it unchanged"
;             'SB!KERNEL:WIDETAG-OF SB!IMPL::WIDETAG))))
;       SB!IMPL::NEW-NAME)
; --> PROGN SB!INT:COLD-FSET BLOCK 
; ==>
;   SB!IMPL::NEW-NAME
; 
; note: deleting unreachable code

; compiling (DEFUN %FUN-DOC ...)
; compiling (DEFVAR *FEATURES* ...)
; compiling (DEFUN MACHINE-INSTANCE ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-misc.lisp
; in: DEFUN MACHINE-INSTANCE
;     (DEFUN MACHINE-INSTANCE ()
;       "Return a string giving the name of the local machine."
;       (SB!UNIX:UNIX-GETHOSTNAME))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET MACHINE-INSTANCE
;                     (LAMBDA ()
;                       (BLOCK MACHINE-INSTANCE (SB!UNIX:UNIX-GETHOSTNAME))))
; 
; note: type assertion too complex to check:
;  (VALUES
;   (OR (SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING
;       NULL)
;   &OPTIONAL).

; 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: /Users/nikodemus/src/sbcl/src/code/target-misc.lisp
; in: DEFUN DRIBBLE
;     (SETF *STANDARD-INPUT* (SECOND SB!IMPL::OLD-STREAMS))
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS 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 DRIBBLE
;     (SETF *STANDARD-INPUT* (SECOND SB!IMPL::OLD-STREAMS))
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP SB!C::%INSTANCE-TYPEP 
; --> AND IF AND LET WHEN IF PROGN SETQ THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 IF PROGN SETQ 
; --> THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for SB!EVAL:INTERPRETED-FUNCTION {12586D09}>)
; 
; 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 UPDATE-OBJECT-LAYOUT-OR-INVALID
; 
; compilation unit finished
;   caught 11 STYLE-WARNING conditions
;   printed 8 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-misc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/misc.lisp" (written 04 AUG 2007 05:49:33 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...)
; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/misc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/room.lisp" (written 10 JAN 2008 04:41:35 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: /Users/nikodemus/src/sbcl/src/code/room.lisp
; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK)
; ==>
;   SB!VM:LOWTAG-MASK
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; 
; note: deleting unreachable code

;     (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK)
; ==>
;   SB!VM::SIZE
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SB!SYS:SAP<= SB!VM::NEXT SB!VM::END)
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (SETF SB!VM::CURRENT SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

; in: DEFUN VECTOR-TOTAL-SIZE
;     (THE (SIMPLE-ARRAY * (*)) SB!VM::OBJ)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF AND = IF = 
; ==>
;   (ARRAY-RANK (SB!EXT:TRULY-THE SIMPLE-ARRAY #:ONCE-ONLY-269))
; 
; note: unable to optimize because: The array rank is not known at compile time: *

;     (ASH 1 (- SB!VM::SHIFT))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) 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 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).
;       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 inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (SIGNED-BYTE 32)
;                                                              &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 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).
;       unable to do inline ASH (cost 5) 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).

;     (ASH SB!VM::LEN SB!VM::SHIFT)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       etc.

;     (+ (* SB!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 ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER 8), not a FIXNUM.
;       The result is a (VALUES (INTEGER 15) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 8), not a FIXNUM.
;       The result is a (VALUES (INTEGER 15) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 2147483644), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483641 2147483651)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -2147483648 2147483644), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483641 2147483651)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SB!VM::MAKE-OBJ
;      (LOGIOR (SB!SYS:SAP-INT SB!VM::CURRENT) SB!VM:LIST-POINTER-LOWTAG))
; 
; note: doing unsigned word to integer coercion (cost 20) to TAGGED-ADDRESS

;     (SB!VM::MAKE-OBJ
;      (LOGIOR (SB!SYS:SAP-INT SB!VM::CURRENT) SB!VM:OTHER-POINTER-LOWTAG))
; 
; note: doing unsigned word to integer coercion (cost 20) to TAGGED-ADDRESS

; in: DEFUN ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

;     (LOGAND (THE SB!VM:WORD (+ SB!VM::SIZE SB!VM:LOWTAG-MASK))
;             (LOGNOT SB!VM:LOWTAG-MASK))
; 
; note: doing unsigned word to integer coercion (cost 20)

; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (LET* ((SB!VM::OBJ
;             (SB!KERNEL:%MAKE-LISP-OBJ (LOGIOR # SB!VM:INSTANCE-POINTER-LOWTAG)))
;            (SB!VM::SIZE (SB!VM::ROUND-TO-DUALWORD (* # SB!VM:N-WORD-BYTES))))
;       (SB!INT:AVER (ZEROP (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK)))
;       (SB!VM::MAYBE-MAP SB!VM::OBJ SB!VM::HEADER-WIDETAG SB!VM::SIZE))
; 
; note: doing unsigned word to integer coercion (cost 20) to SIZE

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) from CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) from CURRENT

; in: DEFUN ROUND-TO-DUALWORD
;     (LOGAND (THE SB!VM:WORD (+ SB!VM::SIZE SB!VM:LOWTAG-MASK))
;             (LOGNOT SB!VM:LOWTAG-MASK))
; 
; note: doing unsigned word to integer coercion (cost 20)

; in: DEFUN VECTOR-TOTAL-SIZE
;     (ASH 1 (- SB!VM::SHIFT))
; 
; note: doing signed word to integer coercion (cost 20)

; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (+ (THE FIXNUM (* (SB!KERNEL:GET-HEADER-DATA SB!VM::OBJ) SB!VM:N-WORD-BYTES))
;        (SB!VM::ROUND-TO-DUALWORD
;         (* (THE FIXNUM (SB!KERNEL:%CODE-CODE-SIZE SB!VM::OBJ))
;            SB!VM:N-WORD-BYTES)))
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)
; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:NATURALIZE LET 
; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB!C:%ALIEN-FUNCALL 
; --> SB!ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB!KERNEL:SIGNED-BYTE-32-P #:G256)
; 
; note: doing unsigned word to integer coercion (cost 20) from ADDR, for:
;       the first argument of SIGNED-BYTE-32-P

;     (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF TYPEP 
; ==>
;   (SB!INT:FIXNUMP #:ONCE-ONLY-259)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of FIXNUMP

; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!SYS:SAP+ SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS))
; 
; note: doing SAP to pointer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF TYPEP 
; ==>
;   (SB!INT:FIXNUMP #:ONCE-ONLY-262)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of FIXNUMP

; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!SYS:SAP+ SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS))
; 
; note: doing SAP to pointer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN TYPE-BREAKDOWN ...)
; file: /Users/nikodemus/src/sbcl/src/code/room.lisp
; in: DEFUN TYPE-BREAKDOWN
;     (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE)
; --> LET* 
; ==>
;   (+ (AREF #:G318 #:G317) #:G319)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (INCF (AREF SB!VM::COUNTS TYPE))
; --> LET* 
; ==>
;   (+ (AREF #:G322 #:G321) #:G323)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST
;                                                                         T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES
;                                                                         FIXNUM
;                                                                         &REST
;                                                                         T).
;       etc.

;     (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE)
; --> LET* 
; ==>
;   (+ (AREF #:G318 #:G317) #:G319)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

;     (INCF (AREF SB!VM::COUNTS TYPE))
; --> LET* 
; ==>
;   (+ (AREF #:G322 #:G321) #:G323)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

; --> LET* SB!KERNEL:%ASET SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS 
; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (ARRAY) (SB!INT:INDEX) &REST #:G436)
;       (DECLARE (IGNORE #:G436))
;       (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) 1) ARRAY)
;        (TYPE (UNSIGNED-BYTE 32) SB!C::NEW-VALUE))
;       (SB!KERNEL:DATA-VECTOR-SET ARRAY SB!INT:INDEX SB!C::NEW-VALUE))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; 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: /Users/nikodemus/src/sbcl/src/code/room.lisp
; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

;     (SB!KERNEL:MAKE-LISP-OBJ SB!VM::TAGGED-ADDRESS NIL)
; ==>
;   SB!VM::TAGGED-ADDRESS
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

;     (WHEN SB!VM::SIZE
;       (SB!INT:AVER (ZEROP (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK))))
; --> IF 
; ==>
;   SB!VM::SIZE
; 
; note: deleting unreachable code

;     (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK)
; ==>
;   SB!VM::SIZE
; 
; note: deleting unreachable code

;     (LET ((SB!VM::NEXT (TYPECASE SB!VM::N-OBJ-BYTES (FIXNUM #) (INTEGER #))))
;       (COND
;        ((AND SB!VM::OK SB!VM::NEXT (SB!SYS:SAP<= SB!VM::NEXT SB!VM::END))
;         (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::OBJ-TAG SB!VM::N-OBJ-BYTES)
;         (SETF SB!VM::CURRENT SB!VM::NEXT))
;        (T (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES)))))
; 
; note: deleting unreachable code

;     (SB!SYS:SAP<= SB!VM::NEXT SB!VM::END)
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (SETF SB!VM::CURRENT SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LET ((SB!VM::NEXT (TYPECASE SB!VM::N-OBJ-BYTES (FIXNUM #) (INTEGER #))))
;       (COND
;        ((AND SB!VM::OK SB!VM::NEXT (SB!SYS:SAP<= SB!VM::NEXT SB!VM::END))
;         (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::OBJ-TAG SB!VM::N-OBJ-BYTES)
;         (SETF SB!VM::CURRENT SB!VM::NEXT))
;        (T (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES)))))
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

; in: DEFUN VECTOR-TOTAL-SIZE
;     (THE (SIMPLE-ARRAY * (*)) SB!VM::OBJ)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF AND = IF = 
; ==>
;   (ARRAY-RANK (SB!EXT:TRULY-THE SIMPLE-ARRAY #:ONCE-ONLY-858))
; 
; note: unable to optimize because: The array rank is not known at compile time: *

; in: DEFUN ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 2147483644), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483641 2147483651)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -2147483648 2147483644), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483641 2147483651)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; in: DEFUN VECTOR-TOTAL-SIZE
;     (ASH 1 (- SB!VM::SHIFT))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) 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 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).
;       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 inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (SIGNED-BYTE 32)
;                                                              &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 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).
;       unable to do inline ASH (cost 5) 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).

;     (ASH SB!VM::LEN SB!VM::SHIFT)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       etc.

;     (+ (* SB!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 ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER 8), not a FIXNUM.
;       The result is a (VALUES (INTEGER 15) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 8), not a FIXNUM.
;       The result is a (VALUES (INTEGER 15) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SETF SB!VM::CURRENT SB!VM::NEXT)
; ==>
;   (SETQ SB!VM::CURRENT SB!VM::NEXT)
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; ==>
;   (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::OBJ-TAG SB!VM::N-OBJ-BYTES)
; ==>
;   (SB!C::%FUNCALL FUNCTION #:G826 #:G827 #:G828)
; 
; note: doing unsigned word to integer coercion (cost 20) from SIZE to SIZE

;     (SETF SB!VM::CURRENT SB!VM::NEXT)
; ==>
;   (SETQ SB!VM::CURRENT SB!VM::NEXT)
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; ==>
;   (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; 
; note: doing unsigned word to integer coercion (cost 20) from SIZE

;     (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::OBJ-TAG SB!VM::N-OBJ-BYTES)
; ==>
;   (SB!C::%FUNCALL FUNCTION #:G815 #:G816 #:G817)
; 
; note: doing unsigned word to integer coercion (cost 20) from SIZE to SIZE

;     (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; ==>
;   (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; 
; note: doing unsigned word to integer coercion (cost 20) from SIZE

; in: DEFUN VECTOR-TOTAL-SIZE
;     (ASH 1 (- SB!VM::SHIFT))
; 
; note: doing signed word to integer coercion (cost 20)

; in: DEFUN ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)
; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:NATURALIZE LET 
; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB!C:%ALIEN-FUNCALL 
; --> SB!ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB!KERNEL:SIGNED-BYTE-32-P #:G841)
; 
; note: doing unsigned word to integer coercion (cost 20) from ADDR, for:
;       the first argument of SIGNED-BYTE-32-P

;     (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF TYPEP 
; ==>
;   (SB!INT:FIXNUMP #:ONCE-ONLY-844)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of FIXNUMP

; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!SYS:SAP+ SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS))
; 
; note: doing SAP to pointer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF TYPEP 
; ==>
;   (SB!INT:FIXNUMP #:ONCE-ONLY-847)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of FIXNUMP

; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!SYS:SAP+ SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS))
; 
; note: doing SAP to pointer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SETF SB!VM::CURRENT
;             (SB!SYS:INT-SAP
;              (+ (LOGANDC2 SB!ALIEN:ADDR SB!VM::PAGE-MASK)
;                 SB!VM:GENCGC-PAGE-SIZE)))
; ==>
;   (SETQ SB!VM::CURRENT
;           (SB!SYS:INT-SAP
;            (+ (LOGANDC2 SB!ALIEN:ADDR SB!VM::PAGE-MASK)
;               SB!VM:GENCGC-PAGE-SIZE)))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

; compiling (DEFUN INSTANCE-USAGE ...)
; file: /Users/nikodemus/src/sbcl/src/code/room.lisp
; in: DEFUN INSTANCE-USAGE
;     (INCF SB!VM::TOTAL-OBJECTS)
; --> LET* 
; ==>
;   (+ SB!VM::TOTAL-OBJECTS #:G884)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
;                                                                     &REST T).
;       etc.

;     (INCF SB!VM::TOTAL-BYTES SB!VM::SIZE)
; --> LET* 
; ==>
;   (+ SB!VM::TOTAL-BYTES #:G886)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       (SIGNED-BYTE
;                                                                        32)
;                                                                       &REST T).
;       etc.

; --> LET* SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF AND 
; --> LOCALLY AND >= IF 
; ==>
;   (< SB!C::X SB!C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (INTEGER -536870912), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (INTEGER -536870912), not a FIXNUM.
;       etc.

;     (INCF (THE FIXNUM (CAR SB!VM::FOUND)))
; --> LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   (THE FIXNUM (VALUES #:G887))
; 
; 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 #:G891))
; 
; 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: /Users/nikodemus/src/sbcl/src/code/room.lisp
; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

;     (SB!KERNEL:MAKE-LISP-OBJ SB!VM::TAGGED-ADDRESS NIL)
; ==>
;   SB!VM::TAGGED-ADDRESS
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

;     (WHEN SB!VM::SIZE
;       (SB!INT:AVER (ZEROP (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK))))
; --> IF 
; ==>
;   SB!VM::SIZE
; 
; note: deleting unreachable code

;     (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK)
; ==>
;   SB!VM::SIZE
; 
; note: deleting unreachable code

;     (LET ((SB!VM::NEXT (TYPECASE SB!VM::N-OBJ-BYTES (FIXNUM #) (INTEGER #))))
;       (COND
;        ((AND SB!VM::OK SB!VM::NEXT (SB!SYS:SAP<= SB!VM::NEXT SB!VM::END))
;         (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::OBJ-TAG SB!VM::N-OBJ-BYTES)
;         (SETF SB!VM::CURRENT SB!VM::NEXT))
;        (T (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES)))))
; 
; note: deleting unreachable code

;     (SB!SYS:SAP<= SB!VM::NEXT SB!VM::END)
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (SETF SB!VM::CURRENT SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LET ((SB!VM::NEXT (TYPECASE SB!VM::N-OBJ-BYTES (FIXNUM #) (INTEGER #))))
;       (COND
;        ((AND SB!VM::OK SB!VM::NEXT (SB!SYS:SAP<= SB!VM::NEXT SB!VM::END))
;         (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::OBJ-TAG SB!VM::N-OBJ-BYTES)
;         (SETF SB!VM::CURRENT SB!VM::NEXT))
;        (T (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES)))))
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

; in: DEFUN VECTOR-TOTAL-SIZE
;     (THE (SIMPLE-ARRAY * (*)) SB!VM::OBJ)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF AND = IF = 
; ==>
;   (ARRAY-RANK (SB!EXT:TRULY-THE SIMPLE-ARRAY #:ONCE-ONLY-1242))
; 
; note: unable to optimize because: The array rank is not known at compile time: *

; in: DEFUN ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 2147483644), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483641 2147483651)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -2147483648 2147483644), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483641 2147483651)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; in: DEFUN VECTOR-TOTAL-SIZE
;     (ASH 1 (- SB!VM::SHIFT))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) 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 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).
;       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 inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (SIGNED-BYTE 32)
;                                                              &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 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).
;       unable to do inline ASH (cost 5) 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).

;     (ASH SB!VM::LEN SB!VM::SHIFT)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       etc.

;     (+ (* SB!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 ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER 8), not a FIXNUM.
;       The result is a (VALUES (INTEGER 15) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 8), not a FIXNUM.
;       The result is a (VALUES (INTEGER 15) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SETF SB!VM::CURRENT SB!VM::NEXT)
; ==>
;   (SETQ SB!VM::CURRENT SB!VM::NEXT)
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; ==>
;   (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SETF SB!VM::CURRENT SB!VM::NEXT)
; ==>
;   (SETQ SB!VM::CURRENT SB!VM::NEXT)
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; ==>
;   (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; 
; note: doing unsigned word to integer coercion (cost 20) from SIZE

;     (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; ==>
;   (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; 
; note: doing unsigned word to integer coercion (cost 20) from SIZE

; in: DEFUN VECTOR-TOTAL-SIZE
;     (ASH 1 (- SB!VM::SHIFT))
; 
; note: doing signed word to integer coercion (cost 20)

; in: DEFUN ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)
; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:NATURALIZE LET 
; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB!C:%ALIEN-FUNCALL 
; --> SB!ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB!KERNEL:SIGNED-BYTE-32-P #:G1225)
; 
; note: doing unsigned word to integer coercion (cost 20) from ADDR, for:
;       the first argument of SIGNED-BYTE-32-P

;     (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF TYPEP 
; ==>
;   (SB!INT:FIXNUMP #:ONCE-ONLY-1228)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of FIXNUMP

; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!SYS:SAP+ SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS))
; 
; note: doing SAP to pointer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF TYPEP 
; ==>
;   (SB!INT:FIXNUMP #:ONCE-ONLY-1231)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of FIXNUMP

; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!SYS:SAP+ SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS))
; 
; note: doing SAP to pointer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SETF SB!VM::CURRENT
;             (SB!SYS:INT-SAP
;              (+ (LOGANDC2 SB!ALIEN:ADDR SB!VM::PAGE-MASK)
;                 SB!VM:GENCGC-PAGE-SIZE)))
; ==>
;   (SETQ SB!VM::CURRENT
;           (SB!SYS:INT-SAP
;            (+ (LOGANDC2 SB!ALIEN:ADDR SB!VM::PAGE-MASK)
;               SB!VM:GENCGC-PAGE-SIZE)))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

; compiling (DEFUN MAP-REFERENCING-OBJECTS ...)
; file: /Users/nikodemus/src/sbcl/src/code/room.lisp
; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

;     (SB!KERNEL:MAKE-LISP-OBJ SB!VM::TAGGED-ADDRESS NIL)
; ==>
;   SB!VM::TAGGED-ADDRESS
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

;     (WHEN SB!VM::SIZE
;       (SB!INT:AVER (ZEROP (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK))))
; --> IF 
; ==>
;   SB!VM::SIZE
; 
; note: deleting unreachable code

;     (LOGAND SB!VM::SIZE SB!VM:LOWTAG-MASK)
; ==>
;   SB!VM::SIZE
; 
; note: deleting unreachable code

;     (LET ((SB!VM::NEXT (TYPECASE SB!VM::N-OBJ-BYTES (FIXNUM #) (INTEGER #))))
;       (COND
;        ((AND SB!VM::OK SB!VM::NEXT (SB!SYS:SAP<= SB!VM::NEXT SB!VM::END))
;         (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::OBJ-TAG SB!VM::N-OBJ-BYTES)
;         (SETF SB!VM::CURRENT SB!VM::NEXT))
;        (T (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES)))))
; 
; note: deleting unreachable code

;     (SB!SYS:SAP<= SB!VM::NEXT SB!VM::END)
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (SETF SB!VM::CURRENT SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LET ((SB!VM::NEXT (TYPECASE SB!VM::N-OBJ-BYTES (FIXNUM #) (INTEGER #))))
;       (COND
;        ((AND SB!VM::OK SB!VM::NEXT (SB!SYS:SAP<= SB!VM::NEXT SB!VM::END))
;         (FUNCALL SB!VM::FUN SB!VM::OBJ SB!VM::OBJ-TAG SB!VM::N-OBJ-BYTES)
;         (SETF SB!VM::CURRENT SB!VM::NEXT))
;        (T (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES)))))
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES)
; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; ==>
;   SB!VM::CURRENT
; 
; note: deleting unreachable code

; in: DEFUN VECTOR-TOTAL-SIZE
;     (THE (SIMPLE-ARRAY * (*)) SB!VM::OBJ)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF AND = IF = 
; ==>
;   (ARRAY-RANK (SB!EXT:TRULY-THE SIMPLE-ARRAY #:ONCE-ONLY-1410))
; 
; note: unable to optimize because: The array rank is not known at compile time: *

; in: DEFUN ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -2147483648 2147483644), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483641 2147483651)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -2147483648 2147483644), not a FIXNUM.
;       The result is a (VALUES (INTEGER -2147483641 2147483651)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; in: DEFUN VECTOR-TOTAL-SIZE
;     (ASH 1 (- SB!VM::SHIFT))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) 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 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).
;       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 inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES
;                                                              (SIGNED-BYTE 32)
;                                                              &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 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).
;       unable to do inline ASH (cost 5) 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).

;     (ASH SB!VM::LEN SB!VM::SHIFT)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       etc.

;     (+ (* SB!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 ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER 8), not a FIXNUM.
;       The result is a (VALUES (INTEGER 15) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 8), not a FIXNUM.
;       The result is a (VALUES (INTEGER 15) &OPTIONAL), not a (VALUES FIXNUM
;                                                                      &REST T).
;       etc.

; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SETF SB!VM::CURRENT SB!VM::NEXT)
; ==>
;   (SETQ SB!VM::CURRENT SB!VM::NEXT)
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; ==>
;   (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SETF SB!VM::CURRENT SB!VM::NEXT)
; ==>
;   (SETQ SB!VM::CURRENT SB!VM::NEXT)
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; ==>
;   (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; 
; note: doing unsigned word to integer coercion (cost 20) from SIZE

;     (SETF SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; ==>
;   (SETQ SB!VM::CURRENT (SB!SYS:SAP+ SB!VM::CURRENT SB!VM:N-WORD-BYTES))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

;     (SB!SYS:SAP+ SB!VM::CURRENT SB!VM::N-OBJ-BYTES)
; 
; note: doing unsigned word to integer coercion (cost 20) from SIZE

; in: DEFUN VECTOR-TOTAL-SIZE
;     (ASH 1 (- SB!VM::SHIFT))
; 
; note: doing signed word to integer coercion (cost 20)

; in: DEFUN ROUND-TO-DUALWORD
;     (+ SB!VM::SIZE SB!VM:LOWTAG-MASK)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

; in: DEFUN MAP-ALLOCATED-OBJECTS
;     (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR)
; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET 
; --> VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:NATURALIZE LET 
; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB!C:%ALIEN-FUNCALL 
; --> SB!ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB!KERNEL:SIGNED-BYTE-32-P #:G1393)
; 
; note: doing unsigned word to integer coercion (cost 20) from ADDR, for:
;       the first argument of SIGNED-BYTE-32-P

;     (SB!ALIEN:DEREF SB!VM::PAGE-TABLE (SB!VM::FIND-PAGE-INDEX SB!ALIEN:ADDR))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF TYPEP 
; ==>
;   (SB!INT:FIXNUMP #:ONCE-ONLY-1396)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of FIXNUMP

; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!SYS:SAP+ SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS))
; 
; note: doing SAP to pointer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF TYPEP 
; ==>
;   (SB!INT:FIXNUMP #:ONCE-ONLY-1399)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of FIXNUMP

; --> SB!ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!SYS:SAP+ SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS))
; 
; note: doing SAP to pointer coercion (cost 20)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SETF SB!VM::CURRENT
;             (SB!SYS:INT-SAP
;              (+ (LOGANDC2 SB!ALIEN:ADDR SB!VM::PAGE-MASK)
;                 SB!VM:GENCGC-PAGE-SIZE)))
; ==>
;   (SETQ SB!VM::CURRENT
;           (SB!SYS:INT-SAP
;            (+ (LOGANDC2 SB!ALIEN:ADDR SB!VM::PAGE-MASK)
;               SB!VM:GENCGC-PAGE-SIZE)))
; 
; note: doing SAP to pointer coercion (cost 20) to CURRENT

; compiling (DEFUN LIST-REFERENCING-OBJECTS ...)
; file: /Users/nikodemus/src/sbcl/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
;       #<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE (SB!ALIEN: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)
;                                 '#<SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE (SB!ALIEN:STRUCT
;                                                                          SB!VM::PAGE
;                                                                          (SB!VM::START
;                                                                           (SB!ALIEN:SIGNED
;                                                                            32))
;                                                                          (SB!VM::BYTES-USED
;                                                                           (SB!ALIEN:UNSIGNED
;                                                                            16))
;                                                                          (SB!VM::FLAGS
;                                                                           (SB!ALIEN:UNSIGNED
;                                                                            8))
;                                                                          (SB!VM::GEN
;                                                                           (SB!ALIEN:SIGNED
;                                                                            8)))>)
; 
; 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 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 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!KERNEL:MAKE-LISP-OBJ SB!VM::TAGGED-ADDRESS NIL)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LISP-OBJ
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LISP-OBJ
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LISP-OBJ

; 
; caught STYLE-WARNING:
;   1 more use of undefined function MAKE-LISP-OBJ


; file: /Users/nikodemus/src/sbcl/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 IF TYPEP 
; --> SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CLASSOID-PROPER-NAME CURRENT-DYNAMIC-SPACE-START MAKE-LISP-OBJ UPDATE-OBJECT-LAYOUT-OR-INVALID
; 
; compilation unit finished
;   caught 12 STYLE-WARNING conditions
;   printed 186 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/room.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/stream.lisp" (written 15 JUN 2008 08:28:24 AM):
; 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 (DEFUN ANSI-STREAM-INPUT-STREAM-P ...)
; compiling (DEFUN INPUT-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 (DEFUN EXTERNAL-FORMAT-CHAR-SIZE ...)
; 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 (DEFUN ANSI-STREAM-READ-LINE-FROM-FRC-BUFFER ...)
; file: /Users/nikodemus/src/sbcl/src/code/stream.lisp
; in: DEFUN ANSI-STREAM-READ-LINE-FROM-FRC-BUFFER
;     (REPLACE SB!IMPL::RES SB!IMPL::%FRC-BUFFER% :START1 SB!IMPL::START :START2
;              SB!IMPL::%FRC-INDEX% :END2 SB!IMPL::POS)
; ==>
;   SB!IMPL::RES
; 
; note: deleting unreachable code

;     (OR SB!IMPL::POS SB!IMPL::%FRC-INDEX%)
; --> LET IF OR 
; ==>
;   SB!IMPL::%FRC-INDEX%
; 
; note: deleting unreachable code

; 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 (DECLAIM (INLINE READ-N-BYTES))
; compiling (DEFUN READ-N-BYTES ...)
; compiling (DEFUN ANSI-STREAM-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
;   #<FUN-TYPE (FUNCTION * (VALUES SYNONYM-STREAM &OPTIONAL))>
;   for MAKE-SYNONYM-STREAM does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (SYMBOL) (VALUES STREAM &OPTIONAL))>

; 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 ...)
; file: /Users/nikodemus/src/sbcl/src/code/stream.lisp
; in: DEFUN READ-N-BYTES
;     (< SB!IMPL::READ-END SB!IMPL::END)
; ==>
;   SB!IMPL::READ-END
; 
; note: deleting unreachable code

;     (SB!IMPL::EOF-OR-LOSE STREAM
;      (AND SB!IMPL::EOF-ERROR-P (< SB!IMPL::READ-END SB!IMPL::END))
;      (- SB!IMPL::READ-END SB!IMPL::START))
; --> IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code

; 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 ...)
; file: /Users/nikodemus/src/sbcl/src/code/stream.lisp
; in: DEFUN READ-N-BYTES
;     (< SB!IMPL::READ-END SB!IMPL::END)
; ==>
;   SB!IMPL::READ-END
; 
; note: deleting unreachable code

;     (SB!IMPL::EOF-OR-LOSE STREAM
;      (AND SB!IMPL::EOF-ERROR-P (< SB!IMPL::READ-END SB!IMPL::END))
;      (- SB!IMPL::READ-END SB!IMPL::START))
; --> IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code

; 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 (DEFPARAMETER *STRING-OUTPUT-STREAM-BUFFER-INITIAL-SIZE* ...)
; compiling (DECLAIM (INLINE STRING-OUTPUT-STRING-STREAM-BUFFER ...))
; compiling (DEFSTRUCT (STRING-OUTPUT-STREAM # ...) ...); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION * (VALUES STRING-OUTPUT-STREAM &OPTIONAL))>
;   for MAKE-STRING-OUTPUT-STREAM does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (&KEY (:ELEMENT-TYPE (OR CONS SYMBOL INSTANCE)))
;               (VALUES STREAM &OPTIONAL))>

; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFUN STRING-OUTPUT-STREAM-NEW-BUFFER ...)
; compiling (DEFUN STRING-OUTPUT-STREAM-NEXT-BUFFER ...)
; compiling (DEFUN STRING-OUTPUT-STREAM-PREV-BUFFER ...)
; compiling (DEFUN STRING-OUCH ...)
; compiling (DEFUN STRING-SOUT ...)
; compiling (DEFUN SET-STRING-OUTPUT-STREAM-FILE-POSITION ...)
; compiling (DEFUN STRING-OUT-MISC ...)
; compiling (DEFUN GET-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 (DECLAIM (INLINE COMPATIBLE-VECTOR-AND-STREAM-ELEMENT-TYPES-P))
; compiling (DEFUN COMPATIBLE-VECTOR-AND-STREAM-ELEMENT-TYPES-P ...)
; compiling (DEFUN ANSI-STREAM-READ-SEQUENCE ...)
; file: /Users/nikodemus/src/sbcl/src/code/stream.lisp
; in: DEFUN READ-N-BYTES
;     (< SB!IMPL::READ-END SB!IMPL::END)
; ==>
;   SB!IMPL::READ-END
; 
; note: deleting unreachable code

;     (SB!IMPL::EOF-OR-LOSE STREAM
;      (AND SB!IMPL::EOF-ERROR-P (< SB!IMPL::READ-END SB!IMPL::END))
;      (- SB!IMPL::READ-END SB!IMPL::START))
; --> IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (LET* ((SB!IMPL::END (+ SB!IMPL::START SB!IMPL::NUMBYTES))
;            (SB!IMPL::READ-END
;             (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START
;              SB!IMPL::END)))
;       (SB!IMPL::EOF-OR-LOSE STREAM
;        (AND SB!IMPL::EOF-ERROR-P (< SB!IMPL::READ-END SB!IMPL::END))
;        (- SB!IMPL::READ-END SB!IMPL::START)))
; 
; note: deleting unreachable code

;     (- SB!IMPL::READ-END SB!IMPL::START)
; ==>
;   SB!IMPL::READ-END
; 
; note: deleting unreachable code

; in: DEFUN ANSI-STREAM-READ-SEQUENCE
;     (DEFUN SB!IMPL::ANSI-STREAM-READ-SEQUENCE
;            (SB!IMPL::SEQ STREAM SB!IMPL::START SB!IMPL::%END)
;       (DECLARE (TYPE SEQUENCE SB!IMPL::SEQ) (TYPE SB!KERNEL:ANSI-STREAM STREAM)
;        (TYPE SB!INT:INDEX SB!IMPL::START)
;        (TYPE SB!KERNEL:SEQUENCE-END SB!IMPL::%END) (VALUES SB!INT:INDEX))
;       (LET ((SB!IMPL::END (OR SB!IMPL::%END #)))
;         (DECLARE (TYPE SB!INT:INDEX SB!IMPL::END))
;         (ETYPECASE SB!IMPL::SEQ
;           (LIST
;            (LET #
;              #))
;           (VECTOR (SB!KERNEL:WITH-ARRAY-DATA # #)))))
; --> PROGN SB!INT:COLD-FSET 
; ==>
;   (THE #<SB!KERNEL:VALUES-TYPE (VALUES (MOD 536870911) &REST T)>
;        (PROGN
;         (BLOCK SB!IMPL::ANSI-STREAM-READ-SEQUENCE
;           (LET (#)
;             (DECLARE #)
;             (ETYPECASE SB!IMPL::SEQ # #)))))
; 
; note: type assertion too complex to check:
;  (VALUES (MOD 536870911) &REST T).

; compiling (DEFUN ANSI-STREAM-READ-STRING-FROM-FRC-BUFFER ...)
; compiling (DEFUN WRITE-SEQUENCE ...)
; compiling (DEFUN ANSI-STREAM-WRITE-SEQUENCE ...)
; file: /Users/nikodemus/src/sbcl/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 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 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 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/code/stream.lisp
; in: DEFUN ANSI-STREAM-WRITE-SEQUENCE
;     (SB!IMPL::BUFFER-OUTPUT STREAM SB!IMPL::DATA SB!IMPL::OFFSET-START
;      SB!IMPL::OFFSET-END)
; 
; caught STYLE-WARNING:
;   undefined function: BUFFER-OUTPUT

; in: DEFUN EXTERNAL-FORMAT-CHAR-SIZE
;     (SB!IMPL::BYTES-FOR-CHAR-FUN SB!IMPL::EF-ENTRY)
; 
; 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-FILE-POSITION
;     (SB!IMPL::FD-STREAM-CHAR-SIZE STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: FD-STREAM-CHAR-SIZE
; 
; caught STYLE-WARNING:
;   undefined function: FD-STREAM-CHAR-SIZE

; in: DEFUN ANSI-STREAM-WRITE-SEQUENCE
;     (SB!SYS:FD-STREAM-P STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: FD-STREAM-P

; in: DEFUN ANSI-STREAM-FILE-POSITION
;     (SB!SYS:FD-STREAM-P STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: FD-STREAM-P
; 
; caught STYLE-WARNING:
;   undefined function: FD-STREAM-P

; in: DEFUN EXTERNAL-FORMAT-CHAR-SIZE
;     (SB!IMPL::FIND-EXTERNAL-FORMAT SB!IMPL::EXTERNAL-FORMAT)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-EXTERNAL-FORMAT

; in: DEFUN FILE-POSITION
;     (SB!GRAY:STREAM-FILE-POSITION STREAM POSITION)
; 
; caught STYLE-WARNING:
;   undefined function: STREAM-FILE-POSITION

; in: DEFUN READ-N-BYTES
;     (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START
;      SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: STREAM-READ-SEQUENCE
; 
; caught STYLE-WARNING:
;   undefined function: STREAM-READ-SEQUENCE
; 
; caught STYLE-WARNING:
;   undefined function: STREAM-READ-SEQUENCE

; 
; caught STYLE-WARNING:
;   4 more uses of undefined function STREAM-READ-SEQUENCE


; file: /Users/nikodemus/src/sbcl/src/code/stream.lisp
; in: DEFUN WRITE-SEQUENCE
;     (SB!GRAY:STREAM-WRITE-SEQUENCE STREAM SB!IMPL::SEQ SB!IMPL::START
;      SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: STREAM-WRITE-SEQUENCE

; in: DEFUN 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 IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ 
; --> THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ 
; --> THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ 
; --> THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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: /Users/nikodemus/src/sbcl/src/code/stream.lisp
; in: DEFUN EXTERNAL-FORMAT-CHAR-SIZE
;     (SB!IMPL::VARIABLE-WIDTH-EXTERNAL-FORMAT-P SB!IMPL::EF-ENTRY)
; 
; caught STYLE-WARNING:
;   undefined function: VARIABLE-WIDTH-EXTERNAL-FORMAT-P

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     %FUNCALLABLE-INSTANCE-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED BUFFER-OUTPUT BYTES-FOR-CHAR-FUN ECHO-MISC FD-STREAM-CHAR-SIZE FD-STREAM-P FIND-EXTERNAL-FORMAT STREAM-FILE-POSITION STREAM-READ-SEQUENCE STREAM-WRITE-SEQUENCE UPDATE-OBJECT-LAYOUT-OR-INVALID VARIABLE-WIDTH-EXTERNAL-FORMAT-P
; 
; compilation unit finished
;   caught 31 STYLE-WARNING conditions
;   printed 11 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/stream.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/Users/nikodemus/src/sbcl/src/code/print.lisp" (written 29 NOV 2007 07:30:18 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: /Users/nikodemus/src/sbcl/src/code/print.lisp
; in: DEFUN OUTPUT-UGLY-OBJECT
;     (RATIO (SB!IMPL::OUTPUT-RATIO SB!IMPL::OBJECT STREAM))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (ETYPECASE OBJECT (INTEGER (OUTPUT-INTEGER OBJECT STREAM)) ...))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   Duplicate key RATIO in ETYPECASE form, occurring in the third clause:
;     (RATIO (OUTPUT-RATIO OBJECT STREAM)), and the fourth clause:
;     (RATIO (OUTPUT-RATIO OBJECT STREAM)).

;     (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: /Users/nikodemus/src/sbcl/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-REASONABLE-INTEGER-IN-BASE ...)
; compiling (DEFVAR *POWER-CACHE* ...)
; compiling (DEFCONSTANT +POWER-CACHE-INTEGER-LENGTH-LIMIT+ ...)
; compiling (DEFUN SCRUB-POWER-CACHE ...)
; compiling (DEFUN POWERS-FOR-BASE ...)
; compiling (DEFUN %OUTPUT-HUGE-INTEGER-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: /Users/nikodemus/src/sbcl/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 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 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 IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ 
; --> THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ 
; --> THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 19 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/print.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/code/pprint.lisp" (written 17 JUN 2008 01:56:13 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: /Users/nikodemus/src/sbcl/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 #<SB!KERNEL:VALUES-TYPE (VALUES FIXNUM &REST T)>
;        (PROGN
;         (BLOCK SB!PRETTY::POSN-COLUMN
;           (SB!PRETTY::INDEX-COLUMN
;            (SB!PRETTY::POSN-INDEX SB!PRETTY::POSN STREAM) STREAM))))
; 
; note: type assertion too complex to check:
;  (VALUES FIXNUM &REST T).

; compiling (DEFUN PRINT-PRETTY-ON-STREAM-P ...)
; compiling (DEFUN PRETTY-OUT ...)
; compiling (DEFUN PRETTY-SOUT ...)
; file: /Users/nikodemus/src/sbcl/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 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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-DEFPACKAGE ...)
; 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: /Users/nikodemus/src/sbcl/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 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 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 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 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 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 IF TYPEP LET OR LET TYPEP 
; --> SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 IF TYPEP LET OR LET TYPEP 
; --> SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND 
; --> LET WHEN IF PROGN SETQ THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED MAKE-PPRINT-DISPATCH-TABLE UPDATE-OBJECT-LAYOUT-OR-INVALID
; 
; compilation unit finished
;   caught 16 STYLE-WARNING conditions
;   printed 26 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/pprint.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-format.lisp" (written 14 JUL 2005 07: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*)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-format.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-format.lisp" (written 13 MAR 2008 03:18:49 PM):
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/code/target-format.lisp
; in: DEFUN FORMAT-PRINT-INTEGER
;     (CONCATENATE 'STRING "-" SB!FORMAT::COMMAED)
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-304 (#:G294)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G294)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-304))
;     (ETYPECASE #:G294
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-304 (THE # #:G294)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-304 (THE SEQUENCE #:G294)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH. (+ 1 (SB!IMPL::STRING-DISPATCH # #:G294 # #)))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (PROGN (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-) (INCF SB!C::.POS.))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G294
;      (REPLACE SB!C::.STRING. #:G294 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G294)))
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   7 more uses of undefined type COMPILER-NOTE


; file: /Users/nikodemus/src/sbcl/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 IF PROGN SETQ THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 20 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-format.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/defpackage.lisp" (written 26 OCT 2007 09:23:07 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO DEFPACKAGE ...); 
; caught STYLE-WARNING:
;   undefined function: CHECK-DISJOINT

; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-PACKAGE-DESIGNATOR

; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-PACKAGE-DESIGNATORS

; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-STRING-DESIGNATOR

; 
; caught STYLE-WARNING:
;   undefined function: STRINGIFY-STRING-DESIGNATORS

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     CHECK-DISJOINT STRINGIFY-PACKAGE-DESIGNATOR STRINGIFY-PACKAGE-DESIGNATORS STRINGIFY-STRING-DESIGNATOR STRINGIFY-STRING-DESIGNATORS

; compiling (DEFUN CHECK-DISJOINT ...)
; compiling (DEFUN STRINGIFY-STRING-DESIGNATOR ...)
; compiling (DEFUN STRINGIFY-STRING-DESIGNATORS ...)
; compiling (DEFUN STRINGIFY-PACKAGE-DESIGNATOR ...)
; compiling (DEFUN STRINGIFY-PACKAGE-DESIGNATORS ...)
; compiling (DEFUN IMPORT-LIST-SYMBOLS ...)
; compiling (DEFUN USE-LIST-PACKAGES ...)
; compiling (DEFUN UPDATE-PACKAGE ...)
; compiling (DEFUN UPDATE-PACKAGE-WITH-VARIANCE ...)
; compiling (DEFUN %DEFPACKAGE ...)
; compiling (DEFUN FIND-OR-MAKE-SYMBOL ...)
; file: /Users/nikodemus/src/sbcl/src/code/defpackage.lisp
; in: DEFUN UPDATE-PACKAGE
;     (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 UPDATE-PACKAGE
;     (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 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 11 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/defpackage.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/pp-backq.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/pp-backq.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/error-error.lisp" (written 14 JUL 2005 07:30:33 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *ERROR-ERROR-DEPTH* ...)
; compiling (DEFUN ERROR-ERROR ...)
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/error-error.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/deadline.lisp" (written 12 JAN 2008 05:29:04 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *DEADLINE* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *DEADLINE-SECONDS* ...)
; compiling (DECLAIM (INLINE SECONDS-TO-INTERNAL-TIME))
; compiling (DEFUN SECONDS-TO-INTERNAL-TIME ...)
; compiling (DEFMACRO WITH-DEADLINE ...)
; compiling (DECLAIM (INLINE DECODE-INTERNAL-TIME))
; compiling (DEFUN DECODE-INTERNAL-TIME ...)
; compiling (DEFUN SIGNAL-TIMEOUT ...)
; compiling (DEFUN SIGNAL-DEADLINE ...)
; compiling (DEFUN DEFER-DEADLINE ...)
; compiling (DEFUN DECODE-TIMEOUT ...)
; file: /Users/nikodemus/src/sbcl/src/code/deadline.lisp
; in: DEFUN SIGNAL-DEADLINE
;     (RESTART-CASE
;      (ERROR 'SB!SYS:DEADLINE-TIMEOUT :SECONDS SB!IMPL::*DEADLINE-SECONDS*)
;      (SB!SYS:DEFER-DEADLINE
;       (&OPTIONAL (SB!IMPL::SECONDS SB!IMPL::*DEADLINE-SECONDS*)) :REPORT
;       "Defer the deadline for SECONDS more."
;       (LET* ((SB!IMPL::NEW-DEADLINE-SECONDS #) (SB!IMPL::NEW-DEADLINE #))
;         (SETF SB!IMPL::*DEADLINE*
;                 SB!IMPL::NEW-DEADLINE
;               SB!IMPL::*DEADLINE-SECONDS*
;                 SB!IMPL::NEW-DEADLINE-SECONDS))))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!SYS:DEADLINE-TIMEOUT
;                                  (LIST :SECONDS SB!IMPL::*DEADLINE-SECONDS*)
;                                  'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; in: DEFUN DEFER-DEADLINE
;     (SB!INT:TRY-RESTART 'SB!SYS:DEFER-DEADLINE CONDITION SB!IMPL::SECONDS)
; 
; caught STYLE-WARNING:
;   undefined function: TRY-RESTART

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     COERCE-TO-CONDITION TRY-RESTART
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/deadline.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/serve-event.lisp" (written 29 FEB 2008 01:04:44 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFSTRUCT (HANDLER # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFVAR *DESCRIPTOR-HANDLERS* ...)
; compiling (SB-XC:DEFMACRO WITH-DESCRIPTOR-HANDLERS ...)
; compiling (DEFUN LIST-ALL-DESCRIPTOR-HANDLERS ...)
; compiling (DEFUN SELECT-DESCRIPTOR-HANDLERS ...)
; compiling (DEFUN MAP-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 WAIT-UNTIL-FD-USABLE ...)
; compiling (DEFUN SERVE-ALL-EVENTS ...)
; compiling (DEFUN SERVE-EVENT ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *PERIODIC-POLLING-FUNCTION* ...)
; compiling (DECLAIM (REAL *PERIODIC-POLLING-PERIOD*))
; compiling (DEFVAR *PERIODIC-POLLING-PERIOD* ...)
; compiling (DEFUN SUB-SERVE-EVENT ...)
; compiling (DEFUN SUB-SUB-SERVE-EVENT ...)
; file: /Users/nikodemus/src/sbcl/src/code/serve-event.lisp
; in: DEFUN SUB-SUB-SERVE-EVENT
;     (SB!ALIEN:ADDR SB!IMPL::READ-FDS)
; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                              (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;                                               (SB!UNIX::FDS-BITS #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB!ALIEN:ADDR SB!IMPL::WRITE-FDS)
; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                              (SB!ALIEN:STRUCT SB!UNIX:FD-SET
;                                               (SB!UNIX::FDS-BITS #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; 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 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."
;       (SB!IMPL::WITH-DESCRIPTOR-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:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED COERCE-TO-CONDITION
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/serve-event.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/fd-stream.lisp" (written 26 MAY 2008 10:38:28 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (INLINE BUFFER-SAP ...))
; compiling (DEFSTRUCT (BUFFER #) ...)
; compiling (DEFVAR *AVAILABLE-BUFFERS* ...)
; compiling (DEFVAR *AVAILABLE-BUFFERS-SPINLOCK* ...)
; compiling (DEFMACRO WITH-AVAILABLE-BUFFERS-LOCK ...)
; compiling (DEFCONSTANT +BYTES-PER-BUFFER+ ...)
; compiling (DEFUN ALLOC-BUFFER ...)
; compiling (DEFUN GET-BUFFER ...)
; compiling (DECLAIM (INLINE RESET-BUFFER))
; compiling (DEFUN RESET-BUFFER ...)
; compiling (DEFUN RELEASE-BUFFER ...)
; compiling (DEFUN RELEASE-FD-STREAM-BUFFERS ...)
; compiling (DEFSTRUCT (FD-STREAM # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN BUFFER-OUTPUT ...)
; compiling (DEFUN FLUSH-OUTPUT-BUFFER ...)
; compiling (DEFUN %QUEUE-AND-REPLACE-OUTPUT-BUFFER ...)
; compiling (DEFUN WRITE-OUTPUT-FROM-QUEUE ...)
; compiling (DEFUN WRITE-OR-BUFFER-OUTPUT ...)
; compiling (DEFUN OUTPUT-RAW-BYTES ...)
; compiling (DEFINE-COMPILER-MACRO OUTPUT-RAW-BYTES ...)
; 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 SYNCHRONIZE-STREAM-OUTPUT ...)
; compiling (DEFUN FD-STREAM-OUTPUT-FINISHED-P ...)
; 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 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-INPUT-BUFFER ...)
; 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 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 (LAMBDA (BYTE) (DECLARE #) ...)))
;   (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 #)
;                           (SB!IMPL::SYNCHRONIZE-STREAM-OUTPUT STREAM)
;                           (UNLESS # #)
;                           (DO # # # #)
;                           (WHEN SB!IMPL::FLUSH-P #)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-BYTES/EBCDIC-US (LAMBDA (STREAM STRING FLUSH-P ...) (BLOCK 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 (LAMBDA (STREAM BYTE) (BLOCK 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 (LAMBDA (STREAM BYTE) (BLOCK 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 (LAMBDA (STREAM BYTE) (BLOCK 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)
;                        (TYPE SB!INT:INDEX SB!IMPL::START SB!IMPL::REQUESTED
;                         SB!INT:INDEX SB!IMPL::END)
;                        (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 (LAMBDA (STREAM BUFFER START ...) (DECLARE # # ...) ...)))
;   (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 (LAMBDA (STREAM EOF-ERROR EOF-VALUE) (BLOCK 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 (LAMBDA (SAP ELEMENT-TYPE) (DECLARE # #) ...)))
;   (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* #
;                            #
;                            #
;                            #:BUFFER3362)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-TO-C-STRING/EBCDIC-US (LAMBDA (STRING) (DECLARE #) ...)))
;   (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: /Users/nikodemus/src/sbcl/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 (LAMBDA (BYTE) (DECLARE #) ...)))
;   (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 #)
;                           (SB!IMPL::SYNCHRONIZE-STREAM-OUTPUT STREAM)
;                           (UNLESS # #)
;                           (DO # # # #)
;                           (WHEN SB!IMPL::FLUSH-P #)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-BYTES/LATIN-9 (LAMBDA (STREAM STRING FLUSH-P ...) (BLOCK 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 (LAMBDA (STREAM BYTE) (BLOCK 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 (LAMBDA (STREAM BYTE) (BLOCK 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 (LAMBDA (STREAM BYTE) (BLOCK 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)
;                        (TYPE SB!INT:INDEX SB!IMPL::START SB!IMPL::REQUESTED
;                         SB!INT:INDEX SB!IMPL::END)
;                        (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 (LAMBDA (STREAM BUFFER START ...) (DECLARE # # ...) ...)))
;   (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 (LAMBDA (STREAM EOF-ERROR EOF-VALUE) (BLOCK 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 (LAMBDA (SAP ELEMENT-TYPE) (DECLARE # #) ...)))
;   (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* #
;                            #
;                            #
;                            #:BUFFER3901)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET OUTPUT-TO-C-STRING/LATIN-9 (LAMBDA (STRING) (DECLARE #) ...)))
;   (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: /Users/nikodemus/src/sbcl/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!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 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: 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).

; --> 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-5300
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I)
;              (THE SB!INT:INDEX
;                   (LET (#)
;                     (COND # # # #)))))
; 
; 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).

; --> 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 NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       etc.

; --> 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-5300
;      (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 NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; compiling (DEFUN SET-FD-STREAM-ROUTINES ...)
; compiling (DEFUN RELEASE-FD-STREAM-RESOURCES ...)
; compiling (DEFUN FLUSH-INPUT-BUFFER ...)
; compiling (DEFUN FD-STREAM-CLEAR-INPUT ...)
; compiling (DEFUN FD-STREAM-MISC-ROUTINE ...)
; compiling (DEFUN FINISH-FD-STREAM-OUTPUT ...)
; compiling (DEFUN FD-STREAM-GET-FILE-POSITION ...)
; compiling (DEFUN FD-STREAM-SET-FILE-POSITION ...)
; 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-DEINIT ...)
; compiling (DEFUN STREAM-REINIT ...)
; compiling (DEFUN BEEP ...)
; compiling (DEFUN FILE-NAME ...)
; file: /Users/nikodemus/src/sbcl/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)
;           (ECASE SB!IMPL::DIRECTION
;             (:INPUT (VALUES T NIL SB!UNIX:O_RDONLY))
;             (:OUTPUT (VALUES NIL T SB!UNIX:O_WRONLY))
;             (:IO (VALUES T T SB!UNIX:O_RDWR))
;             (:PROBE (VALUES T NIL SB!UNIX:O_RDONLY)))
;         (DECLARE (TYPE SB!INT:INDEX SB!IMPL::MASK))
;         (LET* ((PATHNAME #) (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 
; --> 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 UNSIGNED-BYTE 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!SYS:FD-STREAM
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFSTRUCT BUFFER
;     (DEFSTRUCT
;         (SB!IMPL::BUFFER
;          (:CONSTRUCTOR SB!IMPL::%MAKE-BUFFER (SB!IMPL::SAP LENGTH)))
;       (SB!IMPL::SAP (SB!INT:MISSING-ARG) :TYPE SB!SYS:SYSTEM-AREA-POINTER
;        :READ-ONLY T)
;       (LENGTH (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T)
;       (SB!IMPL::HEAD 0 :TYPE SB!INT:INDEX)
;       (SB!IMPL::TAIL 0 :TYPE SB!INT:INDEX))
; --> PROGN SB!KERNEL: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::BUFFER
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN RELEASE-FD-STREAM-BUFFERS
;     (SB!IMPL::WITH-AVAILABLE-BUFFERS-LOCK NIL
;      (SETF SB!IMPL::*AVAILABLE-BUFFERS*
;              (NCONC SB!IMPL::QUEUE SB!IMPL::*AVAILABLE-BUFFERS*)))
; --> SB!THREAD::WITH-SYSTEM-SPINLOCK SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-SYSTEM-SPINLOCK #'SB!THREAD::WITH-SYSTEM-SPINLOCK-THUNK
;                                         SB!IMPL::*AVAILABLE-BUFFERS-SPINLOCK*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-SYSTEM-SPINLOCK

; in: DEFUN RELEASE-BUFFER
;     (SB!IMPL::WITH-AVAILABLE-BUFFERS-LOCK NIL
;      (PUSH SB!IMPL::BUFFER SB!IMPL::*AVAILABLE-BUFFERS*))
; --> SB!THREAD::WITH-SYSTEM-SPINLOCK SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-SYSTEM-SPINLOCK #'SB!THREAD::WITH-SYSTEM-SPINLOCK-THUNK
;                                         SB!IMPL::*AVAILABLE-BUFFERS-SPINLOCK*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-SYSTEM-SPINLOCK

; in: DEFUN GET-BUFFER
;     (SB!IMPL::WITH-AVAILABLE-BUFFERS-LOCK NIL (POP SB!IMPL::*AVAILABLE-BUFFERS*))
; --> SB!THREAD::WITH-SYSTEM-SPINLOCK SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-SYSTEM-SPINLOCK #'SB!THREAD::WITH-SYSTEM-SPINLOCK-THUNK
;                                         SB!IMPL::*AVAILABLE-BUFFERS-SPINLOCK*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-SYSTEM-SPINLOCK

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function SB!THREAD::CALL-WITH-SYSTEM-SPINLOCK


; file: /Users/nikodemus/src/sbcl/src/code/fd-stream.lisp
; in: DEFUN RELEASE-FD-STREAM-RESOURCES
;     (SB!EXT:CANCEL-FINALIZATION SB!SYS:FD-STREAM)
; 
; caught STYLE-WARNING:
;   undefined function: CANCEL-FINALIZATION

; in: DEFUN PICK-BACKUP-NAME
;     (CONCATENATE 'SIMPLE-STRING SB!IMPL::NAME ".bak")
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-5924 (#:G5898)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G5898)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-5924))
;     (ETYPECASE #:G5898
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-5924 (THE # #:G5898)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-5924 (THE SEQUENCE #:G5898)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH. (+ (SB!IMPL::STRING-DISPATCH # #:G5898 # #) 4))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G5898
;      (REPLACE SB!C::.STRING. #:G5898 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G5898)))
;     (PROGN
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\.)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\b)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\a)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\k)
;      (INCF SB!C::.POS.))
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type COMPILER-NOTE


; file: /Users/nikodemus/src/sbcl/src/code/fd-stream.lisp
; 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))
;      :DONT-SAVE T)
; 
; caught STYLE-WARNING:
;   undefined function: FINALIZE

; in: DEFUN ALLOC-BUFFER
;     (SB!EXT:FINALIZE SB!IMPL::BUFFER
;      (LAMBDA () (SB!SYS:DEALLOCATE-SYSTEM-MEMORY SB!IMPL::SAP SB!IMPL::SIZE))
;      :DONT-SAVE T)
; 
; caught STYLE-WARNING:
;   undefined function: FINALIZE

; in: DEFVAR *AVAILABLE-BUFFERS-SPINLOCK*
;     (SB!THREAD::MAKE-SPINLOCK :NAME "lock for *AVAILABLE-BUFFERS*")
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::MAKE-SPINLOCK

; in: DEFMACRO DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH
;     (SB!IMPL::SEQUENCE-BOUNDING-INDICES-BAD STRING SB!IMPL::START SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: SEQUENCE-BOUNDING-INDICES-BAD

; 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)
;           (ECASE SB!IMPL::DIRECTION
;             (:INPUT (VALUES T NIL SB!UNIX:O_RDONLY))
;             (:OUTPUT (VALUES NIL T SB!UNIX:O_WRONLY))
;             (:IO (VALUES T T SB!UNIX:O_RDWR))
;             (:PROBE (VALUES T NIL SB!UNIX:O_RDONLY)))
;         (DECLARE (TYPE SB!INT:INDEX SB!IMPL::MASK))
;         (LET* ((PATHNAME #) (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 
; --> 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 IF PROGN SETQ THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 IF PROGN SETQ THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; 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 IF PROGN SETQ THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; caught STYLE-WARNING:
;   undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     %FUNCALLABLE-INSTANCE-LAYOUT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!THREAD::CALL-WITH-SYSTEM-SPINLOCK CANCEL-FINALIZATION DEFAULT-EXTERNAL-FORMAT FINALIZE SB!THREAD::MAKE-SPINLOCK SEQUENCE-BOUNDING-INDICES-BAD UNIX-NAMESTRING UPDATE-OBJECT-LAYOUT-OR-INVALID

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 44 STYLE-WARNING conditions
;   printed 22 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/fd-stream.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/Users/nikodemus/src/sbcl/src/code/module.lisp" (written 02 JAN 2007 11:15:14 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 ...)
; file: /Users/nikodemus/src/sbcl/src/code/module.lisp
; in: DEFUN MODULE-PROVIDE-CONTRIB
;     (SB!INT:SBCL-HOMEDIR-PATHNAME)
; 
; caught STYLE-WARNING:
;   undefined function: SBCL-HOMEDIR-PATHNAME

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SBCL-HOMEDIR-PATHNAME
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/module.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/interr.lisp" (written 11 JUN 2008 11:04:23 PM):
; 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 (DEFERR TLS-EXHAUSTED-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 ...)
; compiling (DEFUN UNHANDLED-TRAP-ERROR ...)
; file: /Users/nikodemus/src/sbcl/src/code/interr.lisp
; in: DEFUN UNHANDLED-TRAP-ERROR
;     (SB!ALIEN:SAP-ALIEN SB!KERNEL::CONTEXT-SAP (* SB!SYS:OS-CONTEXT-T))
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!KERNEL::CONTEXT-SAP
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                              (SB!ALIEN:STRUCT
;                                               SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; 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 #:G49 (NTH 0 #:G51) #:G50)
; 
; 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 #:G35 (NTH 0 #:G37) #:G36)
; 
; 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 
; --> SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA FUNCTION 
; ==>
;   (SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT #:G7 SB!KERNEL::SC-OFFSET #:G8)
; 
; 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: /Users/nikodemus/src/sbcl/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
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/interr.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/query.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/query.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/sort.lisp" (written 28 JAN 2008 05:11:00 PM):
; 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 (DEFUN STABLE-SORT-SIMPLE-VECTOR ...)
; compiling (DEFUN STABLE-SORT-VECTOR ...)
; compiling (DEFUN MERGE ...)
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/sort.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/time.lisp" (written 17 MAY 2008 02:02:29 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN TIME-REINIT ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; 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 ELAPSED-CYCLES ...)
; compiling (DECLAIM (INLINE READ-CYCLE-COUNTER))
; compiling (DEFUN READ-CYCLE-COUNTER ...)
; compiling (DEFUN FORMAT-MICROSECONDS ...)
; compiling (DEFUN FORMAT-MILLISECONDS ...)
; compiling (DEFUN %FORMAT-DECIMAL ...)
; compiling (DEFUN %TIME ...)
; file: /Users/nikodemus/src/sbcl/src/code/time.lisp
; in: DEFUN %FORMAT-DECIMAL
;     (DEFUN SB!IMPL::%FORMAT-DECIMAL (STREAM NUMBER SB!IMPL::POWER)
;       (DECLARE (STREAM STREAM) (INTEGER NUMBER SB!IMPL::POWER))
;       (WHEN (MINUSP NUMBER) (WRITE-CHAR #\- STREAM) (SETF NUMBER (- NUMBER)))
;       (LET ((SB!IMPL::SCALE (EXPT 10 SB!IMPL::POWER)))
;         (FLET ((SB!IMPL::%FRACTION #
;                  #
;                  #)
;                (SB!IMPL::%ZEROES #
;                  #))
;           (COND (# # #) (# # #) (# # #) (# #))))
;       NIL)
; --> PROGN SB!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET 
; --> UNLESS 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

; --> PROGN SB!INT:COLD-FSET LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF TYPEP SB!C::%INSTANCE-TYPEP AND IF AND LET WHEN IF PROGN SETQ 
; --> THE 
; ==>
;   (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!C::OBJECT
;                                              '#<SB!KERNEL:LAYOUT for STREAM {1250DC21}>)
; 
; caught STYLE-WARNING:
;   undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     %FUNCALLABLE-INSTANCE-LAYOUT UPDATE-OBJECT-LAYOUT-OR-INVALID
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/time.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/timer.lisp" (written 12 MAR 2008 08:32:46 PM):
; 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: /Users/nikodemus/src/sbcl/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 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 MAKE-CANCELLABLE-INTERRUPTOR
;     (SB!THREAD:WITH-RECURSIVE-LOCK (SB!IMPL::MUTEX)
;                                    (UNLESS SB!IMPL::CANCELLED-P
;                                      (FUNCALL FUNCTION)))
; --> SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-RECURSIVE-LOCK #'SB!THREAD::WITH-RECURSIVE-LOCK-THUNK
;                                        SB!IMPL::MUTEX)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-RECURSIVE-LOCK

; in: DEFUN LIST-ALL-TIMERS
;     (SB!IMPL::WITH-SCHEDULER-LOCK NIL
;      (CONCATENATE 'LIST (SB!IMPL::%PQUEUE-CONTENTS SB!IMPL::*SCHEDULE*)))
; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK
;                                      SB!IMPL::*SCHEDULER-LOCK*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX

; in: DEFUN UNSCHEDULE-TIMER
;     (SB!IMPL::WITH-SCHEDULER-LOCK NIL
;      (SETF (SB!IMPL::%TIMER-EXPIRE-TIME SB!EXT:TIMER)
;              NIL
;            (SB!IMPL::%TIMER-REPEAT-INTERVAL SB!EXT:TIMER)
;              NIL)
;      (LET ((SB!IMPL::OLD-POSITION
;             (SB!IMPL::PRIORITY-QUEUE-REMOVE SB!IMPL::*SCHEDULE* SB!EXT:TIMER)))
;        (WHEN SB!IMPL::OLD-POSITION
;          (FUNCALL (SB!IMPL::%TIMER-CANCEL-FUNCTION SB!EXT:TIMER)))
;        (WHEN (EQL 0 SB!IMPL::OLD-POSITION) (SB!IMPL::SET-SYSTEM-TIMER))))
; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK
;                                      SB!IMPL::*SCHEDULER-LOCK*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX

; in: DEFUN SCHEDULE-TIMER
;     (SB!IMPL::WITH-SCHEDULER-LOCK NIL
;      (SETF (SB!IMPL::%TIMER-EXPIRE-TIME SB!EXT:TIMER)
;              (+ (GET-INTERNAL-REAL-TIME)
;                 (SB!IMPL::DELTA->REAL (IF SB!IMPL::ABSOLUTE-P # TIME)))
;            (SB!IMPL::%TIMER-REPEAT-INTERVAL SB!EXT:TIMER)
;              (IF SB!IMPL::REPEAT-INTERVAL
;                  (SB!IMPL::DELTA->REAL SB!IMPL::REPEAT-INTERVAL) NIL))
;      (SB!IMPL::%SCHEDULE-TIMER SB!EXT:TIMER))
; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK
;                                      SB!IMPL::*SCHEDULER-LOCK*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function SB!THREAD::CALL-WITH-SYSTEM-MUTEX


; file: /Users/nikodemus/src/sbcl/src/code/timer.lisp
; 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:
;   679 more uses of undefined type SB!THREAD:THREAD


; file: /Users/nikodemus/src/sbcl/src/code/timer.lisp
; in: DEFUN RESCHEDULE-TIMER
;     (SB!THREAD:THREAD-ALIVE-P SB!IMPL::THREAD)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD:THREAD-ALIVE-P

;     (SB!THREAD::THREAD-P SB!IMPL::THREAD)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::THREAD-P

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!THREAD::CALL-WITH-RECURSIVE-LOCK SB!THREAD::CALL-WITH-SYSTEM-MUTEX SB!THREAD:INTERRUPT-THREAD SB!THREAD:MAKE-MUTEX SB!THREAD:MAKE-THREAD SB!THREAD:THREAD-ALIVE-P SB!THREAD::THREAD-P

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     SB!THREAD:THREAD
; 
; compilation unit finished
;   caught 19 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/timer.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/weak.lisp" (written 14 JUL 2005 07:30:41 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN MAKE-WEAK-POINTER ...)
; compiling (DECLAIM (INLINE WEAK-POINTER-VALUE))
; compiling (DEFUN WEAK-POINTER-VALUE ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/weak.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/final.lisp" (written 12 MAR 2008 08:32:45 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *FINALIZER-STORE* ...)
; compiling (DEFVAR *FINALIZER-STORE-LOCK* ...)
; compiling (DEFMACRO WITH-FINALIZER-STORE-LOCK ...)
; compiling (DEFUN FINALIZE ...)
; compiling (DEFUN DEINIT-FINALIZERS ...)
; compiling (DEFUN CANCEL-FINALIZATION ...)
; compiling (DEFUN RUN-PENDING-FINALIZERS ...)
; file: /Users/nikodemus/src/sbcl/src/code/final.lisp
; in: DEFUN CANCEL-FINALIZATION
;     (SB!IMPL::WITH-FINALIZER-STORE-LOCK
;      (SETF SB!IMPL::*FINALIZER-STORE*
;              (DELETE SB!IMPL::OBJECT SB!IMPL::*FINALIZER-STORE* :KEY
;                      (LAMBDA (LIST) (SB!EXT:WEAK-POINTER-VALUE #)))))
; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING
;    #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK SB!IMPL::*FINALIZER-STORE-LOCK*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING

; in: DEFUN DEINIT-FINALIZERS
;     (SB!IMPL::WITH-FINALIZER-STORE-LOCK
;      (SETF SB!IMPL::*FINALIZER-STORE*
;              (DELETE-IF #'THIRD SB!IMPL::*FINALIZER-STORE*)))
; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING
;    #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK SB!IMPL::*FINALIZER-STORE-LOCK*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING

; in: DEFUN FINALIZE
;     (SB!IMPL::WITH-FINALIZER-STORE-LOCK
;      (PUSH
;       (LIST (SB!EXT:MAKE-WEAK-POINTER SB!IMPL::OBJECT) FUNCTION
;             SB!IMPL::DONT-SAVE)
;       SB!IMPL::*FINALIZER-STORE*))
; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING
;    #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK SB!IMPL::*FINALIZER-STORE-LOCK*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING

; 
; caught STYLE-WARNING:
;   1 more use of undefined function SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING


; file: /Users/nikodemus/src/sbcl/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

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING SB!THREAD:MAKE-MUTEX
; 
; compilation unit finished
;   caught 6 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/final.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/setf-funs.lisp" (written 14 JUL 2005 07:30:38 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFINE-SETTERS ("COMMON-LISP") ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/setf-funs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/stubs.lisp" (written 06 OCT 2006 01:54:13 PM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/stubs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/exhaust.lisp" (written 04 OCT 2005 08: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/exhaust.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/early-c.lisp" (written 11 JUL 2008 09:55:08 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT SB-XC:CALL-ARGUMENTS-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:LAMBDA-PARAMETERS-LIMIT ...)
; compiling (DEF!CONSTANT SB-XC:MULTIPLE-VALUES-LIMIT ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME*)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME*)
; compiling (DEFVAR SB-XC:*COMPILE-PRINT*)
; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE*)
; compiling (DEF!TYPE LAYOUT-DEPTHOID ...)
; compiling (DEFTYPE INLINEP ...)
; compiling (DEFPARAMETER *INLINEP-TRANSLATIONS* ...)
; compiling (DEFVAR *LEXENV*)
; compiling (DECLAIM (TYPE LEXENV ...))
; compiling (DEFVAR *FREE-VARS*)
; compiling (DEFVAR *FREE-FUNS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *CONSTANTS*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *ALLOW-INSTRUMENTING*)
; compiling (DEFVAR *CODE-SEGMENT*)
; compiling (DEFVAR *COMPONENT-BEING-COMPILED*)
; compiling (DEFVAR *COMPILER-ERROR-CONTEXT*)
; compiling (DEFVAR *COMPILER-ERROR-COUNT*)
; compiling (DEFVAR *COMPILER-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*)
; compiling (DEFVAR *COMPILER-NOTE-COUNT*)
; compiling (DEFVAR *COMPILER-TRACE-OUTPUT*)
; compiling (DEFVAR *CONSTRAINT-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 *LAMBDA-CONVERSIONS*)
; compiling (DEFVAR *BIG-COMPILER-LOCK* ...)
; compiling (DECLAIM (TYPE FIXNUM ...))
; compiling (DEFVAR *COMPILER-SSET-COUNTER* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-NAME-DEFINED ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NOTE-LEXICAL-BINDING ...)
; compiling (DEF!STRUCT (DEBUG-NAME-MARKER # ...))
; compiling (DEFVAR *DEBUG-NAME-LEVEL* ...)
; compiling (DEFVAR *DEBUG-NAME-LENGTH* ...)
; compiling (DEFVAR *DEBUG-NAME-PUNT*)
; compiling (DEFVAR *DEBUG-NAME-SHARP*)
; compiling (DEFVAR *DEBUG-NAME-ELLIPSIS*)
; compiling (DEFUN DUMP-DEBUG-NAME-MARKER ...); 
; caught STYLE-WARNING:
;   redefining DUMP-DEBUG-NAME-MARKER in DEFUN

; compiling (DEFUN PRINT-DEBUG-NAME-MARKER ...)
; compiling (SETF *DEBUG-NAME-SHARP* ...)
; compiling (DEFUN DEBUG-NAME ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/early-c.lisp
; in:
;      DEF!STRUCT (DEBUG-NAME-MARKER (:MAKE-LOAD-FORM-FUN DUMP-DEBUG-NAME-MARKER)
;              (:PRINT-FUNCTION PRINT-DEBUG-NAME-MARKER))
;     (SB!INT:DEF!STRUCT
;      (SB!C::DEBUG-NAME-MARKER (:MAKE-LOAD-FORM-FUN SB!C::DUMP-DEBUG-NAME-MARKER)
;       (:PRINT-FUNCTION SB!C::PRINT-DEBUG-NAME-MARKER)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::DEBUG-NAME-MARKER
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 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:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!THREAD:MAKE-MUTEX
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/early-c.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/policy.lisp" (written 06 MAY 2008 01:45:44 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!TYPE POLICY-QUALITY ...)
; compiling (DEFVAR *POLICY-RESTRICTIONS* ...)
; compiling (DEFUN RESTRICT-COMPILER-POLICY ...)
; compiling (DEF!TYPE POLICY ...)
; compiling (DEFSTRUCT POLICY-DEPENDENT-QUALITY ...)
; compiling (DEFVAR *POLICY-QUALITIES*)
; compiling (DEFVAR *POLICY-DEPENDENT-QUALITIES* ...)
; compiling (DEFUN POLICY-QUALITY-NAME-P ...)
; compiling (DECLAIM (TYPE POLICY ...))
; compiling (DEFVAR *POLICY*)
; compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...)
; compiling (DEFUN POLICY-QUALITY ...)
; compiling (DEFUN %POLICY-QUALITY ...)
; compiling (DEFMACRO POLICY ...)
; compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/policy.lisp
; in: DEFSTRUCT POLICY-DEPENDENT-QUALITY
;     (DEFSTRUCT SB!C::POLICY-DEPENDENT-QUALITY
;       SB!C::NAME
;       SB!C::EXPRESSION
;       SB!C::GETTER
;       SB!C::VALUES-DOCUMENTATION)
; --> PROGN SB!KERNEL: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:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/policy.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/policies.lisp" (written 12 MAY 2008 05:12:43 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY 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-VALUE-CELLS ...)
; 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 ...)
; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-COVERAGE-DATA ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/policies.lisp
; in: DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE
;     (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-TAG-EXISTENCE
;                                        (COND ((= SAFETY 0) 0) (T 3))
;                                        ("no" "maybe" "yes" "yes")
;                                        "Control whether GO and RETURN-FROM check liveness of the destination tag.
;   Enabling this option can increase heap consing of closures.")
; --> EVAL-WHEN LET LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION 
; --> SB!C:POLICY LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY

; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK
;     (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK
;                                        (COND ((= SAFETY 0) 0)
;                                              ((AND (< SAFETY 2) (< SAFETY SPEED))
;                                               2)
;                                              (T 3))
;                                        ("no" "maybe" "weak" "full")
;                                        "Control the way to perform runtime type checking:
;   0: declared types are simply trusted; no runtime checks are performed;
;   2: fast checks are performed: declared types are weakened to
;      FIXNUM/SINGLE-FLOAT/FLOAT/NUMBER/structure/specialized array etc.;
;   3: declared types are fully checked (several exceptions exist;
;      see \"SBCL User Manual\", Compiler->Handling of Types->
;      Implementation Limitations for details).")
; --> EVAL-WHEN LET LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION 
; --> SB!C:POLICY LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY

; in: DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION
;     (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-CONSTANT-MODIFICATION SAFETY
;                                        ("no" "maybe" "yes" "yes")
;                                        "Control whether the compiler should check for constant
;   modification. Defaults to SAFETY.")
; --> EVAL-WHEN LET LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION 
; --> SB!C:POLICY LET* 
; ==>
;   (SB!C::%COERCE-TO-POLICY SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: %COERCE-TO-POLICY

; 
; caught STYLE-WARNING:
;   15 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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/policies.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/typedefs.lisp" (written 27 APR 2006 06: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/typedefs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/macros.lisp" (written 12 DEC 2007 02:19:44 PM):
; 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: /Users/nikodemus/src/sbcl/src/compiler/macros.lisp
; in: DEFSTRUCT EVENT-INFO
;     (DEFSTRUCT (SB!C::EVENT-INFO (:COPIER NIL))
;       (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL)
;       (SB!C::DESCRIPTION (SB!INT:MISSING-ARG) :TYPE STRING)
;       (SB!C::VAR (SB!INT:MISSING-ARG) :TYPE SYMBOL)
;       (COUNT 0 :TYPE FIXNUM)
;       (SB!C::LEVEL (SB!INT:MISSING-ARG) :TYPE UNSIGNED-BYTE)
;       (SB!C::ACTION NIL :TYPE (OR FUNCTION NULL)))
; --> PROGN SB!KERNEL: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:
;     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 9 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-macs.lisp" (written 04 JUN 2008 03:39:41 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 (DEFMACRO DEF-CASSER ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...)
; compiling (DEFSTRUCT MODULAR-CLASS ...)
; compiling (DEFVAR *UNTAGGED-UNSIGNED-MODULAR-CLASS* ...)
; compiling (DEFVAR *UNTAGGED-SIGNED-MODULAR-CLASS* ...)
; compiling (DEFVAR *TAGGED-MODULAR-CLASS* ...)
; compiling (DEFUN FIND-MODULAR-CLASS ...)
; compiling (DEFSTRUCT MODULAR-FUN-INFO ...)
; compiling (DEFUN FIND-MODULAR-VERSION ...)
; compiling (DEFUN MODULAR-VERSION-INFO ...)
; compiling (DEFUN %DEFINE-MODULAR-FUN ...)
; compiling (DEFMACRO DEFINE-MODULAR-FUN ...)
; compiling (DEFUN %DEFINE-GOOD-MODULAR-FUN ...)
; compiling (DEFMACRO DEFINE-GOOD-MODULAR-FUN ...)
; compiling (DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER ...)
; file: /Users/nikodemus/src/sbcl/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:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/vm-macs.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/sset.lisp" (written 11 APR 2007 11:57:13 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...)
; compiling (DEFSTRUCT (SSET #) ...)
; compiling (DEFPRINTER (SSET) ...)
; compiling (DEFMACRO DO-SSET-ELEMENTS ...)
; compiling (DECLAIM (INLINE SSET-HASH1))
; compiling (DEFUN SSET-HASH1 ...)
; compiling (DECLAIM (INLINE SSET-HASH2))
; compiling (DEFUN SSET-HASH2 ...)
; compiling (DEFUN SSET-GROW ...)
; compiling (DEFCONSTANT +SSET-REHASH-THRESHOLD+ ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SSET-ADJOIN ...)
; 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: /Users/nikodemus/src/sbcl/src/compiler/sset.lisp
; in: DEFSTRUCT SSET
;     (DEFSTRUCT (SB!ASSEM:SSET (:COPIER NIL))
;       (VECTOR #() :TYPE SIMPLE-VECTOR)
;       (SB!C::FREE 0 :TYPE SB!INT:INDEX)
;       (COUNT 0 :TYPE SB!INT:INDEX))
; --> PROGN SB!KERNEL: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:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/sset.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/node.lisp" (written 16 JUL 2008 11:51:15 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (CTRAN # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (LVAR # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (NODE # ...) ...)
; compiling (DEF!STRUCT (VALUED-NODE # ...) ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE BLOCK ...)
; compiling (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 (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: /Users/nikodemus/src/sbcl/src/compiler/node.lisp
; in:
;      DEF!STRUCT (NODE (:CONSTRUCTOR NIL)
;              (:INCLUDE SSET-ELEMENT (NUMBER (INCF *COMPILER-SSET-COUNTER*)))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::NODE (:CONSTRUCTOR NIL)
;       (:INCLUDE SB!ASSEM:SSET-ELEMENT
;        (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*)))
;       (:COPIER NIL))
;      (SB!C::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: /Users/nikodemus/src/sbcl/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 (#:WHOLE2228 #:ENVIRONMENT2229)
;                                 (LET* ()
;                                   (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 (#:WHOLE158 #:ENVIRONMENT159)
;                                 (LET* ()
;                                   (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:
;   868 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:
;   184 more uses of undefined type FUN-INFO


; file: /Users/nikodemus/src/sbcl/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:
;   414 more uses of undefined type IR2-COMPONENT


; file: /Users/nikodemus/src/sbcl/src/compiler/node.lisp
; in: DEFUN %COERCE-TO-POLICY
;     (SB!C::LEXENV-POLICY SB!C::THING)
; 
; caught STYLE-WARNING:
;   undefined function: LEXENV-POLICY

; in:
;      DEF!STRUCT (COMPONENT (:COPIER NIL)
;              (:CONSTRUCTOR MAKE-COMPONENT
;               (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #))))
;     (SB!C::MAKE-LOOP :KIND :OUTER :HEAD SB!C::HEAD)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LOOP

; in:
;      DEF!STRUCT (CSET
;              (:INCLUDE VALUED-NODE
;               (DERIVED-TYPE (MAKE-SINGLE-VALUE-TYPE *UNIVERSAL-TYPE*)))
;              (:CONC-NAME SET-) (:PREDICATE SET-P) (:CONSTRUCTOR MAKE-SET) ...)
;     (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!KERNEL:*UNIVERSAL-TYPE*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-SINGLE-VALUE-TYPE

; in:
;      DEF!STRUCT (REF (:INCLUDE VALUED-NODE (REOPTIMIZE NIL))
;              (:CONSTRUCTOR MAKE-REF
;               (LEAF &OPTIONAL (%SOURCE-NAME '.ANONYMOUS.) &AUX (LEAF-TYPE #)
;                ...))
;              (:COPIER NIL))
;     (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!C::LEAF-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-SINGLE-VALUE-TYPE

; in:
;      DEF!STRUCT (NLX-INFO
;              (:CONSTRUCTOR MAKE-NLX-INFO (CLEANUP EXIT &AUX (BLOCK #)))
;              (:MAKE-LOAD-FORM-FUN IGNORE-IT))
;     (SB!C::NODE-BLOCK SB!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:
;     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 30 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/node.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/vop.lisp" (written 05 DEC 2006 06:35:57 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED GEN-LABEL MAKE-DYNAMIC-STATE-TNS MAKE-STACK-POINTER-TN REQUIRED-ARGUMENT
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/vop.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/backend.lisp" (written 07 FEB 2006 05: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: /Users/nikodemus/src/sbcl/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 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

; in: DEFMACRO !DEF-VM-SUPPORT-ROUTINE
;     (CONCATENATE 'SIMPLE-STRING "VM-SUPPORT-ROUTINES-" (STRING SB!C::NAME))
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-760 (#:G655)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G655)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-760))
;     (ETYPECASE #:G655
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-760 (THE # #:G655)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-760 (THE SEQUENCE #:G655)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH. (+ 20 (SB!IMPL::STRING-DISPATCH # #:G655 # #)))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (PROGN
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\V)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\M)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\S)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\U)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\P)
;      ...)
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G655
;      (REPLACE SB!C::.STRING. #:G655 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G655)))
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/backend.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/vmdef.lisp" (written 14 JUL 2005 09: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: /Users/nikodemus/src/sbcl/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 (#:WHOLE50 #:ENVIRONMENT51)
;                                 (LET* ()
;                                   (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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/vmdef.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/backend-parms.lisp" (written 16 JAN 2007 12:15:49 AM):
; 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* ...)
; compiling (DEF!CONSTANT GENCGC-PAGE-SIZE ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/backend-parms.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/globaldb.lisp" (written 15 JUN 2008 02:13:41 PM):
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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-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-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-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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SPECIFIER-TYPE
; 
; compilation unit finished
;   caught 6 STYLE-WARNING conditions
;   printed 3 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/globaldb.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/info-functions.lisp" (written 16 JUL 2007 01:28:13 AM):
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 IF EQ SB!INT:INFO MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (&OPTIONAL (#:VALUE[UNDEFINE-FUN-NAME]98)
;          (#:FOUNDP[UNDEFINE-FUN-NAME]99)
;          &REST #:G100)
;       (DECLARE (IGNORE #:G100))
;       (DECLARE (TYPE (OR SB!C::FUN-INFO NULL) #:VALUE[UNDEFINE-FUN-NAME]98))
;       (VALUES #:VALUE[UNDEFINE-FUN-NAME]98 #:FOUNDP[UNDEFINE-FUN-NAME]99))
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO
; 
; caught STYLE-WARNING:
;   undefined type: FUN-INFO

; 
; caught STYLE-WARNING:
;   387 more uses of undefined type FUN-INFO


; file: /Users/nikodemus/src/sbcl/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 #:G622 '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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/info-functions.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/force-delayed-defbangconstants.lisp" (written 19 MAY 2002 04:55:31 PM):
; compiling (IN-PACKAGE "SB!KERNEL")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defmacro.lisp" (written 19 APR 2007 09:27:48 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/defmacro.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/force-delayed-defbangmacros.lisp" (written 21 OCT 2000 02:30:33 AM):
; compiling (IN-PACKAGE "SB!IMPL")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/late-macros.lisp" (written 14 JUL 2005 09:57:00 PM):
; compiling (IN-PACKAGE "SB!C")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/late-macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/meta-vmdef.lisp" (written 12 DEC 2007 02:19:44 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFMACRO DEFINE-STORAGE-BASE ...)
; compiling (DEFMACRO DEFINE-STORAGE-CLASS ...)
; compiling (DEFMACRO DO-SC-PAIRS ...)
; compiling (DEFMACRO DEFINE-MOVE-FUN ...)
; compiling (DEFPARAMETER *SC-VOP-SLOTS* ...)
; compiling (DEFMACRO DEFINE-MOVE-VOP ...)
; compiling (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: /Users/nikodemus/src/sbcl/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 
; ==>
;   (SB!C::%FUNCALL
;    #<SB!C::GLOBAL-VAR
;      :%SOURCE-NAME MAKE-ARRAY
;      :TYPE #<SB!KERNEL:FUN-TYPE (FUNCTION # #)>
;      :WHERE-FROM :DECLARED
;      :KIND :GLOBAL-FUNCTION {1217DA99}>
;    #:G[MAKE-SPECIALIZABLE-ARRAY]847 #:G[MAKE-SPECIALIZABLE-ARRAY]848
;    #:G[MAKE-SPECIALIZABLE-ARRAY]849)
; 
; note: The second argument (in keyword position) is not a constant.

; compiling (DEFUN COMPUTE-REF-ORDERING ...)
; file: /Users/nikodemus/src/sbcl/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 
; ==>
;   (SB!C::%FUNCALL
;    #<SB!C::GLOBAL-VAR
;      :%SOURCE-NAME MAKE-ARRAY
;      :TYPE #<SB!KERNEL:FUN-TYPE (FUNCTION # #)>
;      :WHERE-FROM :DECLARED
;      :KIND :GLOBAL-FUNCTION {1242E9E9}>
;    #:G[MAKE-SPECIALIZABLE-ARRAY]1015 #:G[MAKE-SPECIALIZABLE-ARRAY]1016
;    #:G[MAKE-SPECIALIZABLE-ARRAY]1017)
; 
; 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: /Users/nikodemus/src/sbcl/src/compiler/meta-vmdef.lisp
; in:
;      DEF!STRUCT (OPERAND-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)
;              (:PURE T))
;     (SB!INT:DEF!STRUCT
;      (SB!C::OPERAND-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)
;       (:PURE T))
;      (SB!C::NAME NIL :TYPE SYMBOL)
;      (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE
;       (MEMBER :ARGUMENT :RESULT :TEMPORARY :MORE-ARGUMENT :MORE-RESULT))
;      (SB!C::TARGET NIL :TYPE (OR SYMBOL NULL))
;      (SB!C::TEMP (SB!C::MAKE-OPERAND-PARSE-TEMP) :TYPE SYMBOL) SB!C::BORN
;      SB!C::DIES (SB!C::SCS NIL :TYPE LIST)
;      (SB!C::LOAD-TN (SB!C::MAKE-OPERAND-PARSE-LOAD-TN) :TYPE SYMBOL) (LOAD T)
;      (SB!C:SC NIL :TYPE (OR SYMBOL NULL)) ...)
; --> PROGN DEFSTRUCT PROGN SB!KERNEL: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:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/meta-vmdef.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/vm.lisp" (written 12 APR 2007 05:55:07 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFTYPE SAP-INT ...)
; compiling (DEFVAR *BYTE-REGISTER-NAMES* ...)
; compiling (DEFVAR *WORD-REGISTER-NAMES* ...)
; compiling (DEFVAR *DWORD-REGISTER-NAMES* ...)
; compiling (DEFVAR *FLOAT-REGISTER-NAMES* ...)
; compiling (DEFREG AL ...)
; compiling (DEFREG AH ...)
; compiling (DEFREG CL ...)
; compiling (DEFREG CH ...)
; compiling (DEFREG DL ...)
; compiling (DEFREG DH ...)
; compiling (DEFREG BL ...)
; compiling (DEFREG BH ...)
; compiling (DEFREGSET *BYTE-REGS* ...)
; compiling (DEFREG AX ...)
; compiling (DEFREG CX ...)
; compiling (DEFREG DX ...)
; compiling (DEFREG BX ...)
; compiling (DEFREG SP ...)
; compiling (DEFREG BP ...)
; compiling (DEFREG SI ...)
; compiling (DEFREG DI ...)
; compiling (DEFREGSET *WORD-REGS* ...)
; compiling (DEFREG EAX ...)
; compiling (DEFREG ECX ...)
; compiling (DEFREG EDX ...)
; compiling (DEFREG EBX ...)
; compiling (DEFREG ESP ...)
; compiling (DEFREG EBP ...)
; compiling (DEFREG ESI ...)
; compiling (DEFREG EDI ...)
; compiling (DEFREGSET *DWORD-REGS* ...)
; compiling (DEFREG FR0 ...)
; compiling (DEFREG FR1 ...)
; compiling (DEFREG FR2 ...)
; compiling (DEFREG FR3 ...)
; compiling (DEFREG FR4 ...)
; compiling (DEFREG FR5 ...)
; compiling (DEFREG FR6 ...)
; compiling (DEFREG FR7 ...)
; compiling (DEFREGSET *FLOAT-REGS* ...)
; compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...)
; compiling (DEFPARAMETER *REGISTER-ARG-NAMES* ...)
; compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...)
; compiling (DEFINE-STORAGE-BASE REGISTERS ...)
; compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...)
; compiling (DEFINE-STORAGE-BASE STACK ...)
; compiling (DEFINE-STORAGE-BASE CONSTANT ...)
; compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...)
; compiling (DEFINE-STORAGE-BASE NOISE ...)
; compiling (DEFMACRO !DEFINE-STORAGE-CLASSES ...)
; compiling (DEF!CONSTANT KLUDGE-NONDETERMINISTIC-CATCH-BLOCK-SIZE ...)
; compiling (!DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...)
; compiling (DEFPARAMETER *BYTE-SC-NAMES* ...)
; compiling (DEFPARAMETER *WORD-SC-NAMES* ...)
; compiling (DEFPARAMETER *DWORD-SC-NAMES* ...)
; compiling (DEFPARAMETER *FLOAT-SC-NAMES* ...)
; compiling (DEFPARAMETER *DOUBLE-SC-NAMES* ...)
; compiling (DEF-MISC-REG-TNS UNSIGNED-REG ...)
; compiling (DEF-MISC-REG-TNS WORD-REG ...)
; compiling (DEF-MISC-REG-TNS BYTE-REG ...)
; compiling (DEF-MISC-REG-TNS SINGLE-REG ...)
; compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...)
; compiling (!DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC ...)
; compiling (DEFUN ENCODE-VALUE-IF-IMMEDIATE ...)
; compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...)
; compiling (DEF!CONSTANT RETURN-PC-SAVE-OFFSET ...)
; compiling (DECLAIM (INLINE FRAME-WORD-OFFSET))
; compiling (DEFUN FRAME-WORD-OFFSET ...)
; compiling (DECLAIM (INLINE FRAME-BYTE-OFFSET))
; compiling (DEFUN FRAME-BYTE-OFFSET ...)
; compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...)
; compiling (DEF!CONSTANT CFP-OFFSET ...)
; compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...)
; compiling (!DEF-VM-SUPPORT-ROUTINE LOCATION-PRINT-NAME ...)
; compiling (!DEF-VM-SUPPORT-ROUTINE COMBINATION-IMPLEMENTATION-STYLE ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/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!C::CONSTANT-LVAR-P (FIRST (SB!C::BASIC-COMBINATION-ARGS SB!VM::NODE)))
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::CONSTANT-LVAR-P

; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE
;     (SB!VM:FIXNUMIZE SB!VM::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: FIXNUMIZE

; in: !DEF-VM-SUPPORT-ROUTINE COMBINATION-IMPLEMENTATION-STYLE
;     (SB!KERNEL:SPECIFIER-TYPE
;      (SB!IMPL::BACKQ-LIST 'FUNCTION SB!VM::ARGS SB!VM::RESULT))
; 
; caught STYLE-WARNING:
;   undefined function: SPECIFIER-TYPE

; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE
;     (SB!VM:STATIC-SYMBOL-OFFSET SB!VM::VAL)
; 
; caught STYLE-WARNING:
;   undefined function: STATIC-SYMBOL-OFFSET

; in: !DEF-VM-SUPPORT-ROUTINE IMMEDIATE-CONSTANT-SC
;     (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: STATIC-SYMBOL-P

; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE
;     (SB!C:TN-VALUE SB!C:TN)
; 
; caught STYLE-WARNING:
;   undefined function: TN-VALUE

; in: !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 SB!C::CONSTANT-LVAR-P FIXNUMIZE SPECIFIER-TYPE STATIC-SYMBOL-OFFSET STATIC-SYMBOL-P TN-VALUE SB!C::VALID-FUN-USE
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/vm.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/xset.lisp" (written 05 JUN 2008 07:55:09 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DECLAIM (INLINE ALLOC-XSET ...))
; compiling (DEFSTRUCT (XSET # ...) ...)
; compiling (DEFUN XSET-COUNT ...)
; compiling (DEFUN MAP-XSET ...)
; compiling (DEFCONSTANT +XSET-LIST-SIZE-LIMIT+ ...)
; compiling (DEFUN ADD-TO-XSET ...)
; compiling (DEFUN XSET-UNION ...)
; compiling (DEFUN XSET-MEMBER-P ...)
; compiling (DEFUN XSET-MEMBERS ...)
; compiling (DEFUN XSET-INTERSECTION ...)
; compiling (DEFUN XSET-SUBSET-P ...)
; compiling (DECLAIM (INLINE XSET-EMPTY-P))
; compiling (DEFUN XSET-EMPTY-P ...)
; file: /Users/nikodemus/src/sbcl/src/code/xset.lisp
; in: DEFSTRUCT XSET
;     (DEFSTRUCT
;         (SB!INT:XSET (:CONSTRUCTOR SB!INT:ALLOC-XSET) (:COPIER NIL)
;          (:PREDICATE NIL))
;       (SB!KERNEL::LIST-SIZE 0 :TYPE SB!INT:INDEX)
;       (SB!KERNEL::DATA NIL :TYPE (OR LIST HASH-TABLE)))
; --> PROGN SB!KERNEL: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:XSET
;                                                  "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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/xset.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-type.lisp" (written 09 DEC 2007 04:37:23 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFSTRUCT (HAIRY-TYPE # ...) ...)
; compiling (!DEFINE-TYPE-CLASS HAIRY)
; compiling (DEFSTRUCT (UNKNOWN-TYPE # ...))
; compiling (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 (DEFUN MEMBER-TYPE-SIZE ...)
; compiling (DEFUN MEMBER-TYPE-MEMBER-P ...)
; compiling (DEFUN MAPCAR-MEMBER-TYPE-MEMBERS ...)
; compiling (DEFUN MAPC-MEMBER-TYPE-MEMBERS ...)
; compiling (DEFUN MEMBER-TYPE-MEMBERS ...)
; compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...)
; compiling (DEFSTRUCT (UNION-TYPE # ...))
; compiling (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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 VALUES PROG1 LET 
; --> SB!BIGNUM:%MULTIPLY 
; ==>
;   (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 VALUES PROG1 LET 
; --> SB!BIGNUM:%MULTIPLY 
; ==>
;   (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 VALUES PROG1 LET 
; --> SB!BIGNUM:%MULTIPLY 
; ==>
;   (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: /Users/nikodemus/src/sbcl/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:
;     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 17 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-type.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/class.lisp" (written 14 MAR 2008 09:03:05 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEF!STRUCT (CLASSOID # ...) ...)
; compiling (DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ...)
; compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LIMIT ...)
; compiling (DEF!TYPE LAYOUT-CLOS-HASH ...)
; compiling (DEFVAR *!INITIAL-LAYOUTS*)
; compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*)
; compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...) ...)
; compiling (DEF!STRUCT (LAYOUT #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN LAYOUT-PROPER-NAME ...)
; compiling (DEFVAR *LAYOUT-CLOS-HASH-RANDOM-STATE*)
; compiling (DEFUN RANDOM-LAYOUT-CLOS-HASH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-LAYOUT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN INIT-OR-CHECK-LAYOUT ...)
; compiling (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 (DEFVAR *CLASSOID-CELLS*)
; compiling (!COLD-INIT-FORMS (SETQ *CLASSOID-CELLS* ...))
; compiling (DEFUN FIND-CLASSOID-CELL ...)
; compiling (DEFUN FIND-CLASSOID ...)
; compiling (DEFUN (SETF FIND-CLASSOID) ...)
; compiling (DEFUN CLEAR-CLASSOID ...)
; compiling (DEFUN INSURED-FIND-CLASSOID ...)
; compiling (DEFUN CLASSOID-PROPER-NAME ...)
; compiling (!DEFINE-TYPE-CLASS CLASSOID)
; compiling (DEFUN ENSURE-CLASSOID-VALID ...)
; compiling (DEFUN ENSURE-BOTH-CLASSOIDS-VALID ...)
; compiling (DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-=) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ...)
; compiling (DEFUN SEALED-CLASS-INTERSECTION2 ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-INTERSECTION2) ...)
; compiling (DEFVAR *NON-INSTANCE-CLASSOID-TYPES* ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-SUBTYPEP-ARG2) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :NEGATE) ...)
; compiling (!DEFINE-TYPE-METHOD (CLASSOID :UNPARSE) ...)
; compiling (DEF!STRUCT (STANDARD-CLASSOID # ...))
; compiling (DEF!STRUCT (STATIC-CLASSOID # ...))
; compiling (DEFVAR *BUILT-IN-CLASSES*)
; compiling (!COLD-INIT-FORMS (/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: /Users/nikodemus/src/sbcl/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 (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE
;       SB!KERNEL:LAYOUT-CLOS-HASH)
;      (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID)
;      (SB!KERNEL::INVALID :UNINITIALIZED :TYPE
;       (OR CONS (MEMBER NIL T :UNINITIALIZED)))
;      (SB!KERNEL::INHERITS #() :TYPE SIMPLE-VECTOR)
;      (SB!KERNEL::DEPTHOID -1 :TYPE SB!KERNEL:LAYOUT-DEPTHOID)
;      (LENGTH 0 :TYPE SB!INT:INDEX) (SB!INT:INFO NIL)
;      (SB!KERNEL::PURE NIL :TYPE (MEMBER T NIL 0))
;      (SB!KERNEL::N-UNTAGGED-SLOTS 0 :TYPE SB!INT:INDEX)
;      (SB!KERNEL::SOURCE-LOCATION NIL) ...)
; --> PROGN DEFSTRUCT PROGN SB!KERNEL: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: /Users/nikodemus/src/sbcl/src/code/class.lisp
; in: DEFUN FIND-CLASSOID-CELL
;     (SB!EXT:WITH-LOCKED-HASH-TABLE (SB!KERNEL::TABLE)
;                                    (OR
;                                     (GETHASH SB!KERNEL::REAL-NAME
;                                              SB!KERNEL::TABLE)
;                                     (WHEN SB!KERNEL::CREATE
;                                       (SETF (GETHASH SB!KERNEL::REAL-NAME
;                                                      SB!KERNEL::TABLE)
;                                               (SB!KERNEL::MAKE-CLASSOID-CELL
;                                                SB!KERNEL::REAL-NAME)))))
; --> SB!THREAD::WITH-RECURSIVE-SPINLOCK SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK
;    #'SB!THREAD::WITH-RECURSIVE-SPINLOCK-THUNK
;    (SB!IMPL::HASH-TABLE-SPINLOCK SB!KERNEL::TABLE))
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK

; in: DEFUN REGISTER-LAYOUT
;     (SB!INT:DOHASH
;      ((SB!KERNEL::SUBCLASS SB!KERNEL::SUBCLASS-LAYOUT) SB!KERNEL::SUBCLASSES
;       :LOCKED T)
;      (SB!KERNEL::MODIFY-CLASSOID SB!KERNEL::SUBCLASS)
;      (WHEN SB!KERNEL::INVALIDATE
;        (SB!KERNEL::INVALIDATE-LAYOUT SB!KERNEL::SUBCLASS-LAYOUT)))
; --> LET SB!EXT:WITH-LOCKED-HASH-TABLE SB!THREAD::WITH-RECURSIVE-SPINLOCK 
; --> SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK
;    #'SB!THREAD::WITH-RECURSIVE-SPINLOCK-THUNK
;    (SB!IMPL::HASH-TABLE-SPINLOCK #:G330))
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK

; in: DEFUN FIND-LAYOUT
;     (SB!EXT:WITH-LOCKED-HASH-TABLE (SB!KERNEL::TABLE)
;                                    (LET ((SB!KERNEL:CLASSOID
;                                           (SB!KERNEL:FIND-CLASSOID
;                                            SB!KERNEL::NAME NIL)))
;                                      (OR
;                                       (AND SB!KERNEL:CLASSOID
;                                            (SB!KERNEL:CLASSOID-LAYOUT
;                                             SB!KERNEL:CLASSOID))
;                                       (GETHASH SB!KERNEL::NAME SB!KERNEL::TABLE)
;                                       (SETF (GETHASH SB!KERNEL::NAME
;                                                      SB!KERNEL::TABLE)
;                                               (SB!KERNEL:MAKE-LAYOUT :CLASSOID
;                                                                      #)))))
; --> SB!THREAD::WITH-RECURSIVE-SPINLOCK SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK
;    #'SB!THREAD::WITH-RECURSIVE-SPINLOCK-THUNK
;    (SB!IMPL::HASH-TABLE-SPINLOCK SB!KERNEL::TABLE))
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK

; 
; caught STYLE-WARNING:
;   3 more uses of undefined function SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK


; file: /Users/nikodemus/src/sbcl/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

;     (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 VALUES PROG1 
; --> LET SB!BIGNUM:%MULTIPLY 
; ==>
;   (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 
; --> SB!KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO SB!EXT:TRULY-THE 
; --> SB!KERNEL:%MAKE-STRUCTURE-INSTANCE THE RANDOM VALUES PROG1 LET 
; --> SB!BIGNUM:%MULTIPLY 
; ==>
;   (SB!KERNEL:RANDOM-CHUNK (OR SB!C::STATE *RANDOM-STATE*))
; 
; caught STYLE-WARNING:
;   undefined function: RANDOM-CHUNK

; in: DEFUN RANDOM-LAYOUT-CLOS-HASH
;     (RANDOM (1- SB!KERNEL:LAYOUT-CLOS-HASH-LIMIT)
;             (IF (BOUNDP 'SB!KERNEL::*LAYOUT-CLOS-HASH-RANDOM-STATE*)
;                 SB!KERNEL::*LAYOUT-CLOS-HASH-RANDOM-STATE*
;                 (SETF SB!KERNEL::*LAYOUT-CLOS-HASH-RANDOM-STATE*
;                         (MAKE-RANDOM-STATE))))
; --> VALUES PROG1 LET SB!BIGNUM:%MULTIPLY 
; ==>
;   (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: /Users/nikodemus/src/sbcl/src/code/class.lisp
; 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-1238)
; 
; caught STYLE-WARNING:
;   undefined function: TYPE-UNION

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK SB!MOP:CLASS-FINALIZED-P SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P SB!MOP:FINALIZE-INHERITANCE SB!PCL::FORCE-CACHE-FLUSHES RANDOM-CHUNK TYPE-UNION
; 
; compilation unit finished
;   caught 18 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/class.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/condition.lisp" (written 27 JUL 2008 05:44:33 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 ...)
; file: /Users/nikodemus/src/sbcl/src/code/condition.lisp
; in: DEFUN CONDITION-READER-FUNCTION
;     (ERROR "missing slot ~S of ~S" SB!KERNEL::NAME CONDITION)
; ==>
;   "missing slot ~S of ~S"
; 
; note: deleting unreachable code

; 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
;   #<FUN-TYPE (FUNCTION (T) *)>
;   for SIMPLE-CONDITION-FORMAT-ARGUMENTS does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (CONDITION) (VALUES LIST &OPTIONAL))>

; 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T) *)>
;   for SIMPLE-CONDITION-FORMAT-CONTROL does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (CONDITION)
;               (VALUES (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING FUNCTION)
;                       &OPTIONAL))>

; compiling (DEFINE-CONDITION SIMPLE-WARNING ...)
; compiling (DEFINE-CONDITION SIMPLE-ERROR ...)
; compiling (DEFINE-CONDITION STORAGE-CONDITION ...)
; compiling (DEFINE-CONDITION TYPE-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...)
; 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
;   #<FUN-TYPE (FUNCTION (T) *)>
;   for CELL-ERROR-NAME does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (CELL-ERROR) (VALUES T &OPTIONAL))>

; 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 SIMPLE-READER-ERROR ...)
; compiling (DEFUN %REPORT-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 SIMPLE-REFERENCE-ERROR ...)
; 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 IMPLICIT-GENERIC-FUNCTION-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 NAMESTRING-PARSE-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-PACKAGE-ERROR ...)
; compiling (DEFINE-CONDITION SIMPLE-READER-PACKAGE-ERROR ...)
; compiling (DEFINE-CONDITION READER-EOF-ERROR ...)
; compiling (DEFINE-CONDITION READER-IMPOSSIBLE-NUMBER-ERROR ...)
; compiling (DEFINE-CONDITION TIMEOUT ...)
; compiling (DEFINE-CONDITION IO-TIMEOUT ...)
; compiling (DEFINE-CONDITION DEADLINE-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 (DEFVAR *MUFFLED-WARNINGS* ...)
; compiling (DEFINE-CONDITION REDEFINITION-WARNING ...)
; compiling (DEFINE-CONDITION FUNCTION-REDEFINITION-WARNING ...)
; compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFUN ...)
; compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFGENERIC ...)
; compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFMETHOD ...)
; compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFMACRO ...)
; compiling (DEFUN REDEFINITION-REPLACES-GENERIC-FUNCTION-P ...)
; compiling (DEFUN REDEFINITION-REPLACES-COMPILED-FUNCTION-WITH-INTERPRETED-P ...)
; compiling (DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P ...)
; compiling (DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P ...)
; compiling (DEFUN UNINTERESTING-METHOD-REDEFINITION-P ...)
; compiling (DEFTYPE UNINTERESTING-REDEFINITION ...)
; compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFTRANSFORM ...)
; compiling (DEFINE-CONDITION DUBIOUS-ASTERISKS-AROUND-VARIABLE-NAME ...)
; compiling (DEFINE-CONDITION ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME ...)
; compiling (DEFINE-CONDITION ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME ...)
; compiling (DEFINE-CONDITION UNDEFINED-ALIEN-STYLE-WARNING ...)
; compiling (DEFINE-CONDITION LEXICAL-ENVIRONMENT-TOO-COMPLEX ...)
; compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-COMMENT ...)
; compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-MACRO-CHAR-COMMENT ...)
; compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-DISPATCH-MACRO-CHAR-COMMENT ...)
; compiling (DEFUN DECODING-ERROR-IN-COMMENT-MACRO ...)
; compiling (DEFINE-CONDITION DEPRECATED-EVAL-WHEN-SITUATIONS ...)
; compiling (DEFINE-CONDITION PROCLAMATION-MISMATCH ...)
; compiling (DEFINE-CONDITION TYPE-PROCLAMATION-MISMATCH ...)
; compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH ...)
; compiling (DEFINE-CONDITION ABORT-FAILURE ...)
; compiling (DEFUN ABORT ...)
; compiling (DEFUN MUFFLE-WARNING ...)
; compiling (DEFUN TRY-RESTART ...)
; 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: /Users/nikodemus/src/sbcl/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
;    '#<SB!KERNEL:DEFSTRUCT-DESCRIPTION CONDITION>
;    '#(#<SB!KERNEL:LAYOUT for T {1284AB31}>))
; 
; caught STYLE-WARNING:
;   undefined function: %COMPILER-SET-UP-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: /Users/nikodemus/src/sbcl/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 #:G560 '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: /Users/nikodemus/src/sbcl/src/code/condition.lisp
; in: DEFUN %REPORT-READER-ERROR
;     (CLASS-NAME (CLASS-OF CONDITION))
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-NAME

;     (CLASS-OF CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: CLASS-OF

; in: DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P
;     (TYPEP WARNING 'SB!KERNEL:REDEFINITION-WITH-DEFUN)
; --> SB!C::%INSTANCE-TYPEP AND IF AND 
; ==>
;   (SB!KERNEL:CLASSOID-CELL-TYPEP (SB!KERNEL:LAYOUT-OF SB!C::OBJECT)
;    '#<SB!KERNEL::CLASSOID-CELL SB!KERNEL:REDEFINITION-WITH-DEFUN> SB!C::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: CLASSOID-CELL-TYPEP

; in: DEFUN REDEFINITION-REPLACES-COMPILED-FUNCTION-WITH-INTERPRETED-P
;     (TYPEP WARNING 'SB!KERNEL:REDEFINITION-WITH-DEFUN)
; --> SB!C::%INSTANCE-TYPEP AND IF AND 
; ==>
;   (SB!KERNEL:CLASSOID-CELL-TYPEP (SB!KERNEL:LAYOUT-OF SB!C::OBJECT)
;    '#<SB!KERNEL::CLASSOID-CELL SB!KERNEL:REDEFINITION-WITH-DEFUN> SB!C::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: CLASSOID-CELL-TYPEP

; in: DEFUN REDEFINITION-REPLACES-GENERIC-FUNCTION-P
;     (TYPEP WARNING 'SB!KERNEL:REDEFINITION-WITH-DEFUN)
; --> SB!C::%INSTANCE-TYPEP AND IF AND 
; ==>
;   (SB!KERNEL:CLASSOID-CELL-TYPEP (SB!KERNEL:LAYOUT-OF SB!C::OBJECT)
;    '#<SB!KERNEL::CLASSOID-CELL SB!KERNEL:REDEFINITION-WITH-DEFUN> SB!C::OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: CLASSOID-CELL-TYPEP

; 
; caught STYLE-WARNING:
;   3 more uses of undefined function CLASSOID-CELL-TYPEP


; file: /Users/nikodemus/src/sbcl/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 UNINTERESTING-METHOD-REDEFINITION-P => SB!PCL::DEFINITION-SOURCE OLD-METHOD
;     (SB!PCL::DEFINITION-SOURCE SB!KERNEL::OLD-METHOD)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::DEFINITION-SOURCE

; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P => SB!PCL::DEFINITION-SOURCE OLD-FDEFN
;     (SB!PCL::DEFINITION-SOURCE SB!KERNEL::OLD-FDEFN)
; 
; caught STYLE-WARNING:
;   undefined function: SB!PCL::DEFINITION-SOURCE

; in: DEFUN REDEFINITION-REPLACES-GENERIC-FUNCTION-P
;     (TYPEP (SB!KERNEL::FUNCTION-REDEFINITION-WARNING-OLD-FDEFINITION WARNING)
;            '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:
;   13 more uses of undefined type GENERIC-FUNCTION


; file: /Users/nikodemus/src/sbcl/src/code/condition.lisp
; in: DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P
;     (TYPEP SB!KERNEL::NEW-FDEFN 'COMPILED-FUNCTION)
; --> COMPILED-FUNCTION-P LET AND IF AND NOT IF 
; ==>
;   (SB!EVAL:INTERPRETED-FUNCTION-P #:ONCE-ONLY-1259)
; 
; caught STYLE-WARNING:
;   undefined function: SB!EVAL:INTERPRETED-FUNCTION-P

; in: DEFUN REDEFINITION-REPLACES-COMPILED-FUNCTION-WITH-INTERPRETED-P
;     (COMPILED-FUNCTION-P
;      (SB!KERNEL::FUNCTION-REDEFINITION-WARNING-OLD-FDEFINITION WARNING))
; --> LET AND IF AND NOT IF 
; ==>
;   (SB!EVAL:INTERPRETED-FUNCTION-P #:ONCE-ONLY-1253)
; 
; caught STYLE-WARNING:
;   undefined function: SB!EVAL:INTERPRETED-FUNCTION-P

; in: DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P =>
;      SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING (SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION
;                                              FDEFN)
;     (SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION SB!KERNEL:FDEFN)
; 
; caught STYLE-WARNING:
;   undefined function: SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION

; 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 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 VALUES PROG1 
; --> LET SB!BIGNUM:%MULTIPLY 
; ==>
;   (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 ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CLASS-NAME CLASS-OF CLASSOID-CELL-TYPEP CONSTANT-FORM-VALUE SB!PCL::DEFINITION-SOURCE SB!EVAL:INTERPRETED-FUNCTION-P SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION SB!C::MAKE-DEFINITION-SOURCE-LOCATION MAKE-INSTANCE RANDOM-CHUNK SLOT-BOUNDP

; 
; caught STYLE-WARNING:
;   These types are undefined:
;     CLASS GENERIC-FUNCTION
; 
; compilation unit finished
;   caught 34 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/condition.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-array.lisp" (written 10 APR 2007 04:50:45 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* ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FIND-SAETP ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/generic/vm-array.lisp
; in: DEFSTRUCT SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES
;     (DEFSTRUCT
;         (SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES
;          (:CONC-NAME SB!VM::SAETP-)
;          (:CONSTRUCTOR SB!VM::!MAKE-SAETP
;           (SB!VM::SPECIFIER SB!VM::INITIAL-ELEMENT-DEFAULT SB!VM::N-BITS
;            SB!C:PRIMITIVE-TYPE-NAME &KEY (SB!VM::N-PAD-ELEMENTS 0)
;            SB!VM::COMPLEX-TYPECODE (SB!VM::IMPORTANCE 0) &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 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:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/vm-array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/primtype.lisp" (written 15 MAY 2008 07:10:03 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 ...)
(FIXNUM SIGNED-BYTE-32 UNSIGNED-BYTE-32 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/primtype.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/parse-lambda-list.lisp" (written 09 JUL 2008 12:31:53 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")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/parse-lambda-list.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/host-alieneval.lisp" (written 01 SEP 2007 05:02:27 PM):
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (/SHOW0 "host-alieneval.lisp 15")
; compiling (DEFUN ALIGN-OFFSET ...)
; compiling (DEFUN GUESS-ALIGNMENT ...)
; compiling (DEFSTRUCT (ALIEN-TYPE-CLASS #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN ALIEN-TYPE-CLASS-OR-LOSE ...)
; compiling (DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ...)
; compiling (DEFPARAMETER *METHOD-SLOT-ALIST* ...)
; compiling (DEFUN METHOD-SLOT ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-METHOD ...)
; compiling (DEF!MACRO INVOKE-ALIEN-TYPE-METHOD ...)
; compiling (DEFUN AUXILIARY-TYPE-DEFINITIONS ...)
; compiling (DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES ...)
; compiling (DEFUN PARSE-ALIEN-TYPE ...)
; compiling (DEFUN AUXILIARY-ALIEN-TYPE ...)
; compiling (DEFUN (SETF AUXILIARY-ALIEN-TYPE) ...)
; compiling (DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY ...)
; compiling (DEFUN UNPARSE-ALIEN-TYPE ...)
; compiling (DEFUN %UNPARSE-ALIEN-TYPE ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; compiling (DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR ...)
; compiling (DEF!MACRO DEFINE-ALIEN-TYPE ...)
; compiling (DEFUN %DEF-AUXILIARY-ALIEN-TYPES ...)
; compiling (DEFUN %DEFINE-ALIEN-TYPE ...)
; compiling (CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY (QUOTE ROOT) ...)
; compiling (DEF!STRUCT (ALIEN-TYPE # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER))
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ...); 
; 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-DEPORT-ALLOC-LAMBDA ...)
; compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...)
; compiling (DEF!MACRO MAYBE-WITH-PINNED-OBJECTS ...)
; compiling (DEFUN COMPUTE-DEPOSIT-LAMBDA ...)
; compiling (DEFUN COMPUTE-LISP-REP-TYPE ...)
; compiling (DEFUN COMPUTE-ALIEN-REP-TYPE ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-ALLOC-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-PIN-P) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-CLASS (INTEGER) ...)
; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ...); 
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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:
;   This function is undefined:
;     SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 19 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/host-alieneval.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/host-c-call.lisp" (written 19 APR 2007 03:01:27 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 (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-PIN-P) ...)
; compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...)
; file: /Users/nikodemus/src/sbcl/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 (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN) ...)
; compiling (/SHOW0 "host-c-call.lisp end of file")
; file: /Users/nikodemus/src/sbcl/src/code/host-c-call.lisp
; in:
;      DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE POINTER :INCLUDE-ARGS (TO))
;     (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-CLASS
;      (SB!ALIEN:C-STRING :INCLUDE SB!ALIEN::POINTER :INCLUDE-ARGS (SB!ALIEN::TO))
;      (SB!ALIEN::EXTERNAL-FORMAT :DEFAULT :TYPE KEYWORD)
;      (SB!ALIEN::ELEMENT-TYPE 'CHARACTER :TYPE (MEMBER CHARACTER BASE-CHAR)))
; --> 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:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!KERNEL:MAKE-NULL-LEXENV
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/host-c-call.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/compiler-deftype.lisp" (written 14 MAR 2008 09:03:06 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (/SHOW0 "compiler-deftype.lisp 14")
; compiling (DEFUN %COMPILER-DEFTYPE ...)
; compiling (/SHOW0 "compiler-deftype.lisp end of file")
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/compiler-deftype.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-type.lisp" (written 09 DEC 2007 04:37:23 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "late-type.lisp 19")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (DEFINE-CONDITION PARSE-UNKNOWN-TYPE ...)
; compiling (DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2 ...)
; compiling (DEFUN DELEGATE-COMPLEX-INTERSECTION2 ...)
; compiling (DEFUN !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: /Users/nikodemus/src/sbcl/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 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:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED FLOAT-FORMAT-NAME SPECIALIZE-ARRAY-TYPE
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/late-type.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/Users/nikodemus/src/sbcl/src/code/deftypes-for-target.lisp" (written 28 FEB 2007 06:05:59 PM):
; 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")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/deftypes-for-target.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/knownfun.lisp" (written 09 JUL 2008 12:31:53 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: /Users/nikodemus/src/sbcl/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 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 (#:WHOLE16 #:ENVIRONMENT17)
;                                 (LET* ()
;                                   (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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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:
;     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 19 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/knownfun.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/constantp.lisp" (written 30 JUN 2008 11:35:59 AM):
; 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)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/constantp.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/fun-info-funs.lisp" (written 29 MAY 2008 01:32:28 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN %DEF-REFFER ...)
; compiling (DEFUN %DEF-SETTER ...)
; compiling (DEFUN %DEF-ALLOC ...)
; compiling (DEFUN %DEF-CASSER ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/fun-info-funs.lisp
; in: DEFUN %DEF-CASSER
;     (SB!C::IR2-CONVERT-CASSER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;                               SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-CASSER

; in: DEFUN %DEF-ALLOC
;     (SB!C::IR2-CONVERT-FIXED-ALLOCATION SB!C::NODE BLOCK SB!C::NAME SB!SYS:WORDS
;                                         SB!C::HEADER SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-FIXED-ALLOCATION

; in: DEFUN %DEF-REFFER
;     (SB!C::IR2-CONVERT-REFFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;                               SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-REFFER

; in: DEFUN %DEF-SETTER
;     (SB!C::IR2-CONVERT-SETFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;                               SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-SETFER

;     (SB!C::IR2-CONVERT-SETTER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET
;                               SB!C::LOWTAG)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-SETTER

; in: DEFUN %DEF-ALLOC
;     (SB!C::IR2-CONVERT-STRUCTURE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME
;                                             SB!SYS:WORDS SB!C::HEADER
;                                             SB!C::LOWTAG SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-STRUCTURE-ALLOCATION

;     (SB!C::IR2-CONVERT-VARIABLE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME
;                                            SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG
;                                            SB!C::INITS)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-VARIABLE-ALLOCATION

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     IR2-CONVERT-CASSER IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-STRUCTURE-ALLOCATION IR2-CONVERT-VARIABLE-ALLOCATION
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/fun-info-funs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-type.lisp" (written 21 AUG 2007 08:12:33 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEF!TYPE SB!VM:WORD ...)
; compiling (DEF!TYPE SB!VM:SIGNED-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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/vm-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/proclaim.lisp" (written 09 JUL 2008 12:31:53 AM):
; 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: /Users/nikodemus/src/sbcl/src/compiler/proclaim.lisp
; in: DEFUN SB-XC:PROCLAIM
;     (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR
;      (:SYMBOL SB!C::NAME "globally declaring ~A special")
;      (SB!INT:ABOUT-TO-MODIFY-SYMBOL-VALUE SB!C::NAME "proclaim ~S as SPECIAL")
;      (SETF (SB!INT:INFO :VARIABLE :KIND SB!C::NAME) :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

;     (SB!INT:DOHASH ((SB!C::SUBCLASS SB!KERNEL:LAYOUT) SB!C::SUBCLASSES :LOCKED T)
;                    (DECLARE (IGNORE SB!KERNEL:LAYOUT))
;                    (SETF (SB!KERNEL:CLASSOID-STATE SB!C::SUBCLASS) :SEALED))
; --> LET SB!EXT:WITH-LOCKED-HASH-TABLE SB!THREAD::WITH-RECURSIVE-SPINLOCK 
; --> SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK
;    #'SB!THREAD::WITH-RECURSIVE-SPINLOCK-THUNK
;    (SB!IMPL::HASH-TABLE-SPINLOCK #:G241))
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK

; 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:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     CLASS
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/proclaim.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/class-init.lisp" (written 14 MAR 2008 09:03:05 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")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/class-init.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/typecheckfuns.lisp" (written 10 JAN 2006 12:46:14 AM):
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/typecheckfuns.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/defstruct.lisp" (written 22 JUL 2008 08:17:15 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "code/defstruct.lisp 15")
; compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...)
; compiling (DEFUN COMPILER-LAYOUT-READY-P ...)
; compiling (SB-XC:DEFMACRO %MAKE-STRUCTURE-INSTANCE-MACRO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %MAKE-STRUCTURE-INSTANCE-ALLOCATOR ...)
; compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-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 (DECLAIM (INLINE DD-LAYOUT-LENGTH))
; compiling (DEFUN DD-LAYOUT-LENGTH ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DD-INSTANCE-LENGTH ...)
; compiling (DEFUN ENSURE-STRUCTURE-CLASS ...)
; file: /Users/nikodemus/src/sbcl/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 (DEFUN FIND-DEFSTRUCT-DESCRIPTION ...)
; compiling (/SHOW0 "code/defstruct.lisp end of file")
; file: /Users/nikodemus/src/sbcl/src/code/defstruct.lisp
; 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::INIT-VOP (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T)
;       (SB!KERNEL::N-WORDS (SB!INT:MISSING-ARG) :TYPE
;        (AND SB!INT:INDEX (INTEGER 1)) :READ-ONLY T)
;       (SB!KERNEL::ALIGNMENT 1 :TYPE (INTEGER 1 2) :READ-ONLY T))
; --> 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 %COMPILER-SET-UP-LAYOUT
;     (SB!INT:DOHASH
;      ((SB!KERNEL:CLASSOID SB!KERNEL:LAYOUT)
;       (SB!KERNEL:CLASSOID-SUBCLASSES SB!KERNEL:CLASSOID) :LOCKED T)
;      (DECLARE (IGNORE SB!KERNEL:LAYOUT))
;      (SB!KERNEL:UNDEFINE-STRUCTURE SB!KERNEL:CLASSOID)
;      (SB!KERNEL::SUBS (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID)))
; --> LET SB!EXT:WITH-LOCKED-HASH-TABLE SB!THREAD::WITH-RECURSIVE-SPINLOCK 
; --> SB!INT:DX-FLET FLET FLET 
; ==>
;   (SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK
;    #'SB!THREAD::WITH-RECURSIVE-SPINLOCK-THUNK
;    (SB!IMPL::HASH-TABLE-SPINLOCK #:G1222))
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK

; in: DEFUN %REDEFINE-DEFSTRUCT
;     (RESTART-CASE
;      (ERROR
;       "~@<attempt to redefine the ~S class ~S incompatibly with the current definition~:@>"
;       'STRUCTURE-OBJECT SB!KERNEL::NAME)
;      (CONTINUE NIL :REPORT
;                (LAMBDA (SB!KERNEL::S)
;                  (FORMAT SB!KERNEL::S
;                          "~@<Use the new definition of ~S, invalidating ~
;                             already-loaded code and instances.~@:>"
;                          SB!KERNEL::NAME))
;                (SB!KERNEL:REGISTER-LAYOUT SB!KERNEL::NEW-LAYOUT))
;      (SB!KERNEL::RECKLESSLY-CONTINUE NIL :REPORT
;       (LAMBDA (SB!KERNEL::S)
;         (FORMAT SB!KERNEL::S "~@<Use the new definition of ~S as if it were ~
;                             compatible, allowing old accessors to use new ~
;                             instances and allowing new accessors to use old ~
;                             instances.~@:>"
;                 SB!KERNEL::NAME))
;       (SB!KERNEL:REGISTER-LAYOUT SB!KERNEL::NEW-LAYOUT :INVALIDATE NIL
;                                  :DESTRUCT-LAYOUT SB!KERNEL::OLD-LAYOUT))
;      (SB!KERNEL::CLOBBER-IT NIL :REPORT
;       "(deprecated synonym for RECKLESSLY-CONTINUE)"
;       (SB!KERNEL:REGISTER-LAYOUT SB!KERNEL::NEW-LAYOUT :INVALIDATE NIL
;                                  :DESTRUCT-LAYOUT SB!KERNEL::OLD-LAYOUT)))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION
;    "~@<attempt to redefine the ~S class ~S incompatibly with the current definition~:@>"
;    (LIST 'STRUCTURE-OBJECT SB!KERNEL::NAME) 'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; in: DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS
;     (CONCATENATE 'STRING (SYMBOL-NAME CLASS-NAME) "-")
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-2596 (#:G2585)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G2585)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-2596))
;     (ETYPECASE #:G2585
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-2596 (THE # #:G2585)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-2596 (THE SEQUENCE #:G2585)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH. (+ (SB!IMPL::STRING-DISPATCH # #:G2585 # #) 1))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G2585
;      (REPLACE SB!C::.STRING. #:G2585 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G2585)))
;     (PROGN (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-) (INCF SB!C::.POS.))
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type COMPILER-NOTE


; file: /Users/nikodemus/src/sbcl/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 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 SLOT-SETTER-LAMBDA-FORM
;     (SB!KERNEL:MAKE-NULL-LEXENV)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-NULL-LEXENV

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     %TARGET-DEFSTRUCT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!THREAD::CALL-WITH-RECURSIVE-SPINLOCK COERCE-TO-CONDITION SB!C::MAKE-DEFINITION-SOURCE-LOCATION MAKE-NULL-LEXENV

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 14 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/defstruct.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-defstruct.lisp" (written 02 JUN 2008 06:19:15 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "target-defstruct.lisp 12")
; compiling (DEFUN %MAKE-INSTANCE ...)
; compiling (DEFUN %INSTANCE-LENGTH ...)
; compiling (DEFUN %INSTANCE-REF ...)
; compiling (DEFUN %INSTANCE-SET ...)
; compiling (DEFUN %MAKE-STRUCTURE-INSTANCE ...)
; compiling (DEFUN %RAW-INSTANCE-REF/WORD ...)
; compiling (DEFUN %RAW-INSTANCE-SET/WORD ...)
; compiling (DEFUN %RAW-INSTANCE-REF/SINGLE ...)
; compiling (DEFUN %RAW-INSTANCE-SET/SINGLE ...)
; compiling (DEFUN %RAW-INSTANCE-REF/DOUBLE ...)
; compiling (DEFUN %RAW-INSTANCE-SET/DOUBLE ...)
; compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...)
; compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...)
; compiling (DEFUN %INSTANCE-LAYOUT ...)
; compiling (DEFUN %SET-INSTANCE-LAYOUT ...)
; compiling (DEFUN %MAKE-FUNCALLABLE-INSTANCE ...)
; compiling (DEFUN FUNCALLABLE-INSTANCE-P ...)
; compiling (DEFUN %FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFUN %SET-FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFUN FUNCALLABLE-INSTANCE-FUN ...)
; compiling (DEFUN (SETF FUNCALLABLE-INSTANCE-FUN) ...)
; compiling (DEFVAR *DEFSTRUCT-HOOKS* ...)
; compiling (DEFUN PROTECT-CL ...)
; compiling (DEFUN %TARGET-DEFSTRUCT ...)
; compiling (DEFUN SLOT-ACCESSOR-FUNS ...)
; compiling (DEFUN COPY-STRUCTURE ...)
; compiling (DEFUN RAW-INSTANCE-SLOTS-EQUALP ...)
; compiling (DEFUN %PRINT-STRUCTURE-SANS-LAYOUT-INFO ...)
; compiling (DEFUN %PRINT-STRUCTURE-SANS-SLOTS ...)
; compiling (DEFUN %DEFAULT-STRUCTURE-PRETTY-PRINT ...)
; compiling (DEFUN %DEFAULT-STRUCTURE-UGLY-PRINT ...)
; compiling (DEFUN DEFAULT-STRUCTURE-PRINT ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DECLAIM (INLINE TYPEP-TO-LAYOUT))
; compiling (DEFUN TYPEP-TO-LAYOUT ...)
; compiling (DEFMACRO %CHECK-STRUCTURE-TYPE-FROM-NAME ...)
; compiling (DEFMACRO %CHECK-STRUCTURE-TYPE-FROM-DD ...)
; compiling (DEFUN %CHECK-STRUCTURE-TYPE-FROM-LAYOUT ...)
; compiling (/SHOW0 "target-defstruct.lisp end of file")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-defstruct.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/alien-type.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/src/code/alien-type.lisp
; in: DEFSTRUCT ALIEN-TYPE-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:ALIEN-TYPE-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO
;            (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!ALIEN:ALIEN)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-ALIEN-TYPE-TYPE
;           (SB!ALIEN-INTERNALS:ALIEN-TYPE))
;          (:COPIER NIL))
;       (SB!ALIEN-INTERNALS:ALIEN-TYPE NIL :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:ALIEN-TYPE-TYPE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: !DEF-TYPE-TRANSLATOR ALIEN
;     (SB!KERNEL:MAKE-NULL-LEXENV)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-NULL-LEXENV

; in: DEFSTRUCT ALIEN-TYPE-TYPE
;     (DEFSTRUCT
;         (SB!KERNEL:ALIEN-TYPE-TYPE
;          (:INCLUDE SB!KERNEL:CTYPE
;           (SB!KERNEL::CLASS-INFO
;            (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!ALIEN:ALIEN)))
;          (:CONSTRUCTOR SB!KERNEL::%MAKE-ALIEN-TYPE-TYPE
;           (SB!ALIEN-INTERNALS:ALIEN-TYPE))
;          (:COPIER NIL))
;       (SB!ALIEN-INTERNALS:ALIEN-TYPE NIL :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK 
; --> SB!KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO SB!EXT:TRULY-THE 
; --> SB!KERNEL:%MAKE-STRUCTURE-INSTANCE THE RANDOM VALUES PROG1 LET 
; --> SB!BIGNUM:%MULTIPLY 
; ==>
;   (SB!KERNEL:RANDOM-CHUNK (OR SB!C::STATE *RANDOM-STATE*))
; 
; caught STYLE-WARNING:
;   undefined function: RANDOM-CHUNK

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED MAKE-NULL-LEXENV RANDOM-CHUNK
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/alien-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/force-delayed-defbangstructs.lisp" (written 21 OCT 2000 02:30:33 AM):
; compiling (IN-PACKAGE "SB!KERNEL")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-full-eval.lisp" (written 17 MAY 2008 02:02:29 PM):
; compiling (IN-PACKAGE "SB!EVAL")
; compiling (DEFPARAMETER *EVAL-LEVEL* ...)
; compiling (DEFPARAMETER *EVAL-VERBOSE* ...)
; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...)
; compiling (DEFUN MAKE-INTERPRETED-FUNCTION ...)
; compiling (DEFUN INTERPRETED-FUNCTION-P ...)
; compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...)
; file: /Users/nikodemus/src/sbcl/src/code/early-full-eval.lisp
; in: DEFUN MAKE-INTERPRETED-FUNCTION
;     (SB!EVAL::INTERPRETED-APPLY FUNCTION SB!EVAL::ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: INTERPRETED-APPLY

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     INTERPRETED-APPLY
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-full-eval.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/typep.lisp" (written 09 DEC 2007 04:37:23 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN TYPEP ...)
; compiling (DEFUN %TYPEP ...)
; compiling (DEFUN %%TYPEP ...)
; compiling (DEFUN CLASSOID-CELL-TYPEP ...)
; compiling (DEFUN CLASSOID-TYPEP ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/typep.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/compiler-error.lisp" (written 14 JUL 2005 09: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: /Users/nikodemus/src/sbcl/src/compiler/compiler-error.lisp
; in: DEFUN COMPILER-ERROR
;     (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*.")
; ==>
;   "Control returned from *COMPILER-ERROR-BAILOUT*."
; 
; note: deleting unreachable code

; compiling (DECLAIM (FTYPE # ...)); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (STRING &REST T) *)>
;   for COMPILER-WARN does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T &REST T) (VALUES &OPTIONAL))>

; 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (STRING &REST T) *)>
;   for COMPILER-STYLE-WARN does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T &REST T) (VALUES &OPTIONAL))>

; 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: /Users/nikodemus/src/sbcl/src/compiler/compiler-error.lisp
; in: DEFUN COMPILER-ERROR
;     (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGUMENTS
;                                    'SB!INT:SIMPLE-PROGRAM-ERROR
;                                    'SB!C:COMPILER-ERROR)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     COERCE-TO-CONDITION
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/compiler-error.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-deftypes-for-target.lisp" (written 15 SEP 2006 12:10:44 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/late-deftypes-for-target.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/type-init.lisp" (written 14 JUL 2005 07:30:40 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (/SHOW0 "precomputing numeric types")
; compiling (PRECOMPUTE-TYPES (QUOTE #))
; compiling (/SHOW0 "precomputing built-in symbol type specifiers")
; compiling (PRECOMPUTE-TYPES *!STANDARD-TYPE-NAMES*)
; compiling (/SHOW0 "done with type-init.lisp")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/type-init.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/fixup-type.lisp" (written 14 JUL 2005 09: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)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/fixup-type.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/package.lisp" (written 11 JUL 2007 04:56:51 PM):
; 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: /Users/nikodemus/src/sbcl/src/code/package.lisp
; in:
;      DEF!STRUCT (SB-XC:PACKAGE (:CONSTRUCTOR INTERNAL-MAKE-PACKAGE)
;              (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL)))
;              (:PREDICATE SB-XC:PACKAGEP))
;     (SB!INT:DEF!STRUCT
;      (SB-XC:PACKAGE (:CONSTRUCTOR SB!IMPL::INTERNAL-MAKE-PACKAGE)
;       (:MAKE-LOAD-FORM-FUN (LAMBDA (SB!IMPL::P) (VALUES # NIL)))
;       (:PREDICATE SB-XC:PACKAGEP))
;      "the standard structure for the description of a package"
;      (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL))
;      (SB!IMPL::%NICKNAMES NIL :TYPE LIST) (SB!IMPL::%USE-LIST NIL :TYPE LIST)
;      (SB!IMPL::TABLES (LIST NIL) :TYPE LIST)
;      (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST)
;      (SB!IMPL::INTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE
;       SB!IMPL::PACKAGE-HASHTABLE)
;      (SB!IMPL::EXTERNAL-SYMBOLS (SB!INT:MISSING-ARG) :TYPE
;       SB!IMPL::PACKAGE-HASHTABLE)
;      (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST)
;      (SB!IMPL::DOC-STRING NIL :TYPE (OR SIMPLE-STRING NULL)) ...)
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB-XC:PACKAGE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in:
;      DEF!STRUCT (PACKAGE-HASHTABLE
;              (:CONSTRUCTOR %MAKE-PACKAGE-HASHTABLE
;               (TABLE HASH SIZE &AUX (FREE SIZE)))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!IMPL::PACKAGE-HASHTABLE
;       (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE-HASHTABLE
;        (SB!IMPL::TABLE SB!IMPL::HASH SB!IMPL::SIZE &AUX
;         (SB!IMPL::FREE SB!IMPL::SIZE)))
;       (:COPIER NIL))
;      (SB!IMPL::TABLE (SB!INT:MISSING-ARG) :TYPE SIMPLE-VECTOR)
;      (SB!IMPL::HASH (SB!INT:MISSING-ARG) :TYPE SB!IMPL::HASH-VECTOR)
;      (SB!IMPL::SIZE (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX)
;      (SB!IMPL::FREE (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX)
;      (SB!IMPL::DELETED 0 :TYPE SB!INT:INDEX))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::PACKAGE-HASHTABLE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/package.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/random.lisp" (written 28 MAR 2007 08:59:18 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEF!CONSTANT RANDOM-CHUNK-LENGTH ...)
; compiling (DEF!CONSTANT RANDOM-INTEGER-OVERLAP ...)
; compiling (DEF!CONSTANT RANDOM-INTEGER-EXTRA-BITS ...)
; compiling (DEF!CONSTANT RANDOM-FIXNUM-MAX ...)
; compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/random.lisp
; in:
;      SB-XC:DEFSTRUCT (RANDOM-STATE (:CONSTRUCTOR %MAKE-RANDOM-STATE) (:COPIER NIL))
;     (SB-XC:DEFSTRUCT
;      (RANDOM-STATE (:CONSTRUCTOR SB!KERNEL::%MAKE-RANDOM-STATE) (:COPIER NIL))
;      (SB!KERNEL::STATE (SB!KERNEL::INIT-RANDOM-STATE) :TYPE
;       (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (627))))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'RANDOM-STATE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

;     (SB!KERNEL::INIT-RANDOM-STATE)
; 
; caught STYLE-WARNING:
;   undefined function: INIT-RANDOM-STATE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED INIT-RANDOM-STATE
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/random.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/hash-table.lisp" (written 03 JAN 2008 05:54:05 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...)
; compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...)
; compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...)
; compiling (DEFMACRO-MUNDANELY WITH-LOCKED-HASH-TABLE ...)
; file: /Users/nikodemus/src/sbcl/src/code/hash-table.lisp
; in: SB-XC:DEFSTRUCT (HASH-TABLE (:CONSTRUCTOR %MAKE-HASH-TABLE))
;     (SB-XC:DEFSTRUCT (HASH-TABLE (:CONSTRUCTOR SB!IMPL::%MAKE-HASH-TABLE))
;                      (SB!IMPL::TEST (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY
;                       T)
;                      (SB!IMPL::TEST-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION
;                       :READ-ONLY T)
;                      (SB!IMPL::HASH-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION
;                       :READ-ONLY T)
;                      (SB!IMPL::REHASH-SIZE (SB!INT:MISSING-ARG) :TYPE
;                       (OR SB!INT:INDEX (SINGLE-FLOAT (1.0))) :READ-ONLY T)
;                      (SB!IMPL::REHASH-THRESHOLD (SB!INT:MISSING-ARG) :TYPE
;                       (SINGLE-FLOAT (0.0) 1.0) :READ-ONLY T)
;                      (SB!IMPL::REHASH-TRIGGER (SB!INT:MISSING-ARG) :TYPE
;                       SB!INT:INDEX)
;                      (SB!IMPL::NUMBER-ENTRIES 0 :TYPE SB!INT:INDEX)
;                      (SB!IMPL::TABLE (SB!INT:MISSING-ARG) :TYPE SIMPLE-VECTOR)
;                      (SB!IMPL::NEXT-WEAK-HASH-TABLE NIL :TYPE NULL)
;                      (SB!IMPL::WEAKNESS NIL :TYPE
;                       (MEMBER NIL :KEY :VALUE :KEY-OR-VALUE :KEY-AND-VALUE)
;                       :READ-ONLY T)
;                      ...)
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'HASH-TABLE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

;     (SB!THREAD::MAKE-SPINLOCK :NAME "hash-table lock")
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::MAKE-SPINLOCK

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!THREAD::MAKE-SPINLOCK
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/hash-table.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/readtable.lisp" (written 14 JUL 2005 07:30:38 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (SB-XC:DEFTYPE ATTRIBUTE-TABLE ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-WHITESPACE+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-TERMINATING-MACRO+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-SINGLE-ESCAPE+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-MULTIPLE-ESCAPE+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DOT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-EXPT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SLASH+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SIGN+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DECIMAL-DIGIT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT-OR-EXPT+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-PACKAGE-DELIMITER+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-INVALID+ ...)
; compiling (DEF!CONSTANT +CHAR-ATTR-DELIMITER+ ...)
; compiling (SB-XC:DEFSTRUCT (READTABLE # ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/readtable.lisp
; in:
;      SB-XC:DEFSTRUCT (READTABLE (:CONC-NAME NIL) (:PREDICATE READTABLEP)
;                   (:COPIER NIL))
;     (SB-XC:DEFSTRUCT
;      (READTABLE (:CONC-NAME NIL) (:PREDICATE READTABLEP) (:COPIER NIL))
;      "A READTABLE is a data structure that maps characters into syntax
;      types for the Common Lisp expression reader."
;      (SB!IMPL::CHARACTER-ATTRIBUTE-ARRAY
;       (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :ELEMENT-TYPE '(UNSIGNED-BYTE 8)
;                   :INITIAL-ELEMENT SB!IMPL::+CHAR-ATTR-CONSTITUENT+)
;       :TYPE SB!IMPL::ATTRIBUTE-TABLE)
;      (SB!IMPL::CHARACTER-ATTRIBUTE-HASH-TABLE (MAKE-HASH-TABLE) :TYPE HASH-TABLE)
;      (SB!IMPL::CHARACTER-MACRO-ARRAY
;       (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :INITIAL-ELEMENT
;                   #'SB!IMPL::UNDEFINED-MACRO-CHAR)
;       :TYPE (SIMPLE-VECTOR 128))
;      (SB!IMPL::CHARACTER-MACRO-HASH-TABLE (MAKE-HASH-TABLE) :TYPE HASH-TABLE)
;      (SB!IMPL::DISPATCH-TABLES NIL :TYPE LIST)
;      (READTABLE-CASE :UPCASE :TYPE (MEMBER :UPCASE :DOWNCASE :PRESERVE :INVERT)))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'READTABLE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

;     #'SB!IMPL::UNDEFINED-MACRO-CHAR
; 
; caught STYLE-WARNING:
;   undefined function: UNDEFINED-MACRO-CHAR

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED UNDEFINED-MACRO-CHAR
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/readtable.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/pathname.lisp" (written 31 DEC 2007 08:39:23 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: /Users/nikodemus/src/sbcl/src/code/pathname.lisp
; in: DEF!STRUCT (PATTERN (:CONSTRUCTOR MAKE-PATTERN (PIECES)))
;     (SB!INT:DEF!STRUCT
;      (SB!IMPL::PATTERN (:CONSTRUCTOR SB!IMPL::MAKE-PATTERN (SB!IMPL::PIECES)))
;      (SB!IMPL::PIECES NIL :TYPE LIST))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::PATTERN
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in:
;      DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN)
;              (:INCLUDE HOST (PARSE #'PARSE-LOGICAL-NAMESTRING)
;               (PARSE-NATIVE (LAMBDA # #))
;               (UNPARSE #'UNPARSE-LOGICAL-NAMESTRING) ...))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:LOGICAL-HOST
;       (:MAKE-LOAD-FORM-FUN SB!IMPL::MAKE-LOGICAL-HOST-LOAD-FORM-FUN)
;       (:INCLUDE SB!KERNEL:HOST
;        (SB!IMPL::PARSE #'SB!IMPL::PARSE-LOGICAL-NAMESTRING)
;        (SB!IMPL::PARSE-NATIVE (LAMBDA # #))
;        (SB!IMPL::UNPARSE #'SB!IMPL::UNPARSE-LOGICAL-NAMESTRING)
;        (SB!IMPL::UNPARSE-NATIVE (LAMBDA # #))
;        (SB!IMPL::UNPARSE-HOST (LAMBDA # #))
;        (SB!IMPL::UNPARSE-DIRECTORY #'SB!IMPL::UNPARSE-LOGICAL-DIRECTORY)
;        (SB!IMPL::UNPARSE-FILE #'SB!IMPL::UNPARSE-LOGICAL-FILE)
;        (SB!IMPL::UNPARSE-ENOUGH #'SB!IMPL::UNPARSE-ENOUGH-NAMESTRING)
;        (SB!IMPL::UNPARSE-DIRECTORY-SEPARATOR ";")
;        (SB!IMPL::CUSTOMARY-CASE :UPPER)))
;      (SB!IMPL::NAME "" :TYPE SIMPLE-STRING)
;      (SB!IMPL::TRANSLATIONS NIL :TYPE LIST)
;      (SB!IMPL::CANON-TRANSLS NIL :TYPE LIST))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:LOGICAL-HOST
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEF!STRUCT (HOST (:CONSTRUCTOR NIL))
;     (SB!INT:DEF!STRUCT (SB!KERNEL:HOST (:CONSTRUCTOR NIL))
;                        (SB!IMPL::PARSE (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;                        (SB!IMPL::PARSE-NATIVE (SB!INT:MISSING-ARG) :TYPE
;                         FUNCTION)
;                        (SB!IMPL::UNPARSE (SB!INT:MISSING-ARG) :TYPE FUNCTION)
;                        (SB!IMPL::UNPARSE-NATIVE (SB!INT:MISSING-ARG) :TYPE
;                         FUNCTION)
;                        (SB!IMPL::UNPARSE-HOST (SB!INT:MISSING-ARG) :TYPE
;                         FUNCTION)
;                        (SB!IMPL::UNPARSE-DIRECTORY (SB!INT:MISSING-ARG) :TYPE
;                         FUNCTION)
;                        (SB!IMPL::UNPARSE-FILE (SB!INT:MISSING-ARG) :TYPE
;                         FUNCTION)
;                        (SB!IMPL::UNPARSE-ENOUGH (SB!INT:MISSING-ARG) :TYPE
;                         FUNCTION)
;                        (SB!IMPL::UNPARSE-DIRECTORY-SEPARATOR (SB!INT:MISSING-ARG)
;                         :TYPE SIMPLE-STRING)
;                        (SB!IMPL::CUSTOMARY-CASE (SB!INT:MISSING-ARG) :TYPE
;                         (MEMBER :UPPER :LOWER)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:HOST
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED


; file: /Users/nikodemus/src/sbcl/src/code/pathname.lisp
; in:
;      DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN)
;              (:INCLUDE HOST (PARSE #'PARSE-LOGICAL-NAMESTRING)
;               (PARSE-NATIVE (LAMBDA # #))
;               (UNPARSE #'UNPARSE-LOGICAL-NAMESTRING) ...))
;     #'SB!IMPL::PARSE-LOGICAL-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-LOGICAL-NAMESTRING

;     #'SB!IMPL::UNPARSE-ENOUGH-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-ENOUGH-NAMESTRING

;     #'SB!IMPL::UNPARSE-LOGICAL-DIRECTORY
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-LOGICAL-DIRECTORY

;     #'SB!IMPL::UNPARSE-LOGICAL-FILE
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-LOGICAL-FILE

;     #'SB!IMPL::UNPARSE-LOGICAL-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-LOGICAL-NAMESTRING

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED PARSE-LOGICAL-NAMESTRING UNPARSE-ENOUGH-NAMESTRING UNPARSE-LOGICAL-DIRECTORY UNPARSE-LOGICAL-FILE UNPARSE-LOGICAL-NAMESTRING
; 
; compilation unit finished
;   caught 10 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/pathname.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/host-pprint.lisp" (written 04 FEB 2004 11:16:24 PM):
; compiling (IN-PACKAGE "SB!PRETTY")
; compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; file: /Users/nikodemus/src/sbcl/src/code/host-pprint.lisp
; in: DEF!STRUCT (PPRINT-DISPATCH-TABLE (:COPIER NIL))
;     (SB!INT:DEF!STRUCT (SB!PRETTY:PPRINT-DISPATCH-TABLE (:COPIER NIL))
;                        (SB!PRETTY::ENTRIES NIL :TYPE LIST)
;                        (SB!PRETTY::CONS-ENTRIES (MAKE-HASH-TABLE :TEST 'EQL)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
;    'SB!PRETTY:PPRINT-DISPATCH-TABLE "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/host-pprint.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/lexenv.lisp" (written 09 JUN 2006 11: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: /Users/nikodemus/src/sbcl/src/compiler/lexenv.lisp
; in:
;      DEF!STRUCT (LEXENV (:PRINT-FUNCTION PRINT-LEXENV)
;              (:CONSTRUCTOR MAKE-NULL-LEXENV NIL)
;              (:CONSTRUCTOR INTERNAL-MAKE-LEXENV
;               (FUNS VARS BLOCKS TAGS TYPE-RESTRICTIONS ...)))
;     (SB!INT:DEF!STRUCT
;      (SB!KERNEL:LEXENV (:PRINT-FUNCTION SB!C::PRINT-LEXENV)
;       (:CONSTRUCTOR SB!KERNEL:MAKE-NULL-LEXENV NIL)
;       (:CONSTRUCTOR SB!C::INTERNAL-MAKE-LEXENV
;        (SB!C::FUNS SB!C::VARS SB!C::BLOCKS SB!C::TAGS SB!C::TYPE-RESTRICTIONS
;         LAMBDA SB!C::CLEANUP SB!C::HANDLED-CONDITIONS
;         SB!KERNEL:DISABLED-PACKAGE-LOCKS SB!C::%POLICY)))
;      (SB!C::FUNS NIL :TYPE LIST) (SB!C::VARS NIL :TYPE LIST)
;      (SB!C::BLOCKS NIL :TYPE LIST) (SB!C::TAGS NIL :TYPE LIST)
;      (SB!C::TYPE-RESTRICTIONS NIL :TYPE LIST) (LAMBDA ()) (SB!C::CLEANUP NIL)
;      (SB!C::HANDLED-CONDITIONS SB!C::*HANDLED-CONDITIONS*)
;      (SB!KERNEL:DISABLED-PACKAGE-LOCKS SB!C::*DISABLED-PACKAGE-LOCKS*)
;      (SB!C::%POLICY NIL :TYPE SB!C:POLICY))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!KERNEL:LEXENV
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/lexenv.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/fndb.lisp" (written 09 JUL 2008 12:31:53 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 %LAST0 ...)
; compiling (DEFKNOWN %LAST1 ...)
; compiling (DEFKNOWN %LASTN/FIXNUM ...)
; compiling (DEFKNOWN %LASTN/BIGNUM ...)
; 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 PSXHASH ...)
; 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-KW-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-REF-WITH-OFFSET ...)
; compiling (DEFKNOWN DATA-VECTOR-SET ...)
; compiling (DEFKNOWN DATA-VECTOR-SET-WITH-OFFSET ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; compiling (DEFKNOWN %CALLER-FRAME-AND-PC ...)
; compiling (DEFKNOWN %WITH-ARRAY-DATA ...)
; compiling (DEFKNOWN %WITH-ARRAY-DATA/FP ...)
; compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...)
; compiling (DEFKNOWN %COERCE-NAME-TO-FUN ...)
; compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...)
; compiling (DEFKNOWN ARRAY-BOUNDING-INDICES-BAD-ERROR ...)
; compiling (DEFKNOWN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...)
; compiling (DEFKNOWN %FIND-POSITION ...)
; compiling (DEFKNOWN (%FIND-POSITION-IF %FIND-POSITION-IF-NOT) ...)
; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-TEST ...)
; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-KEY ...)
; compiling (DEFKNOWN %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::TOUCH-OBJECT ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-DATAREF-SAP ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-SAP ...)
; compiling (DEFKNOWN FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFKNOWN %FUN-NAME ...)
; compiling (DEFKNOWN (SETF %FUN-NAME) ...)
; compiling (DEFKNOWN POLICY-QUALITY ...)
; compiling (DEFKNOWN COMPILER-ERROR ...)
; compiling (DEFKNOWN (COMPILER-WARN COMPILER-STYLE-WARN) ...)
; compiling (DEFKNOWN (COMPILER-NOTIFY MAYBE-COMPILER-NOTIFY) ...)
; compiling (DEFKNOWN STYLE-WARN ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-SVREF ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-INSTANCE-REF ...)
; compiling (DEFKNOWN %COMPARE-AND-SWAP-SYMBOL-VALUE ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/fndb.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-fndb.lisp" (written 29 MAY 2008 01:32:28 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...)
; compiling (DEFKNOWN POINTER-HASH ...)
; 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 %MAKE-STRUCTURE-INSTANCE ...)
; compiling (DEFKNOWN %INSTANCE-LAYOUT ...)
; compiling (DEFKNOWN %SET-INSTANCE-LAYOUT ...)
; compiling (DEFKNOWN %INSTANCE-LENGTH ...)
; compiling (DEFKNOWN %INSTANCE-REF ...)
; compiling (DEFKNOWN %INSTANCE-SET ...)
; compiling (DEFKNOWN %LAYOUT-INVALID-ERROR ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/WORD ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/WORD ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...)
; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...)
; compiling (DEFKNOWN %RAW-BITS ...)
; compiling (DEFKNOWN %RAW-BITS-WITH-OFFSET ...)
; compiling (DEFKNOWN (%SET-RAW-BITS) ...)
; compiling (DEFKNOWN (%SET-RAW-BITS-WITH-OFFSET) ...)
; 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-REF-WITH-OFFSET ...)
; compiling (DEFKNOWN %BIGNUM-SET ...)
; compiling (DEFKNOWN %BIGNUM-SET-WITH-OFFSET ...)
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/objdef.lisp" (written 17 MAY 2008 10:52:22 PM):
; 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 ...) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/objdef.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/interr.lisp" (written 08 MAY 2008 10:14:02 AM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN ERROR-NUMBER-OR-LOSE ...)
; compiling (DEFINE-INTERNAL-ERRORS (UNKNOWN "unknown system lossage") ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/interr.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/bit-util.lisp" (written 10 APR 2007 09:10:31 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/bit-util.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/early-assem.lisp" (written 14 JUL 2004 11: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/early-assem.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/core.lisp" (written 03 JUL 2008 10:24:50 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: /Users/nikodemus/src/sbcl/src/compiler/generic/core.lisp
; in: DEFSTRUCT CORE-OBJECT
;     (DEFSTRUCT
;         (SB!C::CORE-OBJECT (:CONSTRUCTOR SB!C::MAKE-CORE-OBJECT NIL)
;          (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT #)))
;          (:COPIER NIL))
;       (SB!C::ENTRY-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE)
;       (SB!C::PATCH-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE)
;       (SB!C::DEBUG-INFO NIL :TYPE LIST))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::CORE-OBJECT
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN FIX-CORE-SOURCE-INFO
;     (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO :FUNCTION FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: DEBUG-SOURCE-FOR-INFO

; in: DEFUN DO-CORE-FIXUPS
;     (SB!C:FIXUP-FLAVOR SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-FLAVOR

;     (SB!C:FIXUP-NAME SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NAME

;     (SB!C:FIXUP-NOTE-FIXUP SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-FIXUP

;     (SB!C:FIXUP-NOTE-KIND SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-KIND

;     (SB!C:FIXUP-NOTE-POSITION SB!C::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-POSITION

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED DEBUG-SOURCE-FOR-INFO FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/core.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/thread.lisp" (written 26 MAY 2008 10:38:29 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (DEF!STRUCT MUTEX ...)
; compiling (DEFUN MUTEX-VALUE ...)
; compiling (DEFSETF MUTEX-VALUE ...)
; compiling (DECLAIM (INLINE SET-MUTEX-VALUE))
; compiling (DEFUN SET-MUTEX-VALUE ...)
; compiling (DEFINE-COMPILER-MACRO SET-MUTEX-VALUE ...)
; compiling (DEF!STRUCT SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITH-MUTEX ...)
; compiling (SB-XC:DEFMACRO WITH-SYSTEM-MUTEX ...)
; compiling (SB-XC:DEFMACRO WITH-SYSTEM-SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SYSTEM-SPINLOCK ...)
; compiling (SB-XC:DEFMACRO WITH-SPINLOCK ...)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...)
; compiling (DEF CALL-WITH-SYSTEM-SPINLOCK)
; compiling (DEF CALL-WITH-RECURSIVE-SYSTEM-SPINLOCK)
; compiling (DEF CALL-WITH-RECURSIVE-SYSTEM-SPINLOCK ...)
; compiling (DEFUN CALL-WITH-MUTEX ...)
; compiling (DEFUN CALL-WITH-RECURSIVE-LOCK ...)
; compiling (DEFUN CALL-WITH-SPINLOCK ...)
; compiling (DEFUN CALL-WITH-RECURSIVE-SPINLOCK ...)
; file: /Users/nikodemus/src/sbcl/src/code/thread.lisp
; in: DEF!STRUCT SPINLOCK
;     (SB!INT:DEF!STRUCT SB!THREAD::SPINLOCK "Spinlock type."
;                        (SB!THREAD::NAME NIL :TYPE (OR NULL SIMPLE-STRING))
;                        (SB!THREAD::VALUE NIL))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!THREAD::SPINLOCK
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEF!STRUCT MUTEX
;     (SB!INT:DEF!STRUCT SB!THREAD:MUTEX "Mutex type."
;                        (SB!THREAD::NAME NIL :TYPE (OR NULL SIMPLE-STRING))
;                        (SB!THREAD::%OWNER NIL :TYPE (OR NULL SB!THREAD:THREAD)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!THREAD:MUTEX
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFSETF MUTEX-VALUE
;     (DEFSETF SB!THREAD:MUTEX-VALUE SB!THREAD::SET-MUTEX-VALUE)
; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO 
; ==>
;   (SB!IMPL::ASSIGN-SETF-MACRO 'SB!THREAD:MUTEX-VALUE NIL
;                               'SB!THREAD::SET-MUTEX-VALUE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::ASSIGN-SETF-MACRO

; 
; caught STYLE-WARNING:
;   undefined type: THREAD

; 
; caught STYLE-WARNING:
;   undefined type: THREAD

; 
; caught STYLE-WARNING:
;   undefined type: THREAD

; 
; caught STYLE-WARNING:
;   291 more uses of undefined type THREAD

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!IMPL::ASSIGN-SETF-MACRO

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     THREAD
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/thread.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/load.lisp" (written 17 APR 2008 05:05:03 PM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFUN LOAD-FRESH-LINE ...)
; compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...)
; compiling (DECLAIM (INLINE READ-BYTE))
; compiling (DEFMACRO FAST-READ-U-INTEGER ...)
; compiling (DEFMACRO FAST-READ-VAR-U-INTEGER ...)
; compiling (DEFMACRO FAST-READ-S-INTEGER ...)
; compiling (DEFMACRO READ-ARG ...)
; compiling (DECLAIM (INLINE READ-BYTE-ARG ...))
; compiling (DEFUN READ-BYTE-ARG ...)
; compiling (DEFUN READ-HALFWORD-ARG ...)
; compiling (DEFUN READ-WORD-ARG ...)
; compiling (DEFUN READ-UNSIGNED-BYTE-32-ARG ...)
; compiling (DEFVAR *FREE-FOP-TABLES* ...)
; compiling (DEFVAR *CURRENT-FOP-TABLE*)
; compiling (DECLAIM (SIMPLE-VECTOR *CURRENT-FOP-TABLE*))
; compiling (DEFVAR *CURRENT-FOP-TABLE-SIZE*)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFVAR *CURRENT-FOP-TABLE-INDEX*)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFUN GROW-FOP-TABLE ...)
; compiling (DEFMACRO PUSH-FOP-TABLE ...)
; compiling (DEFVAR *FOP-STACK*)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFMACRO WITH-FOP-STACK ...)
; compiling (DEFMACRO %CALL-WITH-POPPED-ARGS ...)
; compiling (DEFINE-CONDITION INVALID-FASL ...)
; compiling (DEFINE-CONDITION INVALID-FASL-HEADER ...)
; compiling (DEFINE-CONDITION INVALID-FASL-VERSION ...)
; compiling (DEFINE-CONDITION INVALID-FASL-IMPLEMENTATION ...)
; compiling (DEFINE-CONDITION INVALID-FASL-FEATURES ...)
; compiling (DEFUN CHECK-FASL-HEADER ...)
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/code/load.lisp
; in: DEFUN CHECK-FASL-HEADER
;     (RESTART-CASE
;      (ERROR 'SB!FASL::INVALID-FASL-VERSION :STREAM STREAM :VERSION
;             SB!FASL::SBCL-VERSION :EXPECTED SB!FASL::EXPECTED-VERSION)
;      (CONTINUE NIL :REPORT "Load the fasl file anyway"))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION 'SB!FASL::INVALID-FASL-VERSION
;                                  (LIST :STREAM STREAM :VERSION
;                                        SB!FASL::SBCL-VERSION :EXPECTED
;                                        SB!FASL::EXPECTED-VERSION)
;                                  'SIMPLE-ERROR 'ERROR)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

;     (SB!FASL::READ-STRING-AS-BYTES STREAM SB!FASL::RESULT)
; 
; caught STYLE-WARNING:
;   undefined function: READ-STRING-AS-BYTES

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     COERCE-TO-CONDITION READ-STRING-AS-BYTES
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/load.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/linkage-table.lisp" (written 14 NOV 2007 05:57:28 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *SHARED-OBJECT-LOCK*)
; compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-JMP ...)
; compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-REF ...)
; compiling (DEFVAR *LINKAGE-INFO* ...)
; compiling (DEFSTRUCT LINKAGE-INFO ...)
; compiling (DEFUN WRITE-LINKAGE-TABLE-ENTRY ...)
; compiling (DEFUN LINK-FOREIGN-SYMBOL ...)
; compiling (DEFUN ENSURE-FOREIGN-SYMBOL-LINKAGE ...)
; compiling (DEFUN UPDATE-LINKAGE-TABLE ...)
; file: /Users/nikodemus/src/sbcl/src/code/linkage-table.lisp
; in: DEFSTRUCT LINKAGE-INFO
;     (DEFSTRUCT SB!IMPL::LINKAGE-INFO SB!IMPL::DATAP SB!IMPL::ADDRESS)
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::LINKAGE-INFO
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN UPDATE-LINKAGE-TABLE
;     (SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME SB!IMPL::DATAP)
; 
; caught STYLE-WARNING:
;   undefined function: ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS

; in: DEFUN LINK-FOREIGN-SYMBOL
;     (SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME SB!IMPL::DATAP)
; 
; caught STYLE-WARNING:
;   undefined function: ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/linkage-table.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/foreign-load.lisp" (written 11 JUL 2008 09:55:08 PM):
; compiling (IN-PACKAGE "SB!ALIEN")
; compiling (DEFVAR *SHARED-OBJECTS-LOCK* ...)
; compiling (DEFINE-UNSUPPORTED-FUN LOAD-FOREIGN ...)
; compiling (DEFINE-UNSUPPORTED-FUN LOAD-1-FOREIGN ...)
; compiling (DEFINE-ALIEN-ROUTINE DLOPEN ...)
; compiling (DEFINE-ALIEN-ROUTINE DLCLOSE ...)
; compiling (DEFINE-ALIEN-ROUTINE DLERROR ...)
; compiling (DEFINE-ALIEN-ROUTINE DLSYM ...)
; compiling (DEFINE-ALIEN-VARIABLE UNDEFINED-ALIEN-ADDRESS ...)
; compiling (DEFVAR *RUNTIME-DLHANDLE*)
; compiling (DEFVAR *SHARED-OBJECTS*)
; compiling (DEFSTRUCT SHARED-OBJECT ...)
; compiling (DEFUN DLOPEN-OR-LOSE ...)
; compiling (DEFUN DLCLOSE-OR-LOSE ...)
; compiling (DEFUN LOAD-SHARED-OBJECT ...)
; compiling (DEFUN TRY-REOPEN-SHARED-OBJECT ...)
; compiling (DEFUN REOPEN-SHARED-OBJECTS ...)
; compiling (DEFUN CLOSE-SHARED-OBJECTS ...)
; compiling (DEFUN FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ...)
; compiling (LET (# #) ...)
; file: /Users/nikodemus/src/sbcl/src/code/foreign-load.lisp
; in: DEFUN ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS
;     (DEFUN SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS
;            (SYMBOL &OPTIONAL SB!ALIEN::DATAP)
;       "Returns the address of the foreign symbol as an integer. On linkage-table
;   ports if the symbols isn't found a special guard address is returned instead,
;   accesses to which will result in an UNDEFINED-ALIEN-ERROR. On other ports an
;   error is immediately signalled if the symbol isn't found. The returned address
;   is never in the linkage-table."
;       (DECLARE (IGNORABLE SB!ALIEN::DATAP))
;       (LET ((SB!ALIEN:ADDR (SB!SYS:FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SYMBOL)))
;         (COND
;          ((NOT SB!ALIEN:ADDR)
;           (SB!INT:STYLE-WARN 'SB!KERNEL:UNDEFINED-ALIEN-STYLE-WARNING :SYMBOL
;                              SYMBOL)
;           (SETF # T) (REMHASH SYMBOL SB!ALIEN::SYMBOLS)
;           (IF SB!ALIEN::DATAP SB!ALIEN::UNDEFINED-ALIEN-ADDRESS #))
;          (SB!ALIEN:ADDR (SETF # T) (REMHASH SYMBOL SB!ALIEN::UNDEFINEDS)
;           SB!ALIEN:ADDR))))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS
;                     (LAMBDA (SYMBOL &OPTIONAL SB!ALIEN::DATAP)
;                       (DECLARE (IGNORABLE SB!ALIEN::DATAP))
;                       (BLOCK SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS
;                         (LET (#)
;                           (COND # #)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS (LAMBDA (SYMBOL &OPTIONAL DATAP) (DECLARE #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS not cross-compiled at top
;   level: demoting to (SETF FDEFINITION)

; in: DEFUN UNDEFINED-FOREIGN-SYMBOLS-P
;     (DEFUN SB!SYS:UNDEFINED-FOREIGN-SYMBOLS-P ()
;       (PLUSP (HASH-TABLE-COUNT SB!ALIEN::UNDEFINEDS)))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!SYS:UNDEFINED-FOREIGN-SYMBOLS-P
;                     (LAMBDA ()
;                       (BLOCK SB!SYS:UNDEFINED-FOREIGN-SYMBOLS-P
;                         (PLUSP (HASH-TABLE-COUNT SB!ALIEN::UNDEFINEDS)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET UNDEFINED-FOREIGN-SYMBOLS-P (LAMBDA NIL (BLOCK UNDEFINED-FOREIGN-SYMBOLS-P #))))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET UNDEFINED-FOREIGN-SYMBOLS-P not cross-compiled at top level: demoting
;   to (SETF FDEFINITION)

; in: DEFUN DYNAMIC-FOREIGN-SYMBOLS-P
;     (DEFUN SB!SYS:DYNAMIC-FOREIGN-SYMBOLS-P ()
;       (PLUSP (HASH-TABLE-COUNT SB!ALIEN::SYMBOLS)))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!SYS:DYNAMIC-FOREIGN-SYMBOLS-P
;                     (LAMBDA ()
;                       (BLOCK SB!SYS:DYNAMIC-FOREIGN-SYMBOLS-P
;                         (PLUSP (HASH-TABLE-COUNT SB!ALIEN::SYMBOLS)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET DYNAMIC-FOREIGN-SYMBOLS-P (LAMBDA NIL (BLOCK DYNAMIC-FOREIGN-SYMBOLS-P #))))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET DYNAMIC-FOREIGN-SYMBOLS-P not cross-compiled at top level: demoting
;   to (SETF FDEFINITION)

; in: DEFUN LIST-DYNAMIC-FOREIGN-SYMBOLS
;     (DEFUN SB!SYS:LIST-DYNAMIC-FOREIGN-SYMBOLS ()
;       (LOOP SB!ALIEN::FOR SYMBOL SB!ALIEN::BEING SB!ALIEN::EACH
;             SB!ALIEN::HASH-KEY SB!ALIEN::IN SB!ALIEN::SYMBOLS SB!INT:COLLECT
;             SYMBOL))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!SYS:LIST-DYNAMIC-FOREIGN-SYMBOLS
;                     (LAMBDA ()
;                       (BLOCK SB!SYS:LIST-DYNAMIC-FOREIGN-SYMBOLS
;                         (LOOP SB!ALIEN::FOR SYMBOL SB!ALIEN::BEING
;                               SB!ALIEN::EACH SB!ALIEN::HASH-KEY SB!ALIEN::IN
;                               SB!ALIEN::SYMBOLS SB!INT:COLLECT SYMBOL))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET LIST-DYNAMIC-FOREIGN-SYMBOLS (LAMBDA NIL (BLOCK LIST-DYNAMIC-FOREIGN-SYMBOLS #))))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET LIST-DYNAMIC-FOREIGN-SYMBOLS not cross-compiled at top level:
;   demoting to (SETF FDEFINITION)

; in: DEFSTRUCT SHARED-OBJECT
;     (DEFSTRUCT SB!ALIEN::SHARED-OBJECT SB!ALIEN::FILE SB!ALIEN::SAP)
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ALIEN::SHARED-OBJECT
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS
;     (SB!SYS:EXTERN-ALIEN-NAME SYMBOL)
; 
; caught STYLE-WARNING:
;   undefined function: EXTERN-ALIEN-NAME

; in: DEFUN TRY-REOPEN-SHARED-OBJECT
;     (SB!INT:UNIX-NAMESTRING PATHNAME)
; 
; caught STYLE-WARNING:
;   undefined function: UNIX-NAMESTRING

; in: DEFUN LOAD-SHARED-OBJECT
;     (SB!INT:UNIX-NAMESTRING SB!ALIEN::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: UNIX-NAMESTRING

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED EXTERN-ALIEN-NAME UNIX-NAMESTRING
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/foreign-load.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/foreign.lisp" (written 17 JUN 2008 03:04:19 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN EXTERN-ALIEN-NAME ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *STATIC-FOREIGN-SYMBOLS* ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ...)
; compiling (DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFUN FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFUN FOREIGN-SYMBOL-SAP ...)
; compiling (DEFUN FOREIGN-REINIT ...)
; compiling (DEFUN FOREIGN-DEINIT ...)
; compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL))
; compiling (DEFUN SAP-FOREIGN-SYMBOL ...)
; compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*)
; compiling (DEFUN !FOREIGN-COLD-INIT ...)
; file: /Users/nikodemus/src/sbcl/src/code/foreign.lisp
; in: DEFUN EXTERN-ALIEN-NAME
;     (CONCATENATE 'BASE-STRING "_" SB!IMPL::NAME)
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-25 (#:G15)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G15)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-25))
;     (ETYPECASE #:G15
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-25 (THE # #:G15)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-25 (THE SEQUENCE #:G15)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH. (+ 1 (SB!IMPL::STRING-DISPATCH # #:G15 # #)))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'BASE-CHAR)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (PROGN (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\_) (INCF SB!C::.POS.))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G15
;      (REPLACE SB!C::.STRING. #:G15 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G15)))
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   7 more uses of undefined type COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/foreign.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/fop.lisp" (written 24 MAY 2008 02:26:22 AM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFVAR *SKIP-UNTIL* ...)
; compiling (DEFMACRO DEFINE-FOP ...)
; compiling (DEFUN %DEFINE-FOP ...)
; compiling (DEFMACRO DEFINE-CLONED-FOPS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-STRING-AS-BYTES ...)
; compiling (DEFUN READ-STRING-AS-WORDS ...)
; compiling (DEFINE-FOP (FOP-NOP4 137 ...) ...)
; compiling (DEFINE-FOP (FOP-NOP 0 ...))
; compiling (DEFINE-FOP (FOP-POP 1 ...) ...)
; compiling (DEFINE-FOP (FOP-PUSH 2) ...)
; compiling (DEFINE-FOP (FOP-BYTE-PUSH 3) ...)
; compiling (DEFINE-FOP (FOP-EMPTY-LIST 4) ...)
; compiling (DEFINE-FOP (FOP-TRUTH 5) ...)
; compiling (DEFINE-FOP (FOP-MISC-TRAP 66) ...)
; compiling (DEFINE-CLONED-FOPS (FOP-CHARACTER 68) ...)
; compiling (DEFINE-CLONED-FOPS (FOP-STRUCT 48) ...)
; compiling (DEFINE-FOP (FOP-LAYOUT 45) ...)
; compiling (DEFINE-FOP (FOP-END-GROUP 64 ...) ...)
; compiling (DEFINE-FOP (FOP-NORMAL-LOAD 81 ...))
; compiling (DEFINE-FOP (FOP-MAYBE-COLD-LOAD 82 ...))
; compiling (DEFINE-FOP (FOP-VERIFY-TABLE-SIZE 62 ...) ...)
; compiling (DEFINE-FOP (FOP-VERIFY-EMPTY-STACK 63 ...) ...)
; compiling (FROB FOP-LISP-SYMBOL-SAVE ...)
; compiling (FROB FOP-LISP-SMALL-SYMBOL-SAVE ...)
; compiling (FROB FOP-KEYWORD-SYMBOL-SAVE ...)
; compiling (FROB FOP-KEYWORD-SMALL-SYMBOL-SAVE ...)
; compiling (FROB FOP-SYMBOL-IN-PACKAGE-SAVE ...)
; compiling (FROB FOP-SMALL-SYMBOL-IN-PACKAGE-SAVE ...)
; compiling (FROB FOP-SYMBOL-IN-BYTE-PACKAGE-SAVE ...)
; compiling (FROB FOP-SMALL-SYMBOL-IN-BYTE-PACKAGE-SAVE ...)
; compiling (DEFINE-CLONED-FOPS (FOP-UNINTERNED-SYMBOL-SAVE 12) ...)
; compiling (DEFINE-FOP (FOP-PACKAGE 14) ...)
; compiling (DEFUN LOAD-S-INTEGER ...)
; compiling (DEFINE-CLONED-FOPS (FOP-INTEGER 33) ...)
; compiling (DEFINE-FOP (FOP-WORD-INTEGER 35) ...)
; compiling (DEFINE-FOP (FOP-BYTE-INTEGER 36) ...)
; compiling (DEFINE-FOP (FOP-RATIO 70) ...)
; compiling (DEFINE-FOP (FOP-COMPLEX 71) ...)
; compiling (DEFINE-COMPLEX-FOP FOP-COMPLEX-SINGLE-FLOAT ...)
; compiling (DEFINE-COMPLEX-FOP FOP-COMPLEX-DOUBLE-FLOAT ...)
; compiling (DEFINE-FLOAT-FOP FOP-SINGLE-FLOAT ...)
; compiling (DEFINE-FLOAT-FOP FOP-DOUBLE-FLOAT ...)
; compiling (DEFINE-FOP (FOP-LIST 15) ...)
; compiling (DEFINE-FOP (FOP-LIST* 16) ...)
; compiling (FROB FOP-LIST-1 ...)
; compiling (FROB FOP-LIST-2 ...)
; compiling (FROB FOP-LIST-3 ...)
; compiling (FROB FOP-LIST-4 ...)
; compiling (FROB FOP-LIST-5 ...)
; compiling (FROB FOP-LIST-6 ...)
; compiling (FROB FOP-LIST-7 ...)
; compiling (FROB FOP-LIST-8 ...)
; compiling (FROB FOP-LIST*-1 ...)
; compiling (FROB FOP-LIST*-2 ...)
; compiling (FROB FOP-LIST*-3 ...)
; compiling (FROB FOP-LIST*-4 ...)
; compiling (FROB FOP-LIST*-5 ...)
; compiling (FROB FOP-LIST*-6 ...)
; compiling (FROB FOP-LIST*-7 ...)
; compiling (FROB FOP-LIST*-8 ...)
; compiling (DEFINE-CLONED-FOPS (FOP-BASE-STRING 37) ...)
; compiling (DEFINE-CLONED-FOPS (FOP-CHARACTER-STRING 161) ...)
; compiling (DEFINE-CLONED-FOPS (FOP-VECTOR 39) ...)
; compiling (DEFINE-FOP (FOP-ARRAY 83) ...)
; compiling (DEFINE-FOP (FOP-SINGLE-FLOAT-VECTOR 84) ...)
; compiling (DEFINE-FOP (FOP-DOUBLE-FLOAT-VECTOR 85) ...)
; compiling (DEFINE-FOP (FOP-COMPLEX-SINGLE-FLOAT-VECTOR 86) ...)
; compiling (DEFINE-FOP (FOP-COMPLEX-DOUBLE-FLOAT-VECTOR 87) ...)
; compiling (DEFINE-FOP (FOP-INT-VECTOR 43) ...)
; compiling (DEFINE-FOP (FOP-SIGNED-INT-VECTOR 50) ...)
; compiling (DEFINE-FOP (FOP-EVAL 53) ...)
; compiling (DEFINE-FOP (FOP-EVAL-FOR-EFFECT 54 ...) ...)
; compiling (DEFINE-FOP (FOP-FUNCALL 55) ...)
; compiling (DEFINE-FOP (FOP-FUNCALL-FOR-EFFECT 56 ...) ...)
; compiling (DEFINE-FOP (FOP-RPLACA 200 ...) ...)
; compiling (DEFINE-FOP (FOP-RPLACD 201 ...) ...)
; compiling (DEFINE-FOP (FOP-SVSET 202 ...) ...)
; compiling (DEFINE-FOP (FOP-STRUCTSET 204 ...) ...)
; compiling (DEFINE-FOP (FOP-NTHCDR 203) ...)
; compiling (DEFINE-FOP (FOP-CODE 58 ...) ...)
; compiling (DEFINE-FOP (FOP-SMALL-CODE 59 ...) ...)
; compiling (DEFINE-FOP (FOP-FDEFINITION 60) ...)
; compiling (DEFINE-FOP (FOP-SANCTIFY-FOR-EXECUTION 61) ...)
; compiling (DEFINE-FOP (FOP-FSET 74 ...) ...)
; compiling (DEFINE-CLONED-FOPS (FOP-ALTER-CODE 140 ...) ...)
; compiling (DEFINE-FOP (FOP-FUN-ENTRY 142) ...)
; compiling (DEFINE-FOP (FOP-ASSEMBLER-CODE 144) ...)
; file: /Users/nikodemus/src/sbcl/src/code/fop.lisp
; in: DEFINE-FOP (FOP-ASSEMBLER-CODE 144)
;     (SB!FASL::DEFINE-FOP (SB!FASL::FOP-ASSEMBLER-CODE 144)
;                          (ERROR "cannot load assembler code except at cold load"))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!FASL::WITH-FOP-STACK LET 
; --> MACROLET 
; ==>
;   (VECTOR-PUSH-EXTEND
;    (PROGN (ERROR "cannot load assembler code except at cold load"))
;    #:FOP-STACK-[FOP-ASSEMBLER-CODE]6075)
; 
; note: The first argument never returns a value.

; compiling (DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145) ...)
; file: /Users/nikodemus/src/sbcl/src/code/fop.lisp
; in: DEFINE-FOP (FOP-ASSEMBLER-ROUTINE 145)
;     (SB!FASL::DEFINE-FOP (SB!FASL::FOP-ASSEMBLER-ROUTINE 145)
;                          (ERROR "cannot load assembler code except at cold load"))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!FASL::WITH-FOP-STACK LET 
; --> MACROLET 
; ==>
;   (VECTOR-PUSH-EXTEND
;    (PROGN (ERROR "cannot load assembler code except at cold load"))
;    #:FOP-STACK-[FOP-ASSEMBLER-ROUTINE]6089)
; 
; 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: /Users/nikodemus/src/sbcl/src/code/fop.lisp
; in:
;      MACROLET ((FROB (NAME CODE NAME-SIZE PACKAGE)
;             (LET (# # #)
;               (SB!IMPL::BACKQ-LIST 'DEFINE-FOP # #))))
;     (SB!FASL::FROB SB!FASL::FOP-KEYWORD-SYMBOL-SAVE 77 4 SB!INT:*KEYWORD-PACKAGE*)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK 
; --> SB!FASL::WITH-FOP-STACK LET MACROLET VECTOR-PUSH-EXTEND PROGN 
; --> SB!INT:PREPARE-FOR-FAST-READ-BYTE LET* LET LET SB!FASL::PUSH-FOP-TABLE 
; --> LET SETF SB!KERNEL:%SVSET SB!KERNEL:%ASET SB!EXT:WITHOUT-PACKAGE-LOCKS 
; --> LET 
; ==>
;   (SB!INT:INTERN* #:G1015 #:G1014 #:G1013)
; 
; caught STYLE-WARNING:
;   undefined function: INTERN*

;     (SB!FASL::FROB SB!FASL::FOP-LISP-SMALL-SYMBOL-SAVE 76 1 SB!INT:*CL-PACKAGE*)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK 
; --> SB!FASL::WITH-FOP-STACK LET MACROLET VECTOR-PUSH-EXTEND PROGN 
; --> SB!INT:PREPARE-FOR-FAST-READ-BYTE LET* LET LET SB!FASL::PUSH-FOP-TABLE 
; --> LET SETF SB!KERNEL:%SVSET SB!KERNEL:%ASET SB!EXT:WITHOUT-PACKAGE-LOCKS 
; --> LET 
; ==>
;   (SB!INT:INTERN* #:G935 #:G934 #:G933)
; 
; caught STYLE-WARNING:
;   undefined function: INTERN*

;     (SB!FASL::FROB SB!FASL::FOP-LISP-SYMBOL-SAVE 75 4 SB!INT:*CL-PACKAGE*)
; --> SB!FASL::DEFINE-FOP PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK 
; --> SB!FASL::WITH-FOP-STACK LET MACROLET VECTOR-PUSH-EXTEND PROGN 
; --> SB!INT:PREPARE-FOR-FAST-READ-BYTE LET* LET LET SB!FASL::PUSH-FOP-TABLE 
; --> LET SETF SB!KERNEL:%SVSET SB!KERNEL:%ASET SB!EXT:WITHOUT-PACKAGE-LOCKS 
; --> LET 
; ==>
;   (SB!INT:INTERN* #:G819 #:G818 #:G817)
; 
; caught STYLE-WARNING:
;   undefined function: INTERN*

; 
; caught STYLE-WARNING:
;   5 more uses of undefined function INTERN*


; file: /Users/nikodemus/src/sbcl/src/code/fop.lisp
; in: DEFINE-FOP (FOP-SMALL-CODE 59 :STACKP NIL)
;     (SB!FASL::LOAD-CODE (SB!FASL::READ-BYTE-ARG) (SB!FASL::READ-HALFWORD-ARG))
; 
; caught STYLE-WARNING:
;   undefined function: LOAD-CODE

; in: DEFINE-FOP (FOP-CODE 58 :STACKP NIL)
;     (SB!FASL::LOAD-CODE (SB!FASL::READ-WORD-ARG) (SB!FASL::READ-WORD-ARG))
; 
; caught STYLE-WARNING:
;   undefined function: LOAD-CODE

; in: DEFINE-FOP (FOP-SANCTIFY-FOR-EXECUTION 61)
;     (SB!VM:SANCTIFY-FOR-EXECUTION SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:SANCTIFY-FOR-EXECUTION

; 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))
; --> BLOCK IF LET* 
; ==>
;   (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START
;    SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: SB!GRAY:STREAM-READ-SEQUENCE

; in: DEFINE-FOP (FOP-DOUBLE-FLOAT-VECTOR 85)
;     (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::RESULT 0
;      (* LENGTH 8))
; --> BLOCK IF LET* 
; ==>
;   (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START
;    SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: SB!GRAY:STREAM-READ-SEQUENCE

; in: DEFINE-FOP (FOP-SINGLE-FLOAT-VECTOR 84)
;     (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::RESULT 0
;      (* LENGTH 4))
; --> BLOCK IF LET* 
; ==>
;   (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START
;    SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: SB!GRAY:STREAM-READ-SEQUENCE

; 
; caught STYLE-WARNING:
;   5 more uses of undefined function SB!GRAY:STREAM-READ-SEQUENCE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     INTERN* LOAD-CODE SB!VM:SANCTIFY-FOR-EXECUTION SB!GRAY:STREAM-READ-SEQUENCE
; 
; compilation unit finished
;   caught 12 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/fop.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ctype.lisp" (written 18 FEB 2008 09:14:11 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: /Users/nikodemus/src/sbcl/src/compiler/ctype.lisp
; in: DEFUN ASSERT-CALL-TYPE
;     (SB!C::ASSERT-LVAR-TYPE SB!C::ARG TYPE SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-LVAR-TYPE

; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::ASSERT-LVAR-TYPE (SB!C::RETURN-RESULT RETURN) SB!C::TYPE-RETURNS
;                             SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-LVAR-TYPE

; in: DEFSTRUCT APPROXIMATE-KEY-INFO
;     (DEFSTRUCT (SB!C::APPROXIMATE-KEY-INFO (:COPIER NIL))
;       (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE KEYWORD)
;       (POSITION (SB!INT:MISSING-ARG) :TYPE (INTEGER 0 536870911))
;       (SB!C::TYPES NIL :TYPE LIST)
;       (SB!C::ALLOWP NIL :TYPE (MEMBER T NIL)))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::APPROXIMATE-KEY-INFO
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFSTRUCT APPROXIMATE-FUN-TYPE
;     (DEFSTRUCT (SB!C::APPROXIMATE-FUN-TYPE (:COPIER NIL))
;       (SB!C::MIN-ARGS SB-XC:CALL-ARGUMENTS-LIMIT :TYPE (INTEGER 0 536870911))
;       (SB!C::MAX-ARGS 0 :TYPE (INTEGER 0 536870911))
;       (SB!C::TYPES NIL :TYPE LIST)
;       (SB!C::KEYS NIL :TYPE LIST))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::APPROXIMATE-FUN-TYPE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN NOTE-FUN-USE
;     (SB!C::CONSTANT-LVAR-P SB!C::KEY)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN CHECK-KEY-ARGS
;     (SB!C::CONSTANT-LVAR-P SB!C::K)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN CHECK-ARG-TYPE
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; in: DEFUN ASSERT-CALL-TYPE
;     (SB!C::DERIVE-NODE-TYPE SB!C:CALL (SB!KERNEL:FUN-TYPE-RETURNS TYPE))
; 
; caught STYLE-WARNING:
;   undefined function: DERIVE-NODE-TYPE

; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::S-TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: DERIVE-NODE-TYPE

; in: DEFUN VALID-FUN-USE
;     (SB!C::IMMEDIATELY-USED-P SB!C::LVAR SB!C:CALL)
; 
; caught STYLE-WARNING:
;   undefined function: IMMEDIATELY-USED-P

; in: DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT)
;     (SB!C::IR2-CONVERT-FULL-CALL SB!C::NODE BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT-FULL-CALL

; in: DEFUN 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/compiler/ctype.lisp
; in: DEFUN ASSERT-DEFINITION-TYPE
;     (SB!C::MAIN-ENTRY SB!C::FUNCTIONAL)
; 
; caught STYLE-WARNING:
;   undefined function: MAIN-ENTRY

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-LVAR-TYPE ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CONSTANT-LVAR-P DERIVE-NODE-TYPE IMMEDIATELY-USED-P IR2-CONVERT-FULL-CALL LVAR-DERIVED-TYPE LVAR-SOURCE LVAR-TYPE LVAR-VALUE MAIN-ENTRY
; 
; compilation unit finished
;   caught 23 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ctype.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/disassem.lisp" (written 04 NOV 2005 02:18:10 PM):
; compiling (IN-PACKAGE "SB!DISASSEM")
; compiling (DEF!CONSTANT LABEL-COLUMN-WIDTH ...)
; compiling (DEFTYPE TEXT-WIDTH ...)
; compiling (DEFTYPE ALIGNMENT ...)
; compiling (DEFTYPE OFFSET ...)
; compiling (DEFTYPE ADDRESS ...)
; compiling (DEFTYPE DISASSEM-LENGTH ...)
; compiling (DEFTYPE COLUMN ...)
; compiling (DEF!CONSTANT MAX-FILTERED-VALUE-INDEX ...)
; compiling (DEFTYPE FILTERED-VALUE-INDEX ...)
; compiling (DEFTYPE FILTERED-VALUE-VECTOR ...)
; compiling (DEFVAR *DISASSEM-INSTS* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *DISASSEM-INST-SPACE* ...)
; compiling (DEFVAR *DISASSEM-INST-ALIGNMENT-BYTES* ...)
; compiling (DECLAIM (TYPE ALIGNMENT ...))
; compiling (DEFVAR *DISASSEM-LOCATION-COLUMN-WIDTH* ...)
; compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; compiling (DEFVAR *DISASSEM-OPCODE-COLUMN-WIDTH* ...)
; compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; compiling (DEFVAR *DISASSEM-INST-COLUMN-WIDTH* ...)
; compiling (DECLAIM (TYPE TEXT-WIDTH ...))
; compiling (DEFVAR *DISASSEM-NOTE-COLUMN* ...)
; compiling (DEFSTRUCT (FUN-CACHE #) ...)
; compiling (DEFVAR *DISASSEM-FUN-CACHE* ...)
; compiling (DECLAIM (TYPE FUN-CACHE ...))
; compiling (DECLAIM (INLINE DCHUNK-OR ...))
; compiling (DEF!CONSTANT DCHUNK-BITS ...)
; compiling (DEFTYPE DCHUNK ...)
; compiling (DEFTYPE DCHUNK-INDEX ...)
; compiling (DEF!CONSTANT DCHUNK-ZERO ...)
; compiling (DEF!CONSTANT DCHUNK-ONE ...)
; compiling (DEFUN DCHUNK-EXTRACT ...)
; compiling (DEFMACRO DCHUNK-COPY ...)
; compiling (DEFUN DCHUNK-OR ...)
; compiling (DEFUN DCHUNK-AND ...)
; compiling (DEFUN DCHUNK-CLEAR ...)
; compiling (DEFUN DCHUNK-NOT ...)
; compiling (DEFMACRO DCHUNK-ANDF ...)
; compiling (DEFMACRO DCHUNK-ORF ...)
; compiling (DEFMACRO DCHUNK-CLEARF ...)
; compiling (DEFUN DCHUNK-MAKE-MASK ...)
; compiling (DEFUN DCHUNK-MAKE-FIELD ...)
; compiling (DEFMACRO MAKE-DCHUNK ...)
; compiling (DEFUN SAP-REF-DCHUNK ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/disassem.lisp
; in: DEFUN SAP-REF-DCHUNK
;     (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN)
; ==>
;   SB!DISASSEM::BYTE-ORDER
; 
; note: deleting unreachable code

;     (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET)
; ==>
;   SB!DISASSEM::SAP
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (DEFUN SB!DISASSEM:SAP-REF-DCHUNK
;            (SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET SB!DISASSEM::BYTE-ORDER)
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::SAP)
;        (TYPE SB!DISASSEM::OFFSET SB!DISASSEM::BYTE-OFFSET)
;        (OPTIMIZE (SPEED 3) (SAFETY 0)))
;       (THE SB!DISASSEM:DCHUNK
;            (ECASE SB!DISASSEM::DCHUNK-BITS (32 (IF # # #)) (64 (IF # # #)))))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!DISASSEM:SAP-REF-DCHUNK
;                     (LAMBDA
;                         (SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET
;                          SB!DISASSEM::BYTE-ORDER)
;                       (DECLARE
;                        (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::SAP)
;                        (TYPE SB!DISASSEM::OFFSET SB!DISASSEM::BYTE-OFFSET)
;                        (OPTIMIZE (SPEED 3) (SAFETY 0)))
;                       (BLOCK SB!DISASSEM:SAP-REF-DCHUNK
;                         (THE SB!DISASSEM:DCHUNK
;                              (ECASE SB!DISASSEM::DCHUNK-BITS # #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; 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: /Users/nikodemus/src/sbcl/src/compiler/disassem.lisp
; in: DEFSTRUCT INST-SPACE
;     (DEFSTRUCT
;         (SB!DISASSEM::INST-SPACE (:CONC-NAME SB!DISASSEM::ISPACE-) (:COPIER NIL))
;       (SB!DISASSEM::VALID-MASK SB!DISASSEM::DCHUNK-ZERO :TYPE SB!DISASSEM:DCHUNK)
;       (SB!DISASSEM::CHOICES NIL :TYPE LIST))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!DISASSEM::INST-SPACE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFSTRUCT INSTRUCTION
;     (DEFSTRUCT
;         (SB!DISASSEM:INSTRUCTION (:CONC-NAME SB!DISASSEM::INST-)
;          (:CONSTRUCTOR SB!DISASSEM::MAKE-INSTRUCTION
;           (SB!DISASSEM::NAME SB!DISASSEM::FORMAT-NAME SB!DISASSEM::PRINT-NAME
;            LENGTH SB!DISASSEM::MASK SB!DISASSEM::ID SB!DISASSEM::PRINTER
;            SB!DISASSEM::LABELLER SB!DISASSEM::PREFILTER SB!DISASSEM::CONTROL))
;          (:COPIER NIL))
;       (SB!DISASSEM::NAME NIL :TYPE (OR SYMBOL STRING))
;       (SB!DISASSEM::FORMAT-NAME NIL :TYPE (OR SYMBOL STRING))
;       (SB!DISASSEM::MASK SB!DISASSEM::DCHUNK-ZERO :TYPE SB!DISASSEM:DCHUNK)
;       (SB!DISASSEM::ID SB!DISASSEM::DCHUNK-ZERO :TYPE SB!DISASSEM:DCHUNK)
;       (LENGTH 0 :TYPE SB!DISASSEM::DISASSEM-LENGTH)
;       (SB!DISASSEM::PRINT-NAME NIL :TYPE SYMBOL)
;       (SB!DISASSEM::PREFILTER NIL :TYPE (OR NULL FUNCTION))
;       (SB!DISASSEM::LABELLER NIL :TYPE (OR NULL FUNCTION))
;       (SB!DISASSEM::PRINTER (SB!INT:MISSING-ARG) :TYPE (OR NULL FUNCTION))
;       (SB!DISASSEM::CONTROL NIL :TYPE (OR NULL FUNCTION))
;       ...)
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!DISASSEM:INSTRUCTION
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFSTRUCT FUN-CACHE
;     (DEFSTRUCT (SB!DISASSEM::FUN-CACHE (:COPIER NIL))
;       (SB!DISASSEM::PRINTERS NIL :TYPE LIST)
;       (SB!DISASSEM::LABELLERS NIL :TYPE LIST)
;       (SB!DISASSEM::PREFILTERS NIL :TYPE LIST))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!DISASSEM::FUN-CACHE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   8 more uses of undefined function SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED


; file: /Users/nikodemus/src/sbcl/src/compiler/disassem.lisp
; in: DEFUN FIND-PRINTER-FUN
;     (CONCATENATE 'STRING (STRING SB!DISASSEM::%NAME) "-"
;                  (SYMBOL-NAME SB!DISASSEM::%FORMAT-NAME) "-PRINTER")
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + + + + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-1629 (#:G1572)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G1572)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-1629))
;     (ETYPECASE #:G1572
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-1629 (THE # #:G1572)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-1629 (THE SEQUENCE #:G1572)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH.
;           (+ (SB!IMPL::STRING-DISPATCH # #:G1572 # #) 1
;              (SB!IMPL::STRING-DISPATCH # #:G1574 # #) 8))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G1572
;      (REPLACE SB!C::.STRING. #:G1572 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G1572)))
;     (PROGN (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-) (INCF SB!C::.POS.))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G1574
;      (REPLACE SB!C::.STRING. #:G1574 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G1574)))
;     (PROGN
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\P)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\R)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\I)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\N)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\T)
;      ...)
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   20 more uses of undefined type COMPILER-NOTE


; file: /Users/nikodemus/src/sbcl/src/compiler/disassem.lisp
; in: DEFUN READ-SIGNED-SUFFIX
;     (SB!DISASSEM:READ-SUFFIX LENGTH SB!DISASSEM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: READ-SUFFIX

; in: DEFUN DSTATE-NEXT-ADDR
;     (SB!DISASSEM:SEG-VIRTUAL-LOCATION
;      (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE))
; 
; caught STYLE-WARNING:
;   undefined function: SEG-VIRTUAL-LOCATION

; in: DEFUN DSTATE-CUR-ADDR
;     (SB!DISASSEM:SEG-VIRTUAL-LOCATION
;      (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE))
; 
; caught STYLE-WARNING:
;   undefined function: SEG-VIRTUAL-LOCATION

; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT

; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT

; 
; caught STYLE-WARNING:
;   undefined type: SEGMENT

; 
; caught STYLE-WARNING:
;   376 more uses of undefined type SEGMENT

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED READ-SUFFIX SEG-VIRTUAL-LOCATION

; 
; caught STYLE-WARNING:
;   These types are undefined:
;     COMPILER-NOTE SEGMENT
; 
; compilation unit finished
;   caught 17 STYLE-WARNING conditions
;   printed 4 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/disassem.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/assem.lisp" (written 17 MAR 2007 11:25:00 PM):
; compiling (IN-PACKAGE "SB!ASSEM")
; compiling (DEFVAR *ASSEM-SCHEDULER-P* ...)
; compiling (DECLAIM (TYPE BOOLEAN ...))
; compiling (DEFVAR *ASSEM-INSTRUCTIONS* ...)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFVAR *ASSEM-MAX-LOCATIONS* ...)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFSTRUCT (SEGMENT #) ...)
; compiling (DEFPRINTER (SEGMENT) ...)
; compiling (DECLAIM (INLINE SEGMENT-CURRENT-INDEX))
; compiling (DEFUN SEGMENT-CURRENT-INDEX ...)
; compiling (DEFUN (SETF SEGMENT-CURRENT-INDEX) ...)
; compiling (DEFMACRO WITH-MODIFIED-SEGMENT-INDEX-AND-POSN ...)
; compiling (!DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ...)
; compiling (DEF!STRUCT (INSTRUCTION # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFMACRO WITHOUT-SCHEDULING ...)
; compiling (DEFMACRO NOTE-DEPENDENCIES ...)
; compiling (DEFUN NOTE-READ-DEPENDENCY ...)
; compiling (DEFUN NOTE-WRITE-DEPENDENCY ...)
; compiling (DEFUN QUEUE-INST ...)
; compiling (DEFUN SCHEDULE-PENDING-INSTRUCTIONS ...)
; compiling (DEFUN ADD-TO-NTH-LIST ...)
; compiling (DEFUN SCHEDULE-ONE-INST ...)
; compiling (DEFUN NOTE-RESOLVED-DEPENDENCIES ...)
; compiling (DEFUN ADVANCE-ONE-INST ...)
; compiling (DEFUN INSERT-EMITTABLE-INST ...)
; compiling (DEF!STRUCT (ANNOTATION # ...) ...)
; compiling (DEF!STRUCT (LABEL # ...))
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!STRUCT (ALIGNMENT-NOTE # ...) ...)
; compiling (DEF!STRUCT (BACK-PATCH # ...) ...)
; compiling (DEF!STRUCT (CHOOSER # ...) ...)
; compiling (DEF!STRUCT (FILLER # ...) ...)
; compiling (DEFUN EMIT-BYTE ...)
; compiling (DEFUN EMIT-SKIP ...)
; compiling (DEFUN EMIT-ANNOTATION ...)
; compiling (DEFUN EMIT-BACK-PATCH ...)
; compiling (DEFUN EMIT-CHOOSER ...)
; compiling (DEFUN ADJUST-ALIGNMENT-AFTER-CHOOSER ...)
; compiling (DEFUN EMIT-FILLER ...)
; compiling (DEFUN %EMIT-LABEL ...)
; compiling (DEFUN EMIT-ALIGNMENT ...)
; compiling (DEFUN FIND-ALIGNMENT ...)
; compiling (DEFUN %EMIT-POSTIT ...)
; compiling (DEFUN COMPRESS-OUTPUT ...)
; compiling (DEFUN FINALIZE-POSITIONS ...)
; compiling (DEFUN PROCESS-BACK-PATCHES ...)
; compiling (DEFMACRO %%CURRENT-SEGMENT%% ...)
; compiling (DEFVAR **CURRENT-SEGMENT**)
; compiling (DEFMACRO %%CURRENT-VOP%% ...)
; compiling (DEFVAR **CURRENT-VOP** ...)
; compiling (DEF!MACRO ASSEMBLE ...)
; compiling (DEFMACRO INST ...)
; compiling (DEFMACRO EMIT-LABEL ...)
; compiling (DEFMACRO EMIT-POSTIT ...)
; compiling (DEFMACRO ALIGN ...)
; compiling (DEFUN LABEL-POSITION ...)
; compiling (DEFUN APPEND-SEGMENT ...)
; compiling (DEFUN FINALIZE-SEGMENT ...)
; compiling (DEFUN ON-SEGMENT-CONTENTS-VECTORLY ...)
; compiling (DEFUN WRITE-SEGMENT-CONTENTS ...)
; compiling (DEFMACRO DEFINE-BITFIELD-EMITTER ...)
; compiling (DEFUN GROVEL-LAMBDA-LIST ...)
; compiling (DEFUN EXTRACT-NTHS ...)
; compiling (DEFMACRO DEFINE-INSTRUCTION ...)
; compiling (DEFMACRO DEFINE-INSTRUCTION-MACRO ...)
; compiling (DEFUN %DEFINE-INSTRUCTION ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/assem.lisp
; in: DEF!STRUCT (ANNOTATION (:CONSTRUCTOR NIL) (:COPIER NIL))
;     (SB!INT:DEF!STRUCT (SB!ASSEM::ANNOTATION (:CONSTRUCTOR NIL) (:COPIER NIL))
;                        (SB!INT:INDEX 0 :TYPE SB!INT:INDEX)
;                        (SB!ASSEM::POSN NIL :TYPE (OR SB!INT:INDEX NULL)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ASSEM::ANNOTATION
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in:
;      DEF!STRUCT (INSTRUCTION (:INCLUDE SSET-ELEMENT) (:CONC-NAME INST-)
;              (:CONSTRUCTOR MAKE-INSTRUCTION (NUMBER EMITTER ATTRIBUTES DELAY))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!ASSEM::INSTRUCTION (:INCLUDE SB!ASSEM:SSET-ELEMENT)
;       (:CONC-NAME SB!ASSEM::INST-)
;       (:CONSTRUCTOR SB!ASSEM::MAKE-INSTRUCTION
;        (NUMBER SB!ASSEM::EMITTER SB!ASSEM::ATTRIBUTES SB!INT:DELAY))
;       (:COPIER NIL))
;      (SB!ASSEM::EMITTER (SB!INT:MISSING-ARG) :TYPE (OR NULL FUNCTION))
;      (SB!ASSEM::ATTRIBUTES (SB!ASSEM::INSTRUCTION-ATTRIBUTES) :TYPE
;       SB!C:ATTRIBUTES)
;      (SB!INT:DELAY 0 :TYPE (AND FIXNUM UNSIGNED-BYTE))
;      (SB!ASSEM::DEPTH NIL :TYPE (OR NULL (AND FIXNUM UNSIGNED-BYTE)))
;      (SB!ASSEM::READ-DEPENDENCIES (SB!ASSEM:MAKE-SSET) :TYPE SB!ASSEM:SSET)
;      (SB!ASSEM::WRITE-DEPENDENCIES (SB!ASSEM:MAKE-SSET) :TYPE SB!ASSEM:SSET)
;      (SB!ASSEM::WRITE-DEPENDENTS (SB!ASSEM:MAKE-SSET) :TYPE SB!ASSEM:SSET)
;      (SB!ASSEM::READ-DEPENDENTS (SB!ASSEM:MAKE-SSET) :TYPE SB!ASSEM:SSET))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ASSEM::INSTRUCTION
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFSTRUCT SEGMENT
;     (DEFSTRUCT (SB!ASSEM:SEGMENT (:COPIER NIL))
;       (SB!ASSEM::NAME "unnamed" :TYPE SIMPLE-STRING)
;       (SB!ASSEM::BUFFER (MAKE-ARRAY 0 :ELEMENT-TYPE 'SB!ASSEM:ASSEMBLY-UNIT)
;        :TYPE (OR NULL (SIMPLE-ARRAY SB!ASSEM:ASSEMBLY-UNIT)))
;       (SB!ASSEM::RUN-SCHEDULER NIL)
;       (SB!ASSEM::INST-HOOK NIL :TYPE (OR FUNCTION NULL))
;       (SB!ASSEM::CURRENT-POSN 0 :TYPE SB!INT:INDEX)
;       (SB!ASSEM::%CURRENT-INDEX 0 :TYPE SB!INT:INDEX)
;       (SB!ASSEM::ANNOTATIONS NIL :TYPE LIST)
;       (SB!ASSEM::LAST-ANNOTATION NIL :TYPE LIST)
;       (SB!ASSEM::ALIGNMENT SB!ASSEM::MAX-ALIGNMENT :TYPE SB!ASSEM::ALIGNMENT)
;       (SB!ASSEM::SYNC-POSN 0 :TYPE SB!INT:INDEX)
;       ...)
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!ASSEM:SEGMENT
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   5 more uses of undefined function SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED


; file: /Users/nikodemus/src/sbcl/src/compiler/assem.lisp
; in: !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!ASSEM::INSTRUCTION SB!ASSEM:FLUSHABLE
;                                    SB!ASSEM:BRANCH SB!ASSEM:VARIABLE-LENGTH)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::ASSIGN-SETF-MACRO 
; ==>
;   (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ASSEM::INSTRUCTION-ATTRIBUTEP
;                               (LAMBDA (#:WHOLE430 #:ENVIRONMENT431)
;                                 (LET* ()
;                                   (LET (#)
;                                     (UNLESS # #))
;                                   (LET* (# # #)
;                                     (BLOCK SB!ASSEM::INSTRUCTION-ATTRIBUTEP
;                                       #))))
;                               NIL
;                               '"Automagically generated boolean attribute setter. See
;  !DEF-BOOLEAN-ATTRIBUTE.")
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::ASSIGN-SETF-MACRO

; in: DEFMACRO DEFINE-INSTRUCTION
;     (CONCATENATE 'STRING "EMIT-" SB!ASSEM::SYM-NAME "-INST-")
; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION LET* + + + SB!IMPL::STRING-DISPATCH 
; ==>
;   (FLET ((#:STRING-DISPATCH-FUN-2338 (#:G2277)
;            (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;            (LENGTH #:G2277)))
;     (DECLARE (INLINE #:STRING-DISPATCH-FUN-2338))
;     (ETYPECASE #:G2277
;       ((SIMPLE-ARRAY * (*)) (#:STRING-DISPATCH-FUN-2338 (THE # #:G2277)))
;       (SEQUENCE (#:STRING-DISPATCH-FUN-2338 (THE SEQUENCE #:G2277)))))
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; --> APPLY MULTIPLE-VALUE-CALL SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; --> FUNCTION 
; ==>
;   (LET* ((SB!C::.LENGTH. (+ 5 (SB!IMPL::STRING-DISPATCH # #:G2277 # #) 6))
;          (SB!C::.POS. 0)
;          (SB!C::.STRING. (MAKE-STRING SB!C::.LENGTH. :ELEMENT-TYPE 'CHARACTER)))
;     (DECLARE (TYPE SB!INT:INDEX SB!C::.LENGTH. SB!C::.POS.)
;      (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE))
;     (PROGN
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\E)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\M)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\I)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\T)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-)
;      (INCF SB!C::.POS.))
;     (SB!IMPL::STRING-DISPATCH
;      ((SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY BASE-CHAR (*)) T) #:G2277
;      (REPLACE SB!C::.STRING. #:G2277 :START1 SB!C::.POS.)
;      (INCF SB!C::.POS. (LENGTH #:G2277)))
;     (PROGN
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\I)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\N)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\S)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\T)
;      (INCF SB!C::.POS.)
;      (SETF (AREF SB!C::.STRING. SB!C::.POS.) #\-)
;      ...)
;     SB!C::.STRING.)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-NOTE

; 
; caught STYLE-WARNING:
;   2 more uses of undefined type COMPILER-NOTE


; file: /Users/nikodemus/src/sbcl/src/compiler/assem.lisp
; in: !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION
;     (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!ASSEM::INSTRUCTION SB!ASSEM:FLUSHABLE
;                                    SB!ASSEM:BRANCH SB!ASSEM:VARIABLE-LENGTH)
; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN 
; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION 
; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:GET-SETF-EXPANSION

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!IMPL::ASSIGN-SETF-MACRO SB-XC:GET-SETF-EXPANSION

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-NOTE
; 
; compilation unit finished
;   caught 12 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/assem.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/trace-table.lisp" (written 19 MAY 2002 04: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/trace-table.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/dump.lisp" (written 05 JUN 2008 11:47:40 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 OPEN-FASL-OUTPUT ...)
; compiling (DEFUN CLOSE-FASL-OUTPUT ...)
; compiling (DEFUN DUMP-NON-IMMEDIATE-OBJECT ...)
; compiling (DEFUN SUB-DUMP-OBJECT ...)
; compiling (DEFUN DUMP-CIRCULARITIES ...)
; compiling (DEFUN DUMP-OBJECT ...)
; compiling (DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA ...)
; compiling (DEFUN FASL-CONSTANT-ALREADY-DUMPED-P ...)
; compiling (DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT ...)
; compiling (DEFUN FASL-VALIDATE-STRUCTURE ...)
; compiling (DEFUN DUMP-RATIO ...)
; compiling (DEFUN DUMP-INTEGER ...)
; compiling (DEFUN DUMP-FLOAT ...)
; compiling (DEFUN DUMP-COMPLEX ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DUMP-PACKAGE ...)
; compiling (DEFUN DUMP-LIST ...)
; compiling (DEFUN TERMINATE-DOTTED-LIST ...)
; compiling (DEFUN TERMINATE-UNDOTTED-LIST ...)
; compiling (DEFUN DUMP-ARRAY ...)
; compiling (DEFUN DUMP-VECTOR ...)
; compiling (DEFUN DUMP-SIMPLE-VECTOR ...)
; compiling (DEFUN OCTET-SWAP ...)
; compiling (DEFUN DUMP-I-VECTOR ...)
; compiling (DEFUN DUMP-CHARACTER ...)
; compiling (DEFUN DUMP-BASE-CHARS-OF-STRING ...)
; compiling (DEFUN DUMP-SIMPLE-BASE-STRING ...)
; compiling (DEFUN DUMP-SYMBOL ...)
; compiling (DEFUN DUMP-SEGMENT ...)
; compiling (DEFUN DUMP-FIXUPS ...)
; compiling (DEFUN DUMP-CODE-OBJECT ...)
; compiling (DEFUN DUMP-ASSEMBLER-ROUTINES ...)
; compiling (DEFUN DUMP-ONE-ENTRY ...)
; compiling (DEFUN DUMP-ALTER-CODE-OBJECT ...)
; compiling (DEFUN FASL-DUMP-COMPONENT ...)
; compiling (DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN ...)
; compiling (DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL ...)
; compiling (DEFUN FASL-DUMP-SOURCE-INFO ...)
; compiling (DEFUN DUMP-STRUCTURE ...)
; compiling (DEFUN DUMP-LAYOUT ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/dump.lisp
; in: DEFSTRUCT CIRCULARITY
;     (DEFSTRUCT (SB!FASL::CIRCULARITY (:COPIER NIL))
;       (TYPE (SB!INT:MISSING-ARG) :TYPE
;        (MEMBER :RPLACA :RPLACD :SVSET :STRUCT-SET))
;       SB!FASL::OBJECT
;       (SB!INT:INDEX (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX)
;       SB!FASL::VALUE
;       SB!FASL::ENCLOSING-OBJECT)
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!FASL::CIRCULARITY
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFSTRUCT FASL-OUTPUT
;     (DEFSTRUCT
;         (SB!FASL:FASL-OUTPUT
;          (:PRINT-OBJECT
;           (LAMBDA (SB!FASL::X SB!FASL::S) (PRINT-UNREADABLE-OBJECT # #)))
;          (:COPIER NIL))
;       (STREAM (SB!INT:MISSING-ARG) :TYPE STREAM)
;       (SB!FASL::EQUAL-TABLE (MAKE-HASH-TABLE :TEST 'EQUAL) :TYPE HASH-TABLE)
;       (SB!FASL::EQ-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE)
;       (SB!FASL::TABLE-FREE 0 :TYPE SB!INT:INDEX)
;       (SB!FASL::PACKAGES NIL :TYPE LIST)
;       (SB!FASL::ENTRY-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE)
;       (SB!FASL::PATCH-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE)
;       (SB!FASL::DEBUG-INFO NIL :TYPE LIST)
;       (SB!FASL::CIRCULARITY-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE)
;       (SB!FASL::VALID-STRUCTURES (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!FASL:FASL-OUTPUT
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN DUMP-CODE-OBJECT
;     (SB!C::DEBUG-INFO-FOR-COMPONENT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::DEBUG-INFO-FOR-COMPONENT

; in: DEFUN FASL-DUMP-SOURCE-INFO
;     (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::DEBUG-SOURCE-FOR-INFO

; in: DEFUN DUMP-SYMBOL
;     (SB!FASL::DUMP-CHARACTERS-OF-STRING SB!FASL::PNAME SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-CHARACTERS-OF-STRING

; in: DEFUN DUMP-VECTOR
;     (SB!FASL::DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION
;      SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR

;     (SB!FASL::DUMP-COMPLEX-SINGLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION
;      SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-COMPLEX-SINGLE-FLOAT-VECTOR

;     (SB!FASL::DUMP-DOUBLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-DOUBLE-FLOAT-VECTOR

; in: DEFUN DUMP-ARRAY
;     (SB!FASL::DUMP-MULTI-DIM-ARRAY SB!FASL::X SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-MULTI-DIM-ARRAY

; in: DEFUN DUMP-I-VECTOR
;     (SB!FASL::DUMP-RAW-BYTES SB!FASL::VEC SB!SYS:BYTES SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-RAW-BYTES

; in: DEFUN DUMP-VECTOR
;     (SB!FASL::DUMP-SIMPLE-CHARACTER-STRING SB!FASL::SIMPLE-VERSION SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-SIMPLE-CHARACTER-STRING

; in: DEFUN DUMP-PACKAGE
;     (SB!FASL::DUMP-SIMPLE-CHARACTER-STRING
;      (COERCE (PACKAGE-NAME SB!FASL::PKG) '(SIMPLE-ARRAY CHARACTER (*)))
;      SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-SIMPLE-CHARACTER-STRING

; in: DEFUN DUMP-VECTOR
;     (SB!FASL::DUMP-SINGLE-FLOAT-VECTOR SB!FASL::SIMPLE-VERSION SB!FASL::FILE)
; 
; caught STYLE-WARNING:
;   undefined function: DUMP-SINGLE-FLOAT-VECTOR

; in: DEFUN DUMP-FIXUPS
;     (SB!C:FIXUP-FLAVOR SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-FLAVOR

;     (SB!C:FIXUP-NAME SB!C:FIXUP)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NAME

;     (SB!C:FIXUP-NOTE-FIXUP SB!FASL::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-FIXUP

;     (SB!C:FIXUP-NOTE-KIND SB!FASL::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-KIND

;     (SB!C:FIXUP-NOTE-POSITION SB!FASL::NOTE)
; 
; caught STYLE-WARNING:
;   undefined function: FIXUP-NOTE-POSITION

; in: DEFUN OPEN-FASL-OUTPUT
;     (SB!INT:FORMAT-UNIVERSAL-TIME NIL (GET-UNIVERSAL-TIME))
; 
; caught STYLE-WARNING:
;   undefined function: FORMAT-UNIVERSAL-TIME

;     (SB!EXT:STRING-TO-OCTETS STRING :EXTERNAL-FORMAT :UTF-8)
; 
; caught STYLE-WARNING:
;   undefined function: STRING-TO-OCTETS

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!C::DEBUG-INFO-FOR-COMPONENT SB!C::DEBUG-SOURCE-FOR-INFO DUMP-CHARACTERS-OF-STRING DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR DUMP-COMPLEX-SINGLE-FLOAT-VECTOR DUMP-DOUBLE-FLOAT-VECTOR DUMP-MULTI-DIM-ARRAY DUMP-RAW-BYTES DUMP-SIMPLE-CHARACTER-STRING DUMP-SINGLE-FLOAT-VECTOR FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION FORMAT-UNIVERSAL-TIME STRING-TO-OCTETS
; 
; compilation unit finished
;   caught 21 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/dump.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/main.lisp" (written 03 JUL 2008 10:24:50 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *CONSTANTS* ...))
; compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-FUNCTION* ...)
; compiling (DEFVAR *CHECK-CONSISTENCY* ...)
; compiling (DEFVAR *LOOP-ANALYZE* ...)
; compiling (DEFVAR *COMPILER-TRACE-OUTPUT* ...)
; compiling (DEFVAR *BLOCK-COMPILE*)
; compiling (DEFVAR *BLOCK-COMPILE-ARG*)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *ENTRY-POINTS*)
; compiling (DECLAIM (LIST *ENTRY-POINTS*))
; compiling (DEFVAR *TOPLEVEL-LAMBDAS*)
; compiling (DECLAIM (LIST *TOPLEVEL-LAMBDAS*))
; compiling (DEFVAR *TOP-LEVEL-FORM-NOTED* ...)
; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE* ...)
; compiling (DEFVAR SB-XC:*COMPILE-PRINT* ...)
; compiling (DEFVAR *COMPILE-PROGRESS* ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME* ...)
; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *SOURCE-INFO* ...)
; compiling (DEFVAR *IN-COMPILATION-UNIT* ...)
; compiling (DEFVAR *ABORTED-COMPILATION-UNIT-COUNT*)
; compiling (DEFUN MAYBE-MUMBLE ...)
; compiling (DEFTYPE OBJECT ...)
; compiling (DEFVAR *COMPILE-OBJECT* ...)
; compiling (DECLAIM (TYPE OBJECT ...))
; compiling (DEFVAR *FOPCOMPILE-LABEL-COUNTER*)
; compiling (DEFVAR *CODE-COVERAGE-RECORDS* ...)
; compiling (DEFVAR *CODE-COVERAGE-BLOCKS* ...)
; compiling (DEFVAR *CODE-COVERAGE-INFO* ...)
; compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...)
; compiling (DEFVAR *SOURCE-PLIST* ...)
; compiling (DEFUN %WITH-COMPILATION-UNIT ...)
; compiling (DEFUN FUN-NAME-RESERVED-BY-ANSI-P ...)
; compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...)
; compiling (DEFMACRO WITH-COMPILATION-VALUES ...)
; compiling (DEFPARAMETER *MAX-OPTIMIZE-ITERATIONS* ...)
; compiling (DEFEVENT IR1-OPTIMIZE-UNTIL-DONE ...)
; compiling (DEFEVENT IR1-OPTIMIZE-MAXED-OUT ...)
; compiling (DEFUN IR1-OPTIMIZE-UNTIL-DONE ...)
; compiling (DEFPARAMETER *CONSTRAINT-PROPAGATE* ...)
; compiling (DEFPARAMETER *REOPTIMIZE-AFTER-TYPE-CHECK-MAX* ...)
; compiling (DEFEVENT REOPTIMIZE-MAXED-OUT ...)
; compiling (DEFUN DFO-AS-NEEDED ...)
; compiling (DEFUN IR1-PHASES ...)
; compiling (DEFUN %COMPILE-COMPONENT ...)
; compiling (DEFUN DELETE-IF-NO-ENTRIES ...)
; compiling (DEFUN COMPILE-COMPONENT ...)
; compiling (DEFUN CLEAR-CONSTANT-INFO ...)
; compiling (DEFUN CLEAR-IR1-INFO ...)
; compiling (DEFUN CLEAR-STUFF ...)
; compiling (DEFUN DESCRIBE-COMPONENT ...)
; compiling (DEFUN DESCRIBE-IR2-COMPONENT ...)
; compiling (DEF!STRUCT (FILE-INFO # ...) ...)
; compiling (DEF!STRUCT (SOURCE-INFO # ...) ...)
; compiling (DEFUN MAKE-FILE-SOURCE-INFO ...)
; compiling (DEFUN MAKE-LISP-SOURCE-INFO ...)
; compiling (DEFUN GET-TOPLEVELISH-FILE-INFO ...)
; compiling (DEFUN READ-FOR-COMPILE-FILE ...)
; compiling (DEFUN GET-SOURCE-STREAM ...)
; compiling (DEFUN CLOSE-SOURCE-INFO ...)
; compiling (DEFMACRO DO-FORMS-FROM-INFO ...)
; compiling (DEFUN SUB-SUB-COMPILE-FILE ...)
; compiling (DEFUN FIND-SOURCE-ROOT ...)
; compiling (DEFUN CONVERT-AND-MAYBE-COMPILE ...)
; compiling (DEFUN PREPROCESSOR-MACROEXPAND-1 ...)
; compiling (DEFUN PROCESS-TOPLEVEL-PROGN ...)
; compiling (DEFUN PROCESS-TOPLEVEL-LOCALLY ...)
; compiling (DEFUN PARSE-EVAL-WHEN-SITUATIONS ...)
; compiling (DEFUN FUNCTIONAL-COMPONENTS ...)
; compiling (DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ...)
; compiling (DEFUN %COMPILE ...)
; compiling (DEFUN PROCESS-TOPLEVEL-COLD-FSET ...)
; compiling (DEFUN NOTE-TOP-LEVEL-FORM ...)
; compiling (DEFUN PROCESS-TOPLEVEL-FORM ...)
; compiling (DEFUN PRODUCING-FASL-FILE ...)
; compiling (DEFUN COMPILE-LOAD-TIME-VALUE ...)
; compiling (DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS ...)
; compiling (DEFUN COMPILE-LOAD-TIME-STUFF ...)
; compiling (DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ...)
; compiling (DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA ...)
; compiling (DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ...)
; compiling (DEFUN COMPILE-TOPLEVEL-LAMBDAS ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/main.lisp
; in: DEFUN COMPILE-TOPLEVEL-LAMBDAS
;     (POSITION-IF (LAMBDA (SB!C::X) (NOT (EQ (SB!C::COMPONENT-KIND #) :TOPLEVEL)))
;                  SB!C::LAMBDAS :START (MIN SB!C::START SB!C::LEN))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> SB!KERNEL:%FIND-POSITION-IF LET DOLIST BLOCK LET IF 
; --> SB!INT:SEQUENCE-BOUNDING-INDICES-BAD-ERROR 
; ==>
;   SB!C::START
; 
; note: deleting unreachable code

; compiling (DEFUN COMPILE-TOPLEVEL ...)
; compiling (DEFUN FINISH-BLOCK-COMPILATION ...)
; compiling (DEFUN HANDLE-CONDITION-P ...)
; compiling (DEFUN HANDLE-CONDITION-HANDLER ...)
; compiling (DEFUN SUB-COMPILE-FILE ...)
; compiling (DEFUN VERIFY-SOURCE-FILE ...)
; compiling (DEFUN ELAPSED-TIME-TO-STRING ...)
; compiling (DEFUN PRINT-COMPILE-START-NOTE ...)
; compiling (DEFUN PRINT-COMPILE-END-NOTE ...)
; compiling (DEFUN SB-XC:COMPILE-FILE ...)
; compiling (DEFUN CFP-OUTPUT-FILE-DEFAULT ...)
; compiling (DEFUN SB-XC:COMPILE-FILE-PATHNAME ...)
; compiling (DEFVAR *CONSTANTS-BEING-CREATED* ...)
; compiling (DEFVAR *CONSTANTS-CREATED-SINCE-LAST-INIT* ...)
; compiling (DEFUN EMIT-MAKE-LOAD-FORM ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/main.lisp
; in: DEFUN IR1-PHASES
;     (SB!C::EVENT SB!C::REOPTIMIZE-MAXED-OUT)
; ==>
;   (SB!C::%EVENT SB!C::*REOPTIMIZE-MAXED-OUT-EVENT-INFO* NIL)
; 
; caught STYLE-WARNING:
;   undefined function: %EVENT

; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
;     (SB!C::EVENT SB!C::IR1-OPTIMIZE-UNTIL-DONE)
; ==>
;   (SB!C::%EVENT SB!C::*IR1-OPTIMIZE-UNTIL-DONE-EVENT-INFO* NIL)
; 
; caught STYLE-WARNING:
;   undefined function: %EVENT

; in:
;      DEF!STRUCT (SOURCE-INFO
;              (:PRINT-OBJECT (LAMBDA (S STREAM) (PRINT-UNREADABLE-OBJECT #)))
;              (:COPIER NIL))
;     (SB!INT:DEF!STRUCT
;      (SB!C::SOURCE-INFO
;       (:PRINT-OBJECT (LAMBDA (SB!C::S STREAM) (PRINT-UNREADABLE-OBJECT #)))
;       (:COPIER NIL))
;      (SB!C::START-TIME (GET-UNIVERSAL-TIME) :TYPE UNSIGNED-BYTE)
;      (SB!C::FILE-INFO NIL :TYPE (OR SB!C::FILE-INFO NULL))
;      (STREAM NIL :TYPE (OR STREAM NULL))
;      (SB!C::PARENT NIL :TYPE (OR SB!C::SOURCE-INFO NULL)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::SOURCE-INFO
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in:
;      DEF!STRUCT (FILE-INFO (:COPIER NIL)
;              (:PRINT-OBJECT (LAMBDA (S STREAM) (PRINT-UNREADABLE-OBJECT # #))))
;     (SB!INT:DEF!STRUCT
;      (SB!C::FILE-INFO (:COPIER NIL)
;       (:PRINT-OBJECT (LAMBDA (SB!C::S STREAM) (PRINT-UNREADABLE-OBJECT # #))))
;      (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE (OR PATHNAME (EQL :LISP)))
;      (SB!C::EXTERNAL-FORMAT NIL) (SB!C::UNTRUENAME NIL :TYPE (OR PATHNAME NULL))
;      (SB!C::WRITE-DATE NIL :TYPE (OR UNSIGNED-BYTE NULL))
;      (SB!C::SOURCE-ROOT 0 :TYPE UNSIGNED-BYTE)
;      (SB!C::FORMS (MAKE-ARRAY 10 :FILL-POINTER 0 :ADJUSTABLE T) :TYPE (VECTOR T))
;      (SB!C::POSITIONS (MAKE-ARRAY 10 :FILL-POINTER 0 :ADJUSTABLE T) :TYPE
;       (VECTOR T)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::FILE-INFO
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::CHECK-IR1-CONSISTENCY SB!C::ALL-COMPONENTS)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-IR1-CONSISTENCY

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::CHECK-IR2-CONSISTENCY SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-IR2-CONSISTENCY

;     (SB!C::CHECK-LIFE-CONSISTENCY SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-LIFE-CONSISTENCY

;     (SB!C::CHECK-PACK-CONSISTENCY SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CHECK-PACK-CONSISTENCY

; in: DEFUN HANDLE-CONDITION-P
;     (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT*
;       (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*))
;       (SB!C::COMPILER-ERROR-CONTEXT
;        (LET ((SB!KERNEL:LEXENV #))
;          (SB!INT:AVER SB!KERNEL:LEXENV)
;          SB!KERNEL:LEXENV))
;       (NULL SB!C:*LEXENV*))
; --> LET COND IF COND IF 
; ==>
;   (TYPEP #:G1265 'SB!C::COMPILER-ERROR-CONTEXT)
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT
; 
; caught STYLE-WARNING:
;   undefined type: COMPILER-ERROR-CONTEXT

; 
; caught STYLE-WARNING:
;   115 more uses of undefined type COMPILER-ERROR-CONTEXT


; file: /Users/nikodemus/src/sbcl/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)
;                                   (UNLESS
;                                       (ZEROP
;                                        (HASH-TABLE-COUNT
;                                         SB!C::*CODE-COVERAGE-RECORDS*))
;                                     (SB!C::FOPCOMPILE
;                                      (SB!IMPL::BACKQ-LIST
;                                       'SB!C::RECORD-CODE-COVERAGE # #)
;                                      NIL NIL))
;                                   (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 SB!IMPL::%HANDLER-BIND 
; --> SB!INT:DX-FLET FLET FLET 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 NIL)))
;        (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T)
;        LAMBDA))
; --> LET HANDLER-BIND SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET FLET 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: /Users/nikodemus/src/sbcl/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)
;                                   (UNLESS
;                                       (ZEROP
;                                        (HASH-TABLE-COUNT
;                                         SB!C::*CODE-COVERAGE-RECORDS*))
;                                     (SB!C::FOPCOMPILE
;                                      (SB!IMPL::BACKQ-LIST
;                                       'SB!C::RECORD-CODE-COVERAGE # #)
;                                      NIL NIL))
;                                   (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 SB!IMPL::%HANDLER-BIND 
; --> SB!INT:DX-FLET FLET FLET 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 NIL)))
;        (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T)
;        LAMBDA))
; --> LET HANDLER-BIND SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET FLET 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)
;                                   (UNLESS
;                                       (ZEROP
;                                        (HASH-TABLE-COUNT
;                                         SB!C::*CODE-COVERAGE-RECORDS*))
;                                     (SB!C::FOPCOMPILE
;                                      (SB!IMPL::BACKQ-LIST
;                                       'SB!C::RECORD-CODE-COVERAGE # #)
;                                      NIL NIL))
;                                   (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 SB!IMPL::%HANDLER-BIND 
; --> SB!INT:DX-FLET FLET FLET 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 NIL)))
;        (SB!C::COMPILE-TOPLEVEL (LIST LAMBDA) T)
;        LAMBDA))
; --> LET HANDLER-BIND SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET FLET LET CONS 
; --> LIST CONS 
; ==>
;   #'SB!C::COMPILER-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARNING-HANDLER

; in: DEFUN SUMMARIZE-COMPILATION-UNIT
;     #'SB!C::COMPILER-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARNING-HANDLER

; in: DEFUN IR1-PHASES
;     (SB!C::CONSTRAINT-PROPAGATE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTRAINT-PROPAGATE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::CONTROL-ANALYZE SB!C:COMPONENT #'SB!C::MAKE-IR2-BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: CONTROL-ANALYZE

;     (SB!C::COPY-PROPAGATE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: COPY-PROPAGATE

; in: DEFUN DELETE-IF-NO-ENTRIES
;     (SB!C::DELETE-COMPONENT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: DELETE-COMPONENT

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::DELETE-UNREFERENCED-TNS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: DELETE-UNREFERENCED-TNS

;     (SB!DISASSEM:DISASSEMBLE-ASSEM-SEGMENT SB!C:*CODE-SEGMENT*
;      SB!C::*COMPILER-TRACE-OUTPUT*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:DISASSEMBLE-ASSEM-SEGMENT

;     (SB!C::ENTRY-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: ENTRY-ANALYZE

; in: DEFUN PROCESS-TOPLEVEL-FORM => DEFAULT-PROCESSOR (FORM)
;     (SB!INT:EVAL-IN-LEXENV SB!KERNEL:FORM SB!C:*LEXENV*)
; 
; caught STYLE-WARNING:
;   undefined function: EVAL-IN-LEXENV

; in: DEFUN PROCESS-TOPLEVEL-COLD-FSET
;     (SB!FASL:FASL-DUMP-COLD-FSET SB!C::NAME
;                                  (SB!C::%COMPILE SB!C::LAMBDA-EXPRESSION
;                                                  SB!C::*COMPILE-OBJECT* :NAME
;                                                  SB!C::NAME :PATH SB!C::PATH)
;                                  SB!C::*COMPILE-OBJECT*)
; 
; caught STYLE-WARNING:
;   undefined function: FASL-DUMP-COLD-FSET

; in: DEFUN DFO-AS-NEEDED
;     (SB!C::FIND-DFO SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-DFO

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::FIND-DOMINATORS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-DOMINATORS

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::FIND-INITIAL-DFO SB!C::LAMBDAS)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-INITIAL-DFO

; in: DEFUN %COMPILE
;     (SB!C::FIND-INITIAL-DFO (LIST SB!C::FUN))
; 
; caught STYLE-WARNING:
;   undefined function: FIND-INITIAL-DFO

; in: DEFUN SUB-SUB-COMPILE-FILE
;     (SB!C::FIND-SOURCE-PATHS SB!KERNEL:FORM SB!C::CURRENT-INDEX)
; 
; 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

; in: DEFUN SUB-COMPILE-FILE
;     (SB!C::FOPCOMPILE
;      (SB!IMPL::BACKQ-LIST 'SB!C::RECORD-CODE-COVERAGE
;                           (SB!IMPL::BACKQ-LIST 'QUOTE
;                                                (NAMESTRING
;                                                 *COMPILE-FILE-PATHNAME*))
;                           (SB!IMPL::BACKQ-LIST 'QUOTE
;                                                (LET (LIST)
;                                                  (MAPHASH #
;                                                           SB!C::*CODE-COVERAGE-RECORDS*)
;                                                  LIST)))
;      NIL NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FOPCOMPILE

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (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 PROCESS-TOPLEVEL-FORM
;     (SB!C::GET-SOURCE-PATH SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: GET-SOURCE-PATH

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::GTN-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: GTN-ANALYZE

;     (SB!C::INIT-ASSEMBLER)
; 
; caught STYLE-WARNING:
;   undefined function: INIT-ASSEMBLER

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::IR1-CONVERT-LAMBDA (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::LOCALL-FUN)
;                               :SOURCE-NAME SB!C::SOURCE-NAME :DEBUG-NAME
;                               (SB!C::DEBUG-NAME 'SB!C::TL-XEP
;                                                 SB!C::DEBUG-NAME-TAIL))
; 
; caught STYLE-WARNING:
;   undefined function: IR1-CONVERT-LAMBDA

;     (FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION :SOURCE-NAME
;              SB!C::SOURCE-NAME)
; ==>
;   (SB!C::%FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION
;    :SOURCE-NAME SB!C::SOURCE-NAME)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-CONVERT-LAMBDALIKE

; in: DEFUN IR1-PHASES
;     (SB!C::IR1-FINALIZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-FINALIZE

; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
;     (SB!C::IR1-OPTIMIZE SB!C:COMPONENT SB!C::FASTP)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-OPTIMIZE

; in: DEFUN COMPILE-LOAD-TIME-STUFF
;     (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* SB!C::FOR-VALUE NIL)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-TOPLEVEL

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::PATH NIL)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-TOPLEVEL

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C:IR2-CONVERT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: IR2-CONVERT

; in: DEFUN DESCRIBE-IR2-COMPONENT
;     (SB!C:LABEL-ID (SB!C::ENTRY-INFO-OFFSET SB!C::ENTRY))
; 
; caught STYLE-WARNING:
;   undefined function: LABEL-ID

; in: DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA
;     (SB!C::LAMBDA-COMPONENT LAMBDA)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN FUNCTIONAL-COMPONENTS
;     (SB!C::LAMBDA-COMPONENT SB!C::F)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::LAMBDA-COMPONENT LAMBDA)
; 
; caught STYLE-WARNING:
;   undefined function: LAMBDA-COMPONENT

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::LIFETIME-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LIFETIME-ANALYZE

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE SB!C::LAMBDAS)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE

; in: DEFUN %COMPILE
;     (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE (LIST SB!C::FUN))
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE

; in: DEFUN IR1-PHASES
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::LOOP-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LOOP-ANALYZE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::LTN-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: LTN-ANALYZE

;     (SB!C::MAKE-CORE-COMPONENT SB!C:COMPONENT SB!C:*CODE-SEGMENT*
;      SB!C::CODE-LENGTH SB!C::TRACE-TABLE SB!C::FIXUP-NOTES SB!C::*COMPILE-OBJECT*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-CORE-COMPONENT

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::MAKE-EMPTY-COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-EMPTY-COMPONENT

; in: DEFUN %COMPILE
;     (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS
;                        SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS
;                        SB!C::*DISABLED-PACKAGE-LOCKS*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::MAKE-LEXENV :POLICY
;                        (SB!C::LEXENV-POLICY
;                         (SB!C::FUNCTIONAL-LEXENV SB!C::LOCALL-FUN)))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN CONVERT-AND-MAYBE-COMPILE
;     (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS
;                        SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS
;                        SB!C::*DISABLED-PACKAGE-LOCKS*)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN EMIT-MAKE-LOAD-FORM
;     (SB-XC:MAKE-LOAD-FORM SB!KERNEL:CONSTANT (SB!KERNEL:MAKE-NULL-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:MAKE-LOAD-FORM

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::LOCALL-FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-XEP-LAMBDA-EXPRESSION

; in: DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS
;     (SB!C::MERGE-TOPLEVEL-LAMBDAS SB!C::LAMBDAS)
; 
; caught STYLE-WARNING:
;   undefined function: MERGE-TOPLEVEL-LAMBDAS

; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!C::LAMBDA-EXPRESSION)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN CLEAR-IR1-INFO
;     (SB!C::NODE-COMPONENT SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::NODE-COMPONENT (SB!C::LAMBDA-BIND LAMBDA))
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; in: DEFUN DELETE-IF-NO-ENTRIES
;     (SB!C::NODE-COMPONENT SB!C::REF)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-COMPONENT

; 
; caught STYLE-WARNING:
;   1 more use of undefined function NODE-COMPONENT


; file: /Users/nikodemus/src/sbcl/src/compiler/main.lisp
; in: DEFUN %WITH-COMPILATION-UNIT
;     (SB!C::NOTE-UNDEFINED-REFERENCE
;      (SB!KERNEL:PARSE-UNKNOWN-TYPE-SPECIFIER SB!C::C) :TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: NOTE-UNDEFINED-REFERENCE

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::PACK SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PACK

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::PHYSENV-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PHYSENV-ANALYZE

; in: DEFUN DESCRIBE-IR2-COMPONENT
;     (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*)
; 
; caught STYLE-WARNING:
;   undefined function: PRE-PACK-TN-STATS

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*)
; 
; caught STYLE-WARNING:
;   undefined function: PRE-PACK-TN-STATS

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::PRE-PHYSENV-ANALYZE-TOPLEVEL SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PRE-PHYSENV-ANALYZE-TOPLEVEL

; in: DEFUN DESCRIBE-COMPONENT
;     (SB!C::PRINT-ALL-BLOCKS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-ALL-BLOCKS

; in: DEFUN DESCRIBE-IR2-COMPONENT
;     (SB!C::PRINT-IR2-BLOCKS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-IR2-BLOCKS

; in: DEFUN PROCESS-TOPLEVEL-LOCALLY
;     (SB!C::PROCESS-DECLS SB!C::DECLS SB!C::VARS SB!C::FUNS)
; 
; caught STYLE-WARNING:
;   undefined function: PROCESS-DECLS

; in: DEFUN COMPILE-COMPONENT
;     (SB!C::RECORD-COMPONENT-XREFS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: RECORD-COMPONENT-XREFS

; in: DEFUN COMPILE-TOPLEVEL
;     (SB!C::REPLACE-TOPLEVEL-XEPS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: REPLACE-TOPLEVEL-XEPS

; in: DEFUN %COMPILE
;     (SB!C::REPLACE-TOPLEVEL-XEPS SB!C::COMPONENT-FROM-DFO)
; 
; caught STYLE-WARNING:
;   undefined function: REPLACE-TOPLEVEL-XEPS

; in: DEFUN IR1-PHASES
;     (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :CONSTRAINT)
; 
; caught STYLE-WARNING:
;   undefined function: RETRY-DELAYED-IR1-TRANSFORMS

; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE
;     (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :OPTIMIZE)
; 
; caught STYLE-WARNING:
;   undefined function: RETRY-DELAYED-IR1-TRANSFORMS

; in: DEFUN %COMPILE-COMPONENT
;     (SB!C::SELECT-REPRESENTATIONS SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: SELECT-REPRESENTATIONS

;     (SB!C::STACK-ANALYZE SB!C:COMPONENT)
; 
; caught STYLE-WARNING:
;   undefined function: STACK-ANALYZE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     %EVENT ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED CHECK-IR1-CONSISTENCY CHECK-IR2-CONSISTENCY CHECK-LIFE-CONSISTENCY CHECK-PACK-CONSISTENCY COMPILER-ERROR-CONTEXT-LEXENV COMPILER-ERROR-HANDLER COMPILER-MUMBLE COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER CONSTRAINT-PROPAGATE CONTROL-ANALYZE COPY-PROPAGATE DELETE-COMPONENT DELETE-UNREFERENCED-TNS SB!DISASSEM:DISASSEMBLE-ASSEM-SEGMENT ENTRY-ANALYZE EVAL-IN-LEXENV FASL-DUMP-COLD-FSET FIND-DFO FIND-DOMINATORS FIND-INITIAL-DFO FIND-SOURCE-PATHS FOPCOMPILABLE-P FOPCOMPILE FORMAT-UNIVERSAL-TIME FUNCALL-IN-MACROLET-LEXENV FUNCALL-IN-SYMBOL-MACROLET-LEXENV GENERATE-CODE GENERATE-TYPE-CHECKS GET-SOURCE-PATH GTN-ANALYZE INIT-ASSEMBLER IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDALIKE IR1-FINALIZE IR1-OPTIMIZE IR1-TOPLEVEL IR2-CONVERT LABEL-ID LAMBDA-COMPONENT LIFETIME-ANALYZE LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE LOCALL-ANALYZE-COMPONENT LOOP-ANALYZE LTN-ANALYZE MAKE-CORE-COMPONENT MAKE-EMPTY-COMPONENT MAKE-LEXENV SB-XC:MAKE-LOAD-FORM MAKE-XEP-LAMBDA-EXPRESSION MERGE-TOPLEVEL-LAMBDAS NAME-LAMBDALIKE NODE-COMPONENT NOTE-UNDEFINED-REFERENCE PACK PHYSENV-ANALYZE PRE-PACK-TN-STATS PRE-PHYSENV-ANALYZE-TOPLEVEL PRINT-ALL-BLOCKS PRINT-IR2-BLOCKS PROCESS-DECLS RECORD-COMPONENT-XREFS REPLACE-TOPLEVEL-XEPS RETRY-DELAYED-IR1-TRANSFORMS SELECT-REPRESENTATIONS STACK-ANALYZE

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     COMPILER-ERROR-CONTEXT
; 
; compilation unit finished
;   caught 99 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/main.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/xref.lisp" (written 28 MAY 2008 07:23:13 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFVAR *XREF-KINDS* ...)
; compiling (DEFUN RECORD-COMPONENT-XREFS ...)
; compiling (DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ...)
; compiling (DEFUN RECORD-NODE-XREFS ...)
; compiling (DEFUN INTERNAL-NAME-P ...)
; compiling (DEFUN RECORD-XREF ...)
; compiling (DEFUN RECORD-MACROEXPANSION ...)
; compiling (DEFUN PACK-XREF-DATA ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/xref.lisp
; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS
;     (SB!C::BLOCK-HOME-LAMBDA BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: BLOCK-HOME-LAMBDA

; in: DEFUN RECORD-NODE-XREFS
;     (SB!C::CONSTANT-LVAR-P SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

;     (SB!C::LVAR-VALUE SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS
;     (SB!C::NODE-HOME-LAMBDA SB!C::REF)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-HOME-LAMBDA

; in: DEFUN RECORD-NODE-XREFS
;     (SB!C::PRINCIPAL-LVAR-USE (SB!C::COMBINATION-FUN SB!C::NODE))
; 
; caught STYLE-WARNING:
;   undefined function: PRINCIPAL-LVAR-USE

; in: DEFUN RECORD-XREF
;     (SB!C::SOURCE-PATH-ORIGINAL-SOURCE
;      (OR SB!C::PATH (SB!C::NODE-SOURCE-PATH SB!C::NODE)))
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-ORIGINAL-SOURCE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     BLOCK-HOME-LAMBDA CONSTANT-LVAR-P LVAR-VALUE NODE-HOME-LAMBDA PRINCIPAL-LVAR-USE SOURCE-PATH-ORIGINAL-SOURCE
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/xref.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/source-location.lisp" (written 16 JUL 2008 10:21:05 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION #) ...)
; compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...)
; compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...)
; compiling (SETF (SYMBOL-FUNCTION #) ...)
; 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: /Users/nikodemus/src/sbcl/src/code/source-location.lisp
; in:
;      DEF!STRUCT (DEFINITION-SOURCE-LOCATION
;              (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY))
;     (SB!INT:DEF!STRUCT
;      (SB!C:DEFINITION-SOURCE-LOCATION
;       (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY))
;      (NAMESTRING
;       (WHEN (AND (BOUNDP 'SB!C::*SOURCE-INFO*) SB!C::*SOURCE-INFO*)
;         (SB!C::MAKE-FILE-INFO-NAMESTRING *COMPILE-FILE-PATHNAME*
;                                          (SB!C:GET-TOPLEVELISH-FILE-INFO
;                                           SB!C::*SOURCE-INFO*)))
;       :TYPE (OR STRING NULL))
;      (SB!C::TOPLEVEL-FORM-NUMBER
;       (WHEN (BOUNDP 'SB!C::*CURRENT-PATH*)
;         (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*))
;       :TYPE (OR FIXNUM NULL))
;      (SB!C::PLIST SB!C::*SOURCE-PLIST*))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
;    'SB!C:DEFINITION-SOURCE-LOCATION "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

;     (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*)
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-TLF-NUMBER

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SOURCE-PATH-TLF-NUMBER
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/source-location.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/target-main.lisp" (written 03 JUL 2008 10:24:50 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN GET-LAMBDA-TO-COMPILE ...)
; compiling (DEFUN ACTUALLY-COMPILE ...)
; compiling (DEFUN COMPILE-IN-LEXENV ...)
; compiling (DEFUN COMPILE ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/target-main.lisp
; in: DEFUN ACTUALLY-COMPILE
;     (SB!C::WITH-COMPILATION-VALUES
;      (SB-XC:WITH-COMPILATION-UNIT NIL
;                                   (LET* ((SB!INT:*INFO-ENVIRONMENT*
;                                           SB!INT:*INFO-ENVIRONMENT*)
;                                          (SB!KERNEL:FORM #)
;                                          (SB!C::*SOURCE-INFO* #)
;                                          (SB!C::*TOPLEVEL-LAMBDAS* NIL)
;                                          (SB!C::*BLOCK-COMPILE* NIL)
;                                          (SB!C::*ALLOW-INSTRUMENTING* NIL)
;                                          (SB!C::*CODE-COVERAGE-RECORDS* NIL)
;                                          (SB!C::*CODE-COVERAGE-BLOCKS* NIL)
;                                          (SB!C::*COMPILER-ERROR-BAILOUT* #)
;                                          (SB!C::*CURRENT-PATH* NIL)
;                                          (SB!C::*LAST-SOURCE-CONTEXT* NIL)
;                                          (SB!C::*LAST-ORIGINAL-SOURCE* NIL)
;                                          ...)
;                                     (HANDLER-BIND (#) (SB!C::CLEAR-STUFF)
;                                                   (SB!C::FIND-SOURCE-PATHS
;                                                    SB!KERNEL:FORM 0)
;                                                   (SB!C::%COMPILE SB!KERNEL:FORM
;                                                                   # :NAME
;                                                                   SB!C::NAME
;                                                                   :PATH '#)))))
; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND SB!IMPL::%HANDLER-BIND 
; --> SB!INT:DX-FLET FLET FLET LET CONS LIST CONS 
; ==>
;   #'SB!C::COMPILER-ERROR-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-ERROR-HANDLER

;     (SB!C::COMPILER-MUMBLE "~2&fatal error, aborting compilation~%")
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-MUMBLE

;     (SB!C::WITH-COMPILATION-VALUES
;      (SB-XC:WITH-COMPILATION-UNIT NIL
;                                   (LET* ((SB!INT:*INFO-ENVIRONMENT*
;                                           SB!INT:*INFO-ENVIRONMENT*)
;                                          (SB!KERNEL:FORM #)
;                                          (SB!C::*SOURCE-INFO* #)
;                                          (SB!C::*TOPLEVEL-LAMBDAS* NIL)
;                                          (SB!C::*BLOCK-COMPILE* NIL)
;                                          (SB!C::*ALLOW-INSTRUMENTING* NIL)
;                                          (SB!C::*CODE-COVERAGE-RECORDS* NIL)
;                                          (SB!C::*CODE-COVERAGE-BLOCKS* NIL)
;                                          (SB!C::*COMPILER-ERROR-BAILOUT* #)
;                                          (SB!C::*CURRENT-PATH* NIL)
;                                          (SB!C::*LAST-SOURCE-CONTEXT* NIL)
;                                          (SB!C::*LAST-ORIGINAL-SOURCE* NIL)
;                                          ...)
;                                     (HANDLER-BIND (#) (SB!C::CLEAR-STUFF)
;                                                   (SB!C::FIND-SOURCE-PATHS
;                                                    SB!KERNEL:FORM 0)
;                                                   (SB!C::%COMPILE SB!KERNEL:FORM
;                                                                   # :NAME
;                                                                   SB!C::NAME
;                                                                   :PATH '#)))))
; --> SB!C::WITH-IR1-NAMESPACE LET HANDLER-BIND SB!IMPL::%HANDLER-BIND 
; --> SB!INT:DX-FLET FLET FLET LET CONS LIST CONS 
; ==>
;   #'SB!C::COMPILER-STYLE-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-STYLE-WARNING-HANDLER

; ==>
;   #'SB!C::COMPILER-WARNING-HANDLER
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-WARNING-HANDLER

;     (SB!C::FIND-SOURCE-PATHS SB!KERNEL:FORM 0)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-SOURCE-PATHS

; in: DEFUN COMPILE-IN-LEXENV
;     (SB!EVAL:PREPARE-FOR-COMPILE SB!C::DEFINITION)
; 
; caught STYLE-WARNING:
;   undefined function: SB!EVAL:PREPARE-FOR-COMPILE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     COMPILER-ERROR-HANDLER COMPILER-MUMBLE COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER FIND-SOURCE-PATHS SB!EVAL:PREPARE-FOR-COMPILE
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target-main.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1tran.lisp" (written 19 JUL 2008 02:32:54 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*))
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DEFVAR *CURRENT-FORM-NUMBER*)
; compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*))
; compiling (DEFVAR *SOURCE-PATHS*)
; compiling (DECLAIM (INLINE SOURCE-FORM-HAS-PATH-P))
; compiling (DEFUN SOURCE-FORM-HAS-PATH-P ...)
; compiling (DEFUN GET-SOURCE-PATH ...)
; compiling (DEFUN NOTE-SOURCE-PATH ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CURRENT-COMPONENT*)
; compiling (DECLAIM (LIST *CURRENT-PATH*))
; compiling (DEFVAR *CURRENT-PATH*)
; compiling (DEFVAR *DERIVE-FUNCTION-TYPES* ...)
; compiling (DEFVAR *FUN-NAMES-IN-THIS-FILE* ...)
; compiling (DEFVAR *POST-BINDING-VARIABLE-LEXENV* ...)
; compiling (DEFUN FUN-LEXICALLY-NOTINLINE-P ...)
; compiling (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 (DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS ...)
; compiling (DEFUN LINK-NODE-TO-PREVIOUS-CTRAN ...)
; compiling (DECLAIM (INLINE USE-CTRAN))
; compiling (DEFUN USE-CTRAN ...)
; compiling (DEFUN %USE-CTRAN ...)
; compiling (DEFUN INSERT-NODE-BEFORE ...)
; compiling (DEFUN USE-LVAR ...)
; compiling (DECLAIM (INLINE USE-CONTINUATION))
; compiling (DEFUN USE-CONTINUATION ...)
; compiling (DEFUN IR1-TOPLEVEL ...)
; compiling (DEFUN FIND-SOURCE-PATHS ...)
; compiling (DEFUN SUB-FIND-SOURCE-PATHS ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT ...)
; compiling (DEFUN REFERENCE-CONSTANT ...)
; compiling (DEFUN MAYBE-REANALYZE-FUNCTIONAL ...)
; compiling (DEFUN REFERENCE-LEAF ...)
; compiling (DEFUN 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: /Users/nikodemus/src/sbcl/src/compiler/ir1tran.lisp
; in: DEFUN MUFFLE-WARNING-OR-DIE
;     (SB!INT:BUG "no MUFFLE-WARNING restart")
; ==>
;   "no MUFFLE-WARNING restart"
; 
; note: deleting unreachable code

; compiling (DEFUN CAREFUL-EXPAND-MACRO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT-PROGN-BODY ...)
; compiling (DEFUN INSTRUMENT-COVERAGE ...)
; compiling (DEFUN MAYBE-INSTRUMENT-PROGN-LIKE ...)
; compiling (DEFUN RECORD-CODE-COVERAGE ...)
; compiling (DEFUN CLEAR-CODE-COVERAGE ...)
; compiling (DEFUN RESET-CODE-COVERAGE ...)
; compiling (DEFUN CODE-COVERAGE-RECORD-MARKED ...)
; compiling (DEFUN STEP-FORM-P ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN IR1-CONVERT-COMBINATION ...)
; compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...)
; compiling (DEFUN IR1-CONVERT-SRCTRAN ...)
; compiling (DEFVAR *INSTRUMENT-IF-FOR-CODE-COVERAGE* ...)
; compiling (DEFUN IR1-CONVERT-MAYBE-PREDICATE ...)
; compiling (DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ...)
; compiling (DEFUN IR1-CONVERT-LOCAL-COMBINATION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-IN-BINDINGS ...)
; compiling (DEFUN PROCESS-TYPE-DECL ...)
; compiling (DEFUN PROCESS-FTYPE-DECL ...)
; compiling (DEFUN PROCESS-SPECIAL-DECL ...)
; compiling (DEFUN MAKE-NEW-INLINEP ...)
; compiling (DEFUN PROCESS-INLINE-DECL ...)
; compiling (DEFUN FIND-IN-BINDINGS-OR-FBINDINGS ...)
; compiling (DEFUN PROCESS-IGNORE-DECL ...)
; compiling (DEFUN PROCESS-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: /Users/nikodemus/src/sbcl/src/compiler/ir1tran.lisp
; in: DEFUN IR1-CONVERT-LOCAL-COMBINATION
;     (SB!C::ASSURE-FUNCTIONAL-LIVE-P SB!C::FUNCTIONAL)
; 
; caught STYLE-WARNING:
;   undefined function: ASSURE-FUNCTIONAL-LIVE-P

; in: DEFUN REFERENCE-LEAF
;     (SB!C::ASSURE-FUNCTIONAL-LIVE-P SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: ASSURE-FUNCTIONAL-LIVE-P

; in: DEFUN PROCESS-FTYPE-DECL
;     (SB!C::COMPILER-SPECIFIER-TYPE SB!C::SPEC)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-SPECIFIER-TYPE

; in: DEFUN PROCESS-TYPE-DECL
;     (SB!C::COMPILER-SPECIFIER-TYPE (FIRST SB!C::DECL))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-SPECIFIER-TYPE

; in: DEFUN PROCESS-1-DECL
;     (SB!C::COMPILER-VALUES-SPECIFIER-TYPE
;      (IF (SB!INT:SINGLETON-P SB!C::TYPES) (CAR SB!C::TYPES)
;          (SB!IMPL::BACKQ-CONS 'VALUES SB!C::TYPES)))
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-VALUES-SPECIFIER-TYPE

; in: DEFUN IR1-CONVERT-VAR
;     (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-HOME-LAMBDA-OR-NULL

; in: DEFUN INSERT-NODE-BEFORE
;     (SB!C::ENSURE-BLOCK-START SB!C::PREV)
; 
; caught STYLE-WARNING:
;   undefined function: ENSURE-BLOCK-START

; in: DEFUN REFERENCE-CONSTANT
;     (SB!C::FIND-CONSTANT SB!C::VALUE)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CONSTANT

; in: DEFUN FIND-FREE-VAR
;     (SB!C::FIND-CONSTANT SB!C::VALUE SB!C::NAME)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-CONSTANT

; in: DEFUN IR1-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: /Users/nikodemus/src/sbcl/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 INSTRUMENT-COVERAGE
;     (SB!C::SOURCE-PATH-ORIGINAL-SOURCE SB!C::*CURRENT-PATH*)
; 
; caught STYLE-WARNING:
;   undefined function: SOURCE-PATH-ORIGINAL-SOURCE

; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE
;     (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE SB!C::DEFINED-TYPE T)
; 
; caught STYLE-WARNING:
;   undefined function: VALIDATE-CALL-TYPE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSURE-FUNCTIONAL-LIVE-P COMPILER-SPECIFIER-TYPE COMPILER-VALUES-SPECIFIER-TYPE CTRAN-HOME-LAMBDA-OR-NULL ENSURE-BLOCK-START FIND-CONSTANT IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDA-BODY LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE REOPTIMIZE-LVAR SOURCE-PATH-ORIGINAL-SOURCE VALIDATE-CALL-TYPE
; 
; compilation unit finished
;   caught 27 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ir1tran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1tran-lambda.lisp" (written 17 MAY 2008 02:02:29 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN VARIFY-LAMBDA-ARG ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-KEYWORD-FOR-ARG ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAKE-LAMBDA-VARS ...)
; compiling (DEFUN IR1-CONVERT-AUX-BINDINGS ...)
; compiling (DEFUN IR1-CONVERT-SPECIAL-BINDINGS ...)
; compiling (DEFUN IR1-CONVERT-LAMBDA-BODY ...)
; compiling (DEFUN REGISTER-ENTRY-POINT ...)
; compiling (DEFUN CONVERT-OPTIONAL-ENTRY ...)
; compiling (DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY ...)
; compiling (DEFUN CONVERT-MORE-ENTRY ...)
; compiling (DEFUN IR1-CONVERT-MORE ...)
; compiling (DEFUN IR1-CONVERT-HAIRY-ARGS ...)
; compiling (DEFUN IR1-CONVERT-HAIRY-LAMBDA ...)
; compiling (DEFUN IR1-CONVERT-LAMBDA ...)
; compiling (DEFUN WRAP-FORMS-IN-DEBUG-CATCH ...)
; compiling (DEFUN IR1-CONVERT-LAMBDALIKE ...)
; compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...)
; compiling (DEFUN 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: /Users/nikodemus/src/sbcl/src/compiler/ir1tran-lambda.lisp
; in: DEFUN IR1-CONVERT-LAMBDA-BODY
;     (SB!C::CTRAN-STARTS-BLOCK SB!C::RESULT-CTRAN)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS
;     (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT)
; 
; caught STYLE-WARNING:
;   undefined function: CTRAN-STARTS-BLOCK

; in: DEFUN IR1-CONVERT-LAMBDA-BODY
;     (SB!C::LINK-BLOCKS BLOCK (SB!C::COMPONENT-TAIL SB!C::*CURRENT-COMPONENT*))
; 
; caught STYLE-WARNING:
;   undefined function: LINK-BLOCKS

;     (SB!C::MAKE-LEXENV :VARS (SB!C::NEW-VENV) :LAMBDA LAMBDA :CLEANUP NIL)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS
;     (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; in: DEFUN IR1-CONVERT-AUX-BINDINGS
;     (SB!C::MAKE-LEXENV :VARS (COPY-LIST SB!C::POST-BINDING-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LEXENV

; 
; caught STYLE-WARNING:
;   1 more use of undefined function MAKE-LEXENV


; file: /Users/nikodemus/src/sbcl/src/compiler/ir1tran-lambda.lisp
; in: DEFUN IR1-CONVERT-INLINE-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDALIKE
;     (SB!C::NAME-LAMBDALIKE SB!C::THING)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDA
;     (SB!C::NAME-LAMBDALIKE SB!KERNEL:FORM)
; 
; caught STYLE-WARNING:
;   undefined function: NAME-LAMBDALIKE

; in: DEFUN IR1-CONVERT-LAMBDA-BODY
;     (SB!C::NODE-BLOCK SB!C:BIND)
; 
; caught STYLE-WARNING:
;   undefined function: NODE-BLOCK

; in: DEFUN IR1-CONVERT-INLINE-EXPANSION
;     (SB!C::SUBSTITUTE-LEAF SB!C::FUN SB!C::VAR)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF

; in: DEFUN GET-DEFINED-FUN
;     (SB!C::SUBSTITUTE-LEAF SB!C::RES SB!C::FOUND)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF

; in: DEFUN IR1-CONVERT-LAMBDALIKE
;     (SB!C::SUBSTITUTE-LEAF-IF
;      (LAMBDA (SB!C::REF)
;        (SB!C:POLICY SB!C::REF (> SB!C::RECOGNIZE-SELF-CALLS 0)))
;      SB!C::RES SB!C::DEFINED-FUN-RES)
; 
; caught STYLE-WARNING:
;   undefined function: SUBSTITUTE-LEAF-IF

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NAME-LAMBDALIKE NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF
; 
; compilation unit finished
;   caught 15 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1-translators.lisp" (written 04 JUN 2008 03:39:40 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF-IR1-TRANSLATOR PROGN ...)
; compiling (DEF-IR1-TRANSLATOR IF ...)
; compiling (DEFUN BEST-SUB-SOURCE-PATH ...)
; compiling (DEF-IR1-TRANSLATOR BLOCK ...)
; compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...)
; file: /Users/nikodemus/src/sbcl/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
;                                    (SB!ASSEM:SSET-ADJOIN SB!C::ENTRY #)))
;                                (SB!C::USE-CONTINUATION SB!C::EXIT
;                                                        SB!C::EXIT-CTRAN
;                                                        (THIRD SB!C::FOUND))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* 
; ==>
;   (LET* ((SB!C::NAME (CAR (CDR #:WHOLE-VAR-194)))
;          (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 (SB!ASSEM:SSET-ADJOIN 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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

; in: DEFMACRO WITH-FUN-NAME-LEAF
;     (SB!C::MAKE-CTRAN)
; 
; note: deleting unreachable code

;     'SB!C::%%ALLOCATE-CLOSURES
; 
; note: deleting unreachable code

; in: DEF-IR1-TRANSLATOR GLOBAL-FUNCTION
;     (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)
; ==>
;   SB!C::START
; 
; note: deleting unreachable code

; compiling (DEFUN CONSTANT-GLOBAL-FUN-NAME ...)
; compiling (DEFTRANSFORM FUNCALL ...)
; compiling (DEF-IR1-TRANSLATOR %FUNCALL ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/ir1-translators.lisp
; in: DEF-IR1-TRANSLATOR %FUNCALL
;     (SECOND FUNCTION)
; --> CADR CAR CDR 
; ==>
;   FUNCTION
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; in: DEFMACRO WITH-FUN-NAME-LEAF
;     (SB!C::MAKE-CTRAN)
; 
; note: deleting unreachable code

; compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...)
; compiling (DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; compiling (DEFINE-SOURCE-TRANSFORM %COERCE-CALLABLE-TO-FUN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXTRACT-LET-VARS ...)
; compiling (DEF-IR1-TRANSLATOR LET ...)
; compiling (DEF-IR1-TRANSLATOR LET* ...)
; compiling (DEFUN IR1-TRANSLATE-LOCALLY ...)
; compiling (DEF-IR1-TRANSLATOR LOCALLY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN EXTRACT-FLET-VARS ...)
; compiling (DEFUN IR1-CONVERT-FBINDINGS ...)
; compiling (DEF-IR1-TRANSLATOR FLET ...)
; compiling (DEF-IR1-TRANSLATOR LABELS ...)
; compiling (DEFUN THE-IN-POLICY ...)
; compiling (DEF-IR1-TRANSLATOR THE ...)
; compiling (DEF-IR1-TRANSLATOR TRULY-THE ...)
; compiling (DEF-IR1-TRANSLATOR SETQ ...)
; compiling (DEFUN SETQ-VAR ...)
; compiling (DEF-IR1-TRANSLATOR THROW ...)
; compiling (DEF-IR1-TRANSLATOR %WITHIN-CLEANUP ...)
; compiling (DEF-IR1-TRANSLATOR %ESCAPE-FUN ...)
; compiling (DEF-IR1-TRANSLATOR %CLEANUP-FUN ...)
; compiling (DEF-IR1-TRANSLATOR CATCH ...)
; compiling (DEF-IR1-TRANSLATOR UNWIND-PROTECT ...)
; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL ...)
; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1 ...)
; compiling (DEFUN REVERT-SOURCE-PATH ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/ir1-translators.lisp
; in: DEFUN THE-IN-POLICY
;     (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE)
; 
; caught STYLE-WARNING:
;   undefined function: COMPILER-VALUES-SPECIFIER-TYPE

; in: 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: /Users/nikodemus/src/sbcl/src/compiler/ir1-translators.lisp
; in: DEFTRANSFORM %COERCE-CALLABLE-TO-FUN
;     (SB!C:DEFTRANSFORM SB!KERNEL:%COERCE-CALLABLE-TO-FUN
;                        ((SB!C::THING) (FUNCTION) *)
;                        "optimize away possible call to FDEFINITION at runtime"
;                        'SB!C::THING)
; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION LET* 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET UNLESS IF PROGN 
; ==>
;   (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; in: DEFTRANSFORM FUNCALL
;     (SB!C:DEFTRANSFORM FUNCALL ((FUNCTION &REST SB!C::ARGS) * *)
;                        (LET ((SB!C::ARG-NAMES (SB!INT:MAKE-GENSYM-LIST #)))
;                          (SB!IMPL::BACKQ-LIST 'LAMBDA
;                                               (SB!IMPL::BACKQ-CONS 'FUNCTION
;                                                                    SB!C::ARG-NAMES)
;                                               (SB!IMPL::BACKQ-LIST*
;                                                'SB!C::%FUNCALL
;                                                (IF # 'FUNCTION '#)
;                                                SB!C::ARG-NAMES))))
; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION LET* 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET UNLESS 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: /Users/nikodemus/src/sbcl/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 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 26 STYLE-WARNING conditions
;   printed 8 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ir1-translators.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1util.lisp" (written 20 JUL 2008 10:52:08 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NODE-ENCLOSING-CLEANUP ...)
; compiling (DEFUN INSERT-CLEANUP-CODE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-USES ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN PRINCIPAL-LVAR ...)
; compiling (DEFUN PRINCIPAL-LVAR-USE ...)
; compiling (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 (FTYPE # ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN USE-GOOD-FOR-DX-P ...)
; compiling (DEFUN LVAR-GOOD-FOR-DX-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 SPLICE-FUN-ARGS ...)
; compiling (DEFUN EXTRACT-FUN-ARGS ...)
; compiling (DEFUN FLUSH-COMBINATION ...)
; compiling (DEFUN CHANGE-REF-LEAF ...)
; compiling (DEFUN SUBSTITUTE-LEAF ...)
; compiling (DEFUN SUBSTITUTE-LEAF-IF ...)
; compiling (DEFUN FIND-CONSTANT ...)
; compiling (DEFUN CLOSURE-VAR-P ...)
; compiling (DEFUN FIND-NLX-INFO ...)
; compiling (DEFUN NLX-INFO-LVAR ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MAIN-ENTRY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN LOOKS-LIKE-AN-MV-BIND ...)
; compiling (DEFUN XEP-P ...)
; compiling (DEFUN LVAR-FUN-NAME ...)
; compiling (DEFUN LVAR-FUN-DEBUG-NAME ...)
; compiling (DEFUN COMBINATION-FUN-SOURCE-NAME ...)
; compiling (DEFUN 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 ...)
; compiling (DEFUN LVAR-FOR-NAMED-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/ir1util.lisp
; in: DEFUN LVAR-FOR-NAMED-FUNCTION
;     (SB!C::CONSTANT-LVAR-P SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: CONSTANT-LVAR-P

; 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 SPLICE-FUN-ARGS
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFUN FLUSH-DEST
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFUN SUBSTITUTE-LVAR
;     (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::NEW)
; 
; caught STYLE-WARNING:
;   undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE

; in: DEFFROB (BASIC CAREFUL COMPILER TRANSFORM)
;     #'SB!C::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 SPLICE-FUN-ARGS
;     (SB!C::GIVE-UP-IR1-TRANSFORM)
; 
; caught STYLE-WARNING:
;   undefined function: GIVE-UP-IR1-TRANSFORM

; 
; caught STYLE-WARNING:
;   1 more use of undefined function GIVE-UP-IR1-TRANSFORM


; file: /Users/nikodemus/src/sbcl/src/compiler/ir1util.lisp
; in: DEFUN CAST-TYPE-CHECK
;     (SB!C::IR1-OPTIMIZE-CAST SB!ALIEN:CAST T)
; 
; caught STYLE-WARNING:
;   undefined function: IR1-OPTIMIZE-CAST

; in: DEFUN FILTER-LVAR
;     (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*)
; 
; caught STYLE-WARNING:
;   undefined function: LOCALL-ANALYZE-COMPONENT

; in: DEFUN LVAR-FOR-NAMED-FUNCTION
;     (SB!C::LVAR-VALUE SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN CHECK-TRANSFORM-KEYS
;     (SB!C::LVAR-VALUE (FIRST SB!C::ARG))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN FIND-KEYWORD-LVAR
;     (SB!C::LVAR-VALUE (FIRST SB!C::ARG))
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-VALUE

; in: DEFUN DELETE-REF
;     (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-CONVERT-TO-ASSIGNMENT

; in: DEFUN DELETE-OPTIONAL-DISPATCH
;     (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-CONVERT-TO-ASSIGNMENT

; in: DEFUN DELETE-REF
;     (SB!C::MAYBE-LET-CONVERT SB!C::LEAF)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-LET-CONVERT

; in: DEFUN DELETE-OPTIONAL-DISPATCH
;     (SB!C::MAYBE-LET-CONVERT SB!C::FUN)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-LET-CONVERT

; in: DEFUN MAKE-CAST
;     (SB!C::MAYBE-WEAKEN-CHECK TYPE SB!C:POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-WEAKEN-CHECK

; in: DEFUN DELETE-FILTER
;     (SB!C::MERGE-TAIL-SETS MERGE)
; 
; caught STYLE-WARNING:
;   undefined function: MERGE-TAIL-SETS

; in: DEFUN NOTE-SINGLE-VALUIFIED-LVAR
;     (SB!C::REOPTIMIZE-COMPONENT (SB!C::NODE-COMPONENT SB!C::NODE) :MAYBE)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN FLUSH-DEST
;     (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) T)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN CHANGE-BLOCK-SUCCESSOR
;     (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) :MAYBE)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-COMPONENT

; in: DEFUN INSERT-CAST-BEFORE
;     (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; in: DEFUN SUBSTITUTE-LVAR-USES
;     (SB!C::REOPTIMIZE-LVAR SB!C::NEW)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; in: DEFUN DELETE-LVAR-USE
;     (SB!C::REOPTIMIZE-LVAR SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: REOPTIMIZE-LVAR

; 
; caught STYLE-WARNING:
;   5 more uses of undefined function REOPTIMIZE-LVAR

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     CONSTANT-LVAR-P DERIVE-NODE-TYPE FIND-ORIGINAL-SOURCE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE GIVE-UP-IR1-TRANSFORM IR1-OPTIMIZE-CAST LOCALL-ANALYZE-COMPONENT LVAR-VALUE MAYBE-CONVERT-TO-ASSIGNMENT MAYBE-LET-CONVERT MAYBE-WEAKEN-CHECK MERGE-TAIL-SETS REOPTIMIZE-COMPONENT REOPTIMIZE-LVAR
; 
; compilation unit finished
;   caught 31 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ir1util.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1report.lisp" (written 17 JUN 2008 02:10:06 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: /Users/nikodemus/src/sbcl/src/compiler/ir1report.lisp
; in: DEFSTRUCT COMPILER-ERROR-CONTEXT
;     (DEFSTRUCT
;         (SB!C::COMPILER-ERROR-CONTEXT
;          (:PRINT-OBJECT (LAMBDA (SB!C::X STREAM) (PRINT-UNREADABLE-OBJECT #)))
;          (:COPIER NIL))
;       (SB!C::ENCLOSING-SOURCE NIL :TYPE LIST)
;       (SB!C::SOURCE NIL :TYPE LIST)
;       (SB!C::ORIGINAL-SOURCE (SB!INT:MISSING-ARG) :TYPE SIMPLE-STRING)
;       (SB!C::CONTEXT NIL :TYPE LIST)
;       (SB!INT:FILE-NAME (SB!INT:MISSING-ARG) :TYPE
;        (OR PATHNAME (MEMBER :LISP :STREAM)))
;       (FILE-POSITION NIL :TYPE (OR SB!INT:INDEX NULL))
;       (SB!C::ORIGINAL-SOURCE-PATH NIL :TYPE LIST)
;       (SB!KERNEL:LEXENV NIL :TYPE (OR NULL SB!KERNEL:LEXENV)))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::COMPILER-ERROR-CONTEXT
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN MAYBE-COMPILER-NOTIFY
;     (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS)
;      (LET ((STREAM *ERROR-OUTPUT*))
;        (PPRINT-LOGICAL-BLOCK (STREAM NIL :PER-LINE-PREFIX ";")
;          (FORMAT STREAM " note: ~3I~_")
;          (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FORMAT STREAM "~A" CONDITION)))
;        (FRESH-LINE STREAM)))
; --> BLOCK LET RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION CONDITION (LIST) 'SIMPLE-CONDITION 'SIGNAL)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; in: DEFUN COMPILER-NOTIFY
;     (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS)
;      (INCF SB!C::*COMPILER-NOTE-COUNT*)
;      (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* (FORMAT NIL "note: ~~A")
;                                    (LIST (PRINC-TO-STRING CONDITION))))
; --> BLOCK LET RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET 
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION CONDITION (LIST) 'SIMPLE-CONDITION 'SIGNAL)
; 
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED COERCE-TO-CONDITION
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ir1report.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1opt.lisp" (written 16 JUL 2008 11:51:14 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 DELETE-CAST ...)
; compiling (DEFUN IR1-OPTIMIZE-CAST ...)
; compiling (DEFTRANSFORM MAKE-SYMBOL ...)
; file: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ir1opt.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/loop.lisp" (written 14 JUL 2005 09: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/loop.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir1final.lisp" (written 14 JUL 2005 09: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ir1final.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/array-tran.lisp" (written 06 MAY 2008 07:43:52 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 (DEFINE HAIRY-DATA-VECTOR-REF)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS)
; compiling (DEFINE DATA-VECTOR-REF)
; compiling (DEFOPTIMIZER (DATA-VECTOR-REF-WITH-OFFSET DERIVE-TYPE) ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS)
; compiling (DEFINE DATA-VECTOR-SET)
; compiling (DEFOPTIMIZER (DATA-VECTOR-SET-WITH-OFFSET DERIVE-TYPE) ...)
; compiling (DEFUN DERIVE-%WITH-ARRAY-DATA/MUMBLE-TYPE ...)
; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA/FP DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE) ...)
; compiling (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: /Users/nikodemus/src/sbcl/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 (DEFUN TRANSFORM-%WITH-ARRAY-DATA/MUBLE ...)
; compiling (DEFTRANSFORM %WITH-ARRAY-DATA ...)
; compiling (DEFTRANSFORM %WITH-ARRAY-DATA/FP ...)
; 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 AREF ...)
; compiling (DEFTRANSFORM %ASET ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...)
; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...)
; compiling (DEFTRANSFORM ROW-MAJOR-AREF ...)
; compiling (DEFTRANSFORM %SET-ROW-MAJOR-AREF ...)
; compiling (DEF BIT-AND)
; compiling (DEF BIT-IOR)
; compiling (DEF BIT-XOR)
; compiling (DEF BIT-EQV)
; compiling (DEF BIT-NAND)
; compiling (DEF BIT-NOR)
; compiling (DEF BIT-ANDC1)
; compiling (DEF BIT-ANDC2)
; compiling (DEF BIT-ORC1)
; compiling (DEF BIT-ORC2)
; compiling (DEFTRANSFORM BIT-NOT ...)
; compiling (DEFTRANSFORM BIT-NOT ...)
; compiling (DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE) ...); 
; compilation unit finished
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/array-tran.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/seqtran.lisp" (written 30 JUN 2008 12:48:27 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN MAPFOO-TRANSFORM ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPC ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCAR ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCAN ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPL ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPLIST ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAPCON ...)
; compiling (DEFTRANSFORM MAP ...)
; compiling (DEFUN BUILD-SEQUENCE-ITERATOR ...)
; compiling (DEFTRANSFORM %MAP ...)
; compiling (DEFTRANSFORM MAP-INTO ...)
; compiling (DEFTRANSFORM ELT ...)
; compiling (DEFTRANSFORM ELT ...)
; compiling (DEFTRANSFORM %SETELT ...)
; compiling (DEFTRANSFORM %SETELT ...)
; compiling (DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS ...)
; compiling (DEFUN SPECIALIZED-LIST-SEEK-FUNCTION-NAME ...)
; compiling (DEFUN TRANSFORM-LIST-ITEM-SEEK ...)
; compiling (DEFTRANSFORM MEMBER ...)
; compiling (DEFTRANSFORM ASSOC ...)
; compiling (DEFTRANSFORM ADJOIN ...)
; compiling (DEFTRANSFORM MEMQ ...)
; compiling (DEFTRANSFORM DELETE ...)
; compiling (DEFTRANSFORM DELETE-IF ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM FILL ...)
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/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 (DEFUN MAKE-REPLACE-TRANSFORM ...); 
; caught STYLE-WARNING:
;   redefining MAKE-REPLACE-TRANSFORM in DEFUN

; compiling (DEFINE-REPLACE-TRANSFORMS)
; compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY BASE-CHAR ...) ...)
; compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY CHARACTER ...) ...)
; compiling (DEFUN FROB-BASH-TRANSFORM ...)
; compiling (DEFTRANSFORM UB1-BASH-COPY ...)
; compiling (DEFTRANSFORM UB2-BASH-COPY ...)
; compiling (DEFTRANSFORM UB4-BASH-COPY ...)
; compiling (DEFTRANSFORM UB8-BASH-COPY ...)
; compiling (DEFTRANSFORM UB16-BASH-COPY ...)
; compiling (DEFTRANSFORM UB32-BASH-COPY ...)
; compiling (DEFUN MAYBE-EXPAND-COPY-LOOP-INLINE ...)
; compiling (DEFUN EXPAND-AREF-COPY-LOOP ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM SUBSEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM COPY-SEQ ...)
; compiling (DEFTRANSFORM SEARCH ...)
; compiling (DEFTRANSFORM CONCATENATE ...)
; 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 ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-LEFT-TRIM ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-RIGHT-TRIM ...)
; compiling (DEFINE-TRIMMER-TRANSFORM STRING-TRIM ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/seqtran.lisp
; in: DEFUN TRANSFORM-LIST-ITEM-SEEK
;     (SB!C::EQ-COMPARABLE-TYPE-P (SB!C::LVAR-TYPE SB!C::ITEM))
; 
; caught STYLE-WARNING:
;   undefined function: EQ-COMPARABLE-TYPE-P

; in: DEFUN MAKE-REPLACE-TRANSFORM
;     (SB!C::VALID-BIT-BASH-SAETP-P SB!C::SAETP)
; 
; caught STYLE-WARNING:
;   undefined function: VALID-BIT-BASH-SAETP-P

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     EQ-COMPARABLE-TYPE-P VALID-BIT-BASH-SAETP-P
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 10 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/seqtran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/typetran.lisp" (written 14 MAR 2008 09:03:06 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFMACRO DEFINE-TYPE-PREDICATE ...)
; compiling (DEFUN %DEFINE-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM TYPEP ...)
; compiling (DEFUN IR1-TRANSFORM-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM %TYPEP ...)
; compiling (DEFTRANSFORM FOLD-TYPE-PREDICATE ...)
; compiling (DEFTRANSFORM FIND-CLASSOID ...)
; compiling (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...)
; compiling (!DEFINE-STANDARD-TYPE-PREDICATES)
; compiling (DEFINE-SOURCE-TRANSFORM ATOM ...)
; compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...)
; compiling (DEFUN TRANSFORM-NUMERIC-BOUND-TEST ...)
; compiling (DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-UNION-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-CONS-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP ...)
; compiling (DEFUN FIND-SUPERTYPE-PREDICATE ...)
; compiling (DEFUN TEST-ARRAY-DIMENSIONS ...)
; compiling (DEFUN TEST-ARRAY-ELEMENT-TYPE ...)
; compiling (DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP ...)
; compiling (DEFTRANSFORM %INSTANCE-TYPEP ...)
; compiling (DEFUN SOURCE-TRANSFORM-TYPEP ...)
; compiling (DEFINE-SOURCE-TRANSFORM TYPEP ...)
; compiling (DEFOPTIMIZER (COERCE OPTIMIZER) ...)
; compiling (DEFTRANSFORM COERCE ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/typetran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-typetran.lisp" (written 10 JAN 2006 12:46:14 AM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/float-tran.lisp" (written 30 JUN 2008 12:18:32 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: /Users/nikodemus/src/sbcl/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 ...)
; compiling (DEFTRANSFORM SCALE-FLOAT ...)
; compiling (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (SCALE-SINGLE-FLOAT DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (SCALE-DOUBLE-FLOAT DERIVE-TYPE) ...)
; compiling (FROB %SINGLE-FLOAT ...)
; compiling (FROB %DOUBLE-FLOAT ...)
; compiling (DEFUN SAFE-CTYPE-FOR-SINGLE-COERCION-P ...)
; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...)
; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...)
; compiling (DOLIST (X #) ...)
; compiling (DOLIST (X #) ...)
; compiling (FROB <)
; compiling (FROB >)
; compiling (FROB =)
; compiling (DEFKNOWN (%TAN %SINH ...) ...)
; compiling (DEFKNOWN (%SIN %COS ...) ...)
; compiling (DEFKNOWN (%ASIN %ATAN) ...)
; compiling (DEFKNOWN (%ACOS) ...)
; compiling (DEFKNOWN (%COSH) ...)
; compiling (DEFKNOWN (%ACOSH %EXP ...) ...)
; compiling (DEFKNOWN %EXPM1 ...)
; compiling (DEFKNOWN (%HYPOT) ...)
; compiling (DEFKNOWN (%POW) ...)
; compiling (DEFKNOWN (%ATAN2) ...)
; compiling (DEFKNOWN (%SCALB) ...)
; compiling (DEFKNOWN (%SCALBN) ...)
; compiling (DEFKNOWN (%LOG1P) ...)
; compiling (DEF EXP ...)
; compiling (DEF LOG ...)
; compiling (DEF SQRT ...)
; compiling (DEF ASIN ...)
; compiling (DEF ACOS ...)
; compiling (DEF ATAN ...)
; compiling (DEF SINH ...)
; compiling (DEF COSH ...)
; compiling (DEF TANH ...)
; compiling (DEF ASINH ...)
; compiling (DEF ACOSH ...)
; compiling (DEF ATANH ...)
; compiling (DEF SIN ...)
; compiling (DEF COS ...)
; compiling (DEF TAN ...)
; compiling (DEFTRANSFORM ATAN ...)
; compiling (DEFTRANSFORM ATAN ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM EXPT ...)
; compiling (DEFTRANSFORM LOG ...)
; compiling (DEFTRANSFORM ABS ...)
; compiling (DEFTRANSFORM ABS ...)
; compiling (DEFTRANSFORM PHASE ...)
; compiling (DEFTRANSFORM PHASE ...)
; compiling (DEFTRANSFORM PHASE ...)
; compiling (DEFUN NUMERIC-TYPE-REAL-P ...)
; compiling (DEFUN COERCE-NUMERIC-BOUND ...)
; compiling (DEFUN COMPLEX-FLOAT-TYPE ...)
; compiling (DEFUN FLOAT-OR-COMPLEX-FLOAT-TYPE ...)
; compiling (DEFUN DOMAIN-SUBTYPEP ...)
; compiling (DEFUN ELFUN-DERIVE-TYPE-SIMPLE ...)
; compiling (FROB EXP ...)
; compiling (FROB SINH ...)
; compiling (FROB TANH ...)
; compiling (FROB ASINH ...)
; compiling (FROB ASIN ...)
; compiling (FROB ACOS ...)
; compiling (FROB ACOSH ...)
; compiling (FROB ATANH ...)
; compiling (FROB SQRT ...)
; compiling (DEFUN SAFE-EXPT ...)
; compiling (DEFUN INTERVAL-EXPT-> ...)
; compiling (DEFUN INTERVAL-EXPT-< ...)
; compiling (DEFUN INTERVAL-EXPT ...)
; compiling (DEFUN FIXUP-INTERVAL-EXPT ...)
; compiling (DEFUN MERGED-INTERVAL-EXPT ...)
; compiling (DEFUN EXPT-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (EXPT DERIVE-TYPE) ...)
; compiling (DEFUN LOG-DERIVE-TYPE-AUX-1 ...)
; compiling (DEFUN LOG-DERIVE-TYPE-AUX-2 ...)
; compiling (DEFOPTIMIZER (LOG DERIVE-TYPE) ...)
; compiling (DEFUN ATAN-DERIVE-TYPE-AUX-1 ...)
; compiling (DEFUN ATAN-DERIVE-TYPE-AUX-2 ...)
; compiling (DEFOPTIMIZER (ATAN DERIVE-TYPE) ...)
; compiling (DEFUN COSH-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (COSH DERIVE-TYPE) ...)
; compiling (DEFUN PHASE-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (PHASE DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM REALPART ...)
; compiling (DEFTRANSFORM IMAGPART ...)
; compiling (DEFUN REALPART-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (REALPART DERIVE-TYPE) ...)
; compiling (DEFUN IMAGPART-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ...)
; compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-1 ...)
; compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-2 ...)
; compiling (DEFOPTIMIZER (COMPLEX DERIVE-TYPE) ...)
; compiling (FROB SINGLE-FLOAT)
; compiling (FROB DOUBLE-FLOAT)
; compiling (DEFUN TRIG-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (SIN DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (COS DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (TAN DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (CONJUGATE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (CIS DERIVE-TYPE) ...)
; compiling (DEFINE-FROBS TRUNCATE ...)
; compiling (DEFINE-FROBS ROUND ...)
; compiling (DEFTRANSFORM TRUNCATE ...)
; compiling (DEFTRANSFORM FLOOR ...)
; compiling (DEFTRANSFORM CEILING ...)
; compiling (DEFKNOWN %UNARY-FTRUNCATE ...)
; compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...)
; compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...)
; compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/SINGLE
;     (DEFUN SB!C::%UNARY-FTRUNCATE/SINGLE (SB!C::X)
;       (DECLARE (TYPE SINGLE-FLOAT SB!C::X))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (LET* ((SB!SYS:BITS (SB!KERNEL:SINGLE-FLOAT-BITS SB!C::X))
;              (EXP (SB-XC:LDB SB!VM:SINGLE-FLOAT-EXPONENT-BYTE SB!SYS:BITS))
;              (SB!C::BIASED (THE SB!KERNEL:SINGLE-FLOAT-EXPONENT #)))
;         (DECLARE (TYPE (SIGNED-BYTE 32) SB!SYS:BITS))
;         (COND ((= EXP SB!VM:SINGLE-FLOAT-NORMAL-EXPONENT-MAX) SB!C::X)
;               ((<= SB!C::BIASED 0) (* SB!C::X 0.0)) ((>= SB!C::BIASED #) SB!C::X)
;               (T
;                (LET #
;                  #
;                  #)))))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!C::%UNARY-FTRUNCATE/SINGLE
;                     (LAMBDA (SB!C::X)
;                       (DECLARE (TYPE SINGLE-FLOAT SB!C::X))
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;                       (BLOCK SB!C::%UNARY-FTRUNCATE/SINGLE
;                         (LET* (# # #)
;                           (DECLARE #)
;                           (COND # # # #)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/float-tran.lisp
; in: DEFUN %UNARY-FTRUNCATE/DOUBLE
;     (DEFUN SB!C::%UNARY-FTRUNCATE/DOUBLE (SB!C::X)
;       (DECLARE (TYPE DOUBLE-FLOAT SB!C::X))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (LET* ((SB!C::HIGH (SB!KERNEL:DOUBLE-FLOAT-HIGH-BITS SB!C::X))
;              (SB!C::LOW (SB!KERNEL:DOUBLE-FLOAT-LOW-BITS SB!C::X))
;              (EXP (SB-XC:LDB SB!VM:DOUBLE-FLOAT-EXPONENT-BYTE SB!C::HIGH))
;              (SB!C::BIASED (THE SB!KERNEL:DOUBLE-FLOAT-EXPONENT #)))
;         (DECLARE (TYPE (SIGNED-BYTE 32) SB!C::HIGH)
;          (TYPE (UNSIGNED-BYTE 32) SB!C::LOW))
;         (COND ((= EXP SB!VM:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX) SB!C::X)
;               ((<= SB!C::BIASED 0) (* SB!C::X 0.0d0))
;               ((>= SB!C::BIASED #) SB!C::X)
;               (T
;                (LET #
;                  #
;                  #)))))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!C::%UNARY-FTRUNCATE/DOUBLE
;                     (LAMBDA (SB!C::X)
;                       (DECLARE (TYPE DOUBLE-FLOAT SB!C::X))
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;                       (BLOCK SB!C::%UNARY-FTRUNCATE/DOUBLE
;                         (LET* (# # # #)
;                           (DECLARE # #)
;                           (COND # # # #)))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; compiling (DEF SINGLE-FLOAT ...)
; compiling (DEF DOUBLE-FLOAT ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/float-tran.lisp
; in: DEFUN LOG-DERIVE-TYPE-AUX-2
;     (SB!C::/-DERIVE-TYPE-AUX SB!C::X-TYPE SB!C::Y-TYPE SB!C::SAME-ARG)
; 
; caught STYLE-WARNING:
;   undefined function: /-DERIVE-TYPE-AUX

; in: DEFUN COSH-DERIVE-TYPE-AUX
;     (SB!C::ABS-DERIVE-TYPE-AUX SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: ABS-DERIVE-TYPE-AUX

; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE
;     (SB!C::BOUND-FUNC SB!C::FCN (IF SB!C::INCREASINGP SB!C::HIGH SB!C::LOW))
; 
; caught STYLE-WARNING:
;   undefined function: BOUND-FUNC

; in:
;      PROGN (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX (F EX SAME-ARG)
;          (DECLARE (IGNORE SAME-ARG))
;          (FLET ((SCALE-BOUND #
;                   #))
;            (WHEN (AND # #)
;              (LET #
;                #
;                #
;                #))))
;     (SB!C::FROB SB!KERNEL:%DOUBLE-FLOAT DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
;      MOST-POSITIVE-DOUBLE-FLOAT)
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* 
; ==>
;   (SB!C::BOUND-FUNC
;    (LAMBDA (SB!C::X)
;      (IF (< MOST-POSITIVE-DOUBLE-FLOAT SB!C::X) MOST-POSITIVE-DOUBLE-FLOAT
;          (COERCE SB!C::X 'DOUBLE-FLOAT)))
;    (SB!KERNEL:NUMERIC-TYPE-HIGH SB!C::NUM))
; 
; caught STYLE-WARNING:
;   undefined function: BOUND-FUNC

;     (SB!C::FROB SB!KERNEL:%SINGLE-FLOAT SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
;      MOST-POSITIVE-SINGLE-FLOAT)
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET* 
; ==>
;   (SB!C::BOUND-FUNC
;    (LAMBDA (SB!C::X)
;      (IF (< MOST-POSITIVE-SINGLE-FLOAT SB!C::X) MOST-POSITIVE-SINGLE-FLOAT
;          (COERCE SB!C::X 'SINGLE-FLOAT)))
;    (SB!KERNEL:NUMERIC-TYPE-HIGH SB!C::NUM))
; 
; caught STYLE-WARNING:
;   undefined function: BOUND-FUNC

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function BOUND-FUNC


; file: /Users/nikodemus/src/sbcl/src/compiler/float-tran.lisp
; in: DEFUN LOG-DERIVE-TYPE-AUX-2
;     (SB!C::FLATTEN-LIST SB!C::ACCUMULATED-LIST)
; 
; caught STYLE-WARNING:
;   undefined function: FLATTEN-LIST

; in: DEFUN MERGED-INTERVAL-EXPT
;     (SB!C::FLATTEN-LIST (SB!C::INTERVAL-EXPT SB!C::X-INT SB!C::Y-INT))
; 
; caught STYLE-WARNING:
;   undefined function: FLATTEN-LIST

; in: DEFUN INTERVAL-EXPT-<
;     (SB!C::INTERVAL-HIGH SB!C::Y)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-HIGH

; in: DEFUN INTERVAL-EXPT->
;     (SB!C::INTERVAL-HIGH SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-HIGH

; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE
;     (SB!C::INTERVAL-HIGH INTERSECTION)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-HIGH

; 
; caught STYLE-WARNING:
;   1 more use of undefined function INTERVAL-HIGH


; file: /Users/nikodemus/src/sbcl/src/compiler/float-tran.lisp
; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE
;     (SB!C::INTERVAL-INTERSECTION/DIFFERENCE
;      (SB!C::NUMERIC-TYPE->INTERVAL SB!C::ARG)
;      (SB!C::MAKE-INTERVAL :LOW SB!C::DOMAIN-LOW :HIGH SB!C::DOMAIN-HIGH))
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-INTERSECTION/DIFFERENCE

; in: DEFUN INTERVAL-EXPT-<
;     (SB!C::INTERVAL-LOW SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-LOW

; in: DEFUN INTERVAL-EXPT->
;     (SB!C::INTERVAL-LOW SB!C::X)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-LOW

; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE
;     (SB!C::INTERVAL-LOW INTERSECTION)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-LOW

; 
; caught STYLE-WARNING:
;   1 more use of undefined function INTERVAL-LOW


; file: /Users/nikodemus/src/sbcl/src/compiler/float-tran.lisp
; in: DEFUN INTERVAL-EXPT
;     (SB!C::INTERVAL-RANGE-INFO SB!C::X 1)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-RANGE-INFO

; in: DEFUN INTERVAL-EXPT-<
;     (SB!C::INTERVAL-RANGE-INFO SB!C::Y)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-RANGE-INFO

; in: DEFUN INTERVAL-EXPT->
;     (SB!C::INTERVAL-RANGE-INFO SB!C::Y 0.0d0)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-RANGE-INFO

; 
; caught STYLE-WARNING:
;   1 more use of undefined function INTERVAL-RANGE-INFO


; file: /Users/nikodemus/src/sbcl/src/compiler/float-tran.lisp
; in: DEFUN INTERVAL-EXPT
;     (SB!C::INTERVAL-SPLIT 1 SB!C::X T T)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-SPLIT

; in: DEFUN INTERVAL-EXPT-<
;     (SB!C::INTERVAL-SPLIT 0 SB!C::Y T)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-SPLIT

; in: DEFUN INTERVAL-EXPT->
;     (SB!C::INTERVAL-SPLIT 0 SB!C::Y T)
; 
; caught STYLE-WARNING:
;   undefined function: INTERVAL-SPLIT

; in: DEFUN INTERVAL-EXPT-<
;     (SB!C::MAKE-INTERVAL :LOW (OR SB!C::LO 0) :HIGH (OR SB!C::HI 1))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-INTERVAL

; in: DEFUN INTERVAL-EXPT->
;     (SB!C::MAKE-INTERVAL :LOW (OR SB!C::LO 1) :HIGH SB!C::HI)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-INTERVAL

; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE
;     (SB!C::MAKE-INTERVAL :LOW SB!C::DOMAIN-LOW :HIGH SB!C::DOMAIN-HIGH)
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-INTERVAL

; in: DEFUN PHASE-DERIVE-TYPE-AUX
;     (SB!C::NUMERIC-TYPE->INTERVAL SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: NUMERIC-TYPE->INTERVAL

; in: DEFUN MERGED-INTERVAL-EXPT
;     (SB!C::NUMERIC-TYPE->INTERVAL SB!C::Y)
; 
; caught STYLE-WARNING:
;   undefined function: NUMERIC-TYPE->INTERVAL

; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE
;     (SB!C::NUMERIC-TYPE->INTERVAL SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: NUMERIC-TYPE->INTERVAL

; in:
;      PROGN (DEFUN ELFUN-DERIVE-TYPE-SIMPLE
;               (ARG FCN DOMAIN-LOW DOMAIN-HIGH DEFAULT-LOW ...)
;          (DECLARE (TYPE (OR NULL REAL) DOMAIN-LOW DOMAIN-HIGH))
;          (ETYPECASE ARG (NUMERIC-TYPE (COND # # #))))
;     (SB!C::FROB EXP NIL NIL 0 NIL)
; --> SB!C:DEFOPTIMIZER PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET LET LET 
; ==>
;   (SB!C::ONE-ARG-DERIVE-TYPE #:G1375
;                              (LAMBDA (SB!C::ARG)
;                                (SB!C::ELFUN-DERIVE-TYPE-SIMPLE SB!C::ARG #'EXP
;                                 NIL NIL 0 NIL T))
;                              #'EXP)
; 
; caught STYLE-WARNING:
;   undefined function: ONE-ARG-DERIVE-TYPE

; in:
;      PROGN (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX (F EX SAME-ARG)
;          (DECLARE (IGNORE SAME-ARG))
;          (FLET ((SCALE-BOUND #
;                   #))
;            (WHEN (AND # #)
;              (LET #
;                #
;                #
;                #))))
;     (SB!C::FROB SB!KERNEL:%DOUBLE-FLOAT DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
;      MOST-POSITIVE-DOUBLE-FLOAT)
; --> PROGN SB!C:DEFOPTIMIZER PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET LET 
; --> LET HANDLER-CASE SB!INT:DX-FLET FLET BLOCK MULTIPLE-VALUE-PROG1 
; ==>
;   (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::%DOUBLE-FLOAT-DERIVE-TYPE-AUX
;                              #'SB!KERNEL:%DOUBLE-FLOAT)
; 
; caught STYLE-WARNING:
;   undefined function: ONE-ARG-DERIVE-TYPE

;     (SB!C::FROB SB!KERNEL:%SINGLE-FLOAT SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
;      MOST-POSITIVE-SINGLE-FLOAT)
; --> PROGN SB!C:DEFOPTIMIZER PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET LET 
; --> LET HANDLER-CASE SB!INT:DX-FLET FLET BLOCK MULTIPLE-VALUE-PROG1 
; ==>
;   (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::%SINGLE-FLOAT-DERIVE-TYPE-AUX
;                              #'SB!KERNEL:%SINGLE-FLOAT)
; 
; caught STYLE-WARNING:
;   undefined function: ONE-ARG-DERIVE-TYPE

; 
; caught STYLE-WARNING:
;   20 more uses of undefined function ONE-ARG-DERIVE-TYPE


; file: /Users/nikodemus/src/sbcl/src/compiler/float-tran.lisp
; in: DEFUN LOG-DERIVE-TYPE-AUX-2
;     (SB!C::PREPARE-ARG-FOR-DERIVE-TYPE SB!C::LOG-Y)
; 
; caught STYLE-WARNING:
;   undefined function: PREPARE-ARG-FOR-DERIVE-TYPE

; in: DEFOPTIMIZER (CONJUGATE DERIVE-TYPE)
;     (SB!C::SET-BOUND (- (SB!INT:TYPE-BOUND-NUMBER SB!C::H)) (CONSP SB!C::H))
; 
; caught STYLE-WARNING:
;   undefined function: SET-BOUND

; in: DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX
;     (SB!C::SET-BOUND
;      (HANDLER-CASE (SCALE-FLOAT (SB!INT:TYPE-BOUND-NUMBER SB!C::X) SB!C::N)
;                    (FLOATING-POINT-OVERFLOW NIL NIL))
;      (CONSP SB!C::X))
; 
; caught STYLE-WARNING:
;   undefined function: SET-BOUND

; in: DEFOPTIMIZER (EXPT DERIVE-TYPE)
;     (SB!C::TWO-ARG-DERIVE-TYPE SB!C::X SB!C::Y #'SB!C::EXPT-DERIVE-TYPE-AUX
;                                #'EXPT)
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-DERIVE-TYPE

; in: DEFOPTIMIZER (SCALE-DOUBLE-FLOAT DERIVE-TYPE)
;     (SB!C::TWO-ARG-DERIVE-TYPE SB!C::F SB!C::EX
;                                #'SB!C::SCALE-FLOAT-DERIVE-TYPE-AUX
;                                #'SB!KERNEL:SCALE-DOUBLE-FLOAT T)
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-DERIVE-TYPE

; in: DEFOPTIMIZER (SCALE-SINGLE-FLOAT DERIVE-TYPE)
;     (SB!C::TWO-ARG-DERIVE-TYPE SB!C::F SB!C::EX
;                                #'SB!C::SCALE-FLOAT-DERIVE-TYPE-AUX
;                                #'SB!KERNEL:SCALE-SINGLE-FLOAT T)
; 
; caught STYLE-WARNING:
;   undefined function: TWO-ARG-DERIVE-TYPE

; 
; caught STYLE-WARNING:
;   3 more uses of undefined function TWO-ARG-DERIVE-TYPE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     /-DERIVE-TYPE-AUX ABS-DERIVE-TYPE-AUX BOUND-FUNC FLATTEN-LIST INTERVAL-HIGH INTERVAL-INTERSECTION/DIFFERENCE INTERVAL-LOW INTERVAL-RANGE-INFO INTERVAL-SPLIT MAKE-INTERVAL NUMERIC-TYPE->INTERVAL ONE-ARG-DERIVE-TYPE PREPARE-ARG-FOR-DERIVE-TYPE SET-BOUND TWO-ARG-DERIVE-TYPE
; 
; compilation unit finished
;   caught 42 STYLE-WARNING conditions
;   printed 3 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/float-tran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/saptran.lisp" (written 27 JAN 2007 05:45:49 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...)
; compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...)
; compiling (DEFKNOWN (SAP< SAP<= ...) ...)
; compiling (DEFKNOWN SAP+ ...)
; compiling (DEFKNOWN SAP- ...)
; compiling (DEFKNOWN SAP-INT ...)
; compiling (DEFKNOWN INT-SAP ...)
; compiling (DEFSAPREF SAP-REF-8 ...)
; compiling (DEFSAPREF SAP-REF-16 ...)
; compiling (DEFSAPREF SAP-REF-32 ...)
; compiling (DEFSAPREF SAP-REF-64 ...)
; compiling (DEFSAPREF SAP-REF-WORD ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-8 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-16 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-32 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-64 ...)
; compiling (DEFSAPREF SIGNED-SAP-REF-WORD ...)
; compiling (DEFSAPREF SAP-REF-SAP ...)
; compiling (DEFSAPREF SAP-REF-SINGLE ...)
; compiling (DEFSAPREF SAP-REF-DOUBLE ...)
; compiling (DEFSAPREF SAP-REF-LONG ...)
; compiling (DEF SAP< ...)
; compiling (DEF SAP<= ...)
; compiling (DEF SAP= ...)
; compiling (DEF SAP>= ...)
; compiling (DEF SAP> ...)
; compiling (DEFTRANSFORM SAP+ ...)
; compiling (DEF SAP-REF-8 ...)
; compiling (DEF %SET-SAP-REF-8 ...)
; compiling (DEF SIGNED-SAP-REF-8 ...)
; compiling (DEF %SET-SIGNED-SAP-REF-8 ...)
; compiling (DEF SAP-REF-16 ...)
; compiling (DEF %SET-SAP-REF-16 ...)
; compiling (DEF SIGNED-SAP-REF-16 ...)
; compiling (DEF %SET-SIGNED-SAP-REF-16 ...)
; compiling (DEF SAP-REF-32 ...)
; compiling (DEF %SET-SAP-REF-32 ...)
; compiling (DEF SIGNED-SAP-REF-32 ...)
; compiling (DEF %SET-SIGNED-SAP-REF-32 ...)
; compiling (DEF SAP-REF-64 ...)
; compiling (DEF %SET-SAP-REF-64 ...)
; compiling (DEF SIGNED-SAP-REF-64 ...)
; compiling (DEF %SET-SIGNED-SAP-REF-64 ...)
; compiling (DEF SAP-REF-SAP ...)
; compiling (DEF %SET-SAP-REF-SAP ...)
; compiling (DEF SAP-REF-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 ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/saptran.lisp
; in: DEF SIGNED-SAP-REF-8
;     (SB!C::DEF SB!SYS:SIGNED-SAP-REF-8 8)
; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM 
; --> LAMBDA FUNCTION LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET LET 
; ==>
;   (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::SIGNED-SAP-REF-8-WITH-OFFSET 8 0 0
;                                SB!C::OFFSET SB!C::DISP NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FOLD-INDEX-ADDRESSING

; in: DEF %SET-SAP-REF-8
;     (SB!C::DEF SB!KERNEL:%SET-SAP-REF-8 8 T (UNSIGNED-BYTE 8))
; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM 
; --> LAMBDA FUNCTION LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET LET 
; ==>
;   (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::%SET-SAP-REF-8-WITH-OFFSET 8 0 0
;                                SB!C::OFFSET SB!C::DISP T)
; 
; caught STYLE-WARNING:
;   undefined function: FOLD-INDEX-ADDRESSING

; in: DEF SAP-REF-8
;     (SB!C::DEF SB!SYS:SAP-REF-8 8)
; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM 
; --> LAMBDA FUNCTION LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET LET 
; ==>
;   (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::SAP-REF-8-WITH-OFFSET 8 0 0 SB!C::OFFSET
;                                SB!C::DISP NIL)
; 
; caught STYLE-WARNING:
;   undefined function: FOLD-INDEX-ADDRESSING

; 
; caught STYLE-WARNING:
;   17 more uses of undefined function FOLD-INDEX-ADDRESSING

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     FOLD-INDEX-ADDRESSING
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/saptran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/srctran.lisp" (written 30 JUN 2008 12:44:42 PM):
; 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 (DEFOPTIMIZER (LIST* DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...)
; compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...)
; compiling (DEFINE-SOURCE-TRANSFORM NTH ...)
; compiling (DEFTRANSFORM LAST ...)
; compiling (DEFINE-SOURCE-TRANSFORM GETHASH ...)
; compiling (DEFINE-SOURCE-TRANSFORM GET ...)
; compiling (DEFVAR *DEFAULT-NTHCDR-OPEN-CODE-LIMIT* ...)
; compiling (DEFVAR *EXTREME-NTHCDR-OPEN-CODE-LIMIT* ...)
; compiling (DEFTRANSFORM NTHCDR ...)
; compiling (DEFINE-SOURCE-TRANSFORM PLUSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM MINUSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM ZEROP ...)
; compiling (DEFINE-SOURCE-TRANSFORM 1+ ...)
; compiling (DEFINE-SOURCE-TRANSFORM 1- ...)
; compiling (DEFINE-SOURCE-TRANSFORM ODDP ...)
; compiling (DEFINE-SOURCE-TRANSFORM EVENP ...)
; compiling (DEFFROB TRUNCATE)
; compiling (DEFFROB ROUND)
; compiling (DEFFROB FLOOR)
; compiling (DEFFROB CEILING)
; compiling (DEFTRANSFORM LOGTEST ...)
; compiling (DEFTRANSFORM LOGBITP ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE-SIZE ...)
; compiling (DEFINE-SOURCE-TRANSFORM BYTE-POSITION ...)
; compiling (DEFINE-SOURCE-TRANSFORM LDB-TEST ...)
; compiling (DEFINE-SOURCE-TRANSFORM NUMERATOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM DENOMINATOR ...)
; compiling (DEF SIGNED-ZERO->= ...)
; compiling (DEF SIGNED-ZERO-> ...)
; compiling (DEF SIGNED-ZERO-= ...)
; compiling (DEF SIGNED-ZERO-< ...)
; compiling (DEF SIGNED-ZERO-<= ...)
; compiling (DEFSTRUCT (INTERVAL # ...) ...)
; compiling (DEFUN MAKE-INTERVAL ...)
; compiling (DECLAIM (INLINE SET-BOUND))
; compiling (DEFUN SET-BOUND ...)
; compiling (DEFUN BOUND-FUNC ...)
; compiling (DEFUN SAFE-DOUBLE-COERCION-P ...)
; compiling (DEFUN SAFE-SINGLE-COERCION-P ...)
; compiling (DEFMACRO SAFELY-BINOP ...)
; compiling (DEFMACRO BOUND-BINOP ...)
; compiling (DEFUN COERCE-FOR-BOUND ...)
; compiling (DEFUN COERCE-AND-TRUNCATE-FLOATS ...)
; compiling (DEFUN NUMERIC-TYPE->INTERVAL ...)
; compiling (DEFUN TYPE-APPROXIMATE-INTERVAL ...)
; compiling (DEFUN COPY-INTERVAL-LIMIT ...)
; compiling (DEFUN COPY-INTERVAL ...)
; compiling (DEFUN INTERVAL-SPLIT ...)
; compiling (DEFUN INTERVAL-CLOSURE ...)
; compiling (DEFUN INTERVAL-RANGE-INFO ...)
; compiling (DEFUN INTERVAL-BOUNDED-P ...)
; compiling (DEFUN INTERVAL-CONTAINS-P ...)
; compiling (DEFUN INTERVAL-INTERSECT-P ...)
; compiling (DEFUN INTERVAL-ADJACENT-P ...)
; compiling (DEFUN INTERVAL-INTERSECTION/DIFFERENCE ...)
; compiling (DEFUN INTERVAL-MERGE-PAIR ...)
; compiling (DEFUN INTERVAL-APPROXIMATE-UNION ...)
; compiling (DEFUN INTERVAL-NEG ...)
; compiling (DEFUN INTERVAL-ADD ...)
; compiling (DEFUN INTERVAL-SUB ...)
; compiling (DEFUN INTERVAL-MUL ...)
; compiling (DEFUN INTERVAL-DIV ...)
; compiling (DEFUN INTERVAL-FUNC ...)
; compiling (DEFUN INTERVAL-< ...)
; compiling (DEFUN INTERVAL->= ...)
; compiling (DEFUN INTERVAL-= ...)
; compiling (DEFUN INTERVAL-/= ...)
; compiling (DEFUN INTERVAL-ABS ...)
; compiling (DEFUN INTERVAL-SQR ...)
; compiling (DEFUN DERIVE-INTEGER-TYPE-AUX ...)
; compiling (DEFUN DERIVE-INTEGER-TYPE ...)
; compiling (DEFUN FLATTEN-LIST ...)
; compiling (DEFUN PREPARE-ARG-FOR-DERIVE-TYPE ...)
; compiling (DEFUN CONVERT-NUMERIC-TYPE ...)
; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE ...)
; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST ...)
; compiling (DEFUN MAKE-CANONICAL-UNION-TYPE ...)
; compiling (DEFUN CONVERT-MEMBER-TYPE ...)
; compiling (DEFUN ONE-ARG-DERIVE-TYPE ...)
; compiling (DEFUN TWO-ARG-DERIVE-TYPE ...)
; compiling (DEFUN +-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (+ DERIVE-TYPE) ...)
; compiling (DEFUN --DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (- DERIVE-TYPE) ...)
; compiling (DEFUN *-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (* DERIVE-TYPE) ...)
; compiling (DEFUN /-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (/ DERIVE-TYPE) ...)
; compiling (DEFUN ASH-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (ASH DERIVE-TYPE) ...)
; compiling (DEFUN LOGNOT-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (LOGNOT DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%NEGATE DERIVE-TYPE) ...)
; compiling (DEFUN ABS-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (ABS DERIVE-TYPE) ...)
; compiling (DEFUN REM-RESULT-TYPE ...)
; compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT ...)
; compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM ...)
; compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT-AUX ...)
; compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM-AUX ...)
; compiling (DEFOPTIMIZER (TRUNCATE DERIVE-TYPE) ...)
; compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT ...)
; compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT-AUX ...)
; compiling (DEFOPTIMIZER (FTRUNCATE DERIVE-TYPE) ...)
; compiling (DEFUN %UNARY-TRUNCATE-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (%UNARY-TRUNCATE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%UNARY-FTRUNCATE DERIVE-TYPE) ...)
; compiling (DEF FLOOR ...)
; compiling (DEF CEILING ...)
; compiling (DEF FFLOOR ...)
; compiling (DEF FCEILING ...)
; compiling (DEFUN FLOOR-QUOTIENT-BOUND ...)
; compiling (DEFUN FLOOR-REM-BOUND ...)
; compiling (DEFUN CEILING-QUOTIENT-BOUND ...)
; compiling (DEFUN CEILING-REM-BOUND ...)
; compiling (DEFUN TRUNCATE-QUOTIENT-BOUND ...)
; compiling (DEFUN TRUNCATE-REM-BOUND ...)
; compiling (DEFUN NUMERIC-RANGE-INFO ...)
; compiling (DEFUN INTEGER-TRUNCATE-DERIVE-TYPE ...)
; compiling (DEFUN RANDOM-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (RANDOM DERIVE-TYPE) ...)
; compiling (DEFUN INTEGER-TYPE-LENGTH ...)
; compiling (DEFUN LOGAND-DERIVE-UNSIGNED-LOW-BOUND ...)
; compiling (DEFUN LOGAND-DERIVE-UNSIGNED-HIGH-BOUND ...)
; compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...)
; compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-LOW-BOUND ...)
; compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-HIGH-BOUND ...)
; compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...)
; compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-LOW-BOUND ...)
; compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-HIGH-BOUND ...)
; compiling (DEFUN LOGXOR-DERIVE-TYPE-AUX ...)
; compiling (DEFFROB LOGAND)
; compiling (DEFFROB LOGIOR)
; compiling (DEFFROB LOGXOR)
; compiling (DEFOPTIMIZER (LOGEQV DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGNAND DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGNOR DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGANDC1 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGANDC2 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGORC1 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (LOGORC2 DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ISQRT DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (CODE-CHAR DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (VALUES DERIVE-TYPE) ...)
; compiling (DEFUN SIGNUM-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (SIGNUM DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM LDB ...)
; compiling (DEFINE-SOURCE-TRANSFORM DPB ...)
; compiling (DEFINE-SOURCE-TRANSFORM MASK-FIELD ...)
; compiling (DEFINE-SOURCE-TRANSFORM DEPOSIT-FIELD ...)
; compiling (DEFOPTIMIZER (%LDB DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%MASK-FIELD DERIVE-TYPE) ...)
; compiling (DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX ...)
; compiling (DEFOPTIMIZER (%DPB DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (%DEPOSIT-FIELD DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %LDB ...)
; compiling (DEFTRANSFORM %MASK-FIELD ...)
; compiling (DEFTRANSFORM %DPB ...)
; compiling (DEFTRANSFORM %DPB ...)
; compiling (DEFTRANSFORM %DEPOSIT-FIELD ...)
; compiling (DEFTRANSFORM %DEPOSIT-FIELD ...)
; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD DERIVE-TYPE) ...)
; compiling (DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ...)
; compiling (DEFUN CUT-TO-WIDTH ...)
; compiling (DEFUN BEST-MODULAR-VERSION ...)
; 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 (DEFUN EQ-COMPARABLE-TYPE-P ...)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFTRANSFORM EQUAL ...)
; compiling (DEFTRANSFORM = ...)
; compiling (DEFUN MAYBE-FLOAT-LVAR-P ...)
; compiling (FLET (#) ...)
; compiling (DEF = ...)
; compiling (DEF /= ...)
; compiling (DEF < ...)
; compiling (DEF > ...)
; compiling (DEF <= ...)
; compiling (DEF >= ...)
; compiling (DEFUN IR1-TRANSFORM-CHAR< ...)
; compiling (DEFTRANSFORM CHAR< ...)
; compiling (DEFTRANSFORM CHAR> ...)
; compiling (DEFUN MULTI-COMPARE ...)
; compiling (DEFINE-SOURCE-TRANSFORM = ...)
; compiling (DEFINE-SOURCE-TRANSFORM < ...)
; compiling (DEFINE-SOURCE-TRANSFORM > ...)
; compiling (DEFINE-SOURCE-TRANSFORM <= ...)
; compiling (DEFINE-SOURCE-TRANSFORM >= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR< ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR> ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR<= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR>= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-LESSP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-GREATERP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MULTI-NOT-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM /= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR/= ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL ...)
; compiling (DEFINE-SOURCE-TRANSFORM MAX ...)
; compiling (DEFINE-SOURCE-TRANSFORM MIN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN ASSOCIATE-ARGS ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/srctran.lisp
; in: DEFUN ASSOCIATE-ARGS
;     (DEFUN SB!C::ASSOCIATE-ARGS (FUNCTION SB!C::FIRST-ARG SB!C::MORE-ARGS)
;       (LET ((SB!C::NEXT (REST SB!C::MORE-ARGS))
;             (SB!C::ARG (FIRST SB!C::MORE-ARGS)))
;         (IF (NULL SB!C::NEXT)
;             (SB!IMPL::BACKQ-LIST FUNCTION SB!C::FIRST-ARG SB!C::ARG)
;             (SB!C::ASSOCIATE-ARGS FUNCTION
;                                   (SB!IMPL::BACKQ-LIST FUNCTION SB!C::FIRST-ARG
;                                                        SB!C::ARG)
;                                   SB!C::NEXT))))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!C::ASSOCIATE-ARGS
;                     (LAMBDA (FUNCTION SB!C::FIRST-ARG SB!C::MORE-ARGS)
;                       (BLOCK SB!C::ASSOCIATE-ARGS
;                         (LET (# #)
;                           (IF # # #)))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL LIST &REST T).

; compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...)
; compiling (DEFINE-SOURCE-TRANSFORM + ...)
; compiling (DEFINE-SOURCE-TRANSFORM * ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGIOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGXOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGAND ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; compiling (DEFINE-SOURCE-TRANSFORM GCD ...)
; compiling (DEFINE-SOURCE-TRANSFORM LCM ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SOURCE-TRANSFORM-INTRANSITIVE ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/srctran.lisp
; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE
;     (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;            (FUNCTION SB!C::ARGS SB!C::INVERSE)
;       (CASE (LENGTH SB!C::ARGS)
;         ((0 2) (VALUES NIL T))
;         (1 (SB!IMPL::BACKQ-APPEND SB!C::INVERSE (SB!IMPL::BACKQ-LIST #)))
;         (T (SB!C::ASSOCIATE-ARGS FUNCTION (FIRST SB!C::ARGS) (REST SB!C::ARGS)))))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;                     (LAMBDA (FUNCTION SB!C::ARGS SB!C::INVERSE)
;                       (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE
;                         (CASE (LENGTH SB!C::ARGS) (# #) (1 #) (T #)))))
; 
; note: type assertion too complex to check:
;  (VALUES LIST &OPTIONAL (MEMBER NIL T)).

; compiling (DEFINE-SOURCE-TRANSFORM - ...)
; compiling (DEFINE-SOURCE-TRANSFORM / ...)
; compiling (DEFINE-SOURCE-TRANSFORM APPLY ...)
; compiling (DEFUN CHECK-FORMAT-ARGS ...)
; compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFTRANSFORM FORMAT ...)
; compiling (DEFTRANSFORM PATHNAME ...)
; compiling (DEFTRANSFORM PATHNAME ...)
; compiling (DEF ERROR)
; compiling (DEF WARN)
; compiling (DEFOPTIMIZER (CERROR OPTIMIZER) ...)
; compiling (DEFOPTIMIZER (COERCE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (COMPILE DERIVE-TYPE) ...)
; compiling (DEFOPTIMIZER (ARRAY-ELEMENT-TYPE DERIVE-TYPE) ...)
; compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::SORT-VECTOR ...)
; compiling (DEFTRANSFORM POLICY-QUALITY ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/srctran.lisp
; in: DEFOPTIMIZER (CERROR OPTIMIZER)
;     (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING

; in: DEFUN CHECK-FORMAT-ARGS
;     (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING

; in: DEFSTRUCT INTERVAL
;     (DEFSTRUCT (SB!C::INTERVAL (:CONSTRUCTOR SB!C::%MAKE-INTERVAL) (:COPIER NIL))
;       SB!C::LOW
;       SB!C::HIGH)
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::INTERVAL
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!FORMAT:%COMPILER-WALK-FORMAT-STRING ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/srctran.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-tran.lisp" (written 24 APR 2008 12:43:59 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P ...)
; compiling (DEFINE-SOURCE-TRANSFORM CHAR-INT ...)
; compiling (DEFTRANSFORM ABS ...)
; compiling (DEFINE-SOURCE-TRANSFORM %BIGNUM-REF ...)
; compiling (DEFUN FOLD-INDEX-ADDRESSING ...)
; compiling (DEFTRANSFORM %BIGNUM-REF-WITH-OFFSET ...)
; compiling (DEFINE-SOURCE-TRANSFORM %VECTOR-RAW-BITS ...)
; compiling (DEFINE-SOURCE-TRANSFORM %RAW-BITS ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-VECTOR-RAW-BITS ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-RAW-BITS ...)
; compiling (DEFTRANSFORM %RAW-BITS-WITH-OFFSET ...)
; compiling (DEFTRANSFORM %SET-RAW-BITS-WITH-OFFSET ...)
; compiling (DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-LAYOUT ...)
; compiling (DEFINE-SOURCE-TRANSFORM %SET-FUNCALLABLE-INSTANCE-LAYOUT ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM DATA-VECTOR-REF ...)
; compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-REF ...)
; compiling (DEFTRANSFORM DATA-VECTOR-REF-WITH-OFFSET ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...)
; compiling (DEFTRANSFORM DATA-VECTOR-SET ...)
; compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-SET ...)
; compiling (DEFTRANSFORM DATA-VECTOR-SET-WITH-OFFSET ...)
; compiling (DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %DATA-VECTOR-AND-INDEX ...)
; compiling (DEF BIT-AND ...)
; compiling (DEF BIT-IOR ...)
; compiling (DEF BIT-XOR ...)
; compiling (DEF BIT-EQV ...)
; compiling (DEF BIT-NAND ...)
; compiling (DEF BIT-NOR ...)
; compiling (DEF BIT-ANDC1 ...)
; compiling (DEF BIT-ANDC2 ...)
; compiling (DEF BIT-ORC1 ...)
; compiling (DEF BIT-ORC2 ...)
; compiling (DEFTRANSFORM BIT-NOT ...)
; compiling (DEFTRANSFORM BIT-VECTOR-= ...)
; compiling (DEFTRANSFORM COUNT ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM FILL ...)
; compiling (DEFTRANSFORM %BYTE-BLT ...)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFTRANSFORM EQL ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGAND ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGIOR ...)
; compiling (DEFINE-GOOD-MODULAR-FUN LOGXOR ...)
; compiling (DEFINE-GOOD-SIGNED-MODULAR-FUNS LOGAND ...)
; compiling (DEF SB!VM::ASH-LEFT-SMOD30 ...)
; compiling (DEF SB!VM::ASH-LEFT-MOD32 ...)
; compiling (DEFINE-SOURCE-TRANSFORM WORD-LOGICAL-NOT ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-AND ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-NAND ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-OR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-NOR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-XOR ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-EQV ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ORC1 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ORC2 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ANDC1 ...)
; compiling (DEFTRANSFORM WORD-LOGICAL-ANDC2 ...)
; compiling (DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY ...)
; compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)
; compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/generic/vm-tran.lisp
; in: DEFUN FOLD-INDEX-ADDRESSING
;     (SB!VM::FOLDABLE-CONSTANT-OFFSET-P SB!C::ELEMENT-SIZE SB!C::LOWTAG
;                                        SB!C::DATA-OFFSET
;                                        (FUNCALL SB!C::FUNC SB!C::VALUE
;                                                 (SB!C::LVAR-VALUE SB!C::OFFSET)))
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM::FOLDABLE-CONSTANT-OFFSET-P

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB!VM::FOLDABLE-CONSTANT-OFFSET-P
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/vm-tran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/locall.lisp" (written 20 JUL 2008 10:52:08 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN PROPAGATE-TO-ARGS ...)
; compiling (DEFUN HANDLE-NESTED-DYNAMIC-EXTENT-LVARS ...)
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/locall.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/dfo.lisp" (written 06 FEB 2007 07:06:38 AM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/dfo.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/checkgen.lisp" (written 17 DEC 2007 03:34:28 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/checkgen.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/constraint.lisp" (written 18 FEB 2008 12:05:41 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFTYPE CONSTRAINT-Y ...)
; compiling (DEFSTRUCT (CONSTRAINT # ...) ...)
; compiling (DEFVAR *CONSTRAINT-NUMBER*)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFUN FIND-CONSTRAINT ...)
; compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...)
; compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR))
; compiling (DEFUN OK-REF-LAMBDA-VAR ...)
; compiling (DEFUN OK-LVAR-LAMBDA-VAR ...)
; compiling (DEFMACRO DO-EQL-VARS ...)
; compiling (DEFUN ADD-TEST-CONSTRAINT ...)
; compiling (DEFUN ADD-COMPLEMENT-CONSTRAINTS ...)
; compiling (DEFUN ADD-TEST-CONSTRAINTS ...)
; compiling (DEFUN INTEGER-TYPE-P ...)
; compiling (DEFUN CONSTRAIN-INTEGER-TYPE ...)
; compiling (DEFUN FLOAT-TYPE-P ...)
; compiling (DEFUN CONSTRAIN-FLOAT-TYPE ...)
; compiling (DEFUN CONSTRAIN-REF-TYPE ...)
; compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...)
; compiling (DEFUN INHERIT-CONSTRAINTS ...)
; compiling (DEFUN ADD-EQL-VAR-VAR-CONSTRAINT ...)
; compiling (DEFUN MAYBE-ADD-EQL-VAR-VAR-CONSTRAINT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK ...)
; compiling (DEFUN CONSTRAINT-PROPAGATE-IF ...)
; compiling (DEFUN CONSTRAIN-NODE ...)
; compiling (DEFUN FIND-BLOCK-TYPE-CONSTRAINTS ...)
; compiling (DEFUN USE-RESULT-CONSTRAINTS ...)
; compiling (DEFUN INIT-VAR-CONSTRAINTS ...)
; compiling (DEFUN BLOCK-OUT-FOR-SUCCESSOR ...)
; compiling (DEFUN COMPUTE-BLOCK-IN ...)
; compiling (DEFUN UPDATE-BLOCK-IN ...)
; compiling (DEFUN LEADING-COMPONENT-BLOCKS ...)
; compiling (DEFUN NCONC-NEW ...)
; compiling (DEFUN FIND-AND-PROPAGATE-CONSTRAINTS ...)
; compiling (DEFUN CONSTRAINT-PROPAGATE ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/constraint.lisp
; in: DEFSTRUCT CONSTRAINT
;     (DEFSTRUCT
;         (SB!C::CONSTRAINT (:INCLUDE SB!ASSEM:SSET-ELEMENT)
;          (:CONSTRUCTOR SB!C::MAKE-CONSTRAINT
;           (NUMBER SB!C::KIND SB!C::X SB!C::Y SB!C::NOT-P))
;          (:COPIER NIL))
;       (SB!C::KIND NIL :TYPE (MEMBER TYPEP < > EQL))
;       (SB!C::X NIL :TYPE SB!C::LAMBDA-VAR)
;       (SB!C::Y NIL :TYPE SB!C::CONSTRAINT-Y)
;       (SB!C::NOT-P NIL :TYPE BOOLEAN))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::CONSTRAINT
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/constraint.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/physenvanal.lisp" (written 08 MAY 2008 02:52:06 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN PHYSENV-ANALYZE ...)
; compiling (DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL ...)
; compiling (DEFUN GET-LAMBDA-PHYSENV ...)
; compiling (DEFUN REINIT-LAMBDA-PHYSENV ...)
; compiling (DEFUN GET-NODE-PHYSENV ...)
; compiling (DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES ...)
; compiling (DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES ...)
; compiling (DEFUN XEP-ALLOCATOR ...)
; compiling (DEFUN CLOSE-OVER ...)
; compiling (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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/physenvanal.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/tn.lisp" (written 14 JUL 2005 09: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/tn.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/life.lisp" (written 06 FEB 2007 07:51:30 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN ADD-GLOBAL-CONFLICT ...)
; compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...)
; compiling (DEFUN RESET-CURRENT-CONFLICT ...)
; compiling (DEFUN CACHED-BLOCK-PHYSENV ...)
; compiling (DEFUN CONVERT-TO-GLOBAL ...)
; compiling (DEFUN FIND-LOCAL-REFERENCES ...)
; compiling (DEFUN INIT-GLOBAL-CONFLICT-KIND ...)
; compiling (DEFEVENT SPLIT-IR2-BLOCK ...)
; compiling (DEFUN SPLIT-IR2-BLOCKS ...)
; compiling (DEFUN CLEAR-LIFETIME-INFO ...)
; compiling (DEFUN COALESCE-MORE-LTN-NUMBERS ...)
; file: /Users/nikodemus/src/sbcl/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 MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ...)
; compiling (DEFUN LIFETIME-ANALYZE ...)
; compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...)
; compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...)
; compiling (DEFUN TNS-CONFLICT ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/life.lisp
; in: DEFUN SPLIT-IR2-BLOCKS
;     (SB!C::ADD-TO-EMIT-ORDER SB!C::NEW SB!C::2BLOCK)
; 
; caught STYLE-WARNING:
;   undefined function: ADD-TO-EMIT-ORDER

; in: DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS
;     (SB!C::FIND-IN-PHYSENV SB!C::CLOSURE-VAR SB!C::PHYSENV)
; 
; caught STYLE-WARNING:
;   undefined function: FIND-IN-PHYSENV

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ADD-TO-EMIT-ORDER FIND-IN-PHYSENV
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/life.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/debug-info.lisp" (written 03 JUL 2008 10:24:49 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ENVIRONMENT-LIVE ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-SAVE-LOC-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ID-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MINIMAL-P ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-DELETED-P ...)
; compiling (DEFCONSTANT-EQX COMPILED-DEBUG-BLOCK-NSUCC-BYTE ...)
; compiling (DEF!CONSTANT COMPILED-DEBUG-BLOCK-ELSEWHERE-P ...)
; compiling (DEFCONSTANT-EQX COMPILED-CODE-LOCATION-KIND-BYTE ...)
; compiling (DEFPARAMETER *COMPILED-CODE-LOCATION-KINDS* ...)
; compiling (DEF!STRUCT (DEBUG-FUN #))
; compiling (DEF!STRUCT (COMPILED-DEBUG-FUN # ...) ...)
; compiling (DEF!STRUCT (DEBUG-SOURCE #) ...)
; compiling (DEF!STRUCT DEBUG-INFO ...)
; compiling (DEF!STRUCT (COMPILED-DEBUG-INFO # ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/debug-info.lisp
; in: DEF!STRUCT (DEBUG-SOURCE (:PURE T))
;     (SB!INT:DEF!STRUCT (SB!C::DEBUG-SOURCE (:PURE T))
;                        (NAMESTRING NIL :TYPE (OR NULL STRING))
;                        (SB!C::CREATED NIL :TYPE (OR UNSIGNED-BYTE NULL))
;                        (SB!C::SOURCE-ROOT 0 :TYPE SB!INT:INDEX)
;                        (SB!C::START-POSITIONS NIL :TYPE
;                         (OR (SIMPLE-ARRAY * (*)) NULL))
;                        (SB!KERNEL:FORM NIL :TYPE LIST) #'NIL
;                        (SB!C::COMPILED (SB!INT:MISSING-ARG) :TYPE UNSIGNED-BYTE)
;                        (SB!C::PLIST SB!C::*SOURCE-PLIST*))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::DEBUG-SOURCE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEF!STRUCT (COMPILED-DEBUG-FUN (:INCLUDE DEBUG-FUN) (:PURE T))
;     (SB!INT:DEF!STRUCT
;      (SB!C::COMPILED-DEBUG-FUN (:INCLUDE SB!C::DEBUG-FUN) (:PURE T))
;      (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE (OR SIMPLE-STRING CONS SYMBOL))
;      (SB!C::KIND NIL :TYPE (MEMBER NIL :OPTIONAL :EXTERNAL :TOPLEVEL :CLEANUP))
;      (SB!C::VARS NIL :TYPE (OR SIMPLE-VECTOR NULL))
;      (SB!C::BLOCKS NIL :TYPE (OR (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) NULL))
;      (SB!C::TLF-NUMBER NIL :TYPE (OR SB!INT:INDEX NULL))
;      (SB!C::ARGUMENTS NIL :TYPE (OR (SIMPLE-ARRAY * (*)) (MEMBER :MINIMAL NIL)))
;      (SB!C::RETURNS :FIXED :TYPE
;       (OR (SIMPLE-ARRAY * (*)) (MEMBER :STANDARD :FIXED)))
;      (SB!C::RETURN-PC (SB!INT:MISSING-ARG) :TYPE SB!C:SC-OFFSET)
;      (SB!C::OLD-FP (SB!INT:MISSING-ARG) :TYPE SB!C:SC-OFFSET)
;      (SB!C::NFP NIL :TYPE (OR SB!C:SC-OFFSET NULL)) ...)
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::COMPILED-DEBUG-FUN
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEF!STRUCT (DEBUG-FUN (:CONSTRUCTOR NIL))
;     (SB!INT:DEF!STRUCT (SB!C::DEBUG-FUN (:CONSTRUCTOR NIL)))
; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN 
; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::DEBUG-FUN
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/debug-info.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/debug-dump.lisp" (written 03 JUL 2008 10:24:50 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 LAMBDA-ANCESTOR-P ...)
; compiling (DEFUN DUMP-1-VAR ...)
; compiling (DEFUN COMPUTE-VARS ...)
; compiling (DEFUN COMPUTE-MINIMAL-VARS ...)
; compiling (DEFUN DEBUG-LOCATION-FOR ...)
; compiling (DEFUN COMPUTE-ARGS ...)
; compiling (DEFUN COMPUTE-DEBUG-RETURNS ...)
; compiling (DEFUN DFUN-FROM-FUN ...)
; compiling (DEFUN COMPUTE-1-DEBUG-FUN ...)
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/compiler/debug-dump.lisp
; in: DEFSTRUCT LOCATION-INFO
;     (DEFSTRUCT
;         (SB!C::LOCATION-INFO
;          (:CONSTRUCTOR SB!C::MAKE-LOCATION-INFO
;           (SB!C::KIND SB!ASSEM:LABEL SB!C::VOP))
;          (:COPIER NIL))
;       (SB!C::KIND NIL :TYPE SB!C::LOCATION-KIND)
;       (SB!ASSEM:LABEL NIL :TYPE (OR SB!ASSEM:LABEL SB!INT:INDEX NULL))
;       (SB!C::VOP NIL :TYPE SB!C::VOP))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::LOCATION-INFO
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN COMPUTE-DEBUG-BLOCKS
;     (SB!C::LABEL-ELSEWHERE-P (SB!C::LOCATION-INFO-LABEL SB!C::LOC))
; 
; caught STYLE-WARNING:
;   undefined function: LABEL-ELSEWHERE-P

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED LABEL-ELSEWHERE-P
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/debug-dump.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/utils.lisp" (written 07 MAY 2007 03:42:38 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN FIXNUMIZE ...)
; compiling (DEFUN FOLDABLE-CONSTANT-OFFSET-P ...)
; compiling (DEFUN STATIC-SYMBOL-P ...)
; compiling (DEFUN STATIC-SYMBOL-OFFSET ...)
; compiling (DEFUN OFFSET-STATIC-SYMBOL ...)
; compiling (DEFUN STATIC-FUN-OFFSET ...)
; compiling (DEFVAR *ADJUSTABLE-VECTORS* ...)
; compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/utils.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/fopcompile.lisp" (written 05 JUN 2008 07:55:09 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN FOPCOMPILABLE-P ...)
; compiling (DEFUN LET-FOPCOMPILABLE-P ...)
; compiling (DEFUN LAMBDA-FORM-P ...)
; compiling (DEFUN CONSTANT-FOPCOMPILABLE-P ...)
; compiling (DEFUN FOPCOMPILE ...)
; compiling (DEFUN FOPCOMPILE-FUNCTION ...)
; compiling (DEFUN FOPCOMPILE-IF ...)
; compiling (DEFUN FOPCOMPILE-CONSTANT ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/fopcompile.lisp
; in: DEFUN CONSTANT-FOPCOMPILABLE-P
;     (SB-XC:MAKE-LOAD-FORM SB!C::VALUE (SB!KERNEL:MAKE-NULL-LEXENV))
; 
; caught STYLE-WARNING:
;   undefined function: SB-XC:MAKE-LOAD-FORM

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB-XC:MAKE-LOAD-FORM
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/fopcompile.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/assembly/
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/assemfile.lisp" (written 22 AUG 2006 06: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: /Users/nikodemus/src/sbcl/src/assembly/assemfile.lisp
; in: DEFSTRUCT REG-SPEC
;     (DEFSTRUCT (SB!C::REG-SPEC (:COPIER NIL))
;       (SB!C::KIND :TEMP :TYPE (MEMBER :ARG :TEMP :RES))
;       (SB!C::NAME NIL :TYPE SYMBOL)
;       (SB!C::TEMP NIL :TYPE SYMBOL)
;       (SB!C::SCS NIL :TYPE (OR LIST SYMBOL))
;       (SB!C::OFFSET NIL))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::REG-SPEC
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN ASSEMBLE-FILE
;     (SB!C::INIT-ASSEMBLER)
; 
; caught STYLE-WARNING:
;   undefined function: INIT-ASSEMBLER

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED INIT-ASSEMBLER
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/assembly/assemfile.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/late-vmdef.lisp" (written 14 JUL 2005 09:57:00 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN NOTE-THIS-LOCATION ...)
; compiling (DEFUN NOTE-NEXT-INSTRUCTION ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/late-vmdef.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/fixup.lisp" (written 14 JUL 2005 09:52:38 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFSTRUCT (FIXUP # ...) ...)
; compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...)
; compiling (DEFVAR *FIXUP-NOTES*)
; compiling (DEFUN NOTE-FIXUP ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/fixup.lisp
; in: DEFSTRUCT FIXUP-NOTE
;     (DEFSTRUCT
;         (SB!C::FIXUP-NOTE
;          (:CONSTRUCTOR SB!C:MAKE-FIXUP-NOTE (SB!C::KIND SB!C:FIXUP POSITION))
;          (:COPIER NIL))
;       SB!C::KIND
;       SB!C:FIXUP
;       POSITION)
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C::FIXUP-NOTE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFSTRUCT FIXUP
;     (DEFSTRUCT
;         (SB!C:FIXUP
;          (:CONSTRUCTOR SB!C:MAKE-FIXUP
;           (SB!C::NAME SB!C::FLAVOR &OPTIONAL SB!C::OFFSET))
;          (:COPIER NIL))
;       SB!C::NAME
;       SB!C::FLAVOR
;       SB!C::OFFSET)
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!C:FIXUP
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/fixup.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/insts.lisp" (written 14 MAR 2008 10:10:18 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (SETF SB!DISASSEM:*DISASSEM-INST-ALIGNMENT-BYTES* ...)
; compiling (DEFTYPE REG ...)
; compiling (DEF!CONSTANT +DEFAULT-OPERAND-SIZE+ ...)
; compiling (DEFUN OFFSET-NEXT ...)
; compiling (DEFPARAMETER *DEFAULT-ADDRESS-SIZE* ...)
; compiling (DEFPARAMETER *BYTE-REG-NAMES* ...)
; compiling (DEFPARAMETER *WORD-REG-NAMES* ...)
; compiling (DEFPARAMETER *DWORD-REG-NAMES* ...)
; compiling (DEFUN PRINT-REG-WITH-WIDTH ...)
; compiling (DEFUN PRINT-REG ...)
; compiling (DEFUN PRINT-WORD-REG ...)
; compiling (DEFUN PRINT-BYTE-REG ...)
; compiling (DEFUN PRINT-ADDR-REG ...)
; compiling (DEFUN PRINT-REG/MEM ...)
; compiling (DEFUN PRINT-SIZED-REG/MEM ...)
; compiling (DEFUN PRINT-BYTE-REG/MEM ...)
; compiling (DEFUN PRINT-WORD-REG/MEM ...)
; compiling (DEFUN PRINT-LABEL ...)
; compiling (DEFUN PREFILTER-REG/MEM ...)
; compiling (DEFUN PREFILTER-WIDTH ...)
; compiling (DEFUN READ-ADDRESS ...)
; compiling (DEFUN WIDTH-BITS ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ...); 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE

; compiling (SB!DISASSEM:DEFINE-ARG-TYPE ACCUM ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-ACCUM ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE ADDR-REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-ADDR ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-DATA ...); 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB!DISASSEM:READ-SUFFIX

; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-BYTE ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DWORD ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD ...); 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB!DISASSEM:READ-SUFFIX

; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-WORD ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD-16 ...); 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB!DISASSEM:READ-SUFFIX

; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG/MEM ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-REG/MEM ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE BYTE-REG/MEM ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-REG/MEM ...)
; compiling (DEFUN PRINT-FP-REG ...)
; compiling (DEFUN PREFILTER-FP-REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE FP-REG ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WIDTH ...)
; compiling (DEFPARAMETER *CONDITIONS* ...)
; compiling (DEFPARAMETER *CONDITION-NAME-VEC* ...)
; compiling (SETF *ASSEM-SCHEDULER-P* ...)
; compiling (SB!DISASSEM:DEFINE-ARG-TYPE CONDITION-CODE ...)
; compiling (DEFUN CONDITIONAL-OPCODE ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BYTE 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE 8) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (TWO-BYTES 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE-DIR 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-IMM 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-NO-WIDTH 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-DIR 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (TWO-BYTES 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-REG/MEM 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-REG/MEM-DIR 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM-IMM 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-REG/MEM 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-REG/MEM 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-IMM 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-FP 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-FP-D 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-NO 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-3 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-5 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-ST 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (STRING-OP 8 ...))
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHORT-COND-JUMP 16) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHORT-JUMP 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-COND-JUMP 16) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-JUMP 8 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (COND-SET 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (COND-MOVE 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ENTER-FORMAT 32 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (PREFETCH 24 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BYTE-IMM 16 ...) ...)
; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (WORD-IMM 24 ...) ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-DWORD ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-BYTE-WITH-REG ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-MOD-REG-R/M-BYTE ...)
; compiling (DEFINE-BITFIELD-EMITTER EMIT-SIB-BYTE ...)
; compiling (DEFUN EMIT-ABSOLUTE-FIXUP ...)
; compiling (DEFUN EMIT-RELATIVE-FIXUP ...)
; compiling (DEFUN REG-TN-ENCODING ...)
; compiling (DEFSTRUCT (EA # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN EMIT-EA ...)
; compiling (DEFUN FP-REG-TN-P ...)
; compiling (DEFUN EMIT-FP-OP ...)
; compiling (DEFUN BYTE-REG-P ...)
; compiling (DEFUN BYTE-EA-P ...)
; compiling (DEFUN WORD-REG-P ...)
; compiling (DEFUN WORD-EA-P ...)
; compiling (DEFUN DWORD-REG-P ...)
; compiling (DEFUN DWORD-EA-P ...)
; compiling (DEFUN REGISTER-P ...)
; compiling (DEFUN ACCUMULATOR-P ...)
; compiling (DEF!CONSTANT +OPERAND-SIZE-PREFIX-BYTE+ ...)
; compiling (DEFUN MAYBE-EMIT-OPERAND-SIZE-PREFIX ...)
; compiling (DEFUN OPERAND-SIZE ...)
; compiling (DEFUN MATCHING-OPERAND-SIZE ...)
; compiling (DEFUN EMIT-SIZED-IMMEDIATE ...)
; compiling (DEFUN TOGGLE-WORD-WIDTH ...)
; compiling (DEFINE-INSTRUCTION OPERAND-SIZE-PREFIX ...)
; compiling (DEFINE-INSTRUCTION MOV ...)
; compiling (DEFUN EMIT-MOVE-WITH-EXTENSION ...)
; compiling (DEFINE-INSTRUCTION MOVSX ...)
; compiling (DEFINE-INSTRUCTION MOVZX ...)
; compiling (DEFINE-INSTRUCTION PUSH ...)
; compiling (DEFINE-INSTRUCTION PUSHA ...)
; compiling (DEFINE-INSTRUCTION POP ...)
; compiling (DEFINE-INSTRUCTION POPA ...)
; compiling (DEFINE-INSTRUCTION XCHG ...)
; compiling (DEFINE-INSTRUCTION LEA ...)
; compiling (DEFINE-INSTRUCTION CMPXCHG ...)
; compiling (DEFINE-INSTRUCTION FS-SEGMENT-PREFIX ...)
; compiling (DEFINE-INSTRUCTION GS-SEGMENT-PREFIX ...)
; compiling (DEFINE-INSTRUCTION CLC ...)
; compiling (DEFINE-INSTRUCTION CLD ...)
; compiling (DEFINE-INSTRUCTION CLI ...)
; compiling (DEFINE-INSTRUCTION CMC ...)
; compiling (DEFINE-INSTRUCTION LAHF ...)
; compiling (DEFINE-INSTRUCTION POPF ...)
; compiling (DEFINE-INSTRUCTION PUSHF ...)
; compiling (DEFINE-INSTRUCTION SAHF ...)
; compiling (DEFINE-INSTRUCTION STC ...)
; compiling (DEFINE-INSTRUCTION STD ...)
; compiling (DEFINE-INSTRUCTION STI ...)
; compiling (DEFUN EMIT-RANDOM-ARITH-INST ...)
; compiling (DEFINE-INSTRUCTION ADD ...)
; compiling (DEFINE-INSTRUCTION ADC ...)
; compiling (DEFINE-INSTRUCTION SUB ...)
; compiling (DEFINE-INSTRUCTION SBB ...)
; compiling (DEFINE-INSTRUCTION CMP ...)
; compiling (DEFINE-INSTRUCTION INC ...)
; compiling (DEFINE-INSTRUCTION DEC ...)
; compiling (DEFINE-INSTRUCTION NEG ...)
; compiling (DEFINE-INSTRUCTION AAA ...)
; compiling (DEFINE-INSTRUCTION AAS ...)
; compiling (DEFINE-INSTRUCTION DAA ...)
; compiling (DEFINE-INSTRUCTION DAS ...)
; compiling (DEFINE-INSTRUCTION MUL ...)
; compiling (DEFINE-INSTRUCTION IMUL ...)
; compiling (DEFINE-INSTRUCTION DIV ...)
; compiling (DEFINE-INSTRUCTION IDIV ...)
; compiling (DEFINE-INSTRUCTION AAD ...)
; compiling (DEFINE-INSTRUCTION AAM ...)
; compiling (DEFINE-INSTRUCTION CBW ...)
; compiling (DEFINE-INSTRUCTION CWDE ...)
; compiling (DEFINE-INSTRUCTION CWD ...)
; compiling (DEFINE-INSTRUCTION CDQ ...)
; compiling (DEFINE-INSTRUCTION XADD ...)
; compiling (DEFUN EMIT-SHIFT-INST ...)
; compiling (DEFINE-INSTRUCTION ROL ...)
; compiling (DEFINE-INSTRUCTION ROR ...)
; compiling (DEFINE-INSTRUCTION RCL ...)
; compiling (DEFINE-INSTRUCTION RCR ...)
; compiling (DEFINE-INSTRUCTION SHL ...)
; compiling (DEFINE-INSTRUCTION SHR ...)
; compiling (DEFINE-INSTRUCTION SAR ...)
; compiling (DEFUN EMIT-DOUBLE-SHIFT ...)
; compiling (DEFINE-INSTRUCTION SHLD ...)
; compiling (DEFINE-INSTRUCTION SHRD ...)
; compiling (DEFINE-INSTRUCTION AND ...)
; compiling (DEFINE-INSTRUCTION TEST ...)
; compiling (DEFUN EMIT-OPTIMIZED-TEST-INST ...)
; compiling (DEFINE-INSTRUCTION OR ...)
; compiling (DEFINE-INSTRUCTION XOR ...)
; compiling (DEFINE-INSTRUCTION NOT ...)
; compiling (DEFINE-INSTRUCTION CMPS ...)
; compiling (DEFINE-INSTRUCTION INS ...)
; compiling (DEFINE-INSTRUCTION LODS ...)
; compiling (DEFINE-INSTRUCTION MOVS ...)
; compiling (DEFINE-INSTRUCTION OUTS ...)
; compiling (DEFINE-INSTRUCTION SCAS ...)
; compiling (DEFINE-INSTRUCTION STOS ...)
; compiling (DEFINE-INSTRUCTION XLAT ...)
; compiling (DEFINE-INSTRUCTION REP ...)
; compiling (DEFINE-INSTRUCTION REPE ...)
; compiling (DEFINE-INSTRUCTION REPNE ...)
; compiling (DEFINE-INSTRUCTION BSF ...)
; compiling (DEFINE-INSTRUCTION BSR ...)
; compiling (DEFUN EMIT-BIT-TEST-AND-MUMBLE ...)
; compiling (DEFINE-INSTRUCTION BT ...)
; compiling (DEFINE-INSTRUCTION BTC ...)
; compiling (DEFINE-INSTRUCTION BTR ...)
; compiling (DEFINE-INSTRUCTION BTS ...)
; compiling (DEFINE-INSTRUCTION CALL ...)
; compiling (DEFUN EMIT-BYTE-DISPLACEMENT-BACKPATCH ...)
; compiling (DEFINE-INSTRUCTION JMP ...)
; compiling (DEFINE-INSTRUCTION JMP-SHORT ...)
; compiling (DEFINE-INSTRUCTION RET ...)
; compiling (DEFINE-INSTRUCTION JECXZ ...)
; compiling (DEFINE-INSTRUCTION LOOP ...)
; compiling (DEFINE-INSTRUCTION LOOPZ ...)
; compiling (DEFINE-INSTRUCTION LOOPNZ ...)
; compiling (DEFINE-INSTRUCTION CMOV ...)
; compiling (DEFINE-INSTRUCTION SET ...)
; compiling (DEFINE-INSTRUCTION ENTER ...)
; compiling (DEFINE-INSTRUCTION LEAVE ...)
; compiling (DEFINE-INSTRUCTION PREFETCHNTA ...)
; compiling (DEFINE-INSTRUCTION PREFETCHT0 ...)
; compiling (DEFINE-INSTRUCTION PREFETCHT1 ...)
; compiling (DEFINE-INSTRUCTION PREFETCHT2 ...)
; compiling (DEFUN SNARF-ERROR-JUNK ...)
; compiling (DEFUN BREAK-CONTROL ...)
; compiling (DEFINE-INSTRUCTION BREAK ...)
; compiling (DEFINE-INSTRUCTION INT ...)
; compiling (DEFINE-INSTRUCTION INTO ...)
; compiling (DEFINE-INSTRUCTION BOUND ...)
; compiling (DEFINE-INSTRUCTION IRET ...)
; compiling (DEFINE-INSTRUCTION HLT ...)
; compiling (DEFINE-INSTRUCTION NOP ...)
; compiling (DEFINE-INSTRUCTION WAIT ...)
; compiling (DEFINE-INSTRUCTION LOCK ...)
; compiling (DEFINE-INSTRUCTION BYTE ...)
; compiling (DEFINE-INSTRUCTION WORD ...)
; compiling (DEFINE-INSTRUCTION DWORD ...)
; compiling (DEFUN EMIT-HEADER-DATA ...)
; compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...)
; compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...)
; compiling (DEFINE-INSTRUCTION FLD ...)
; compiling (DEFINE-INSTRUCTION FLDD ...)
; compiling (DEFINE-INSTRUCTION FLDL ...)
; compiling (DEFINE-INSTRUCTION FST ...)
; compiling (DEFINE-INSTRUCTION FSTD ...)
; compiling (DEFINE-INSTRUCTION FADD ...)
; compiling (DEFINE-INSTRUCTION FADDD ...)
; compiling (DEFINE-INSTRUCTION FADD-STI ...)
; compiling (DEFINE-INSTRUCTION FADDP-STI ...)
; compiling (DEFINE-INSTRUCTION FSUB ...)
; compiling (DEFINE-INSTRUCTION FSUBR ...)
; compiling (DEFINE-INSTRUCTION FSUBD ...)
; compiling (DEFINE-INSTRUCTION FSUBRD ...)
; compiling (DEFINE-INSTRUCTION FSUB-STI ...)
; compiling (DEFINE-INSTRUCTION FSUBP-STI ...)
; compiling (DEFINE-INSTRUCTION FSUBR-STI ...)
; compiling (DEFINE-INSTRUCTION FSUBRP-STI ...)
; compiling (DEFINE-INSTRUCTION FMUL ...)
; compiling (DEFINE-INSTRUCTION FMULD ...)
; compiling (DEFINE-INSTRUCTION FMUL-STI ...)
; compiling (DEFINE-INSTRUCTION FDIV ...)
; compiling (DEFINE-INSTRUCTION FDIVR ...)
; compiling (DEFINE-INSTRUCTION FDIVD ...)
; compiling (DEFINE-INSTRUCTION FDIVRD ...)
; compiling (DEFINE-INSTRUCTION FDIV-STI ...)
; compiling (DEFINE-INSTRUCTION FDIVR-STI ...)
; compiling (DEFINE-INSTRUCTION FXCH ...)
; compiling (DEFINE-INSTRUCTION FILD ...)
; compiling (DEFINE-INSTRUCTION FILDL ...)
; compiling (DEFINE-INSTRUCTION FIST ...)
; compiling (DEFINE-INSTRUCTION FISTP ...)
; compiling (DEFINE-INSTRUCTION FISTPL ...)
; compiling (DEFINE-INSTRUCTION FSTP ...)
; compiling (DEFINE-INSTRUCTION FSTPD ...)
; compiling (DEFINE-INSTRUCTION FSTPL ...)
; compiling (DEFINE-INSTRUCTION FDECSTP ...)
; compiling (DEFINE-INSTRUCTION FINCSTP ...)
; compiling (DEFINE-INSTRUCTION FFREE ...)
; compiling (DEFINE-INSTRUCTION FABS ...)
; compiling (DEFINE-INSTRUCTION FCHS ...)
; compiling (DEFINE-INSTRUCTION FRNDINT ...)
; compiling (DEFINE-INSTRUCTION FNINIT ...)
; compiling (DEFINE-INSTRUCTION FNSTSW ...)
; compiling (DEFINE-INSTRUCTION FLDCW ...)
; compiling (DEFINE-INSTRUCTION FNSTCW ...)
; compiling (DEFINE-INSTRUCTION FSTENV ...)
; compiling (DEFINE-INSTRUCTION FLDENV ...)
; compiling (DEFINE-INSTRUCTION FSAVE ...)
; compiling (DEFINE-INSTRUCTION FRSTOR ...)
; compiling (DEFINE-INSTRUCTION FNCLEX ...)
; compiling (DEFINE-INSTRUCTION FCOM ...)
; compiling (DEFINE-INSTRUCTION FCOMD ...)
; compiling (DEFINE-INSTRUCTION FCOMPP ...)
; compiling (DEFINE-INSTRUCTION FUCOM ...)
; compiling (DEFINE-INSTRUCTION FTST ...)
; compiling (DEFINE-INSTRUCTION FSQRT ...)
; compiling (DEFINE-INSTRUCTION FSCALE ...)
; compiling (DEFINE-INSTRUCTION FXTRACT ...)
; compiling (DEFINE-INSTRUCTION FSIN ...)
; compiling (DEFINE-INSTRUCTION FCOS ...)
; compiling (DEFINE-INSTRUCTION FPREM1 ...)
; compiling (DEFINE-INSTRUCTION FPREM ...)
; compiling (DEFINE-INSTRUCTION FXAM ...)
; compiling (DEFINE-INSTRUCTION FYL2X ...)
; compiling (DEFINE-INSTRUCTION FYL2XP1 ...)
; compiling (DEFINE-INSTRUCTION F2XM1 ...)
; compiling (DEFINE-INSTRUCTION FPTAN ...)
; compiling (DEFINE-INSTRUCTION FPATAN ...)
; compiling (DEFINE-INSTRUCTION FLDZ ...)
; compiling (DEFINE-INSTRUCTION FLD1 ...)
; compiling (DEFINE-INSTRUCTION FLDPI ...)
; compiling (DEFINE-INSTRUCTION FLDL2T ...)
; compiling (DEFINE-INSTRUCTION FLDL2E ...)
; compiling (DEFINE-INSTRUCTION FLDLG2 ...)
; compiling (DEFINE-INSTRUCTION FLDLN2 ...)
; compiling (DEFINE-INSTRUCTION CPUID ...)
; compiling (DEFINE-INSTRUCTION RDTSC ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/insts.lisp
; in: DEFSTRUCT EA
;     (DEFSTRUCT
;         (SB!VM::EA
;          (:CONSTRUCTOR SB!VM::MAKE-EA
;           (SB!VM::SIZE &KEY SB!VM::BASE SB!INT:INDEX SB!VM::SCALE SB!VM::DISP))
;          (:COPIER NIL))
;       (SB!VM::SIZE NIL :TYPE (MEMBER :BYTE :WORD :DWORD))
;       (SB!VM::BASE NIL :TYPE (OR SB!C:TN NULL))
;       (SB!INT:INDEX NIL :TYPE (OR SB!C:TN NULL))
;       (SB!VM::SCALE 1 :TYPE (MEMBER 1 2 4 8))
;       (SB!VM::DISP 0 :TYPE (OR (UNSIGNED-BYTE 32) (SIGNED-BYTE 32) SB!C:FIXUP)))
; --> 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::EA
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN EMIT-HEADER-DATA
;     (SB!C:COMPONENT-HEADER-LENGTH)
; 
; caught STYLE-WARNING:
;   undefined function: COMPONENT-HEADER-LENGTH

; in: DEFUN EMIT-ABSOLUTE-FIXUP
;     (SB!C:COMPONENT-HEADER-LENGTH)
; 
; caught STYLE-WARNING:
;   undefined function: COMPONENT-HEADER-LENGTH

; in: DEFUN BREAK-CONTROL
;     (SB!DISASSEM:HANDLE-BREAK-ARGS #'SB!VM::SNARF-ERROR-JUNK STREAM SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:HANDLE-BREAK-ARGS

; in: SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT
;     (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE

; in: DEFUN BREAK-CONTROL
;     (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:NOTE

; in: DEFUN PRINT-BYTE-REG/MEM
;     (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM T SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-MEM-ACCESS

; in: DEFUN PRINT-SIZED-REG/MEM
;     (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM T SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-MEM-ACCESS

; in: DEFUN PRINT-REG/MEM
;     (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM NIL SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: PRINT-MEM-ACCESS

; 
; caught STYLE-WARNING:
;   1 more use of undefined function PRINT-MEM-ACCESS


; file: /Users/nikodemus/src/sbcl/src/compiler/x86/insts.lisp
; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-DATA
;     (SB!DISASSEM:READ-SUFFIX
;      (SB!VM::WIDTH-BITS
;       (SB!DISASSEM:DSTATE-GET-PROP SB!VM::DSTATE 'SB!VM::WIDTH))
;      SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX

; in: DEFUN READ-ADDRESS
;     (SB!DISASSEM:READ-SUFFIX (SB!VM::WIDTH-BITS SB!VM::*DEFAULT-ADDRESS-SIZE*)
;      SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX

; in: DEFUN PREFILTER-REG/MEM
;     (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DISASSEM:READ-SUFFIX

; 
; caught STYLE-WARNING:
;   2 more uses of undefined function SB!DISASSEM:READ-SUFFIX

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED COMPONENT-HEADER-LENGTH SB!DISASSEM:HANDLE-BREAK-ARGS SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!DISASSEM:NOTE PRINT-MEM-ACCESS SB!DISASSEM:READ-SUFFIX
; 
; compilation unit finished
;   caught 23 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/insts.lisp-obj-tmp written
; compilation finished in 0:00:07
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/macros.lisp" (written 19 JUL 2008 07:07:52 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFMACRO WITH-TN@FP-TOP ...)
; compiling (DEFMACRO WITH-EMPTY-TN@FP-TOP ...)
; compiling (DEFMACRO MOVE ...)
; compiling (DEFMACRO ALIGN-STACK-POINTER ...)
; compiling (DEFMACRO MAKE-EA-FOR-OBJECT-SLOT ...)
; compiling (DEFMACRO LOADW ...)
; compiling (DEFMACRO STOREW ...)
; compiling (DEFMACRO STOREB ...)
; compiling (DEFMACRO PUSHW ...)
; compiling (DEFMACRO POPW ...)
; compiling (DEFMACRO MAKE-EA-FOR-VECTOR-DATA ...)
; compiling (DEFMACRO LOAD-SYMBOL ...)
; compiling (DEFMACRO MAKE-EA-FOR-SYMBOL-VALUE ...)
; compiling (DEFMACRO LOAD-SYMBOL-VALUE ...)
; compiling (DEFMACRO STORE-SYMBOL-VALUE ...)
; compiling (DEFMACRO LOAD-TL-SYMBOL-VALUE ...)
; compiling (DEFMACRO STORE-TL-SYMBOL-VALUE ...)
; compiling (DEFMACRO LOAD-BINDING-STACK-POINTER ...)
; compiling (DEFMACRO STORE-BINDING-STACK-POINTER ...)
; compiling (DEFMACRO LOAD-TYPE ...)
; compiling (DEFUN ALLOCATION-DYNAMIC-EXTENT ...)
; compiling (DEFUN ALLOCATION-NOTINLINE ...)
; compiling (DEFUN ALLOCATION-INLINE ...)
; compiling (DEFUN ALLOCATION ...)
; compiling (DEFMACRO WITH-FIXED-ALLOCATION ...)
; compiling (DEFUN EMIT-ERROR-BREAK ...)
; compiling (DEFUN ERROR-CALL ...)
; compiling (DEFUN GENERATE-ERROR-CODE ...)
; compiling (DEFMACRO MAYBE-PSEUDO-ATOMIC ...)
; compiling (DEFMACRO PSEUDO-ATOMIC ...)
; compiling (DEFMACRO DEFINE-FULL-COMPARE-AND-SWAP ...)
; compiling (DEFMACRO DEFINE-FULL-REFFER ...)
; compiling (DEFMACRO DEFINE-FULL-REFFER+OFFSET ...)
; compiling (DEFMACRO DEFINE-FULL-SETTER ...)
; compiling (DEFMACRO DEFINE-FULL-SETTER+OFFSET ...)
; compiling (DEF!MACRO WITH-PINNED-OBJECTS ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/early-type-vops.lisp" (written 14 JUL 2005 09:35:35 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/generic/early-type-vops.lisp
; in: DEFPARAMETER *IMMEDIATE-TYPES*
;     (LIST SB!VM:SINGLE-FLOAT-WIDETAG)
; --> CONS 
; ==>
;   SB!VM:SINGLE-FLOAT-WIDETAG
; 
; note: deleting unreachable code

; compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...)
; compiling (DEFUN CANONICALIZE-HEADERS ...)
; compiling (DEFMACRO TEST-TYPE ...); in: LAMBDA NIL
;     (AND (= SB!VM:N-WORD-BITS 64) SB!VM::IMMEDIATES SB!VM::HEADERS)
; --> IF AND IF 
; ==>
;   SB!VM::IMMEDIATES
; 
; note: deleting unreachable code

; --> IF AND IF AND 
; ==>
;   SB!VM::HEADERS
; 
; note: deleting unreachable code

;     'SB!VM::%TEST-FIXNUM-IMMEDIATE-AND-HEADERS
; 
; note: deleting unreachable code

;     'SB!VM::%TEST-FIXNUM-AND-IMMEDIATE
; 
; note: deleting unreachable code

;     'SB!VM::%TEST-IMMEDIATE-AND-HEADERS
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 5 notes

; file: /Users/nikodemus/src/sbcl/src/compiler/generic/early-type-vops.lisp
; in: DEFMACRO TEST-TYPE
;     (AND (= SB!VM:N-WORD-BITS 64) SB!VM::IMMEDIATES SB!VM::HEADERS)
; --> IF AND IF 
; ==>
;   SB!VM::IMMEDIATES
; 
; note: deleting unreachable code

; --> IF AND IF AND 
; ==>
;   SB!VM::HEADERS
; 
; note: deleting unreachable code

;     'SB!VM::%TEST-FIXNUM-IMMEDIATE-AND-HEADERS
; 
; note: deleting unreachable code

;     'SB!VM::%TEST-FIXNUM-AND-IMMEDIATE
; 
; note: deleting unreachable code

;     'SB!VM::%TEST-IMMEDIATE-AND-HEADERS
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 6 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj-tmp written
; compilation finished in 0:00:01
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/assembly/target/
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/x86/support.lisp" (written 07 MAR 2006 08:47:38 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (!DEF-VM-SUPPORT-ROUTINE GENERATE-CALL-SEQUENCE ...)
; compiling (!DEF-VM-SUPPORT-ROUTINE GENERATE-RETURN-SEQUENCE ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/assembly/target/support.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/move.lisp" (written 24 APR 2008 07:08:48 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-NUMBER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-CHARACTER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-CONSTANT 5) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-STACK 5) ...)
; compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...)
; compiling (DEFINE-VOP (MOVE) ...)
; compiling (DEFINE-MOVE-VOP MOVE ...)
; compiling (PRIMITIVE-TYPE-VOP MOVE ...)
; compiling (DEFINE-VOP (MOVE-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (ILLEGAL-MOVE) ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD/FIXNUM) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD-C) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD-C ...)
; compiling (DEFINE-VOP (MOVE-TO-WORD/INTEGER) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER ...)
; compiling (DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM ...)
; compiling (DEFINE-VOP (MOVE-FROM-SIGNED) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-SIGNED ...)
; compiling (DEFINE-VOP (MOVE-FROM-UNSIGNED) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED ...)
; compiling (DEFINE-VOP (WORD-MOVE) ...)
; compiling (DEFINE-MOVE-VOP WORD-MOVE ...)
; compiling (DEFINE-VOP (MOVE-WORD-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-WORD-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/move.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/float.lisp" (written 12 APR 2007 05:28:52 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN EA-FOR-SF-DESC ...)
; compiling (DEFUN EA-FOR-DF-DESC ...)
; compiling (DEFUN EA-FOR-CSF-REAL-DESC ...)
; compiling (DEFUN EA-FOR-CSF-IMAG-DESC ...)
; compiling (DEFUN EA-FOR-CDF-REAL-DESC ...)
; compiling (DEFUN EA-FOR-CDF-IMAG-DESC ...)
; compiling (DEFUN EA-FOR-SF-STACK ...)
; compiling (DEFUN EA-FOR-DF-STACK ...)
; compiling (DEFUN MAYBE-FP-WAIT ...)
; compiling (DEFUN EA-FOR-CSF-REAL-STACK ...)
; compiling (DEFUN EA-FOR-CSF-IMAG-STACK ...)
; compiling (DEFUN EA-FOR-CDF-REAL-STACK ...)
; compiling (DEFUN EA-FOR-CDF-IMAG-STACK ...)
; compiling (DEFUN COPY-FP-REG-TO-FR0 ...)
; compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-FP-CONSTANT 2) ...)
; compiling (DEFUN COMPLEX-SINGLE-REG-REAL-TN ...)
; compiling (DEFUN COMPLEX-SINGLE-REG-IMAG-TN ...)
; compiling (DEFUN COMPLEX-DOUBLE-REG-REAL-TN ...)
; compiling (DEFUN COMPLEX-DOUBLE-REG-IMAG-TN ...)
; compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2) ...)
; compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 2) ...)
; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 2) ...)
; compiling (DEFINE-VOP (FLOAT-MOVE) ...)
; compiling (DEFINE-VOP (SINGLE-MOVE FLOAT-MOVE) ...)
; compiling (DEFINE-MOVE-VOP SINGLE-MOVE ...)
; compiling (DEFINE-VOP (DOUBLE-MOVE FLOAT-MOVE) ...)
; compiling (DEFINE-MOVE-VOP DOUBLE-MOVE ...)
; compiling (DEFINE-VOP (COMPLEX-FLOAT-MOVE) ...)
; compiling (DEFINE-VOP (COMPLEX-SINGLE-MOVE COMPLEX-FLOAT-MOVE) ...)
; compiling (DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE ...)
; compiling (DEFINE-VOP (COMPLEX-DOUBLE-MOVE COMPLEX-FLOAT-MOVE) ...)
; compiling (DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE ...)
; compiling (DEFINE-VOP (MOVE-FROM-SINGLE) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/float.lisp
; in: DEFINE-VOP (MOVE-FROM-SINGLE)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::Y SB!VM:SINGLE-FLOAT-WIDETAG SB!VM:SINGLE-FLOAT-SIZE SB!VM::NODE)
;      (SB!VM::WITH-TN@FP-TOP (SB!VM::X)
;                             (SB!ASSEM:INST SB!VM::FST
;                                            (SB!VM::EA-FOR-SF-DESC SB!VM::Y))))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-SF-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

; compiling (DEFINE-MOVE-VOP MOVE-FROM-SINGLE ...)
; compiling (DEFINE-VOP (MOVE-FROM-DOUBLE) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/float.lisp
; in: DEFINE-VOP (MOVE-FROM-DOUBLE)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::Y SB!VM:DOUBLE-FLOAT-WIDETAG SB!VM:DOUBLE-FLOAT-SIZE SB!VM::NODE)
;      (SB!VM::WITH-TN@FP-TOP (SB!VM::X)
;                             (SB!ASSEM:INST SB!VM::FSTD
;                                            (SB!VM::EA-FOR-DF-DESC SB!VM::Y))))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-DF-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

; compiling (DEFINE-MOVE-VOP MOVE-FROM-DOUBLE ...)
; compiling (DEFINE-VOP (MOVE-FROM-FP-CONSTANT) ...)
; compiling (DEFINE-MOVE-VOP MOVE-FROM-FP-CONSTANT ...)
; compiling (DEFINE-VOP (MOVE-TO-SINGLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-SINGLE ...)
; compiling (DEFINE-VOP (MOVE-TO-DOUBLE) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-DOUBLE ...)
; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/float.lisp
; in: DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::Y SB!VM:COMPLEX-SINGLE-FLOAT-WIDETAG SB!VM:COMPLEX-SINGLE-FLOAT-SIZE
;       SB!VM::NODE)
;      (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X)))
;        (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                               (SB!ASSEM:INST SB!VM::FST
;                                              (SB!VM::EA-FOR-CSF-REAL-DESC
;                                               SB!VM::Y))))
;      (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X)))
;        (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                               (SB!ASSEM:INST SB!VM::FST
;                                              (SB!VM::EA-FOR-CSF-IMAG-DESC
;                                               SB!VM::Y)))))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

;     (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                              (SB!ASSEM:INST SB!VM::FST
;                                             (SB!VM::EA-FOR-CSF-REAL-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-CSF-REAL-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

;     (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                              (SB!ASSEM:INST SB!VM::FST
;                                             (SB!VM::EA-FOR-CSF-REAL-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                              (SB!ASSEM:INST SB!VM::FST
;                                             (SB!VM::EA-FOR-CSF-IMAG-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-CSF-IMAG-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

;     (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                              (SB!ASSEM:INST SB!VM::FST
;                                             (SB!VM::EA-FOR-CSF-IMAG-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...)
; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/float.lisp
; in: DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::Y SB!VM:COMPLEX-DOUBLE-FLOAT-WIDETAG SB!VM:COMPLEX-DOUBLE-FLOAT-SIZE
;       SB!VM::NODE)
;      (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X)))
;        (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                               (SB!ASSEM:INST SB!VM::FSTD
;                                              (SB!VM::EA-FOR-CDF-REAL-DESC
;                                               SB!VM::Y))))
;      (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X)))
;        (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                               (SB!ASSEM:INST SB!VM::FSTD
;                                              (SB!VM::EA-FOR-CDF-IMAG-DESC
;                                               SB!VM::Y)))))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

;     (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                              (SB!ASSEM:INST SB!VM::FSTD
;                                             (SB!VM::EA-FOR-CDF-REAL-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-CDF-REAL-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

;     (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN)
;                              (SB!ASSEM:INST SB!VM::FSTD
;                                             (SB!VM::EA-FOR-CDF-REAL-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                              (SB!ASSEM:INST SB!VM::FSTD
;                                             (SB!VM::EA-FOR-CDF-IMAG-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

;     (SB!VM::EA-FOR-CDF-IMAG-DESC SB!VM::Y)
; ==>
;   SB!VM::Y
; 
; note: deleting unreachable code

;     (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X)))
;       (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN)
;                              (SB!ASSEM:INST SB!VM::FSTD
;                                             (SB!VM::EA-FOR-CDF-IMAG-DESC
;                                              SB!VM::Y))))
; 
; note: deleting unreachable code

; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...)
; compiling (FROB MOVE-TO-COMPLEX-SINGLE ...)
; compiling (FROB MOVE-TO-COMPLEX-DOUBLE ...)
; compiling (FROB MOVE-SINGLE-FLOAT-ARG ...)
; compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...)
; compiling (FROB MOVE-COMPLEX-SINGLE-FLOAT-ARG ...)
; compiling (FROB MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (FROB + ...)
; compiling (FROB - ...)
; compiling (FROB * ...)
; compiling (FROB / ...)
; compiling (FROB ABS/SINGLE-FLOAT ...)
; compiling (FROB ABS/DOUBLE-FLOAT ...)
; compiling (FROB %NEGATE/SINGLE-FLOAT ...)
; compiling (FROB %NEGATE/DOUBLE-FLOAT ...)
; compiling (DEFINE-VOP (=/FLOAT) ...)
; compiling (DEFINE-VOP (=/SINGLE-FLOAT =/FLOAT) ...)
; compiling (DEFINE-VOP (=/DOUBLE-FLOAT =/FLOAT) ...)
; compiling (DEFINE-VOP (<SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (<DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (>SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (>DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (FLOAT-TEST) ...)
; compiling (DEFINE-VOP (=0/SINGLE-FLOAT FLOAT-TEST) ...)
; compiling (DEFINE-VOP (=0/DOUBLE-FLOAT FLOAT-TEST) ...)
; compiling (DEFINE-VOP (<0/SINGLE-FLOAT FLOAT-TEST) ...)
; compiling (DEFINE-VOP (<0/DOUBLE-FLOAT FLOAT-TEST) ...)
; compiling (DEFINE-VOP (>0/SINGLE-FLOAT FLOAT-TEST) ...)
; compiling (DEFINE-VOP (>0/DOUBLE-FLOAT FLOAT-TEST) ...)
; compiling (FROB %SINGLE-FLOAT/SIGNED ...)
; compiling (FROB %DOUBLE-FLOAT/SIGNED ...)
; compiling (FROB %SINGLE-FLOAT/UNSIGNED ...)
; compiling (FROB %DOUBLE-FLOAT/UNSIGNED ...)
; compiling (FROB %SINGLE-FLOAT/DOUBLE-FLOAT ...)
; compiling (FROB %DOUBLE-FLOAT/SINGLE-FLOAT ...)
; compiling (FROB %UNARY-TRUNCATE ...)
; compiling (FROB %UNARY-TRUNCATE ...)
; compiling (FROB %UNARY-ROUND ...)
; compiling (FROB %UNARY-ROUND ...)
; 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 (DEF!CONSTANT NPX-ENV-SIZE ...)
; compiling (DEF!CONSTANT NPX-CW-OFFSET ...)
; compiling (DEF!CONSTANT NPX-SW-OFFSET ...)
; compiling (DEFINE-VOP (FLOATING-POINT-MODES) ...)
; compiling (DEFINE-VOP (SET-FLOATING-POINT-MODES) ...)
; compiling (FROB FSIN-QUICK ...)
; compiling (FROB FCOS-QUICK ...)
; compiling (FROB FSQRT ...)
; compiling (DEFINE-VOP (FTAN-QUICK) ...)
; compiling (FROB FSIN ...)
; compiling (FROB FCOS ...)
; compiling (DEFINE-VOP (FTAN) ...)
; compiling (DEFINE-VOP (FEXP) ...)
; compiling (DEFINE-VOP (FEXPM1) ...)
; compiling (DEFINE-VOP (FLOG) ...)
; compiling (DEFINE-VOP (FLOG10) ...)
; compiling (DEFINE-VOP (FPOW) ...)
; compiling (DEFINE-VOP (FSCALEN) ...)
; compiling (DEFINE-VOP (FSCALE) ...)
; compiling (DEFINE-VOP (FLOG1P) ...)
; compiling (DEFINE-VOP (FLOG1P-PENTIUM) ...)
; compiling (DEFINE-VOP (FLOGB) ...)
; compiling (DEFINE-VOP (FATAN) ...)
; compiling (DEFINE-VOP (FATAN2) ...)
; compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (COMPLEX-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE) ...)
; compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE) ...)
; compiling (DEFKNOWN DOUBLE-FLOAT-REG-BIAS ...)
; compiling (DEFINE-VOP (DOUBLE-FLOAT-REG-BIAS) ...)
; compiling (DEFKNOWN SINGLE-FLOAT-REG-BIAS ...)
; compiling (DEFINE-VOP (SINGLE-FLOAT-REG-BIAS) ...); 
; compilation unit finished
;   printed 18 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/float.lisp-obj-tmp written
; compilation finished in 0:00:05
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/sap.lisp" (written 07 APR 2007 11:00:25 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (MOVE-TO-SAP) ...)
; compiling (DEFINE-MOVE-VOP MOVE-TO-SAP ...)
; compiling (DEFINE-VOP (MOVE-FROM-SAP) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/sap.lisp
; in: DEFINE-VOP (MOVE-FROM-SAP)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::RES SB!VM:SAP-WIDETAG SB!VM:SAP-SIZE SB!VM::NODE)
;      (SB!VM::STOREW SB!VM::SAP SB!VM::RES SB!VM:SAP-POINTER-SLOT
;                     SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::SAP SB!VM::RES SB!VM:SAP-POINTER-SLOT
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::SAP
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RES
; 
; note: deleting unreachable code

; compiling (DEFINE-MOVE-VOP MOVE-FROM-SAP ...)
; compiling (DEFINE-VOP (SAP-MOVE) ...)
; compiling (DEFINE-MOVE-VOP SAP-MOVE ...)
; compiling (DEFINE-VOP (MOVE-SAP-ARG) ...)
; compiling (DEFINE-MOVE-VOP MOVE-SAP-ARG ...)
; compiling (DEFINE-MOVE-VOP MOVE-ARG ...)
; compiling (DEFINE-VOP (SAP-INT) ...)
; compiling (DEFINE-VOP (INT-SAP) ...)
; compiling (DEFINE-VOP (POINTER+) ...)
; compiling (DEFINE-VOP (POINTER-) ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-8-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-8-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-16-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-16-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-32-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-32-WITH-OFFSET ...)
; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-SAP-WITH-OFFSET ...)
; compiling (DEFINE-VOP (SAP-REF-DOUBLE-WITH-OFFSET) ...)
; compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE-WITH-OFFSET) ...)
; compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE-WITH-OFFSET-C) ...)
; compiling (DEFINE-VOP (SAP-REF-SINGLE-WITH-OFFSET) ...)
; compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE-WITH-OFFSET) ...)
; compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE-WITH-OFFSET-C) ...)
; compiling (DEFINE-VOP (SAP-REF-LONG) ...)
; compiling (DEFINE-VOP (SAP-REF-LONG-C) ...)
; compiling (DEFINE-VOP (VECTOR-SAP) ...)
; compiling (DEFTRANSFORM SAP-REF-64 ...)
; compiling (DEFTRANSFORM SIGNED-SAP-REF-64 ...)
; compiling (DEFTRANSFORM %SET-SAP-REF-64 ...)
; compiling (DEFTRANSFORM %SET-SIGNED-SAP-REF-64 ...); 
; compilation unit finished
;   printed 4 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/sap.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/system.lisp" (written 17 MAY 2008 02:02:29 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (LOWTAG-OF) ...)
; compiling (DEFINE-VOP (WIDETAG-OF) ...)
; compiling (DEFINE-VOP (FUN-SUBTYPE) ...)
; compiling (DEFINE-VOP (SET-FUN-SUBTYPE) ...)
; compiling (DEFINE-VOP (GET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (GET-CLOSURE-LENGTH) ...)
; compiling (DEFINE-VOP (SET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (POINTER-HASH) ...)
; compiling (DEFINE-VOP (MAKE-OTHER-IMMEDIATE-TYPE) ...)
; compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...)
; compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...)
; compiling (DEFKNOWN (SETF BINDING-STACK-POINTER-SAP) ...)
; compiling (DEFINE-VOP (SET-BINDING-STACK-POINTER-SAP) ...)
; compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...)
; compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...)
; compiling (DEFINE-VOP (COMPUTE-FUN) ...)
; compiling (DEFINE-VOP (%SIMPLE-FUN-SELF) ...)
; compiling (DEFINE-SOURCE-TRANSFORM %CLOSURE-FUN ...)
; compiling (DEFINE-VOP (%SET-FUN-SELF) ...)
; compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...)
; compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...)
; compiling (DEFINE-VOP (HALT) ...)
; compiling (DEFKNOWN FLOAT-WAIT ...)
; compiling (DEFINE-VOP (FLOAT-WAIT) ...)
; compiling (DEFKNOWN %READ-CYCLE-COUNTER ...)
; compiling (DEFINE-VOP (%READ-CYCLE-COUNTER) ...)
; compiling (DEFMACRO WITH-CYCLE-COUNTER ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/system.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/char.lisp" (written 10 APR 2007 04:20:25 AM):
; 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 (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) ...)
; compiling (DEFINE-VOP (FAST-CHAR>/CHARACTER/C CHARACTER-COMPARE/C) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/char.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/memory.lisp" (written 12 APR 2007 05:55:07 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (CELL-REF) ...)
; compiling (DEFINE-VOP (CELL-SET) ...)
; compiling (DEFINE-VOP (CELL-SETF) ...)
; compiling (DEFINE-VOP (CELL-SETF-FUN) ...)
; compiling (DEFMACRO DEFINE-CELL-ACCESSORS ...)
; compiling (DEFINE-VOP (CELL-XADD) ...)
; compiling (DEFINE-VOP (SLOT-REF) ...)
; compiling (DEFINE-VOP (SLOT-SET) ...)
; compiling (DEFINE-VOP (SLOT-SET-CONDITIONAL) ...)
; compiling (DEFINE-VOP (SLOT-XADD) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/memory.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/static-fn.lisp" (written 14 JUL 2005 10:13:48 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (STATIC-FUN-TEMPLATE) ...)
; compiling (DEFUN STATIC-FUN-TEMPLATE-NAME ...)
; compiling (DEFUN MOVES ...)
; compiling (DEFUN STATIC-FUN-TEMPLATE-VOP ...)
; compiling (FROB 0 ...)
; compiling (FROB 1 ...)
; compiling (FROB 2 ...)
; compiling (FROB 3 ...)
; compiling (DEFMACRO DEFINE-STATIC-FUN ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/static-fn.lisp
; in:
;      MACROLET ((FROB (NUM-ARGS NUM-RES)
;             (STATIC-FUN-TEMPLATE-VOP (EVAL NUM-ARGS) (EVAL NUM-RES))))
;     (SB!VM::FROB 2 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET 
; ==>
;   (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-UNKNOWN-VALUES

;     (SB!VM::FROB 1 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET 
; ==>
;   (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-UNKNOWN-VALUES

;     (SB!VM::FROB 0 1)
; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* 
; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET 
; ==>
;   (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1)
; 
; caught STYLE-WARNING:
;   undefined function: DEFAULT-UNKNOWN-VALUES

; 
; caught STYLE-WARNING:
;   1 more use of undefined function DEFAULT-UNKNOWN-VALUES

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     DEFAULT-UNKNOWN-VALUES
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/static-fn.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/arith.lisp" (written 24 APR 2008 07:08:48 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-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-BINOP - ...)
; compiling (DEFINE-BINOP LOGAND ...)
; compiling (DEFINE-BINOP LOGIOR ...)
; compiling (DEFINE-BINOP LOGXOR ...)
; compiling (DEFINE-VOP (FAST-+/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-+-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-+/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-LOGAND/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGAND-C/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND-C/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGAND/UNSIGNED-SIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-+-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-+/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-+-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-TRUNCATE-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...)
; compiling (DEFINE-VOP (FAST-ASH-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED) ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %LEA ...)
; compiling (DEFOPTIMIZER (%LEA DERIVE-TYPE) ...)
; compiling (DEFUN %LEA ...)
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (%LEA/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (%LEA/SIGNED=>SIGNED) ...)
; compiling (DEFINE-VOP (%LEA/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-CMOV-ASH/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (SIGNED-BYTE-32-LEN) ...)
; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-LEN) ...)
; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-COUNT) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/FIXNUM FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/SIGNED FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/SIGNED FAST-CONDITIONAL/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL/UNSIGNED FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...)
; compiling (DEFINE-LOGTEST-VOPS)
; compiling (DEFKNOWN %LOGBITP ...)
; compiling (DEFUN %LOGBITP ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP/SIGNED FAST-CONDITIONAL/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...)
; compiling (DEFINE-CONDITIONAL-VOP < ...)
; compiling (DEFINE-CONDITIONAL-VOP > ...)
; compiling (DEFINE-VOP (FAST-IF-EQL/SIGNED FAST-CONDITIONAL/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-IF-EQL-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...)
; compiling (DEFINE-VOP (FAST-IF-EQL/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-IF-EQL-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-EQL/FIXNUM FAST-CONDITIONAL) ...)
; compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...)
; compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...)
; compiling (DEFINE-VOP (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 (DEFMACRO DEFINE-MOD-BINOP ...)
; compiling (DEFMACRO DEFINE-MOD-BINOP-C ...); 
; caught STYLE-WARNING:
;   The variable VOP32CF is defined but never used.

; compiling (DEF + ...)
; compiling (DEF - ...)
; compiling (DEF * ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32/UNSIGNED=>UNSIGNED FAST-ASH-LEFT/UNSIGNED=>UNSIGNED))
; compiling (DEFTRANSFORM ASH-LEFT-MOD32 ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-SMOD30-C/FIXNUM=>FIXNUM FAST-ASH-C/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-VOP (FAST-ASH-LEFT-SMOD30/FIXNUM=>FIXNUM FAST-ASH-LEFT/FIXNUM=>FIXNUM))
; compiling (DEFTRANSFORM ASH-LEFT-SMOD30 ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN SB!VM::%LEA-MOD32 ...)
; compiling (DEFKNOWN SB!VM::%LEA-SMOD30 ...)
; compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...)
; compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...)
; compiling (DEFUN SB!VM::%LEA-MOD32 ...)
; compiling (DEFUN SB!VM::%LEA-SMOD30 ...)
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (%LEA-MOD32/UNSIGNED=>UNSIGNED %LEA/UNSIGNED=>UNSIGNED) ...)
; compiling (DEFINE-VOP (%LEA-SMOD30/FIXNUM=>FIXNUM %LEA/FIXNUM=>FIXNUM) ...)
; compiling (DEFINE-MODULAR-FUN LOGNOT-MOD32 ...)
; compiling (DEFINE-VOP (LOGNOT-MOD32/WORD=>UNSIGNED) ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGANDC1 ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGANDC2 ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGORC1 ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGORC2 ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGNOR ...)
; compiling (DEFINE-SOURCE-TRANSFORM LOGNAND ...)
; compiling (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...)
; compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...)
; compiling (DEFINE-FULL-REFFER BIGNUM-REF ...)
; compiling (DEFINE-FULL-REFFER+OFFSET BIGNUM-REF-WITH-OFFSET ...)
; compiling (DEFINE-FULL-SETTER BIGNUM-SET ...)
; compiling (DEFINE-VOP (DIGIT-0-OR-PLUS) ...)
; compiling (DEFINE-VOP (ADD-W/CARRY) ...)
; compiling (DEFINE-VOP (SUB-W/BORROW) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG) ...)
; compiling (DEFINE-VOP (BIGNUM-MULT) ...)
; compiling (DEFINE-VOP (BIGNUM-LOGNOT LOGNOT-MOD32/WORD=>UNSIGNED) ...)
; compiling (DEFINE-VOP (FIXNUM-TO-DIGIT) ...)
; compiling (DEFINE-VOP (BIGNUM-FLOOR) ...)
; compiling (DEFINE-VOP (SIGNIFY-DIGIT) ...)
; compiling (DEFINE-VOP (DIGIT-ASHR) ...)
; compiling (DEFINE-VOP (DIGIT-ASHR/C) ...)
; compiling (DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR) ...)
; compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...)
; compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...)
; compiling (DEFKNOWN RANDOM-MT19937 ...)
; compiling (DEFINE-VOP (RANDOM-MT19937) ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN MASK-RESULT ...)
; compiling (DEFUN BASIC-DECOMPOSE-MULTIPLICATION ...)
; compiling (DEFUN DECOMPOSE-MULTIPLICATION ...)
; compiling (DEFUN OPTIMIZE-MULTIPLY ...)
; compiling (DEFUN *-TRANSFORMER ...)
; compiling (DEFTRANSFORM * ...)
; compiling (DEFTRANSFORM SB!VM::*-MOD32 ...)
; compiling (DEFTRANSFORM * ...)
; compiling (DEFTRANSFORM SB!VM::*-SMOD30 ...); 
; compilation unit finished
;   caught 1 STYLE-WARNING condition


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/arith.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/subprim.lisp" (written 24 APR 2008 07:08:48 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (LENGTH/LIST) ...)
; compiling (DEFINE-VOP (FAST-LENGTH/LIST) ...)
; compiling (DEFINE-STATIC-FUN LENGTH ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/subprim.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/debug.lisp" (written 28 JUN 2007 05:24:49 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (DEBUG-CUR-SP) ...)
; compiling (DEFINE-VOP (DEBUG-CUR-FP) ...)
; compiling (DEFINE-VOP (READ-CONTROL-STACK) ...)
; compiling (DEFINE-VOP (READ-CONTROL-STACK-C) ...)
; compiling (DEFINE-VOP (WRITE-CONTROL-STACK) ...)
; compiling (DEFINE-VOP (WRITE-CONTROL-STACK-C) ...)
; compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (CODE-FROM-FUNCTION CODE-FROM-MUMBLE) ...)
; compiling (DEFINE-VOP (%MAKE-LISP-OBJ) ...)
; compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...)
; compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/debug.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/early-aliencomp.lisp" (written 16 JAN 2006 04:45:46 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFKNOWN %ALIEN-FUNCALL ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/early-aliencomp.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/c-call.lisp" (written 17 MAR 2008 07:13:41 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN MY-MAKE-WIRED-TN ...)
; compiling (DEFSTRUCT (ARG-STATE #) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...)
; compiling (DEFSTRUCT (RESULT-STATE #) ...)
; compiling (DEFUN RESULT-REG-OFFSET ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...)
; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...)
; compiling (!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 (SET-FPU-WORD-FOR-C) ...)
; compiling (DEFINE-VOP (SET-FPU-WORD-FOR-LISP) ...)
; compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...)
; compiling (DEFINE-VOP (ALLOC-ALIEN-STACK-SPACE) ...)
; compiling (DEFINE-VOP (DEALLOC-ALIEN-STACK-SPACE) ...)
; compiling (DEFINE-VOP (TOUCH-OBJECT) ...)
; compiling (DEFUN ALIEN-CALLBACK-ACCESSOR-FORM ...)
; compiling (DEFUN ALIEN-CALLBACK-ASSEMBLER-WRAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/c-call.lisp
; in: DEFSTRUCT RESULT-STATE
;     (DEFSTRUCT (SB!VM::RESULT-STATE (:COPIER NIL)) (SB!VM::NUM-RESULTS 0))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!VM::RESULT-STATE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFSTRUCT ARG-STATE
;     (DEFSTRUCT (SB!VM::ARG-STATE (:COPIER NIL)) (SB!VM::STACK-FRAME-SIZE 0))
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!VM::ARG-STATE
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/c-call.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/cell.lisp" (written 29 MAY 2008 07:11:09 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (SLOT) ...)
; compiling (DEFINE-VOP (SET-SLOT) ...)
; compiling (DEFINE-VOP (COMPARE-AND-SWAP-SLOT) ...)
; compiling (DEFINE-VOP (%COMPARE-AND-SWAP-SYMBOL-VALUE) ...)
; compiling (DEFINE-VOP (SET CELL-SET) ...)
; compiling (DEFINE-VOP (SYMBOL-VALUE) ...)
; compiling (DEFINE-VOP (FAST-SYMBOL-VALUE CELL-REF) ...)
; compiling (DEFKNOWN LOCKED-SYMBOL-GLOBAL-VALUE-ADD ...)
; compiling (DEFINE-VOP (LOCKED-SYMBOL-GLOBAL-VALUE-ADD) ...)
; compiling (DEFINE-VOP (BOUNDP) ...)
; compiling (DEFINE-VOP (SYMBOL-HASH) ...)
; compiling (DEFINE-VOP (FDEFN-FUN CELL-REF) ...)
; compiling (DEFINE-VOP (SAFE-FDEFN-FUN) ...)
; compiling (DEFINE-VOP (SET-FDEFN-FUN) ...)
; compiling (DEFINE-VOP (FDEFN-MAKUNBOUND) ...)
; compiling (DEFINE-VOP (BIND) ...)
; compiling (DEFINE-VOP (UNBIND) ...)
; compiling (DEFINE-VOP (UNBIND-TO-HERE) ...)
; compiling (DEFINE-VOP (BIND-SENTINEL) ...)
; compiling (DEFINE-VOP (UNBIND-SENTINEL) ...)
; compiling (DEFINE-FULL-REFFER CLOSURE-INDEX-REF ...)
; compiling (DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO ...)
; compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...)
; compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...)
; compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...)
; compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...)
; compiling (DEFINE-VOP (INSTANCE-LENGTH) ...)
; compiling (DEFINE-FULL-REFFER INSTANCE-INDEX-REF ...)
; compiling (DEFINE-FULL-SETTER INSTANCE-INDEX-SET ...)
; compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-INSTANCE-REF ...)
; compiling (DEFINE-FULL-REFFER CODE-HEADER-REF ...)
; compiling (DEFINE-FULL-SETTER CODE-HEADER-SET ...)
; compiling (DEFUN MAKE-EA-FOR-RAW-SLOT ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-REF/WORD) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-SET/WORD) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/WORD) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-REF/SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-SET/SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-REF/DOUBLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-SET/DOUBLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/DOUBLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-SINGLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-DOUBLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-DOUBLE) ...)
; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-DOUBLE) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/cell.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/values.lisp" (written 24 APR 2008 07:08:48 AM):
; 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) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/values.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/alloc.lisp" (written 19 JUL 2008 07:07:52 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFOPTIMIZER (CONS STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...)
; compiling (DEFINE-VOP (LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...)
; compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-HEAP) ...)
; compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-STACK) ...)
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE) ...)
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (ALLOCATE-CODE-OBJECT) ...)
; compiling (DEFINE-VOP (MAKE-FDEFN) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/alloc.lisp
; in: DEFINE-VOP (MAKE-FDEFN)
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::RESULT SB!VM:FDEFN-WIDETAG SB!VM:FDEFN-SIZE SB!VM::NODE)
;      (SB!VM::STOREW SB!VM::NAME SB!VM::RESULT SB!VM:FDEFN-NAME-SLOT
;                     SB!VM:OTHER-POINTER-LOWTAG)
;      (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::RESULT SB!VM:FDEFN-FUN-SLOT
;                     SB!VM:OTHER-POINTER-LOWTAG)
;      (SB!VM::STOREW (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!VM::RESULT
;                     SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM::NODE
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::NAME SB!VM::RESULT SB!VM:FDEFN-NAME-SLOT
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::NAME
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RESULT
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::RESULT SB!VM:FDEFN-FUN-SLOT
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::NIL-VALUE
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RESULT
; 
; note: deleting unreachable code

;     (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN)
; ==>
;   "undefined_tramp"
; 
; note: deleting unreachable code

;     (SB!VM::STOREW (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!VM::RESULT
;                    SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG)
; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RESULT
; 
; note: deleting unreachable code

; compiling (DEFINE-VOP (MAKE-CLOSURE) ...)
; compiling (DEFINE-VOP (MAKE-VALUE-CELL) ...)
; compiling (DEFINE-VOP (MAKE-UNBOUND-MARKER) ...)
; compiling (DEFINE-VOP (MAKE-FUNCALLABLE-INSTANCE-TRAMP) ...)
; compiling (DEFINE-VOP (FIXED-ALLOC) ...)
; compiling (DEFINE-VOP (VAR-ALLOC) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/alloc.lisp
; in: DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE)
;     (SB!C::ANNOTATE-1-VALUE-LVAR SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::ANNOTATE-1-VALUE-LVAR

;     (SB!C::IS-OK-TEMPLATE-USE SB!C::TEMPLATE SB!C:CALL
;                               (SB!C::LTN-POLICY-SAFE-P SB!C::LTN-POLICY))
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::IS-OK-TEMPLATE-USE

;     (SB!C::LTN-DEFAULT-CALL SB!C:CALL)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::LTN-DEFAULT-CALL

;     (SB!C::LTN-POLICY-SAFE-P SB!C::LTN-POLICY)
; 
; caught STYLE-WARNING:
;   undefined function: SB!C::LTN-POLICY-SAFE-P

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!C::ANNOTATE-1-VALUE-LVAR SB!C::IS-OK-TEMPLATE-USE SB!C::LTN-DEFAULT-CALL SB!C::LTN-POLICY-SAFE-P
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions
;   printed 8 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/alloc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/call.lisp" (written 19 JUL 2008 07:07:52 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 (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 (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) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/call.lisp
; in: DEFINE-VOP (COPY-MORE-ARG)
;     (SB!ASSEM:INST SB!VM::TEST SB!VM::ECX-TN SB!VM::ECX-TN)
; --> SB!VM::TEST-INST-EMITTER 
; ==>
;   SB!VM::ECX-TN
; 
; note: deleting unreachable code

; compiling (DEFINE-VOP (MORE-KW-ARG) ...)
; compiling (DEFINE-VOP (MORE-ARG) ...)
; compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...)
; compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...)
; compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...)
; compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...)
; compiling (DEF ARG-COUNT-ERROR ...)
; compiling (DEF TYPE-CHECK-ERROR ...)
; compiling (DEF LAYOUT-INVALID-ERROR ...)
; compiling (DEF ODD-KEY-ARGS-ERROR ...)
; compiling (DEF UNKNOWN-KEY-ARG-ERROR ...)
; compiling (DEF NIL-FUN-RETURNED-ERROR ...)
; compiling (DEFUN EMIT-SINGLE-STEP-TEST ...)
; compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/call.lisp
; 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

; in: DEFINE-VOP (COPY-MORE-ARG)
;     (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; in: DEFINE-VOP (ALLOCATE-FRAME)
;     (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; in: DEFINE-VOP (XEP-ALLOCATE-FRAME)
;     (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ALLOCATED-SIZE

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     CALLEE-RETURN-PC-TN SB-ALLOCATED-SIZE
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/call.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/nlx.lisp" (written 05 MAR 2008 05:11:19 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 (DEFUN CATCH-BLOCK-EA ...)
; compiling (DEFINE-VOP (SAVE-DYNAMIC-STATE) ...)
; compiling (DEFINE-VOP (RESTORE-DYNAMIC-STATE) ...)
; compiling (DEFINE-VOP (CURRENT-STACK-POINTER) ...)
; compiling (DEFINE-VOP (CURRENT-BINDING-POINTER) ...)
; compiling (DEFINE-VOP (MAKE-UNWIND-BLOCK) ...)
; compiling (DEFINE-VOP (MAKE-CATCH-BLOCK) ...)
; compiling (DEFINE-VOP (SET-UNWIND-PROTECT) ...)
; compiling (DEFINE-VOP (UNLINK-CATCH-BLOCK) ...)
; compiling (DEFINE-VOP (UNLINK-UNWIND-PROTECT) ...)
; compiling (DEFINE-VOP (NLX-ENTRY) ...)
; compiling (DEFINE-VOP (NLX-ENTRY-MULTIPLE) ...)
; compiling (DEFINE-VOP (UWP-ENTRY) ...)
; compiling (DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/nlx.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/late-nlx.lisp" (written 14 JUL 2005 09:35:35 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (!DEF-VM-SUPPORT-ROUTINE MAKE-DYNAMIC-STATE-TNS ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/late-nlx.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/show.lisp" (written 06 MAY 2007 08:56:28 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (PRINT) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/show.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/array.lisp" (written 24 APR 2008 07:08:48 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...)
; compiling (DEFINE-FULL-REFFER %ARRAY-DIMENSION ...)
; compiling (DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION ...)
; compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...)
; compiling (DEFINE-VOP (CHECK-BOUND) ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-30 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-29 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...)
; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...)
; compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-SVREF ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2 ...)
; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4 ...)
; compiling (DEFUN MAKE-EA-FOR-FLOAT-REF ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-8 ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...)
; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-16 ...)
; compiling (DEFINE-FULL-REFFER+OFFSET RAW-BITS-WITH-OFFSET ...)
; compiling (DEFINE-FULL-SETTER+OFFSET SET-RAW-BITS-WITH-OFFSET ...)
; compiling (DEFINE-VOP (GET-VECTOR-SUBTYPE GET-HEADER-DATA))
; compiling (DEFINE-VOP (SET-VECTOR-SUBTYPE SET-HEADER-DATA))

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/array.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/array.lisp" (written 08 MAY 2008 06:05:22 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (DATA-VECTOR-REF/SIMPLE-ARRAY-NIL) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-NIL) ...)
; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/pred.lisp" (written 17 APR 2007 08:19:46 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-VOP (BRANCH) ...)
; compiling (DEFINE-VOP (IF-EQ) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/pred.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/type-vops.lisp" (written 24 APR 2008 07:08:48 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN GENERATE-FIXNUM-TEST ...)
; compiling (DEFUN %TEST-FIXNUM ...)
; compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...)
; compiling (DEFUN %TEST-IMMEDIATE ...)
; compiling (DEFUN %TEST-LOWTAG ...)
; compiling (DEFUN %TEST-HEADERS ...)
; compiling (DEFINE-VOP (CHECK-TYPE) ...)
; compiling (DEFINE-VOP (TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (SIMPLE-CHECK-TYPE) ...)
; compiling (DEFINE-VOP (SIMPLE-TYPE-PREDICATE) ...)
; compiling (DEFUN COST-TO-TEST-TYPES ...)
; compiling (DEFMACRO !DEFINE-TYPE-VOPS ...)
; compiling (DEFINE-VOP (FIXNUMP/UNSIGNED-BYTE-32 SIMPLE-TYPE-PREDICATE) ...)
; compiling (DEFINE-VOP (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) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/type-vops.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/late-type-vops.lisp" (written 17 APR 2007 07:19:36 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (!DEFINE-TYPE-VOPS FIXNUMP ...)
; compiling (!DEFINE-TYPE-VOPS FUNCTIONP ...)
; compiling (!DEFINE-TYPE-VOPS LISTP ...)
; compiling (!DEFINE-TYPE-VOPS %INSTANCEP ...)
; compiling (!DEFINE-TYPE-VOPS %OTHER-POINTER-P ...)
; compiling (!DEFINE-TYPE-VOPS BIGNUMP ...)
; compiling (!DEFINE-TYPE-VOPS RATIOP ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEXP ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS SINGLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS DOUBLE-FLOAT-P ...)
; compiling (!DEFINE-TYPE-VOPS SIMPLE-STRING-P ...)
; compiling (DEFINE-SIMPLE-ARRAY-TYPE-VOPS)
; compiling (!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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj-tmp written
; compilation finished in 0:00:03
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/assembly/
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/assembly/target/
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/x86/assem-rtns.lisp" (written 24 APR 2008 07:08:48 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/assembly/target/assem-rtns.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/x86/array.lisp" (written 16 APR 2005 09:18:31 AM):
; compiling (IN-PACKAGE "SB!VM")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/assembly/target/array.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/x86/arith.lisp" (written 14 APR 2007 06:36:20 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFINE-GENERIC-ARITH-ROUTINE (+ 10) ...)
; compiling (DEFINE-GENERIC-ARITH-ROUTINE (- 10) ...)
; compiling (DEFINE-GENERIC-ARITH-ROUTINE (* 30) ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-NEGATE # ...) ...)
; compiling (DEFINE-COND-ASSEM-RTN GENERIC-< ...)
; compiling (DEFINE-COND-ASSEM-RTN GENERIC-> ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-EQL # ...) ...)
; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-= # ...) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/assembly/target/arith.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/assembly/x86/alloc.lisp" (written 08 MAY 2008 10:14:02 AM):
; compiling (IN-PACKAGE "SB!VM")

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/assembly/target/alloc.lisp-obj-tmp written
; compilation finished in 0:00:00
RETURN-MULTIPLE assembled
TAIL-CALL-VARIABLE assembled
THROW assembled
UNWIND assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::RES SB!VM:BIGNUM-WIDETAG (1+ SB!VM:BIGNUM-DIGITS-OFFSET))
;      (SB!VM::STOREW SB!VM::ECX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET
;                     SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::ECX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::ECX
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RES
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 4 notes
GENERIC-+ assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::RES SB!VM:BIGNUM-WIDETAG (1+ SB!VM:BIGNUM-DIGITS-OFFSET))
;      (SB!VM::STOREW SB!VM::ECX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET
;                     SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::ECX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::ECX
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RES
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 4 notes
GENERIC-- assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::RES SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 2))
;      (SB!VM::STOREW SB!VM::EAX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET
;                     SB!VM:OTHER-POINTER-LOWTAG)
;      (SB!VM::STOREW SB!VM::ECX SB!VM::RES (1+ SB!VM:BIGNUM-DIGITS-OFFSET)
;                     SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::EAX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::EAX
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RES
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::ECX SB!VM::RES (1+ SB!VM:BIGNUM-DIGITS-OFFSET)
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::ECX
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RES
; 
; note: deleting unreachable code

;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::RES SB!VM:BIGNUM-WIDETAG (1+ SB!VM:BIGNUM-DIGITS-OFFSET))
;      (SB!VM::STOREW SB!VM::EAX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET
;                     SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::EAX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::EAX
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RES
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 10 notes
GENERIC-* assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::RES SB!VM:BIGNUM-WIDETAG (1+ SB!VM:BIGNUM-DIGITS-OFFSET))
;      (SB!VM::STOREW SB!VM::ECX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET
;                     SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::STOREW SB!VM::ECX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET
;                    SB!VM:OTHER-POINTER-LOWTAG)
; --> LET 
; ==>
;   SB!VM::ECX
; 
; note: deleting unreachable code

; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::RES
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 4 notes
GENERIC-NEGATE assembled
GENERIC-< assembled
GENERIC-> assembled
GENERIC-EQL assembled
GENERIC-= assembled
RANDOM-MT19937-UPDATE assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EAX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::EAX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EAX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EAX-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 3 notes
ALLOC-SIGNED-BIGNUM-IN-EAX assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EBX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::EBX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EBX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EBX-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 3 notes
ALLOC-SIGNED-BIGNUM-IN-EBX assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::ECX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::ECX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::ECX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::ECX-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 3 notes
ALLOC-SIGNED-BIGNUM-IN-ECX assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EDX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::EDX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EDX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EDX-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 3 notes
ALLOC-SIGNED-BIGNUM-IN-EDX assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EDI-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::EDI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EDI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EDI-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 3 notes
ALLOC-SIGNED-BIGNUM-IN-EDI assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::ESI-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::ESI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::ESI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::ESI-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 3 notes
ALLOC-SIGNED-BIGNUM-IN-ESI assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EAX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 2))
;      (SB!VM::POPW SB!VM::EAX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EAX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EAX-TN
; 
; note: deleting unreachable code

;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EAX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::EAX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EAX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EAX-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 6 notes
ALLOC-UNSIGNED-BIGNUM-IN-EAX assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EBX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 2))
;      (SB!VM::POPW SB!VM::EBX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EBX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EBX-TN
; 
; note: deleting unreachable code

;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EBX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::EBX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EBX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EBX-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 6 notes
ALLOC-UNSIGNED-BIGNUM-IN-EBX assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::ECX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 2))
;      (SB!VM::POPW SB!VM::ECX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::ECX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::ECX-TN
; 
; note: deleting unreachable code

;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::ECX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::ECX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::ECX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::ECX-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 6 notes
ALLOC-UNSIGNED-BIGNUM-IN-ECX assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EDX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 2))
;      (SB!VM::POPW SB!VM::EDX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EDX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EDX-TN
; 
; note: deleting unreachable code

;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EDX-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::EDX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EDX-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EDX-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 6 notes
ALLOC-UNSIGNED-BIGNUM-IN-EDX assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EDI-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 2))
;      (SB!VM::POPW SB!VM::EDI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EDI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EDI-TN
; 
; note: deleting unreachable code

;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::EDI-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::EDI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::EDI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::EDI-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 6 notes
ALLOC-UNSIGNED-BIGNUM-IN-EDI assembled
; in: LAMBDA NIL
;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::ESI-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 2))
;      (SB!VM::POPW SB!VM::ESI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::ESI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::ESI-TN
; 
; note: deleting unreachable code

;     (SB!VM::WITH-FIXED-ALLOCATION
;      (SB!VM::ESI-TN SB!VM:BIGNUM-WIDETAG (+ SB!VM:BIGNUM-DIGITS-OFFSET 1))
;      (SB!VM::POPW SB!VM::ESI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                   SB!VM:OTHER-POINTER-LOWTAG))
; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET 
; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA - 
; ==>
;   SB!VM:OTHER-POINTER-LOWTAG
; 
; note: deleting unreachable code

;     (SB!VM::POPW SB!VM::ESI-TN SB!VM:BIGNUM-DIGITS-OFFSET
;                  SB!VM:OTHER-POINTER-LOWTAG)
; --> SB!ASSEM:INST SB!VM::POP-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT 
; --> SB!VM::MAKE-EA 
; ==>
;   SB!VM::ESI-TN
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 6 notes
ALLOC-UNSIGNED-BIGNUM-IN-ESI assembled
ALLOCATE-CONS-TO-EDI assembled
ALLOCATE-CONS-TO-ESI assembled
ALLOCATE-CONS-TO-EBX assembled
ALLOCATE-CONS-TO-EDX assembled
ALLOCATE-CONS-TO-ECX assembled
ALLOCATE-CONS-TO-EAX assembled
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/pseudo-vops.lisp" (written 21 OCT 2000 02:30:34 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...)
; compiling (DEFINE-VOP (MOVE-OPERAND) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/pseudo-vops.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/aliencomp.lisp" (written 13 APR 2008 06:48:19 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 DEPORT-ALLOC ...)
; 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: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/compiler/aliencomp.lisp
; in: DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE)
;     (SB!C::ANNOTATE-ORDINARY-LVAR FUNCTION)
; 
; caught STYLE-WARNING:
;   undefined function: ANNOTATE-ORDINARY-LVAR

; in: DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT)
;     (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG)
; 
; caught STYLE-WARNING:
;   undefined function: LVAR-TN

;     (SB!C::MOVE-LVAR-RESULT SB!C:CALL BLOCK SB!C::RESULT-TNS SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: MOVE-LVAR-RESULT

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     ANNOTATE-ORDINARY-LVAR LVAR-TN MOVE-LVAR-RESULT
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/aliencomp.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ltv.lisp" (written 03 MAY 2007 06:27:57 AM):
; 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: /Users/nikodemus/src/sbcl/src/compiler/ltv.lisp
; in: DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT)
;     (SB!C::MOVE-LVAR-RESULT SB!C::NODE BLOCK (LIST SB!C:TN) SB!C::LVAR)
; 
; caught STYLE-WARNING:
;   undefined function: MOVE-LVAR-RESULT

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     MOVE-LVAR-RESULT
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ltv.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/gtn.lisp" (written 05 JUN 2007 02:42:54 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/gtn.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ltn.lisp" (written 04 JUN 2008 03:39:41 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 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ltn.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/stack.lisp" (written 20 JUL 2008 10:52:08 AM):
; 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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/stack.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/control.lisp" (written 14 JUL 2005 09: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/control.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/entry.lisp" (written 05 DEC 2006 06:35:56 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN ENTRY-ANALYZE ...)
; compiling (DEFUN COMPUTE-ENTRY-INFO ...)
; compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/entry.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/ir2tran.lisp" (written 04 JUN 2008 03:39:41 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN EMIT-MOVE ...)
; compiling (DEFUN EMIT-STEP-P ...)
; compiling (DEFUN TYPE-CHECK-TEMPLATE ...)
; compiling (DEFUN EMIT-TYPE-CHECK ...)
; compiling (DEFEVENT MAKE-VALUE-CELL-EVENT ...)
; compiling (DEFUN EMIT-MAKE-VALUE-CELL ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FIND-IN-PHYSENV ...)
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/ir2tran.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/vm-ir2tran.lisp" (written 23 JUN 2008 03:55:49 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEF-ALLOC %MAKE-STRUCTURE-INSTANCE ...)
; compiling (DEFOPTIMIZER (%MAKE-STRUCTURE-INSTANCE STACK-ALLOCATE-RESULT) ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-CASSER ...)
; compiling (DEFUN EMIT-INITS ...)
; compiling (DEFUN EMIT-FIXED-ALLOC ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...)
; compiling (DEFOPTIMIZER IR2-CONVERT-STRUCTURE-ALLOCATION ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/copyprop.lisp" (written 10 SEP 2007 03:37:00 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/copyprop.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/represent.lisp" (written 14 JUL 2005 09:57:01 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN GET-OPERAND-INFO ...)
; file: /Users/nikodemus/src/sbcl/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: /Users/nikodemus/src/sbcl/src/compiler/represent.lisp
; in: DEFUN NOTE-IF-NUMBER-STACK
;     (SB!C:TN-SC SB!C:TN)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   SB!C:TN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 6 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/represent.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/pack.lisp" (written 07 APR 2007 04:17:36 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: /Users/nikodemus/src/sbcl/src/compiler/pack.lisp
; in: DEFUN UNPACK-FOR-LOAD-TN
;     (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

;     (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

; 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 ...)
; 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: /Users/nikodemus/src/sbcl/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 6 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/pack.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/codegen.lisp" (written 14 JUL 2005 09: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/codegen.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/debug.lisp" (written 25 JAN 2007 05:51:34 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: /Users/nikodemus/src/sbcl/src/compiler/debug.lisp
; in: DEFUN PRINT-CONTINUATION
;     (DEFUN SB!C::PRINT-CONTINUATION (SB!C::CONT)
;       (DECLARE (TYPE SB!C::CONTINUATION SB!C::CONT))
;       (FORMAT T " c~D" (SB!C::CONT-NUM SB!C::CONT))
;       (VALUES))
; --> PROGN SB!INT:COLD-FSET LOCALLY 
; ==>
;   (SB!C::%FUNCALL
;    #<SB!C::CLAMBDA
;      :%SOURCE-NAME SB!C::PRINT-CONTINUATION
;      :%DEBUG-NAME NIL
;      :KIND NIL
;      :TYPE #<SB!KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :VARS (SB!C::CONT) {13833CF1}>
;    #:G1615)
; 
; caught STYLE-WARNING:
;   undefined type: CONTINUATION
; 
; caught STYLE-WARNING:
;   undefined type: CONTINUATION

; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!C::PRINT-CONTINUATION
;                     (LAMBDA (SB!C::CONT)
;                       (DECLARE (TYPE SB!C::CONTINUATION SB!C::CONT))
;                       (BLOCK SB!C::PRINT-CONTINUATION
;                         (FORMAT T " c~D" (SB!C::CONT-NUM SB!C::CONT))
;                         (VALUES))))
; 
; caught STYLE-WARNING:
;   undefined type: CONTINUATION

; 
; caught STYLE-WARNING:
;   7 more uses of undefined type CONTINUATION

; 
; caught STYLE-WARNING:
;   This type is undefined:
;     CONTINUATION
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/debug.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/format-time.lisp" (written 14 JUL 2005 07: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/format-time.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/error.lisp" (written 09 JUL 2008 12:31:53 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 SYSTEM-CONDITION ...)
; compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...)
; compiling (DEFINE-CONDITION BREAKPOINT-ERROR ...)
; compiling (DEFINE-CONDITION INTERACTIVE-INTERRUPT ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/error.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/macroexpand.lisp" (written 27 SEP 2007 06:50:44 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN SB-XC:SPECIAL-OPERATOR-P ...)
; compiling (DEFVAR SB-XC:*MACROEXPAND-HOOK* ...)
; compiling (DEFUN SB-XC:MACROEXPAND-1 ...)
; compiling (DEFUN SB-XC:MACROEXPAND ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/macroexpand.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-extensions.lisp" (written 04 JUN 2008 03:39:40 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN LIST-WITH-LENGTH-P ...)
; compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...)
; compiling (DEFMACRO COMPARE-AND-SWAP ...)
; compiling (DEF %COMPARE-AND-SWAP-CAR ...)
; compiling (DEF %COMPARE-AND-SWAP-CDR ...)
; compiling (DEF %COMPARE-AND-SWAP-INSTANCE-REF ...)
; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-PLIST ...)
; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-VALUE ...)
; compiling (DEF %COMPARE-AND-SWAP-SVREF ...)
; compiling (DEFUN CALL-HOOKS ...)
; file: /Users/nikodemus/src/sbcl/src/code/late-extensions.lisp
; in: DEFSTRUCT UNPRINTABLE-OBJECT
;     (DEFSTRUCT
;         (SB!IMPL::UNPRINTABLE-OBJECT
;          (:CONSTRUCTOR SB!INT:MAKE-UNPRINTABLE-OBJECT (STRING))
;          (:PRINT-OBJECT
;           (LAMBDA (SB!IMPL::X SB!IMPL::S) (PRINT-UNREADABLE-OBJECT # #)))
;          (:COPIER NIL))
;       STRING)
; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN 
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::UNPRINTABLE-OBJECT
;                                                  "defining ~A as a structure")
; 
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/late-extensions.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/generic/target-core.lisp" (written 05 DEC 2006 06:35:57 AM):
; compiling (IN-PACKAGE "SB!C")
; compiling (DEFUN MAKE-FUN-ENTRY ...)
; compiling (DEFUN MAKE-CORE-COMPONENT ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/generic/target-core.lisp
; in: DEFUN MAKE-CORE-COMPONENT
;     (SB!KERNEL:COPY-BYTE-VECTOR-TO-SYSTEM-AREA SB!C::V SB!C::FILL-PTR)
; 
; caught STYLE-WARNING:
;   undefined function: COPY-BYTE-VECTOR-TO-SYSTEM-AREA

;     (SB!VM:SANCTIFY-FOR-EXECUTION SB!C::CODE-OBJ)
; 
; caught STYLE-WARNING:
;   undefined function: SB!VM:SANCTIFY-FOR-EXECUTION

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     COPY-BYTE-VECTOR-TO-SYSTEM-AREA SB!VM:SANCTIFY-FOR-EXECUTION
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/generic/target-core.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/eval.lisp" (written 04 JUN 2008 03:39:40 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFPARAMETER *EVAL-CALLS* ...)
; compiling (DEFUN !EVAL-COLD-INIT ...)
; compiling (DEFUN %SIMPLE-EVAL ...)
; compiling (DEFUN SIMPLE-EVAL-PROGN-BODY ...)
; compiling (DEFUN SIMPLE-EVAL-LOCALLY ...)
; compiling (DEFINE-CONDITION EVAL-ERROR ...)
; compiling (DEFUN EVAL-ERROR ...)
; compiling (DEFUN SIMPLE-EVAL-IN-LEXENV ...)
; compiling (DEFUN EVAL-IN-LEXENV ...)
; compiling (DEFUN EVAL ...)
; compiling (DEFUN APPLY ...)
; compiling (DEFUN FUNCALL ...)
; compiling (DEFUN VALUES ...)
; compiling (DEFUN VALUES-LIST ...)
; file: /Users/nikodemus/src/sbcl/src/code/eval.lisp
; in: DEFUN EVAL-IN-LEXENV
;     (SB!EVAL:EVAL-IN-NATIVE-ENVIRONMENT EXP SB!KERNEL:LEXENV)
; 
; caught STYLE-WARNING:
;   undefined function: SB!EVAL:EVAL-IN-NATIVE-ENVIRONMENT

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB!EVAL:EVAL-IN-NATIVE-ENVIRONMENT
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/eval.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-sap.lisp" (written 14 APR 2007 02:16:55 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFUN SAP< ...)
; compiling (DEFUN SAP<= ...)
; compiling (DEFUN SAP= ...)
; compiling (DEFUN SAP>= ...)
; compiling (DEFUN SAP> ...)
; compiling (DEFUN SAP+ ...)
; compiling (DEFUN SAP- ...)
; compiling (DEFUN SAP-INT ...)
; compiling (DEFUN INT-SAP ...)
; compiling (DEFUN SAP-REF-8 ...)
; compiling (DEFUN SAP-REF-16 ...)
; compiling (DEFUN SAP-REF-32 ...)
; compiling (DEFUN SAP-REF-64 ...)
; compiling (DEFUN SAP-REF-WORD ...)
; compiling (DEFUN SAP-REF-SAP ...)
; compiling (DEFUN SAP-REF-SINGLE ...)
; compiling (DEFUN SAP-REF-DOUBLE ...)
; compiling (DEFUN SAP-REF-LONG ...)
; compiling (DEFUN SIGNED-SAP-REF-8 ...)
; compiling (DEFUN SIGNED-SAP-REF-16 ...)
; compiling (DEFUN SIGNED-SAP-REF-32 ...)
; compiling (DEFUN SIGNED-SAP-REF-64 ...)
; compiling (DEFUN SIGNED-SAP-REF-WORD ...)
; compiling (DEFUN %SET-SAP-REF-8 ...)
; compiling (DEFUN %SET-SAP-REF-16 ...)
; compiling (DEFUN %SET-SAP-REF-32 ...)
; compiling (DEFUN %SET-SAP-REF-64 ...)
; compiling (DEFUN %SET-SAP-REF-WORD ...)
; compiling (DEFUN %SET-SIGNED-SAP-REF-8 ...)
; compiling (DEFUN %SET-SIGNED-SAP-REF-16 ...)
; compiling (DEFUN %SET-SIGNED-SAP-REF-32 ...)
; compiling (DEFUN %SET-SIGNED-SAP-REF-64 ...)
; compiling (DEFUN %SET-SIGNED-SAP-REF-WORD ...)
; compiling (DEFUN %SET-SAP-REF-SAP ...)
; compiling (DEFUN %SET-SAP-REF-SINGLE ...)
; compiling (DEFUN %SET-SAP-REF-DOUBLE ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-sap.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-package.lisp" (written 30 JUN 2008 09:49:41 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (!COLD-INIT-FORMS (/SHOW0 "entering !PACKAGE-COLD-INIT"))
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFCONSTANT +PACKAGE-REHASH-THRESHOLD+ ...)
; compiling (DEFCONSTANT +PACKAGE-HASHTABLE-IMAGE-LOAD-FACTOR+ ...)
; compiling (DEFVAR *PACKAGE-LOCK*)
; compiling (!COLD-INIT-FORMS (SETF *PACKAGE-LOCK* ...))
; compiling (DEFMACRO WITH-PACKAGES ...)
; compiling (DEFUN MAKE-OR-REMAKE-PACKAGE-HASHTABLE ...)
; compiling (DEFUN RESIZE-PACKAGE-HASHTABLE ...)
; compiling (DEFUN PACKAGE-LOCKED-P ...)
; compiling (DEFUN LOCK-PACKAGE ...)
; compiling (DEFUN UNLOCK-PACKAGE ...)
; compiling (DEFUN PACKAGE-IMPLEMENTED-BY-LIST ...)
; compiling (DEFUN PACKAGE-IMPLEMENTS-LIST ...)
; compiling (DEFUN ADD-IMPLEMENTATION-PACKAGE ...)
; compiling (DEFUN REMOVE-IMPLEMENTATION-PACKAGE ...)
; compiling (DEFMACRO WITH-UNLOCKED-PACKAGES ...)
; compiling (DEFUN PACKAGE-LOCK-VIOLATION ...)
; compiling (DEFUN PACKAGE-LOCK-VIOLATION-P ...)
; compiling (DEFUN DISABLED-PACKAGE-LOCKS ...)
; compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...)
; compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF PACKAGE-NICKNAMES ...)
; compiling (DEF PACKAGE-USE-LIST ...)
; compiling (DEF PACKAGE-USED-BY-LIST ...)
; compiling (DEF PACKAGE-SHADOWING-SYMBOLS ...)
; compiling (DEFUN %PACKAGE-HASHTABLE-SYMBOL-COUNT ...)
; compiling (DEFUN PACKAGE-INTERNAL-SYMBOL-COUNT ...)
; compiling (DEFUN PACKAGE-EXTERNAL-SYMBOL-COUNT ...)
; compiling (DEFVAR *PACKAGE* ...)
; compiling (DEFVAR *PACKAGE-NAMES*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (!COLD-INIT-FORMS (SETF *PACKAGE-NAMES* ...))
; compiling (DEFVAR *IN-PACKAGE-INIT*)
; compiling (DEFVAR *!DEFERRED-USE-PACKAGES*)
; compiling (!COLD-INIT-FORMS (SETF *!DEFERRED-USE-PACKAGES* ...))
; compiling (DEFINE-CONDITION BOOTSTRAP-PACKAGE-NOT-FOUND ...)
; compiling (DEFUN DEBOOTSTRAP-PACKAGE ...)
; compiling (DEFUN FIND-PACKAGE ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-package.lisp
; in: DEFUN FIND-PACKAGE
;     'TYPE-ERROR
; 
; note: deleting unreachable code

;     '(OR CHARACTER PACKAGE STRING SYMBOL)
; 
; note: deleting unreachable code

; compiling (DEFUN PACKAGE-LISTIFY ...)
; compiling (DEFUN PACKAGE-NAMIFY ...)
; compiling (DEFUN PACKAGE-NAME ...)
; compiling (DEFMACRO ENTRY-HASH ...)
; compiling (DEFUN ADD-SYMBOL ...)
; compiling (DEFUN TUNE-HASHTABLE-SIZES-OF-ALL-PACKAGES ...)
; compiling (DEFMACRO WITH-SYMBOL ...)
; compiling (DEFUN NUKE-SYMBOL ...)
; compiling (DEFUN ENTER-NEW-NICKNAMES ...)
; compiling (DEFUN MAKE-PACKAGE ...)
; compiling (DEFUN RENAME-PACKAGE ...)
; compiling (DEFUN DELETE-PACKAGE ...)
; compiling (DEFUN LIST-ALL-PACKAGES ...)
; compiling (DEFUN INTERN ...)
; compiling (DEFUN FIND-SYMBOL ...)
; compiling (DEFUN INTERN* ...)
; compiling (DEFUN FIND-SYMBOL* ...)
; compiling (DEFUN FIND-EXTERNAL-SYMBOL ...)
; compiling (DEFUN PRINT-SYMBOL-WITH-PREFIX ...)
; compiling (DEFINE-CONDITION NAME-CONFLICT ...)
; compiling (DEFUN NAME-CONFLICT ...)
; compiling (DEFUN UNINTERN ...)
; compiling (DEFUN SYMBOL-LISTIFY ...)
; compiling (DEFUN STRING-LISTIFY ...)
; compiling (DEFUN MOBY-UNINTERN ...)
; compiling (DEFUN EXPORT ...)
; compiling (DEFUN UNEXPORT ...)
; compiling (DEFUN IMPORT ...)
; compiling (DEFUN SHADOWING-IMPORT ...)
; compiling (DEFUN SHADOW ...)
; compiling (DEFUN USE-PACKAGE ...)
; compiling (DEFUN UNUSE-PACKAGE ...)
; compiling (DEFUN FIND-ALL-SYMBOLS ...)
; compiling (DEFUN BRIEFLY-DESCRIBE-SYMBOL ...)
; compiling (DEFUN APROPOS-LIST ...)
; compiling (DEFUN APROPOS ...)
; compiling (DEFVAR *!INITIAL-SYMBOLS*)
; compiling (!COLD-INIT-FORMS (SETQ *IN-PACKAGE-INIT* ...) ...)
; compiling (!COLD-INIT-FORMS (/SHOW0 "done with !PACKAGE-COLD-INIT"))
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !PACKAGE-COLD-INIT); 
; compilation unit finished
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-package.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-random.lisp" (written 28 MAR 2007 08:59:18 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEF!METHOD MAKE-LOAD-FORM ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN INIT-RANDOM-STATE ...)
; compiling (DEFVAR *RANDOM-STATE*)
; compiling (DEFUN !RANDOM-COLD-INIT ...)
; compiling (DEFUN MAKE-RANDOM-STATE ...)
; compiling (DECLAIM (INLINE RANDOM-CHUNK))
; compiling (DEFCONSTANT MT19937-N ...)
; compiling (DEFCONSTANT MT19937-M ...)
; compiling (DEFCONSTANT MT19937-UPPER-MASK ...)
; compiling (DEFCONSTANT MT19937-LOWER-MASK ...)
; compiling (DEFCONSTANT MT19937-B ...)
; compiling (DEFCONSTANT MT19937-C ...)
; compiling (DEFUN RANDOM-CHUNK ...)
; compiling (DECLAIM (INLINE BIG-RANDOM-CHUNK))
; compiling (DEFUN BIG-RANDOM-CHUNK ...)
; compiling (DECLAIM (INLINE %RANDOM-SINGLE-FLOAT ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %RANDOM-SINGLE-FLOAT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %RANDOM-DOUBLE-FLOAT ...)
; compiling (DEFUN %RANDOM-INTEGER ...)
; compiling (DEFUN RANDOM ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-random.lisp
; in: DEFUN RANDOM
;     'SIMPLE-TYPE-ERROR
; 
; note: deleting unreachable code

;     (ERROR 'SIMPLE-TYPE-ERROR :EXPECTED-TYPE '(OR (INTEGER 1) (FLOAT (0))) :DATUM
;            SB!KERNEL::ARG :FORMAT-CONTROL
;            "~@<Argument is neither a positive integer nor a ~
;                                positive float: ~2I~_~S~:>"
;            :FORMAT-ARGUMENTS (LIST SB!KERNEL::ARG))
; ==>
;   "~@<Argument is neither a positive integer nor a ~
;                              positive float: ~2I~_~S~:>"
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-random.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-hash-table.lisp" (written 30 JUN 2008 01:34:03 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO WITH-CONCURRENT-ACCESS-CHECK ...)
; compiling (DECLAIM (INLINE EQ-HASH))
; compiling (DEFUN EQ-HASH ...)
; compiling (DECLAIM (INLINE EQUAL-HASH))
; compiling (DEFUN EQUAL-HASH ...)
; compiling (DECLAIM (INLINE EQL-HASH))
; compiling (DEFUN EQL-HASH ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-hash-table.lisp
; in: DEFUN EQ-HASH
;     (SB!KERNEL:POINTER-HASH SB!IMPL::KEY)
; ==>
;   SB!IMPL::KEY
; 
; note: deleting unreachable code

;     (VALUES (SB!KERNEL:POINTER-HASH SB!IMPL::KEY)
;             (ODDP (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!IMPL::KEY)))
; 
; note: deleting unreachable code

; compiling (DEFUN EQUALP-HASH ...)
; compiling (DECLAIM (INLINE INDEX-FOR-HASHING))
; compiling (DEFUN INDEX-FOR-HASHING ...)
; compiling (DEFVAR *HASH-TABLE-TESTS* ...)
; compiling (DEFUN DEFINE-HASH-TABLE-TEST ...)
; compiling (DEFCONSTANT +MIN-HASH-TABLE-SIZE+ ...)
; compiling (DEFCONSTANT +MIN-HASH-TABLE-REHASH-THRESHOLD+ ...)
; compiling (DEFUN MAKE-HASH-TABLE ...)
; compiling (DEFUN HASH-TABLE-COUNT ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFUN HASH-TABLE-SIZE ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFUN SIGNAL-CORRUPT-HASH-TABLE ...)
; compiling (DEFUN REHASH ...)
; compiling (DEFUN REHASH-WITHOUT-GROWING ...)
; compiling (DECLAIM (INLINE MAYBE-REHASH))
; compiling (DEFUN MAYBE-REHASH ...)
; compiling (DECLAIM (INLINE UPDATE-HASH-TABLE-CACHE))
; compiling (DEFUN UPDATE-HASH-TABLE-CACHE ...)
; compiling (DEFMACRO WITH-HASH-TABLE-LOCKS ...)
; compiling (DEFUN GETHASH ...)
; compiling (DECLAIM (MAYBE-INLINE %GETHASH3))
; compiling (DEFUN %GETHASH3 ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-hash-table.lisp
; in: DEFUN %GETHASH3
;     (EQL SB!IMPL::START-EPOCH SB!KERNEL::*GC-EPOCH*)
; ==>
;   SB!IMPL::START-EPOCH
; 
; note: deleting unreachable code

;     (GO SB!IMPL::START)
; 
; note: deleting unreachable code

;     (EQL SB!IMPL::START-EPOCH SB!KERNEL::*GC-EPOCH*)
; ==>
;   SB!IMPL::START-EPOCH
; 
; note: deleting unreachable code

;     (GO SB!IMPL::START)
; 
; note: deleting unreachable code

;     (EQL SB!IMPL::START-EPOCH SB!KERNEL::*GC-EPOCH*)
; ==>
;   SB!IMPL::START-EPOCH
; 
; note: deleting unreachable code

;     (GO SB!IMPL::START)
; 
; note: deleting unreachable code

; in: DEFUN MAYBE-REHASH
;     (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::REHASH HASH-TABLE)
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::HASH-TABLE-SPINLOCK HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; in: DEFUN %GETHASH3
;     (EQL SB!IMPL::START-EPOCH SB!KERNEL::*GC-EPOCH*)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.

; compiling (DEFUN GETHASH3 ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-hash-table.lisp
; in: DEFUN %GETHASH3
;     (EQL SB!IMPL::START-EPOCH SB!KERNEL::*GC-EPOCH*)
; ==>
;   SB!IMPL::START-EPOCH
; 
; note: deleting unreachable code

;     (GO SB!IMPL::START)
; 
; note: deleting unreachable code

;     (EQL SB!IMPL::START-EPOCH SB!KERNEL::*GC-EPOCH*)
; ==>
;   SB!IMPL::START-EPOCH
; 
; note: deleting unreachable code

;     (GO SB!IMPL::START)
; 
; note: deleting unreachable code

;     (EQL SB!IMPL::START-EPOCH SB!KERNEL::*GC-EPOCH*)
; ==>
;   SB!IMPL::START-EPOCH
; 
; note: deleting unreachable code

;     (GO SB!IMPL::START)
; 
; note: deleting unreachable code

; in: DEFUN MAYBE-REHASH
;     (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::REHASH HASH-TABLE)
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::HASH-TABLE-SPINLOCK HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; in: DEFUN %GETHASH3
;     (EQL SB!IMPL::START-EPOCH SB!KERNEL::*GC-EPOCH*)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.

; compiling (DEFUN (SETF GETHASH) ...)
; compiling (DECLAIM (MAYBE-INLINE %%PUTHASH))
; compiling (DEFUN %%PUTHASH ...)
; compiling (DEFUN %PUTHASH ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-hash-table.lisp
; in: DEFUN %PUTHASH
;     (SB!IMPL::WITH-HASH-TABLE-LOCKS
;      (HASH-TABLE :INLINE (SB!IMPL::%%PUTHASH) :PIN (SB!IMPL::KEY) :SYNCHRONIZED
;       NIL)
;      (SB!IMPL::%%PUTHASH SB!IMPL::KEY HASH-TABLE SB!IMPL::VALUE))
; --> SB!IMPL::WITH-CONCURRENT-ACCESS-CHECK PROGN FLET IF 
; --> SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN IF 
; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-SPINLOCK SB!INT:DX-FLET FLET FLET 
; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-SPINLOCK 
; --> SB!IMPL::HASH-TABLE-SPINLOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; compiling (DECLAIM (MAYBE-INLINE %REMHASH))
; compiling (DEFUN %REMHASH ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-hash-table.lisp
; in: DEFUN MAYBE-REHASH
;     (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::REHASH HASH-TABLE)
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::HASH-TABLE-SPINLOCK HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; compiling (DEFUN REMHASH ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-hash-table.lisp
; in: DEFUN MAYBE-REHASH
;     (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::REHASH HASH-TABLE)
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

;     (SB!IMPL::HASH-TABLE-SPINLOCK HASH-TABLE)
; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE 
; ==>
;   HASH-TABLE
; 
; note: deleting unreachable code

; compiling (DEFUN CLRHASH ...)
; compiling (DECLAIM (INLINE MAPHASH))
; compiling (DEFUN MAPHASH ...)
; compiling (DEFUN %HASH-TABLE-CTOR-ARGS ...)
; compiling (DEFUN %HASH-TABLE-ALIST ...)
; compiling (DEFUN %STUFF-HASH-TABLE ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!METHOD MAKE-LOAD-FORM ...); 
; compilation unit finished
;   printed 43 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-hash-table.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/reader.lisp" (written 09 JUL 2008 12:31:53 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFVAR *READ-DEFAULT-FLOAT-FORMAT* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *READTABLE*)
; compiling (DECLAIM (TYPE READTABLE ...))
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFVAR *STANDARD-READTABLE*)
; compiling (DEFVAR *OLD-PACKAGE* ...)
; compiling (DECLAIM (SPECIAL *PACKAGE* ...))
; compiling (DEFUN READER-EOF-ERROR ...)
; compiling (DEFUN SIMPLE-READER-ERROR ...)
; compiling (DEFMACRO GET-CAT-ENTRY ...)
; compiling (DEFUN SET-CAT-ENTRY ...)
; compiling (DEFUN GET-COERCED-CMT-ENTRY ...)
; compiling (DEFUN SET-CMT-ENTRY ...)
; compiling (DEFUN UNDEFINED-MACRO-CHAR ...)
; compiling (DEFMACRO TEST-ATTRIBUTE ...)
; compiling (DECLAIM (INLINE WHITESPACE[1]P ...))
; compiling (DEFUN WHITESPACE[1]P ...)
; compiling (DEFUN WHITESPACE[2]P ...)
; compiling (DEFMACRO CONSTITUENTP ...)
; compiling (DEFMACRO TERMINATING-MACROP ...)
; compiling (DEFMACRO SINGLE-ESCAPE-P ...)
; compiling (DEFMACRO MULTIPLE-ESCAPE-P ...)
; compiling (DEFMACRO TOKEN-DELIMITERP ...)
; compiling (DEFVAR *CONSTITUENT-TRAIT-TABLE*)
; compiling (DECLAIM (TYPE ATTRIBUTE-TABLE ...))
; compiling (DEFUN !SET-CONSTITUENT-TRAIT ...)
; compiling (DEFUN !COLD-INIT-CONSTITUENT-TRAIT-TABLE ...)
; compiling (DEFMACRO GET-CONSTITUENT-TRAIT ...)
; compiling (DEFUN SHALLOW-REPLACE/EQL-HASH-TABLE ...)
; compiling (DEFUN COPY-READTABLE ...)
; compiling (DEFUN SET-SYNTAX-FROM-CHAR ...)
; compiling (DEFUN SET-MACRO-CHARACTER ...)
; compiling (DEFUN GET-MACRO-CHARACTER ...)
; compiling (DEFMACRO EOFP ...)
; compiling (DEFUN FLUSH-WHITESPACE ...)
; compiling (DEFUN !COLD-INIT-STANDARD-READTABLE ...)
; compiling (DEFVAR *READ-BUFFER*)
; compiling (DEFVAR *READ-BUFFER-LENGTH*)
; compiling (DEFVAR *INCH-PTR*)
; compiling (DEFVAR *OUCH-PTR*)
; compiling (DECLAIM (TYPE INDEX ...))
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFMACRO RESET-READ-BUFFER ...)
; compiling (DEFMACRO OUCH-READ-BUFFER ...)
; compiling (DEFMACRO OUCH-UNREAD-BUFFER ...)
; compiling (DEFUN GROW-READ-BUFFER ...)
; compiling (DEFUN INCHPEEK-READ-BUFFER ...)
; compiling (DEFUN INCH-READ-BUFFER ...)
; compiling (DEFMACRO UNREAD-BUFFER ...)
; compiling (DEFUN READ-UNWIND-READ-BUFFER ...)
; compiling (DEFUN READ-BUFFER-TO-STRING ...)
; compiling (DEFMACRO WITH-READER ...)
; compiling (DEFVAR *SHARP-EQUAL-ALIST* ...)
; compiling (DECLAIM (SPECIAL *STANDARD-INPUT*))
; compiling (DEFUN READ-PRESERVING-WHITESPACE ...)
; file: /Users/nikodemus/src/sbcl/src/code/reader.lisp
; in: DEFUN READ-PRESERVING-WHITESPACE
;     (LET ((SB!IMPL::*SHARP-EQUAL-ALIST* NIL))
;       (READ-PRESERVING-WHITESPACE STREAM SB!IMPL::EOF-ERROR-P SB!IMPL::EOF-VALUE
;                                   T))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFUN READ-MAYBE-NOTHING ...)
; compiling (DEFUN READ ...)
; compiling (DEFUN READ-DELIMITED-LIST ...)
; compiling (DEFUN READ-QUOTE ...)
; compiling (DEFUN READ-COMMENT ...)
; compiling (DEFUN READ-LIST ...)
; compiling (DEFUN READ-AFTER-DOT ...)
; compiling (DEFUN READ-STRING ...)
; compiling (DEFUN READ-RIGHT-PAREN ...)
; compiling (DEFUN INTERNAL-READ-EXTENDED-TOKEN ...)
; compiling (DEFMACRO CHAR-CLASS ...)
; compiling (DEFMACRO CHAR-CLASS2 ...)
; compiling (DEFMACRO CHAR-CLASS3 ...)
; compiling (DEFVAR *READ-SUPPRESS* ...)
; compiling (DEFVAR *READ-BASE* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFUN CASIFY-READ-BUFFER ...)
; compiling (DEFUN READ-TOKEN ...)
; compiling (DEFUN READ-EXTENDED-TOKEN ...)
; compiling (DEFUN READ-EXTENDED-TOKEN-ESCAPED ...)
; compiling (DEFMACRO DIGIT* ...)
; compiling (DEFMACRO EXPONENT-LETTERP ...)
; compiling (DEFVAR *INTEGER-READER-SAFE-DIGITS* ...)
; compiling (DEFVAR *INTEGER-READER-BASE-POWER* ...)
; compiling (DECLAIM (SIMPLE-VECTOR *INTEGER-READER-SAFE-DIGITS* ...))
; compiling (DEFUN MAKE-INTEGER ...)
; compiling (DEFUN MAKE-FLOAT ...)
; compiling (DEFUN MAKE-FLOAT-AUX ...)
; compiling (DEFUN MAKE-RATIO ...)
; compiling (DEFUN MAKE-CHAR-DISPATCH-TABLE ...)
; compiling (DEFUN DISPATCH-CHAR-ERROR ...)
; compiling (DEFUN MAKE-DISPATCH-MACRO-CHARACTER ...)
; compiling (DEFUN SET-DISPATCH-MACRO-CHARACTER ...)
; compiling (DEFUN GET-DISPATCH-MACRO-CHARACTER ...)
; compiling (DEFUN READ-DISPATCH-CHAR ...)
; compiling (DEFUN READ-FROM-STRING ...)
; compiling (DEFUN PARSE-INTEGER ...)
; compiling (DEFUN !READER-COLD-INIT ...)
; compiling (DEF!METHOD PRINT-OBJECT ...); 
; compilation unit finished
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/reader.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-stream.lisp" (written 10 AUG 2005 10:57:33 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (SB-XC:DEFMACRO GENERALIZED-PEEKING-MECHANISM ...)
; compiling (DECLAIM (INLINE ANSI-STREAM-PEEK-CHAR))
; compiling (DEFUN ANSI-STREAM-PEEK-CHAR ...)
; compiling (DEFUN PEEK-CHAR ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-stream.lisp
; in: DEFUN PEEK-CHAR
;     (SB!GRAY:STREAM-UNREAD-CHAR STREAM CHAR)
; ==>
;   STREAM
; 
; note: deleting unreachable code

; in: SB-XC:DEFMACRO GENERALIZED-PEEKING-MECHANISM
;     (SB!INT:BUG "Impossible case reached in PEEK-CHAR")
; ==>
;   "Impossible case reached in PEEK-CHAR"
; 
; note: deleting unreachable code

; in: DEFUN PEEK-CHAR
;     (SB!GRAY:STREAM-PEEK-CHAR STREAM)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; in: SB-XC:DEFMACRO GENERALIZED-PEEKING-MECHANISM
;     (SB!INT:BUG "Impossible case reached in PEEK-CHAR")
; ==>
;   "Impossible case reached in PEEK-CHAR"
; 
; note: deleting unreachable code

; compiling (DEFUN ECHO-MISC ...); 
; compilation unit finished
;   printed 5 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-stream.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-pathname.lisp" (written 30 NOV 2007 04:16:27 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (FREEZE-TYPE LOGICAL-PATHNAME ...))
; compiling (DEF!STRUCT (UNIX-HOST # ...))
; compiling (DEFVAR *UNIX-HOST* ...)
; compiling (DEFUN MAKE-UNIX-HOST-LOAD-FORM ...)
; compiling (DEF!STRUCT (WIN32-HOST # ...))
; compiling (DEFPARAMETER *WIN32-HOST* ...)
; compiling (DEFUN MAKE-WIN32-HOST-LOAD-FORM ...)
; compiling (DEFVAR *PHYSICAL-HOST* ...)
; compiling (DEFUN MAKE-TRIVIAL-DEFAULT-PATHNAME ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEF!METHOD MAKE-LOAD-FORM ...)
; compiling (DEFUN %MAKE-MAYBE-LOGICAL-PATHNAME ...)
; compiling (DEFVAR *LOGICAL-HOSTS* ...)
; compiling (DEF!METHOD MAKE-LOAD-FORM ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN PATTERN= ...)
; compiling (DEFUN PATTERN-MATCHES ...)
; compiling (DEFUN DIRECTORY-COMPONENTS-MATCH ...)
; compiling (DEFUN COMPONENTS-MATCH ...)
; compiling (DEFUN COMPARE-COMPONENT ...)
; compiling (DEFUN PATHNAME= ...)
; compiling (DEFMACRO WITH-PATHNAME ...)
; compiling (DEFMACRO WITH-NATIVE-PATHNAME ...)
; compiling (DEFMACRO WITH-HOST ...)
; compiling (DEFUN FIND-HOST ...)
; compiling (DEFUN PATHNAME ...)
; compiling (DEFUN NATIVE-PATHNAME ...)
; compiling (DEFUN MAYBE-DIDDLE-CASE ...)
; compiling (DEFUN MERGE-DIRECTORIES ...)
; compiling (DEFUN MERGE-PATHNAMES ...)
; compiling (DEFUN IMPORT-DIRECTORY ...)
; compiling (DEFUN MAKE-PATHNAME ...)
; compiling (DEFUN PATHNAME-HOST ...)
; compiling (DEFUN PATHNAME-DEVICE ...)
; compiling (DEFUN PATHNAME-DIRECTORY ...)
; compiling (DEFUN PATHNAME-NAME ...)
; compiling (DEFUN PATHNAME-TYPE ...)
; compiling (DEFUN PATHNAME-VERSION ...)
; compiling (DEFUN PARSEABLE-LOGICAL-NAMESTRING-P ...)
; compiling (DEFUN %PARSE-NAMESTRING ...)
; compiling (DEFUN EXTRACT-LOGICAL-HOST-PREFIX ...)
; compiling (DEFUN PARSE-NAMESTRING ...)
; compiling (DEFUN %PARSE-NATIVE-NAMESTRING ...)
; compiling (DEFUN PARSE-NATIVE-NAMESTRING ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-pathname.lisp
; in: DEFUN PARSE-NATIVE-NAMESTRING
;     (DEFUN SB!EXT:PARSE-NATIVE-NAMESTRING
;            (SB!IMPL::THING
;             &OPTIONAL SB!KERNEL:HOST
;             (SB!IMPL::DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*)
;             &KEY (SB!IMPL::START 0) SB!IMPL::END SB!IMPL::JUNK-ALLOWED
;             SB!IMPL::AS-DIRECTORY)
;       "Convert THING into a pathname, using the native conventions
;   appropriate for the pathname host HOST, or if not specified the
;   host of DEFAULTS.  If THING is a string, the parse is bounded by
;   START and END, and error behaviour is controlled by JUNK-ALLOWED,
;   as with PARSE-NAMESTRING.  For file systems whose native
;   conventions allow directories to be indicated as files, if
;   AS-DIRECTORY is true, return a pathname denoting THING as a
;   directory."
;       (DECLARE
;        (TYPE SB!KERNEL:PATHNAME-DESIGNATOR SB!IMPL::THING SB!IMPL::DEFAULTS)
;        (TYPE (OR LIST SB!KERNEL:HOST STRING (MEMBER :UNSPECIFIC)) SB!KERNEL:HOST)
;        (TYPE SB!INT:INDEX SB!IMPL::START)
;        (TYPE (OR SB!INT:INDEX NULL) SB!IMPL::END)
;        (TYPE (OR T NULL) SB!IMPL::JUNK-ALLOWED)
;        (VALUES (OR NULL PATHNAME) (OR NULL SB!INT:INDEX)))
;       (SB!IMPL::WITH-HOST (SB!IMPL::FOUND-HOST SB!KERNEL:HOST)
;        (LET ((SB!IMPL::DEFAULTS #))
;          (DECLARE (TYPE PATHNAME SB!IMPL::DEFAULTS))
;          (ETYPECASE SB!IMPL::THING
;            (SIMPLE-STRING #)
;            (STRING #)
;            (PATHNAME # #)
;            (STREAM #)))))
; --> PROGN SB!INT:COLD-FSET 
; ==>
;   (THE
;    #<SB!KERNEL:VALUES-TYPE (VALUES &OPTIONAL (OR NULL PATHNAME)
;                                    (OR NULL (MOD 536870911)) &REST T)>
;    (PROGN
;     (BLOCK SB!EXT:PARSE-NATIVE-NAMESTRING
;       (SB!IMPL::WITH-HOST (SB!IMPL::FOUND-HOST SB!KERNEL:HOST)
;        (LET #
;          #
;          #)))))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL (OR NULL PATHNAME) (OR NULL (MOD 536870911)) &REST ...).

; compiling (DEFUN NAMESTRING ...)
; compiling (DEFUN NATIVE-NAMESTRING ...)
; compiling (DEFUN HOST-NAMESTRING ...)
; compiling (DEFUN DIRECTORY-NAMESTRING ...)
; compiling (DEFUN FILE-NAMESTRING ...)
; compiling (DEFUN ENOUGH-NAMESTRING ...)
; compiling (DEFUN WILD-PATHNAME-P ...)
; compiling (DEFUN PATHNAME-MATCH-P ...)
; compiling (DEFUN SUBSTITUTE-INTO ...)
; compiling (DEFUN DIDNT-MATCH-ERROR ...)
; compiling (DEFUN TRANSLATE-COMPONENT ...)
; compiling (DEFUN COMPUTE-DIRECTORY-SUBSTITUTIONS ...)
; compiling (DEFUN TRANSLATE-DIRECTORIES ...)
; compiling (DEFUN TRANSLATE-PATHNAME ...)
; compiling (DEFUN SIMPLIFY-NAMESTRING ...)
; compiling (DEFUN LOGICAL-WORD-OR-LOSE ...)
; compiling (DEFUN FIND-LOGICAL-HOST ...)
; compiling (DEFUN INTERN-LOGICAL-HOST ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-pathname.lisp
; in: DEFUN INTERN-LOGICAL-HOST
;     (DEFUN SB!IMPL::INTERN-LOGICAL-HOST (SB!IMPL::THING)
;       (DECLARE (VALUES SB!KERNEL:LOGICAL-HOST))
;       (SB!EXT:WITH-LOCKED-HASH-TABLE (SB!IMPL::*LOGICAL-HOSTS*)
;                                      (OR
;                                       (SB!IMPL::FIND-LOGICAL-HOST SB!IMPL::THING
;                                        NIL)
;                                       (LET* (# #)
;                                         (SETF # SB!IMPL::NEW)
;                                         SB!IMPL::NEW))))
; --> PROGN SB!INT:COLD-FSET 
; ==>
;   (THE #<SB!KERNEL:VALUES-TYPE (VALUES SB!KERNEL:LOGICAL-HOST &REST T)>
;        (PROGN
;         (BLOCK SB!IMPL::INTERN-LOGICAL-HOST
;           (SB!EXT:WITH-LOCKED-HASH-TABLE (SB!IMPL::*LOGICAL-HOSTS*) (OR # #)))))
; 
; note: type assertion too complex to check:
;  (VALUES LOGICAL-HOST &REST T).

; compiling (DEFUN MAYBE-MAKE-LOGICAL-PATTERN ...)
; compiling (DEFUN LOGICAL-CHUNKIFY ...)
; compiling (DEFUN PARSE-LOGICAL-NAMESTRING ...)
; compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS*)
; compiling (DEFUN LOGICAL-PATHNAME ...)
; compiling (DEFUN UNPARSE-LOGICAL-DIRECTORY ...)
; compiling (DEFUN UNPARSE-LOGICAL-PIECE ...)
; compiling (DEFUN UNPARSE-LOGICAL-FILE ...)
; compiling (DEFUN UNPARSE-ENOUGH-NAMESTRING ...)
; compiling (DEFUN UNPARSE-LOGICAL-NAMESTRING ...)
; compiling (DEFUN CANONICALIZE-LOGICAL-PATHNAME-TRANSLATIONS ...)
; compiling (DEFUN LOGICAL-PATHNAME-TRANSLATIONS ...)
; compiling (DEFUN (SETF LOGICAL-PATHNAME-TRANSLATIONS) ...)
; compiling (DEFUN TRANSLATE-LOGICAL-PATHNAME ...)
; compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS* ...)
; compiling (DEFUN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-pathname.lisp
; in: DEFUN SIMPLIFY-NAMESTRING
;     (SB!IMPL::HOST-SIMPLIFY-NAMESTRING
;      (OR SB!KERNEL:HOST (PATHNAME-HOST (SB!INT:SANE-DEFAULT-PATHNAME-DEFAULTS))))
; 
; caught STYLE-WARNING:
;   undefined function: HOST-SIMPLIFY-NAMESTRING

; in:
;      DEF!STRUCT (UNIX-HOST (:MAKE-LOAD-FORM-FUN MAKE-UNIX-HOST-LOAD-FORM)
;              (:INCLUDE HOST (PARSE #'PARSE-UNIX-NAMESTRING)
;               (PARSE-NATIVE #'PARSE-NATIVE-UNIX-NAMESTRING)
;               (UNPARSE #'UNPARSE-UNIX-NAMESTRING) ...))
;     #'SB!IMPL::PARSE-NATIVE-UNIX-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-NATIVE-UNIX-NAMESTRING

; in:
;      DEF!STRUCT (WIN32-HOST (:MAKE-LOAD-FORM-FUN MAKE-WIN32-HOST-LOAD-FORM)
;              (:INCLUDE HOST (PARSE #'PARSE-WIN32-NAMESTRING)
;               (PARSE-NATIVE #'PARSE-NATIVE-WIN32-NAMESTRING)
;               (UNPARSE #'UNPARSE-WIN32-NAMESTRING) ...))
;     #'SB!IMPL::PARSE-NATIVE-WIN32-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-NATIVE-WIN32-NAMESTRING

; in:
;      DEF!STRUCT (UNIX-HOST (:MAKE-LOAD-FORM-FUN MAKE-UNIX-HOST-LOAD-FORM)
;              (:INCLUDE HOST (PARSE #'PARSE-UNIX-NAMESTRING)
;               (PARSE-NATIVE #'PARSE-NATIVE-UNIX-NAMESTRING)
;               (UNPARSE #'UNPARSE-UNIX-NAMESTRING) ...))
;     #'SB!IMPL::PARSE-UNIX-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-UNIX-NAMESTRING

; in:
;      DEF!STRUCT (WIN32-HOST (:MAKE-LOAD-FORM-FUN MAKE-WIN32-HOST-LOAD-FORM)
;              (:INCLUDE HOST (PARSE #'PARSE-WIN32-NAMESTRING)
;               (PARSE-NATIVE #'PARSE-NATIVE-WIN32-NAMESTRING)
;               (UNPARSE #'UNPARSE-WIN32-NAMESTRING) ...))
;     #'SB!IMPL::PARSE-WIN32-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-WIN32-NAMESTRING

; in:
;      DEF!STRUCT (UNIX-HOST (:MAKE-LOAD-FORM-FUN MAKE-UNIX-HOST-LOAD-FORM)
;              (:INCLUDE HOST (PARSE #'PARSE-UNIX-NAMESTRING)
;               (PARSE-NATIVE #'PARSE-NATIVE-UNIX-NAMESTRING)
;               (UNPARSE #'UNPARSE-UNIX-NAMESTRING) ...))
;     #'SB!IMPL::UNPARSE-NATIVE-UNIX-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-NATIVE-UNIX-NAMESTRING

; in:
;      DEF!STRUCT (WIN32-HOST (:MAKE-LOAD-FORM-FUN MAKE-WIN32-HOST-LOAD-FORM)
;              (:INCLUDE HOST (PARSE #'PARSE-WIN32-NAMESTRING)
;               (PARSE-NATIVE #'PARSE-NATIVE-WIN32-NAMESTRING)
;               (UNPARSE #'UNPARSE-WIN32-NAMESTRING) ...))
;     #'SB!IMPL::UNPARSE-NATIVE-WIN32-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-NATIVE-WIN32-NAMESTRING

; in:
;      DEF!STRUCT (UNIX-HOST (:MAKE-LOAD-FORM-FUN MAKE-UNIX-HOST-LOAD-FORM)
;              (:INCLUDE HOST (PARSE #'PARSE-UNIX-NAMESTRING)
;               (PARSE-NATIVE #'PARSE-NATIVE-UNIX-NAMESTRING)
;               (UNPARSE #'UNPARSE-UNIX-NAMESTRING) ...))
;     #'SB!IMPL::UNPARSE-UNIX-DIRECTORY
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-UNIX-DIRECTORY

;     #'SB!IMPL::UNPARSE-UNIX-ENOUGH
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-UNIX-ENOUGH

;     #'SB!IMPL::UNPARSE-UNIX-FILE
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-UNIX-FILE

;     #'SB!IMPL::UNPARSE-UNIX-HOST
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-UNIX-HOST

;     #'SB!IMPL::UNPARSE-UNIX-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-UNIX-NAMESTRING

; in:
;      DEF!STRUCT (WIN32-HOST (:MAKE-LOAD-FORM-FUN MAKE-WIN32-HOST-LOAD-FORM)
;              (:INCLUDE HOST (PARSE #'PARSE-WIN32-NAMESTRING)
;               (PARSE-NATIVE #'PARSE-NATIVE-WIN32-NAMESTRING)
;               (UNPARSE #'UNPARSE-WIN32-NAMESTRING) ...))
;     #'SB!IMPL::UNPARSE-WIN32-DIRECTORY
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-WIN32-DIRECTORY

;     #'SB!IMPL::UNPARSE-WIN32-ENOUGH
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-WIN32-ENOUGH

;     #'SB!IMPL::UNPARSE-WIN32-FILE
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-WIN32-FILE

;     #'SB!IMPL::UNPARSE-WIN32-HOST
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-WIN32-HOST

;     #'SB!IMPL::UNPARSE-WIN32-NAMESTRING
; 
; caught STYLE-WARNING:
;   undefined function: UNPARSE-WIN32-NAMESTRING

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     HOST-SIMPLIFY-NAMESTRING PARSE-NATIVE-UNIX-NAMESTRING PARSE-NATIVE-WIN32-NAMESTRING PARSE-UNIX-NAMESTRING PARSE-WIN32-NAMESTRING UNPARSE-NATIVE-UNIX-NAMESTRING UNPARSE-NATIVE-WIN32-NAMESTRING UNPARSE-UNIX-DIRECTORY UNPARSE-UNIX-ENOUGH UNPARSE-UNIX-FILE UNPARSE-UNIX-HOST UNPARSE-UNIX-NAMESTRING UNPARSE-WIN32-DIRECTORY UNPARSE-WIN32-ENOUGH UNPARSE-WIN32-FILE UNPARSE-WIN32-HOST UNPARSE-WIN32-NAMESTRING
; 
; compilation unit finished
;   caught 18 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-pathname.lisp-obj-tmp written
; compilation finished in 0:00:03
; compiling file "/Users/nikodemus/src/sbcl/src/code/unix-pathname.lisp" (written 30 NOV 2007 04:16:27 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN SPLIT-AT-SLASHES ...)
; compiling (DEFUN PARSE-UNIX-NAMESTRING ...)
; compiling (DEFUN PARSE-NATIVE-UNIX-NAMESTRING ...)
; compiling (/SHOW0 "filesys.lisp 300")
; compiling (DEFUN UNPARSE-UNIX-HOST ...)
; compiling (DEFUN UNPARSE-UNIX-PIECE ...)
; compiling (DEFUN UNPARSE-UNIX-DIRECTORY-LIST ...)
; compiling (DEFUN UNPARSE-UNIX-DIRECTORY ...)
; compiling (DEFUN UNPARSE-UNIX-FILE ...)
; compiling (/SHOW0 "filesys.lisp 406")
; compiling (DEFUN UNPARSE-UNIX-NAMESTRING ...)
; compiling (DEFUN UNPARSE-NATIVE-UNIX-NAMESTRING ...)
; compiling (DEFUN UNPARSE-UNIX-ENOUGH ...)
; compiling (DEFUN SIMPLIFY-UNIX-NAMESTRING ...)
; file: /Users/nikodemus/src/sbcl/src/code/unix-pathname.lisp
; in: DEFUN PARSE-UNIX-NAMESTRING
;     (SB!IMPL::EXTRACT-NAME-TYPE-AND-VERSION NAMESTRING SB!IMPL::TAIL-START
;      SB!IMPL::TAIL-END)
; 
; caught STYLE-WARNING:
;   undefined function: EXTRACT-NAME-TYPE-AND-VERSION

;     (SB!IMPL::MAYBE-MAKE-PATTERN NAMESTRING SB!IMPL::PIECE-START
;      SB!IMPL::PIECE-END)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-MAKE-PATTERN

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     EXTRACT-NAME-TYPE-AND-VERSION MAYBE-MAKE-PATTERN
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/unix-pathname.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/win32-pathname.lisp" (written 06 MAY 2008 07:43:52 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN EXTRACT-DEVICE ...)
; compiling (DEFUN SPLIT-AT-SLASHES-AND-BACKSLASHES ...)
; compiling (DEFUN PARSE-WIN32-NAMESTRING ...)
; compiling (DEFUN PARSE-NATIVE-WIN32-NAMESTRING ...)
; compiling (DEFUN UNPARSE-WIN32-HOST ...)
; compiling (DEFUN UNPARSE-WIN32-DEVICE ...)
; compiling (DEFUN UNPARSE-WIN32-PIECE ...)
; compiling (DEFUN UNPARSE-WIN32-DIRECTORY-LIST ...)
; compiling (DEFUN UNPARSE-WIN32-DIRECTORY ...)
; compiling (DEFUN UNPARSE-WIN32-FILE ...)
; compiling (DEFUN UNPARSE-WIN32-NAMESTRING ...)
; compiling (DEFUN UNPARSE-NATIVE-WIN32-NAMESTRING ...)
; compiling (DEFUN UNPARSE-WIN32-ENOUGH ...)
; compiling (DEFUN SIMPLIFY-WIN32-NAMESTRING ...)
; file: /Users/nikodemus/src/sbcl/src/code/win32-pathname.lisp
; in: DEFUN PARSE-WIN32-NAMESTRING
;     (SB!IMPL::EXTRACT-NAME-TYPE-AND-VERSION NAMESTRING SB!IMPL::TAIL-START
;      SB!IMPL::TAIL-END)
; 
; caught STYLE-WARNING:
;   undefined function: EXTRACT-NAME-TYPE-AND-VERSION

;     (SB!IMPL::MAYBE-MAKE-PATTERN NAMESTRING SB!IMPL::PIECE-START
;      SB!IMPL::PIECE-END)
; 
; caught STYLE-WARNING:
;   undefined function: MAYBE-MAKE-PATTERN

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     EXTRACT-NAME-TYPE-AND-VERSION MAYBE-MAKE-PATTERN
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/win32-pathname.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/filesys.lisp" (written 29 MAY 2008 03:53:35 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN REMOVE-BACKSLASHES ...)
; compiling (DEFVAR *IGNORE-WILDCARDS* ...)
; compiling (/SHOW0 "filesys.lisp 86")
; compiling (DEFUN MAYBE-MAKE-PATTERN ...)
; compiling (/SHOW0 "filesys.lisp 160")
; compiling (DEFUN EXTRACT-NAME-TYPE-AND-VERSION ...)
; compiling (/SHOW0 "filesys.lisp 200")
; compiling (DEFUN DIRECTORY-LISPY-FILENAMES ...)
; file: /Users/nikodemus/src/sbcl/src/code/filesys.lisp
; in: DEFUN DIRECTORY-LISPY-FILENAMES
;     (SB!INT:C-STRINGS->STRING-LIST SB!IMPL::ADLF)
; --> SB!IMPL::ADLF SB!ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB!ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                              (SB!ALIEN:C-STRING
;                                               :EXTERNAL-FORMAT :DEFAULT
;                                               :ELEMENT-TYPE CHARACTER))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (/SHOW0 "filesys.lisp 498")
; compiling (DEFMACRO !ENUMERATE-MATCHES ...)
; compiling (/SHOW0 "filesys.lisp 500")
; compiling (DEFUN %ENUMERATE-MATCHES ...)
; compiling (DEFUN %ENUMERATE-DIRECTORIES ...)
; compiling (DEFUN %ENUMERATE-FILES ...)
; compiling (/NOSHOW0 "filesys.lisp 603")
; compiling (DEFUN QUICK-INTEGER-TO-STRING ...)
; compiling (DEFUN EMPTY-RELATIVE-PATHNAME-SPEC-P ...)
; compiling (DEFUN UNIX-NAMESTRING ...)
; compiling (DEFUN QUERY-FILE-SYSTEM ...)
; compiling (DEFUN PROBE-FILE ...)
; compiling (DEFUN TRUENAME ...)
; compiling (DEFUN FILE-AUTHOR ...)
; compiling (DEFUN FILE-WRITE-DATE ...)
; compiling (/SHOW0 "filesys.lisp 700")
; compiling (DEFUN RENAME-FILE ...)
; compiling (DEFUN DELETE-FILE ...)
; compiling (DEFUN SBCL-HOMEDIR-PATHNAME ...)
; compiling (DEFUN USER-HOMEDIR-PATHNAME ...)
; compiling (/SHOW0 "filesys.lisp 800")
; compiling (DEFUN PATHNAME-INTERSECTIONS ...)
; file: /Users/nikodemus/src/sbcl/src/code/filesys.lisp
; in: DEFUN PATHNAME-INTERSECTIONS
;     (COND ((EQ SB!IMPL::ONE :WILD) SB!IMPL::TWO)
;           ((EQ SB!IMPL::TWO :WILD) SB!IMPL::ONE)
;           ((OR (NULL SB!IMPL::ONE) (EQ SB!IMPL::ONE :UNSPECIFIC)) SB!IMPL::TWO)
;           ((OR (NULL SB!IMPL::TWO) (EQ SB!IMPL::TWO :UNSPECIFIC)) SB!IMPL::ONE)
;           (T (SB!INT:AVER (EQ (CAR SB!IMPL::ONE) (CAR SB!IMPL::TWO)))
;            (MAPCAR (LAMBDA (SB!IMPL::X) (CONS # SB!IMPL::X))
;                    (SB!IMPL::INTERSECT-DIRECTORY-HELPER (CDR SB!IMPL::ONE)
;                     (CDR SB!IMPL::TWO)))))
; --> IF PROGN 
; ==>
;   SB!IMPL::TWO
; 
; note: deleting unreachable code

; --> IF COND IF PROGN 
; ==>
;   SB!IMPL::ONE
; 
; note: deleting unreachable code

; compiling (DEFUN INTERSECT-DIRECTORY-HELPER ...)
; compiling (DEFUN DIRECTORY ...)
; compiling (/SHOW0 "filesys.lisp 899")
; compiling (DEFUN PATHNAME-ORDER ...)
; compiling (DEFUN ENSURE-DIRECTORIES-EXIST ...)
; compiling (/SHOW0 "filesys.lisp 1000"); 
; compilation unit finished
;   printed 3 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/filesys.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/code/save.lisp" (written 10 JAN 2008 01:32:48 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFINE-ALIEN-ROUTINE "save" ...)
; compiling (DEFINE-ALIEN-ROUTINE "gc_and_save" ...)
; compiling (DEFVAR SB!VM::*RESTART-LISP-FUNCTION*)
; compiling (DEFUN SAVE-LISP-AND-DIE ...)
; compiling (DEFUN DEINIT ...)
; file: /Users/nikodemus/src/sbcl/src/code/save.lisp
; in: DEFUN SAVE-LISP-AND-DIE
;     (SB!KERNEL::COMPACT-ENVIRONMENT-AUX "Auxiliary" 200)
; 
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL::COMPACT-ENVIRONMENT-AUX

; in: DEFUN DEINIT
;     (SB!KERNEL:DEBUG-DEINIT)
; 
; caught STYLE-WARNING:
;   undefined function: DEBUG-DEINIT

;     (SB!THREAD:LIST-ALL-THREADS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD:LIST-ALL-THREADS

;     (SB!KERNEL:PROFILE-DEINIT)
; 
; caught STYLE-WARNING:
;   undefined function: PROFILE-DEINIT

; in: DEFUN SAVE-LISP-AND-DIE
;     (SB!IMPL::REINIT)
; 
; caught STYLE-WARNING:
;   undefined function: REINIT

;     (SB!IMPL::HANDLING-END-OF-THE-WORLD (SB!IMPL::REINIT)
;      (FUNCALL SB!IMPL::TOPLEVEL))
; --> LET 
; ==>
;   (SB!THREAD::TERMINATE-SESSION)
; 
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::TERMINATE-SESSION

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!KERNEL::COMPACT-ENVIRONMENT-AUX DEBUG-DEINIT SB!THREAD:LIST-ALL-THREADS PROFILE-DEINIT REINIT SB!THREAD::TERMINATE-SESSION
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/save.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/sharpm.lisp" (written 09 JUL 2008 12:31:53 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (SPECIAL *READ-SUPPRESS* ...))
; compiling (DEFUN IGNORE-NUMARG ...)
; compiling (DEFUN SHARP-LEFT-PAREN ...)
; compiling (DEFUN SHARP-STAR ...)
; compiling (DEFUN SHARP-A ...)
; compiling (DEFUN SHARP-S ...)
; compiling (DEFUN SHARP-B ...)
; compiling (DEFUN SHARP-C ...)
; compiling (DEFUN SHARP-O ...)
; compiling (DEFUN SHARP-R ...)
; compiling (DEFUN SHARP-X ...)
; compiling (DEFVAR *SHARP-EQUAL-CIRCLE-TABLE*)
; compiling (DECLAIM (TYPE HASH-TABLE ...))
; compiling (DEFUN CIRCLE-SUBST ...)
; compiling (DEFVAR *SHARP-SHARP-ALIST* ...)
; compiling (DEFUN SHARP-EQUAL ...)
; compiling (DEFUN SHARP-SHARP ...)
; compiling (FLET (#) ...)
; file: /Users/nikodemus/src/sbcl/src/code/sharpm.lisp
; in: DEFUN SHARP-PLUS
;     (DEFUN SB!IMPL::SHARP-PLUS (STREAM SB!IMPL::SUB-CHAR SB!IMPL::NUMARG)
;       (SB!IMPL::IGNORE-NUMARG SB!IMPL::SUB-CHAR SB!IMPL::NUMARG)
;       (SB!IMPL::GUTS STREAM NIL))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::SHARP-PLUS
;                     (LAMBDA (STREAM SB!IMPL::SUB-CHAR SB!IMPL::NUMARG)
;                       (BLOCK SB!IMPL::SHARP-PLUS
;                         (SB!IMPL::IGNORE-NUMARG SB!IMPL::SUB-CHAR
;                          SB!IMPL::NUMARG)
;                         (SB!IMPL::GUTS STREAM NIL))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET SHARP-PLUS (LAMBDA (STREAM SUB-CHAR NUMARG) (BLOCK SHARP-PLUS # ...))))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET SHARP-PLUS not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; in: DEFUN SHARP-MINUS
;     (DEFUN SB!IMPL::SHARP-MINUS (STREAM SB!IMPL::SUB-CHAR SB!IMPL::NUMARG)
;       (SB!IMPL::IGNORE-NUMARG SB!IMPL::SUB-CHAR SB!IMPL::NUMARG)
;       (SB!IMPL::GUTS STREAM T))
; --> PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::SHARP-MINUS
;                     (LAMBDA (STREAM SB!IMPL::SUB-CHAR SB!IMPL::NUMARG)
;                       (BLOCK SB!IMPL::SHARP-MINUS
;                         (SB!IMPL::IGNORE-NUMARG SB!IMPL::SUB-CHAR
;                          SB!IMPL::NUMARG)
;                         (SB!IMPL::GUTS STREAM T))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET SHARP-MINUS (LAMBDA (STREAM SUB-CHAR NUMARG) (BLOCK SHARP-MINUS # ...))))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET SHARP-MINUS not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; compiling (DEFUN SHARP-P ...)
; compiling (DEFUN SHARP-BACKSLASH ...)
; compiling (DEFUN SHARP-VERTICAL-BAR ...)
; compiling (DEFUN SHARP-QUOTE ...)
; compiling (DEFUN SHARP-COLON ...)
; compiling (DEFVAR *READ-EVAL* ...)
; compiling (DEFUN SHARP-DOT ...)
; compiling (DEFUN SHARP-ILLEGAL ...)
; compiling (DEFUN !SHARPM-COLD-INIT ...); 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/sharpm.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/alloc.lisp" (written 28 JUN 2007 05:24:48 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DECLAIM (INLINE STORE-WORD))
; compiling (DEFUN STORE-WORD ...)
; compiling (DEFUN ALLOCATE-STATIC-VECTOR ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/alloc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-step.lisp" (written 18 SEP 2006 11: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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-step.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-thread.lisp" (written 04 JUL 2008 12:31:59 AM):
; compiling (IN-PACKAGE "SB!THREAD")
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFSTRUCT (THREAD #) ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN THREAD-ALIVE-P ...)
; compiling (DEFVAR *ALL-THREADS* ...)
; compiling (DEFVAR *ALL-THREADS-LOCK* ...)
; compiling (DEFVAR *DEFAULT-ALLOC-SIGNAL* ...)
; compiling (DEFMACRO WITH-ALL-THREADS-LOCK ...)
; compiling (DEFUN LIST-ALL-THREADS ...)
; compiling (DECLAIM (INLINE CURRENT-THREAD-SAP))
; compiling (DEFUN CURRENT-THREAD-SAP ...)
; compiling (DECLAIM (INLINE CURRENT-THREAD-OS-THREAD))
; compiling (DEFUN CURRENT-THREAD-OS-THREAD ...)
; compiling (DEFUN INIT-INITIAL-THREAD ...)
; compiling (DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP))
; compiling (DEFUN SB!VM::CURRENT-THREAD-OFFSET-SAP ...)
; compiling (DECLAIM (INLINE GET-SPINLOCK ...))
; compiling (DEFUN GET-SPINLOCK ...)
; compiling (DEFUN RELEASE-SPINLOCK ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFUN GET-MUTEX ...)
; compiling (DEFUN RELEASE-MUTEX ...)
; compiling (DEFSTRUCT (WAITQUEUE #) ...)
; compiling (DEFUN MAKE-WAITQUEUE ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFUN CONDITION-WAIT ...)
; compiling (DEFUN CONDITION-NOTIFY ...)
; compiling (DEFUN CONDITION-BROADCAST ...)
; compiling (DEFSTRUCT (SEMAPHORE #) ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DECLAIM (INLINE SEMAPHORE-COUNT))
; compiling (DEFUN SEMAPHORE-COUNT ...)
; compiling (DEFUN MAKE-SEMAPHORE ...)
; compiling (DEFUN WAIT-ON-SEMAPHORE ...)
; compiling (DEFUN SIGNAL-SEMAPHORE ...)
; compiling (DEFSTRUCT SESSION ...)
; compiling (DEFVAR *SESSION* ...)
; compiling (DEFMACRO WITH-SESSION-LOCK ...)
; compiling (DEFUN NEW-SESSION ...)
; compiling (DEFUN INIT-JOB-CONTROL ...)
; compiling (DEFUN %DELETE-THREAD-FROM-SESSION ...)
; compiling (DEFUN CALL-WITH-NEW-SESSION ...)
; compiling (DEFMACRO WITH-NEW-SESSION ...)
; compiling (DEFUN TERMINATE-SESSION ...)
; compiling (DEFUN DEBUGGER-WAIT-UNTIL-FOREGROUND-THREAD ...)
; compiling (DEFUN GET-FOREGROUND ...)
; compiling (DEFUN RELEASE-FOREGROUND ...)
; compiling (DEFUN FOREGROUND-THREAD ...)
; compiling (DEFUN MAKE-LISTENER-THREAD ...)
; compiling (DEFUN MAKE-THREAD ...)
; compiling (DEFINE-CONDITION JOIN-THREAD-ERROR ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFUN JOIN-THREAD ...)
; compiling (DEFUN DESTROY-THREAD ...)
; compiling (DEFINE-CONDITION INTERRUPT-THREAD-ERROR ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFMACRO WITH-INTERRUPTIONS-LOCK ...)
; compiling (DEFUN RUN-INTERRUPTION ...)
; compiling (DEFUN INTERRUPT-THREAD ...)
; compiling (DEFUN TERMINATE-THREAD ...)
; compiling (DEFINE-ALIEN-ROUTINE "thread_yield" ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFUN SB!VM::LOCKED-SYMBOL-GLOBAL-VALUE-ADD ...)
; compiling (DEFUN THREAD-STEPPING ...)
; compiling (DEFUN (SETF THREAD-STEPPING) ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-thread.lisp
; in: DEFUN THREAD-STEPPING
;     (SB!KERNEL:MAKE-LISP-OBJ
;      (SB!SYS:SAP-REF-WORD (SB!THREAD::CURRENT-THREAD-SAP)
;                           (* SB!VM::THREAD-STEPPING-SLOT SB!VM:N-WORD-BYTES)))
; 
; caught STYLE-WARNING:
;   undefined function: MAKE-LISP-OBJ

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     MAKE-LISP-OBJ
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-thread.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/gc.lisp" (written 06 MAY 2008 07:43:52 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DECLAIM (SPECIAL SB!VM:*READ-ONLY-SPACE-FREE-POINTER* ...))
; compiling (DECLAIM (INLINE CURRENT-DYNAMIC-SPACE-START))
; compiling (DEFUN CURRENT-DYNAMIC-SPACE-START ...)
; compiling (DECLAIM (INLINE DYNAMIC-USAGE))
; compiling (DEF-C-VAR-FUN DYNAMIC-USAGE ...)
; compiling (DEFUN STATIC-SPACE-USAGE ...)
; compiling (DEFUN READ-ONLY-SPACE-USAGE ...)
; compiling (DEFUN CONTROL-STACK-USAGE ...)
; compiling (DEFUN BINDING-STACK-USAGE ...)
; compiling (DEFUN ROOM-MINIMAL-INFO ...)
; compiling (DEFUN ROOM-INTERMEDIATE-INFO ...)
; compiling (DEFUN ROOM-MAXIMAL-INFO ...)
; compiling (DEFUN ROOM ...)
; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; compiling (DEFVAR *N-BYTES-FREED-OR-PURIFIED* ...)
; compiling (DEFUN GC-REINIT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN GET-BYTES-CONSED ...)
; compiling (DEFVAR *AFTER-GC-HOOKS* ...)
; compiling (DEFINE-ALIEN-ROUTINE COLLECT-GARBAGE ...)
; compiling (DEFUN GC-STOP-THE-WORLD ...)
; compiling (DEFUN GC-START-THE-WORLD ...)
; compiling (DEFVAR *ALREADY-IN-GC* ...)
; compiling (DECLAIM (TYPE CONS ...))
; compiling (DEFVAR *GC-EPOCH* ...)
; compiling (DEFUN SUB-GC ...)
; compiling (DEFUN GC ...)
; compiling (DEFUN UNSAFE-CLEAR-ROOTS ...)
; compiling (DEFUN BYTES-CONSED-BETWEEN-GCS ...)
; compiling (DEFUN (SETF BYTES-CONSED-BETWEEN-GCS) ...)
; compiling (DECLAIM (INLINE MAYBE-HANDLE-PENDING-GC))
; compiling (DEFUN MAYBE-HANDLE-PENDING-GC ...)
; compiling (DEFUN GC-ON ...)
; compiling (DEFUN GC-OFF ...)
; file: /Users/nikodemus/src/sbcl/src/code/gc.lisp
; in: DEFUN BINDING-STACK-USAGE
;     (SB!DI::DESCRIPTOR-SAP SB!VM:*BINDING-STACK-START*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DI::DESCRIPTOR-SAP

; in: DEFUN CONTROL-STACK-USAGE
;     (SB!DI::DESCRIPTOR-SAP SB!VM:*CONTROL-STACK-END*)
; 
; caught STYLE-WARNING:
;   undefined function: SB!DI::DESCRIPTOR-SAP

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB!DI::DESCRIPTOR-SAP
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/gc.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/purify.lisp" (written 30 APR 2007 11:55:43 PM):
; compiling (IN-PACKAGE "SB!KERNEL")
; compiling (DEFINE-ALIEN-ROUTINE ("purify" %PURIFY) ...)
; compiling (DEFUN COMPACT-ENVIRONMENT-AUX ...)
; compiling (DEFUN PURIFY ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/purify.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/debug-int.lisp" (written 10 DEC 2007 07:46:00 AM):
; compiling (IN-PACKAGE "SB!DI")
; compiling (DEFINE-CONDITION DEBUG-CONDITION ...)
; compiling (DEFINE-CONDITION NO-DEBUG-FUN-RETURNS ...)
; compiling (DEFINE-CONDITION NO-DEBUG-BLOCKS ...)
; compiling (DEFINE-CONDITION NO-DEBUG-VARS ...)
; compiling (DEFINE-CONDITION LAMBDA-LIST-UNAVAILABLE ...)
; compiling (DEFINE-CONDITION INVALID-VALUE ...)
; compiling (DEFINE-CONDITION AMBIGUOUS-VAR-NAME ...)
; compiling (DEFINE-CONDITION DEBUG-ERROR ...)
; compiling (DEFINE-CONDITION UNHANDLED-DEBUG-CONDITION ...)
; compiling (DEFINE-CONDITION UNKNOWN-CODE-LOCATION ...)
; compiling (DEFINE-CONDITION UNKNOWN-DEBUG-VAR ...)
; compiling (DEFINE-CONDITION INVALID-CONTROL-STACK-POINTER ...)
; compiling (DEFINE-CONDITION FRAME-FUN-MISMATCH ...)
; compiling (DEFMACRO DEBUG-SIGNAL ...)
; compiling (DEFSTRUCT (DEBUG-VAR # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFSTRUCT (COMPILED-DEBUG-VAR # ...) ...)
; compiling (DEFSTRUCT (FRAME # ...) ...)
; compiling (DEFSTRUCT (COMPILED-FRAME # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFSTRUCT (DEBUG-FUN # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFSTRUCT (COMPILED-DEBUG-FUN # ...) ...)
; compiling (DEFVAR *COMPILED-DEBUG-FUNS* ...)
; compiling (DEFUN MAKE-COMPILED-DEBUG-FUN ...)
; compiling (DEFSTRUCT (BOGUS-DEBUG-FUN # ...) ...)
; compiling (DEFSTRUCT (DEBUG-BLOCK # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (SETF (FDOCUMENTATION # ...) ...)
; compiling (DEFSTRUCT (COMPILED-DEBUG-BLOCK # ...) ...)
; compiling (DEFSTRUCT (BREAKPOINT-DATA # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFSTRUCT (BREAKPOINT # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFSTRUCT (CODE-LOCATION # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFSTRUCT (COMPILED-CODE-LOCATION # ...) ...)
; compiling (DEFUN DEBUG-SOURCE-ROOT-NUMBER ...)
; compiling (DEFCONSTANT REAL-LRA-SLOT ...)
; compiling (DEFUN CURRENT-SP ...)
; compiling (DEFUN CURRENT-FP ...)
; compiling (DEFUN STACK-REF ...)
; compiling (DEFUN %SET-STACK-REF ...)
; compiling (DEFUN FUN-CODE-HEADER ...)
; compiling (DEFUN LRA-CODE-HEADER ...)
; compiling (DEFUN %MAKE-LISP-OBJ ...)
; compiling (DEFUN GET-LISP-OBJ-ADDRESS ...)
; compiling (DEFUN FUN-WORD-OFFSET ...)
; compiling (DECLAIM (INLINE CONTROL-STACK-POINTER-VALID-P))
; compiling (DEFUN CONTROL-STACK-POINTER-VALID-P ...)
; compiling (DECLAIM (INLINE COMPONENT-PTR-FROM-PC))
; compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE COMPONENT-PTR-FROM-PC ...)
; compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE VALID-LISP-POINTER-P ...)
; compiling (DECLAIM (INLINE COMPONENT-FROM-COMPONENT-PTR))
; compiling (DEFUN COMPONENT-FROM-COMPONENT-PTR ...)
; compiling (DEFUN COMPUTE-LRA-DATA-FROM-PC ...)
; compiling (DEFCONSTANT SB!VM::NARGS-OFFSET ...)
; compiling (DECLAIM (INLINE RA-POINTER-VALID-P))
; compiling (DEFUN RA-POINTER-VALID-P ...)
; compiling (DECLAIM (MAYBE-INLINE X86-CALL-CONTEXT))
; compiling (DEFUN X86-CALL-CONTEXT ...)
; compiling (DECLAIM (INLINE DESCRIPTOR-SAP))
; compiling (DEFUN DESCRIPTOR-SAP ...)
; compiling (DEFUN TOP-FRAME ...)
; compiling (DEFUN FLUSH-FRAMES-ABOVE ...)
; compiling (DEFUN FRAME-DOWN ...)
; compiling (DEFUN GET-CONTEXT-VALUE ...)
; compiling (DEFUN (SETF GET-CONTEXT-VALUE) ...)
; compiling (DEFUN FOREIGN-FUNCTION-BACKTRACE-NAME ...)
; compiling (DEFUN COMPUTE-CALLING-FRAME ...)
; compiling (DEFUN NTH-INTERRUPT-CONTEXT ...)
; file: /Users/nikodemus/src/sbcl/src/code/debug-int.lisp
; in: DEFUN NTH-INTERRUPT-CONTEXT
;     (SB!ALIEN:SAP-ALIEN
;      (SB!VM::CURRENT-THREAD-OFFSET-SAP
;       (+ SB!VM::THREAD-INTERRUPT-CONTEXTS-OFFSET SB!DI::N))
;      (* SB!SYS:OS-CONTEXT-T))
; ==>
;   (SB!ALIEN-INTERNALS:%SAP-ALIEN
;    (SB!VM::CURRENT-THREAD-OFFSET-SAP
;     (+ SB!VM::THREAD-INTERRUPT-CONTEXTS-OFFSET SB!DI::N))
;    '#<SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                              (SB!ALIEN:STRUCT
;                                               SB!VM::OS-CONTEXT-T-STRUCT))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (DEFUN FIND-ESCAPED-FRAME ...)
; compiling (DEFUN DEBUG-FUN-FROM-PC ...)
; compiling (DEFUN CODE-LOCATION-FROM-PC ...)
; compiling (DEFUN FRAME-CATCHES ...)
; compiling (DEFUN REPLACE-FRAME-CATCH-TAG ...)
; compiling (DEFMACRO DO-DEBUG-FUN-BLOCKS ...)
; compiling (DEFMACRO DO-DEBUG-FUN-VARS ...)
; compiling (DEFUN DEBUG-FUN-FUN ...)
; compiling (DEFUN DEBUG-FUN-NAME ...)
; compiling (DEFUN FUN-DEBUG-FUN ...)
; compiling (DEFUN DEBUG-FUN-KIND ...)
; compiling (DEFUN DEBUG-VAR-INFO-AVAILABLE ...)
; compiling (DEFUN DEBUG-FUN-SYMBOL-VARS ...)
; compiling (DEFUN AMBIGUOUS-DEBUG-VARS ...)
; compiling (DEFUN FIND-VAR ...)
; compiling (DEFUN DEBUG-FUN-LAMBDA-LIST ...)
; compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST ...)
; compiling (DEFUN PARSE-COMPILED-DEBUG-FUN-LAMBDA-LIST ...)
; compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST-VAR ...)
; compiling (DEFUN COMPILED-DEBUG-FUN-DEBUG-INFO ...)
; compiling (DEFVAR *PARSING-BUFFER* ...)
; compiling (DEFVAR *OTHER-PARSING-BUFFER* ...)
; compiling (DEFUN DEBUG-FUN-DEBUG-BLOCKS ...)
; compiling (DEFUN PARSE-DEBUG-BLOCKS ...)
; compiling (DEFUN PARSE-COMPILED-DEBUG-BLOCKS ...)
; compiling (DEFUN DEBUG-FUN-DEBUG-VARS ...)
; compiling (DEFUN ASSIGN-MINIMAL-VAR-NAMES ...)
; compiling (DEFUN PARSE-COMPILED-DEBUG-VARS ...)
; compiling (DEFUN CODE-LOCATION-UNKNOWN-P ...)
; compiling (DEFUN CODE-LOCATION-DEBUG-BLOCK ...)
; compiling (DEFUN COMPUTE-COMPILED-CODE-LOCATION-DEBUG-BLOCK ...)
; compiling (DEFUN CODE-LOCATION-DEBUG-SOURCE ...)
; compiling (DEFUN CODE-LOCATION-TOPLEVEL-FORM-OFFSET ...)
; compiling (DEFUN CODE-LOCATION-FORM-NUMBER ...)
; compiling (DEFUN CODE-LOCATION-KIND ...)
; compiling (DEFUN COMPILED-CODE-LOCATION-LIVE-SET ...)
; compiling (DEFUN CODE-LOCATION= ...)
; compiling (DEFUN SUB-COMPILED-CODE-LOCATION= ...)
; compiling (DEFUN FILL-IN-CODE-LOCATION ...)
; compiling (DEFMACRO DO-DEBUG-BLOCK-LOCATIONS ...)
; compiling (DEFUN DEBUG-BLOCK-FUN-NAME ...)
; compiling (DEFUN DEBUG-BLOCK-CODE-LOCATIONS ...)
; compiling (DEFUN DEBUG-VAR-SYMBOL-NAME ...)
; compiling (DEFUN DEBUG-VAR-PACKAGE-NAME ...)
; compiling (DEFUN DEBUG-VAR-VALID-VALUE ...)
; compiling (DEFUN DEBUG-VAR-VALUE ...)
; compiling (DEFUN ACCESS-COMPILED-DEBUG-VAR-SLOT ...)
; compiling (DEFUN MAKE-LISP-OBJ ...)
; compiling (DEFUN SUB-ACCESS-DEBUG-VAR-SLOT ...)
; compiling (DEFUN %SET-DEBUG-VAR-VALUE ...)
; compiling (DEFUN SET-COMPILED-DEBUG-VAR-SLOT ...)
; compiling (DEFUN SUB-SET-DEBUG-VAR-SLOT ...)
; compiling (DEFUN INDIRECT-VALUE-CELL-P ...)
; compiling (DEFUN DEBUG-VAR-VALIDITY ...)
; compiling (DEFUN COMPILED-DEBUG-VAR-VALIDITY ...)
; compiling (DEFUN FORM-NUMBER-TRANSLATIONS ...)
; compiling (DEFUN SOURCE-PATH-CONTEXT ...)
; compiling (DEFUN PREPROCESS-FOR-EVAL ...)
; compiling (DEFUN MAKE-BREAKPOINT ...)
; compiling (DEFSTRUCT (FUN-END-COOKIE # ...) ...)
; compiling (DEFVAR *FUN-END-COOKIES* ...)
; compiling (DEFUN FUN-END-STARTER-HOOK ...)
; compiling (DEFUN FUN-END-COOKIE-VALID-P ...)
; compiling (DEFUN ACTIVATE-BREAKPOINT ...)
; compiling (DEFUN ACTIVATE-COMPILED-CODE-LOCATION-BREAKPOINT ...)
; compiling (DEFUN ACTIVATE-COMPILED-FUN-START-BREAKPOINT ...)
; compiling (DEFUN SUB-ACTIVATE-BREAKPOINT ...)
; compiling (DEFUN DEACTIVATE-BREAKPOINT ...)
; compiling (DEFUN DEACTIVATE-COMPILED-BREAKPOINT ...)
; compiling (DEFUN BREAKPOINT-INFO ...)
; compiling (DEFUN %SET-BREAKPOINT-INFO ...)
; compiling (DEFUN BREAKPOINT-ACTIVE-P ...)
; compiling (DEFUN DELETE-BREAKPOINT ...)
; compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_install" ...)
; compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_remove" ...)
; compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_do_displaced_inst" ...)
; compiling (DEFVAR *COMPONENT-BREAKPOINT-OFFSETS* ...)
; compiling (DEFUN BREAKPOINT-DATA ...)
; compiling (DEFUN DELETE-BREAKPOINT-DATA ...)
; compiling (DEFUN HANDLE-BREAKPOINT ...)
; compiling (DEFVAR *EXECUTING-BREAKPOINT-HOOKS* ...)
; compiling (DEFUN HANDLE-BREAKPOINT-AUX ...)
; compiling (DEFUN INVOKE-BREAKPOINT-HOOKS ...)
; compiling (DEFUN SIGNAL-CONTEXT-FRAME ...)
; compiling (DEFUN HANDLE-FUN-END-BREAKPOINT ...)
; compiling (DEFUN HANDLE-FUN-END-BREAKPOINT-AUX ...)
; compiling (DEFUN GET-FUN-END-BREAKPOINT-VALUES ...)
; compiling (DEFCONSTANT BOGUS-LRA-CONSTANTS ...)
; compiling (DEFCONSTANT KNOWN-RETURN-P-SLOT ...)
; compiling (DEFUN MAKE-BOGUS-LRA ...)
; compiling (DEFUN DEBUG-FUN-START-LOCATION ...)
; compiling (DEFUN HANDLE-SINGLE-STEP-TRAP ...)
; compiling (DEFVAR *STEP-FRAME* ...)
; compiling (DEFUN HANDLE-SINGLE-STEP-BEFORE-TRAP ...)
; compiling (DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ...)
; compiling (DEFUN SINGLE-STEP-INFO-FROM-CONTEXT ...)
; compiling (DEFUN FIND-STEPPED-FRAME ...)
; file: /Users/nikodemus/src/sbcl/src/code/debug-int.lisp
; in: DEFUN MAKE-BOGUS-LRA
;     (SB!VM:SANCTIFY-FOR-EXECUTION SB!DI::CODE-OBJECT)
; 
; caught STYLE-WARNING:
;   undefined function: SANCTIFY-FOR-EXECUTION

; in: DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP
;     (SB!IMPL::STEP-FORM SB!DI::STEP-INFO SB!DI::ARGS)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::STEP-FORM

; in: DEFUN HANDLE-SINGLE-STEP-BEFORE-TRAP
;     (SB!IMPL::STEP-FORM SB!DI::STEP-INFO :UNKNOWN)
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::STEP-FORM

; in: DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP
;     #'SB!IMPL::STEP-VALUES
; 
; caught STYLE-WARNING:
;   undefined function: SB!IMPL::STEP-VALUES

; 
; caught STYLE-WARNING:
;   These functions are undefined:
;     SANCTIFY-FOR-EXECUTION SB!IMPL::STEP-FORM SB!IMPL::STEP-VALUES
; 
; compilation unit finished
;   caught 5 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/debug-int.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/target-disassem.lisp" (written 03 JUL 2008 10:24:50 PM):
; compiling (IN-PACKAGE "SB!DISASSEM")
; compiling (DEFUN INST-SPECIALIZES-P ...)
; compiling (DEFUN SPECIALIZER-RANK ...)
; compiling (DEFUN ORDER-SPECIALIZERS ...)
; compiling (DEFUN SPECIALIZATION-ERROR ...)
; compiling (DEFUN TRY-SPECIALIZING ...)
; compiling (DECLAIM (INLINE INST-MATCHES-P ...))
; compiling (DEFUN INST-MATCHES-P ...)
; compiling (DEFUN CHOOSE-INST-SPECIALIZATION ...)
; compiling (DEFUN FIND-INST ...)
; compiling (DEFUN BUILD-INST-SPACE ...)
; compiling (DEFUN PRINT-MASKED-BINARY ...)
; compiling (DEFUN PRINT-INST-BITS ...)
; compiling (DEFUN PRINT-INST-SPACE ...)
; compiling (DECLAIM (INLINE WORDS-TO-BYTES ...))
; compiling (DEFUN WORDS-TO-BYTES ...)
; compiling (DEFUN BYTES-TO-WORDS ...)
; compiling (DEFCONSTANT LRA-SIZE ...)
; compiling (DEFSTRUCT (OFFS-HOOK #) ...)
; compiling (DEFSTRUCT (SEGMENT # ...) ...)
; compiling (DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFUN FUN-SELF ...)
; compiling (DEFUN FUN-CODE ...)
; compiling (DEFUN FUN-NEXT ...)
; compiling (DEFUN FUN-ADDRESS ...)
; compiling (DEFUN FUN-INSTS-OFFSET ...)
; compiling (DEFUN FUN-OFFSET ...)
; compiling (DEFUN CODE-INST-AREA-LENGTH ...)
; compiling (DEFUN CODE-INST-AREA-ADDRESS ...)
; compiling (DEFUN SEGMENT-OFFS-TO-CODE-OFFS ...)
; compiling (DEFUN CODE-OFFS-TO-SEGMENT-OFFS ...)
; compiling (DEFUN CODE-INSTS-OFFS-TO-SEGMENT-OFFS ...)
; compiling (DEFUN LRA-HOOK ...)
; compiling (DEFUN FUN-HEADER-HOOK ...)
; compiling (DEFUN ALIGNMENT-HOOK ...)
; compiling (DEFUN REWIND-CURRENT-SEGMENT ...)
; compiling (DEFUN CALL-OFFS-HOOKS ...)
; compiling (DEFUN CALL-FUN-HOOKS ...)
; compiling (DEFUN HANDLE-BOGUS-INSTRUCTION ...)
; compiling (DEFUN MAP-SEGMENT-INSTRUCTIONS ...)
; compiling (DEFUN ADD-SEGMENT-LABELS ...)
; compiling (DEFUN NUMBER-LABELS ...)
; compiling (DEFUN GET-INST-SPACE ...)
; compiling (DEFUN ADD-OFFS-HOOK ...)
; compiling (DEFUN ADD-OFFS-NOTE-HOOK ...)
; compiling (DEFUN ADD-OFFS-COMMENT-HOOK ...)
; compiling (DEFUN ADD-FUN-HOOK ...)
; compiling (DEFUN SET-LOCATION-PRINTING-RANGE ...)
; compiling (DEFUN PRINT-CURRENT-ADDRESS ...)
; compiling (DEFUN PRINT-NOTES-AND-NEWLINE ...)
; compiling (DEFUN PRINT-INST ...)
; compiling (DEFUN PRINT-BYTES ...)
; compiling (DEFUN PRINT-WORDS ...)
; compiling (DEFVAR *DEFAULT-DSTATE-HOOKS* ...)
; compiling (DEFUN MAKE-DSTATE ...)
; compiling (DEFUN ADD-FUN-HEADER-HOOKS ...)
; compiling (DECLAIM (INLINE SAP-MAKER))
; compiling (DEFUN SAP-MAKER ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/target-disassem.lisp
; in: DEFUN SAP-MAKER
;     (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8388608 4303355902)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -8388608 4303355902)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST
;                                                         T).
;       etc.

;     (LET ((SB!DISASSEM::OLD-SAP
;            (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT)
;                         SB!DISASSEM::OFFSET)))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP))
;       (LAMBDA ()
;         (LET ((SB!DISASSEM::NEW-ADDR #))
;           (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR))
;           (IF (= # SB!DISASSEM::NEW-ADDR) SB!DISASSEM::OLD-SAP
;               (SETF SB!DISASSEM::OLD-SAP #)))))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first argument of MAKE-VALUE-CELL

;     (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

;     (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; compiling (DEFUN VECTOR-SAP-MAKER ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/target-disassem.lisp
; in: DEFUN SAP-MAKER
;     (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8388608 4303355902)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -8388608 4303355902)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST
;                                                         T).
;       etc.

;     (LET ((SB!DISASSEM::OLD-SAP
;            (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT)
;                         SB!DISASSEM::OFFSET)))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP))
;       (LAMBDA ()
;         (LET ((SB!DISASSEM::NEW-ADDR #))
;           (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR))
;           (IF (= # SB!DISASSEM::NEW-ADDR) SB!DISASSEM::OLD-SAP
;               (SETF SB!DISASSEM::OLD-SAP #)))))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first argument of MAKE-VALUE-CELL

;     (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

;     (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; compiling (DEFUN CODE-SAP-MAKER ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/target-disassem.lisp
; in: DEFUN SAP-MAKER
;     (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8388608 4303355902)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -8388608 4303355902)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST
;                                                         T).
;       etc.

;     (LET ((SB!DISASSEM::OLD-SAP
;            (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT)
;                         SB!DISASSEM::OFFSET)))
;       (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP))
;       (LAMBDA ()
;         (LET ((SB!DISASSEM::NEW-ADDR #))
;           (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR))
;           (IF (= # SB!DISASSEM::NEW-ADDR) SB!DISASSEM::OLD-SAP
;               (SETF SB!DISASSEM::OLD-SAP #)))))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first argument of MAKE-VALUE-CELL

;     (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

;     (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; compiling (DEFUN MEMORY-SAP-MAKER ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/target-disassem.lisp
; in: DEFUN MEMORY-SAP-MAKER
;     (LAMBDA () SB!DISASSEM::SAP)
; --> FUNCTION SB!C::%%ALLOCATE-CLOSURES 
; ==>
;   (SB!C::%ALLOCATE-CLOSURES
;    '(#<SB!C::CLAMBDA
;        :%SOURCE-NAME SB!C::.ANONYMOUS.
;        :%DEBUG-NAME (LAMBDA #)
;        :KIND NIL
;        :TYPE #<SB!KERNEL:FUN-TYPE #>
;        :WHERE-FROM :DEFINED
;        :VARS NIL {1362EA21}>))
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the second argument of CLOSURE-INIT

; compiling (DEFUN MAKE-SEGMENT ...)
; compiling (DEFUN MAKE-VECTOR-SEGMENT ...)
; compiling (DEFUN MAKE-CODE-SEGMENT ...)
; compiling (DEFUN MAKE-MEMORY-SEGMENT ...)
; compiling (DEFUN PRINT-FUN-HEADERS ...)
; compiling (DEFSTRUCT (SOURCE-FORM-CACHE # ...) ...)
; compiling (DEFUN GET-TOPLEVEL-FORM ...)
; compiling (DEFUN CACHE-VALID ...)
; compiling (DEFUN GET-SOURCE-FORM ...)
; compiling (DEFUN GET-DIFFERENT-SOURCE-FORM ...)
; compiling (DEFUN CODE-FUN-MAP ...)
; compiling (DEFSTRUCT (LOCATION-GROUP #) ...)
; compiling (DEFSTRUCT (STORAGE-INFO #) ...)
; compiling (DEFUN DSTATE-DEBUG-VARS ...)
; compiling (DEFUN FIND-VALID-STORAGE-LOCATION ...)
; compiling (DEFUN GROW-VECTOR ...)
; compiling (DEFUN STORAGE-INFO-FOR-DEBUG-FUN ...)
; compiling (DEFUN SOURCE-AVAILABLE-P ...)
; compiling (DEFUN PRINT-BLOCK-BOUNDARY ...)
; compiling (DEFUN ADD-SOURCE-TRACKING-HOOKS ...)
; compiling (DEFUN ADD-DEBUGGING-HOOKS ...)
; compiling (DEFUN GET-FUN-SEGMENTS ...)
; compiling (DEFUN GET-CODE-SEGMENTS ...)
; compiling (DEFUN SEGMENT-OVERFLOW ...)
; compiling (DEFUN LABEL-SEGMENTS ...)
; compiling (DEFUN DISASSEMBLE-SEGMENT ...)
; compiling (DEFUN DISASSEMBLE-SEGMENTS ...)
; compiling (DEFUN DISASSEMBLE-FUN ...)
; compiling (DEFUN COMPILE-FUNCTION-LAMBDA-EXPR ...)
; compiling (DEFUN VALID-EXTENDED-FUNCTION-DESIGNATOR-FOR-DISASSEMBLE-P ...)
; compiling (DEFUN COMPILED-FUN-OR-LOSE ...)
; compiling (DEFUN DISASSEMBLE ...)
; compiling (DEFUN DISASSEMBLE-MEMORY ...)
; compiling (DEFUN DISASSEMBLE-CODE-COMPONENT ...)
; compiling (DEFCONSTANT MAX-INSTRUCTION-SIZE ...)
; compiling (DEFUN ADD-BLOCK-SEGMENTS ...)
; compiling (DEFUN ASSEM-SEGMENT-TO-DISASSEM-SEGMENTS ...)
; compiling (DEFUN DISASSEMBLE-ASSEM-SEGMENT ...)
; compiling (DEFPARAMETER *GROKKED-SYMBOL-SLOTS* ...)
; compiling (DEFUN GROK-SYMBOL-SLOT-REF ...)
; compiling (DEFVAR *ADDRESS-OF-NIL-OBJECT* ...)
; compiling (DEFUN GROK-NIL-INDEXED-SYMBOL-SLOT-REF ...)
; compiling (DEFUN GET-NIL-INDEXED-OBJECT ...)
; compiling (DEFUN GET-CODE-CONSTANT ...)
; compiling (DEFUN GET-CODE-CONSTANT-ABSOLUTE ...)
; compiling (DEFVAR *ASSEMBLER-ROUTINES-BY-ADDR* ...)
; compiling (DEFVAR *FOREIGN-SYMBOLS-BY-ADDR* ...)
; compiling (DEFUN INVERT-ADDRESS-HASH ...)
; compiling (DEFUN FIND-ASSEMBLER-ROUTINE ...)
; compiling (DECLAIM (MAYBE-INLINE SAP-REF-INT ...))
; compiling (DEFUN SAP-REF-INT ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/target-disassem.lisp
; in: DEFUN SAP-REF-INT
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 18374686479671623681)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 18374686479671623681)
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          (UNSIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + + + + 
; ==>
;   (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;      (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18374686479671623681), not a FIXNUM.
;       The second argument is a (MOD 71776119061217281), not a FIXNUM.
;       The result is a (VALUES (MOD 18446462598732840961)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18374686479671623681), not a (SIGNED-BYTE
;                                                                  32).
;       The second argument is a (MOD 71776119061217281), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446462598732840961)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST
;                                                         T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        FIXNUM
;                                                                        &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        (UNSIGNED-BYTE
;                                                                         32)
;                                                                        &REST T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + + + 
; ==>
;   (+
;    (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446462598732840961), not a FIXNUM.
;       The second argument is a (MOD 280375465082881), not a FIXNUM.
;       The result is a (VALUES (MOD 18446742974197923841)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446462598732840961), not a (SIGNED-BYTE
;                                                                  32).
;       The second argument is a (MOD 280375465082881), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446742974197923841)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST
;                                                         T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      FIXNUM
;                                                                      &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      (UNSIGNED-BYTE
;                                                                       32)
;                                                                      &REST T).
;       etc.

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + + 
; ==>
;   (+
;    (+
;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 48))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446742974197923841), not a FIXNUM.
;       The second argument is a (MOD 1095216660481), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744069414584321)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446742974197923841), not a (SIGNED-BYTE
;                                                                  32).
;       The second argument is a (MOD 1095216660481), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446744069414584321)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST
;                                                         T).
;       etc.

; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (ASH # 56) (ASH # 48))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744069414584321), not a FIXNUM.
;       The second argument is a (MOD 4278190081), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744073692774401)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744069414584321), not a (SIGNED-BYTE
;                                                                  32).
;       The second argument is a (MOD 4278190081), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 18446744073692774401)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST
;                                                         T).
;       etc.

; --> + + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 40)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 32))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073692774401), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744073709486081)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744073692774401), not a (SIGNED-BYTE
;                                                                  32).
;       The result is a (VALUES (MOD 18446744073709486081)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST
;                                                         T).
;       etc.

; --> + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 32)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 24))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073709486081), not a FIXNUM.
;       The result is a (VALUES (MOD 18446744073709551361)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744073709486081), not a (SIGNED-BYTE
;                                                                  32).
;       The result is a (VALUES (MOD 18446744073709551361)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) &REST
;                                                         T).
;       etc.

; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073709551361), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (MOD 18446744073709551361), not a (SIGNED-BYTE
;                                                                  32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      FIXNUM
;                                                                      &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES
;                                                                      (UNSIGNED-BYTE
;                                                                       32)
;                                                                      &REST T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) (ASH # 8))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (MOD 1095216660481), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 40) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 1095216660481), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 40) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        FIXNUM
;                                                                        &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES
;                                                                        (UNSIGNED-BYTE
;                                                                         32)
;                                                                        &REST T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 16)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 24))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM.
;       The second argument is a (MOD 280375465082881), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 48) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 40), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 280375465082881), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 48) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES
;                                                                          (UNSIGNED-BYTE
;                                                                           32)
;                                                                          &REST
;                                                                          T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; --> + 
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 32))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM.
;       The second argument is a (MOD 71776119061217281), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 56) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 48), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 71776119061217281), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (UNSIGNED-BYTE 56) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 18374686479671623681)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 18374686479671623681)
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST T).
;       etc.

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; ==>
;   (+
;    (+ (+ (+ (+ # #) (ASH # 32)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40))
;       (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM.
;       The second argument is a (MOD 18374686479671623681), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 56), not a (SIGNED-BYTE 32).
;       The second argument is a (MOD 18374686479671623681), not a (SIGNED-BYTE
;                                                                   32).
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                     (SIGNED-BYTE
;                                                                      32)
;                                                                     &REST T).
;       etc.

; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) (ASH # 8))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)))
; --> + + + 
; ==>
;   (+
;    (+
;     (+ (+ (ASH # 56) (ASH # 48))
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the second argument of GENERIC-+

;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
; ==>
;   (+
;    (+
;     (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 8))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16))
;    (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 16)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 8)
;        (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)))
; ==>
;   (+
;    (+
;     (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 24)
;        (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16))
;     (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 8))
;    (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN READ-SUFFIX ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/target-disassem.lisp
; in: DEFUN READ-SUFFIX
;     (INCF (SB!DISASSEM:DSTATE-NEXT-OFFS SB!DISASSEM::DSTATE) LENGTH)
; --> LET* 
; ==>
;   (+ (SB!DISASSEM:DSTATE-NEXT-OFFS #:G2640) #:G2641)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; compiling (DEFUN NOTE ...)
; compiling (DEFUN PRIN1-SHORT ...)
; compiling (DEFUN PRIN1-QUOTED-SHORT ...)
; compiling (DEFUN NOTE-CODE-CONSTANT ...)
; compiling (DEFUN NOTE-CODE-CONSTANT-ABSOLUTE ...)
; compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF ...)
; compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-OBJECT ...)
; compiling (DEFUN MAYBE-NOTE-ASSEMBLER-ROUTINE ...)
; compiling (DEFUN MAYBE-NOTE-SINGLE-STORAGE-REF ...)
; compiling (DEFUN MAYBE-NOTE-ASSOCIATED-STORAGE-REF ...)
; compiling (DEFUN GET-INTERNAL-ERROR-NAME ...)
; compiling (DEFUN GET-SC-NAME ...)
; compiling (DEFUN HANDLE-BREAK-ARGS ...); 
; compilation unit finished
;   printed 37 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target-disassem.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/target-insts.lisp" (written 14 JUL 2005 10:13:48 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN PRINT-MEM-ACCESS ...)
; file: /Users/nikodemus/src/sbcl/src/compiler/x86/target-insts.lisp
; in: DEFUN PRINT-MEM-ACCESS
;     (WRITE-CHAR #\+ STREAM)
; ==>
;   STREAM
; 
; note: deleting unreachable code
; 
; compilation unit finished
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/target-insts.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/debug.lisp" (written 03 JUL 2008 10:24:49 PM):
; compiling (IN-PACKAGE "SB!DEBUG")
; compiling (DEFVAR *DEBUG-PRINT-VARIABLE-ALIST* ...)
; compiling (DEFVAR *DEBUG-READTABLE* ...)
; compiling (DEFVAR *IN-THE-DEBUGGER* ...)
; compiling (DEFVAR *DEBUG-COMMAND-LEVEL* ...)
; compiling (DEFVAR *STACK-TOP-HINT* ...)
; compiling (DEFVAR *STACK-TOP* ...)
; compiling (DEFVAR *REAL-STACK-TOP* ...)
; compiling (DEFVAR *CURRENT-FRAME* ...)
; compiling (DEFVAR *DEBUG-BEGINNER-HELP-P* ...)
; compiling (DEFUN DEBUG-PROMPT ...)
; compiling (DEFPARAMETER *DEBUG-HELP-STRING* ...)
; compiling (DEFUN MAYBE-BLOCK-START-LOCATION ...)
; compiling (DEFUN MAP-BACKTRACE ...)
; compiling (DEFUN BACKTRACE ...)
; compiling (DEFUN BACKTRACE-AS-LIST ...)
; compiling (DEFUN FRAME-CALL-AS-LIST ...)
; compiling (DEFUN MAP-FRAME-ARGS ...)
; compiling (DEFUN FRAME-ARGS-AS-LIST ...)
; compiling (DEFVAR *SHOW-ENTRY-POINT-DETAILS* ...)
; compiling (DEFUN CLEAN-XEP ...)
; compiling (DEFUN CLEAN-&MORE-PROCESSOR ...)
; compiling (DEFUN FRAME-CALL ...)
; compiling (DEFUN ENSURE-PRINTABLE-OBJECT ...)
; compiling (DEFUN FRAME-CALL-ARG ...)
; compiling (DEFUN PRINT-FRAME-CALL ...)
; compiling (DEFVAR *DEBUGGER-HOOK* ...)
; compiling (DEFVAR *INVOKE-DEBUGGER-HOOK* ...)
; compiling (DEFVAR *DEBUG-RESTARTS*)
; compiling (DEFVAR *DEBUG-CONDITION*)
; compiling (DEFVAR *NESTED-DEBUG-CONDITION*)
; compiling (DEFUN FUNCALL-WITH-DEBUG-IO-SYNTAX ...)
; compiling (DEFUN INVOKE-DEBUGGER ...)
; compiling (DEFUN %PRINT-DEBUGGER-INVOCATION-REASON ...)
; compiling (DEFUN %INVOKE-DEBUGGER ...)
; file: /Users/nikodemus/src/sbcl/src/code/debug.lisp
; in: DEFUN %INVOKE-DEBUGGER
;     (SB!THREAD:RELEASE-FOREGROUND)
; 
; note: deleting unreachable code

; compiling (DEFUN DEBUGGER-DISABLED-HOOK ...)
; compiling (DEFVAR *OLD-DEBUGGER-HOOK* ...)
; compiling (DEFUN DISABLE-DEBUGGER ...)
; compiling (DEFUN ENABLE-DEBUGGER ...)
; compiling (DEFUN SHOW-RESTARTS ...)
; compiling (DEFVAR *DEBUG-LOOP-FUN* ...)
; compiling (DEFVAR *SUPPRESS-FRAME-PRINT* ...)
; compiling (DEFUN INTERNAL-DEBUG ...)
; compiling (DEFVAR *FLUSH-DEBUG-ERRORS* ...)
; compiling (DEFUN DEBUG-READ ...)
; compiling (DEFUN DEBUG-LOOP-FUN ...)
; compiling (DEFUN DEBUG-EVAL-PRINT ...)
; compiling (DEFUN VAR ...)
; compiling (DEFUN (SETF VAR) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN NTH-ARG ...)
; compiling (DEFUN ARG ...)
; compiling (DEFVAR *DEBUG-COMMANDS* ...)
; compiling (DEFMACRO !DEF-DEBUG-COMMAND ...)
; compiling (DEFUN !DEF-DEBUG-COMMAND-ALIAS ...)
; compiling (DEFUN DEBUG-COMMAND-P ...)
; compiling (DEFUN MAKE-RESTART-COMMANDS ...)
; compiling (!DEF-DEBUG-COMMAND "UP" ...)
; compiling (!DEF-DEBUG-COMMAND "DOWN" ...)
; compiling (!DEF-DEBUG-COMMAND-ALIAS "D" ...)
; compiling (!DEF-DEBUG-COMMAND "BOTTOM" ...)
; compiling (!DEF-DEBUG-COMMAND-ALIAS "B" ...)
; compiling (!DEF-DEBUG-COMMAND "FRAME" ...)
; compiling (!DEF-DEBUG-COMMAND-ALIAS "F" ...)
; compiling (!DEF-DEBUG-COMMAND "TOPLEVEL" ...)
; compiling (!DEF-DEBUG-COMMAND-ALIAS "TOP" ...)
; compiling (!DEF-DEBUG-COMMAND "RESTART" ...)
; compiling (!DEF-DEBUG-COMMAND "HELP" ...)
; compiling (!DEF-DEBUG-COMMAND-ALIAS "?" ...)
; compiling (!DEF-DEBUG-COMMAND "ERROR" ...)
; compiling (!DEF-DEBUG-COMMAND "BACKTRACE" ...)
; compiling (!DEF-DEBUG-COMMAND "PRINT" ...)
; compiling (!DEF-DEBUG-COMMAND-ALIAS "P" ...)
; compiling (!DEF-DEBUG-COMMAND "LIST-LOCALS" ...)
; compiling (!DEF-DEBUG-COMMAND-ALIAS "L" ...)
; compiling (!DEF-DEBUG-COMMAND "SOURCE" ...)
; compiling (DEFVAR *CACHED-DEBUG-SOURCE* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CACHED-SOURCE-STREAM* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CACHED-READTABLE* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFUN DEBUG-DEINIT ...)
; compiling (DEFVAR *CACHED-TOPLEVEL-FORM-OFFSET* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *CACHED-TOPLEVEL-FORM*)
; compiling (DEFVAR *CACHED-FORM-NUMBER-TRANSLATIONS*)
; compiling (DEFUN GET-TOPLEVEL-FORM ...)
; compiling (DEFUN GET-FILE-TOPLEVEL-FORM ...)
; compiling (DEFUN CODE-LOCATION-SOURCE-FORM ...)
; compiling (!DEF-DEBUG-COMMAND "START" ...)
; compiling (DEFMACRO DEF-STEP-COMMAND ...)
; compiling (DEF-STEP-COMMAND "STEP" ...)
; compiling (DEF-STEP-COMMAND "NEXT" ...)
; compiling (DEF-STEP-COMMAND "STOP" ...)
; compiling (!DEF-DEBUG-COMMAND-ALIAS "S" ...)
; compiling (!DEF-DEBUG-COMMAND-ALIAS "N" ...)
; compiling (!DEF-DEBUG-COMMAND "OUT" ...)
; compiling (!DEF-DEBUG-COMMAND "DESCRIBE" ...)
; compiling (!DEF-DEBUG-COMMAND "SLURP" ...)
; compiling (DEFUN UNWIND-TO-FRAME-AND-CALL ...)
; compiling (DEFUN FIND-BINDING-STACK-POINTER ...)
; compiling (DEFUN FIND-ENCLOSING-CATCH-BLOCK ...)
; compiling (DEFUN FIND-ENCLOSING-UWP ...)
; compiling (!DEF-DEBUG-COMMAND "RETURN" ...)
; compiling (!DEF-DEBUG-COMMAND "RESTART-FRAME" ...)
; compiling (DEFUN FRAME-HAS-DEBUG-TAG-P ...)
; compiling (LET (#))
; compiling (DEFUN READ-PROMPTING-MAYBE ...)
; compiling (DEFUN READ-IF-AVAILABLE ...)
; file: /Users/nikodemus/src/sbcl/src/code/debug.lisp
; in: DEFUN DEBUGGER-DISABLED-HOOK
;     (SB!EXT:QUIT :UNIX-STATUS 1 :RECKLESSLY-P SB!DEBUG::RECKLESSLY-P)
; 
; caught STYLE-WARNING:
;   undefined function: QUIT

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     QUIT
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 1 note


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/debug.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/octets.lisp" (written 29 NOV 2007 07:30:18 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFTYPE ARRAY-RANGE ...)
; compiling (DEFINE-CONDITION OCTETS-ENCODING-ERROR ...)
; compiling (DEFUN READ-REPLACEMENT-CHARACTER ...)
; compiling (DEFUN ENCODING-ERROR ...)
; compiling (DEFINE-CONDITION OCTET-DECODING-ERROR ...)
; compiling (DEFINE-CONDITION END-OF-INPUT-IN-CHARACTER ...)
; compiling (DEFINE-CONDITION CHARACTER-OUT-OF-RANGE ...)
; compiling (DEFINE-CONDITION INVALID-UTF8-STARTER-BYTE ...)
; compiling (DEFINE-CONDITION INVALID-UTF8-CONTINUATION-BYTE ...)
; compiling (DEFINE-CONDITION OVERLONG-UTF8-SEQUENCE ...)
; compiling (DEFINE-CONDITION MALFORMED-ASCII ...)
; compiling (DEFUN READ-REPLACEMENT-STRING ...)
; compiling (DEFUN DECODING-ERROR ...)
; compiling (DEFMACRO INSTANTIATE-OCTETS-DEFINITION ...)
; compiling (DECLAIM (INLINE VARIMAP))
; compiling (DEFUN VARIMAP ...)
; compiling (DEFUN MAKE-OD-NAME ...)
; compiling (DEFMACRO DEFINE-UNIBYTE-MAPPER ...)
; compiling (DEFINE-UNIBYTE-MAPPER LATIN9->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/octets.lisp
; in: DEFINE-UNIBYTE-MAPPER LATIN9->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::LATIN9->CODE-MAPPER
;      SB!IMPL::CODE->LATIN9-MAPPER (164 8364) (166 352) (168 353) (180 381)
;      (184 382) (188 338) (189 339) (190 376))
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::LATIN9->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::LATIN9->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET LATIN9->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET LATIN9->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->LATIN9-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->LATIN9-MAPPER
;                         (IF (< SB!IMPL::CODE 164) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->LATIN9-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->LATIN9-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; in: DEFMACRO DEFINE-UNIBYTE-MAPPER
;     (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

;     (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-LATIN-BYTES))
; compiling (DEFUN GET-LATIN-BYTES ...)
; compiling (DECLAIM (INLINE CODE->ASCII-MAPPER))
; compiling (DEFUN CODE->ASCII-MAPPER ...)
; compiling (DECLAIM (INLINE GET-ASCII-BYTES))
; compiling (DEFUN GET-ASCII-BYTES ...)
; compiling (DECLAIM (INLINE GET-LATIN1-BYTES))
; compiling (DEFUN GET-LATIN1-BYTES ...)
; compiling (DECLAIM (INLINE GET-LATIN9-BYTES))
; compiling (DEFUN GET-LATIN9-BYTES ...)
; compiling (DECLAIM (INLINE STRING->LATIN%))
; compiling (DEFUN STRING->LATIN% ...)
; file: /Users/nikodemus/src/sbcl/src/code/octets.lisp
; in: DEFUN STRING->LATIN%
;     (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

;     (* SB!INT:INDEX 2)
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

;     (INCF SB!INT:INDEX)
; --> LET* 
; ==>
;   (+ SB!INT:INDEX #:G595)
; 
; 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.

; compiling (DEFUN STRING->ASCII ...)
; file: /Users/nikodemus/src/sbcl/src/code/octets.lisp
; in: DEFUN STRING->LATIN%
;     (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

;     (* SB!INT:INDEX 2)
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

;     (INCF SB!INT:INDEX)
; --> LET* 
; ==>
;   (+ SB!INT:INDEX #:G692)
; 
; 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.

; compiling (DEFUN STRING->LATIN1 ...)
; file: /Users/nikodemus/src/sbcl/src/code/octets.lisp
; in: DEFUN STRING->LATIN%
;     (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

;     (* SB!INT:INDEX 2)
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

;     (INCF SB!INT:INDEX)
; --> LET* 
; ==>
;   (+ SB!INT:INDEX #:G769)
; 
; 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.

; compiling (DEFUN STRING->LATIN9 ...)
; file: /Users/nikodemus/src/sbcl/src/code/octets.lisp
; in: DEFUN STRING->LATIN%
;     (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

;     (* SB!INT:INDEX 2)
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

;     (INCF SB!INT:INDEX)
; --> LET* 
; ==>
;   (+ SB!INT:INDEX #:G850)
; 
; 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.

; compiling (DECLAIM (INLINE CHAR-LEN-AS-UTF8))
; compiling (DEFUN CHAR-LEN-AS-UTF8 ...)
; file: /Users/nikodemus/src/sbcl/src/code/octets.lisp
; in: DEFUN CHAR-LEN-AS-UTF8
;     (SB!INT:BUG "can't happen")
; ==>
;   "can't happen"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFUN STRING->UTF8 ...)
; file: /Users/nikodemus/src/sbcl/src/code/octets.lisp
; in: DEFUN CHAR-LEN-AS-UTF8
;     (SB!INT:BUG "can't happen")
; ==>
;   "can't happen"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFMACRO DEFINE-ASCII->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ASCII->STRING)
; file: /Users/nikodemus/src/sbcl/src/code/octets.lisp
; in: DEFMACRO DEFINE-ASCII->STRING
;     (LOOP SB!IMPL::FOR SB!IMPL::C SB!IMPL::ACROSS SB!IMPL::STRING-CONTENT DO
;           (VECTOR-PUSH-EXTEND SB!IMPL::C STRING))
; --> BLOCK LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE 
; ==>
;   (LENGTH #:LOOP-ACROSS-VECTOR-1106)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL VECTOR), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL VECTOR), not a VECTOR.

; --> BLOCK LET SB!LOOP::LOOP-BODY TAGBODY SB!LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; --> BLOCK LET SB!LOOP::LOOP-BODY TAGBODY SETQ THE 
; ==>
;   (LENGTH #:LOOP-ACROSS-VECTOR-1130)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL VECTOR), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL VECTOR), not a VECTOR.

; --> BLOCK LET SB!LOOP::LOOP-BODY TAGBODY SB!LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFMACRO DEFINE-LATIN->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING*)
; compiling (DEFMACRO DEFINE-LATIN1->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING*)
; compiling (DEFMACRO DEFINE-LATIN9->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN9->STRING*)
; compiling (DEFMACRO DEFINE-LATIN->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING)
; compiling (DEFMACRO DEFINE-LATIN1->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING)
; compiling (DEFMACRO DEFINE-LATIN9->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN9->STRING)
; compiling (DEFMACRO DEFINE-BYTES-PER-UTF8-CHARACTER ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF8-CHARACTER)
; file: /Users/nikodemus/src/sbcl/src/code/octets.lisp
; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF8-CHARACTER
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION
;      SB!IMPL::DEFINE-BYTES-PER-UTF8-CHARACTER)
; --> PROGN SB!IMPL::DEFINE-BYTES-PER-UTF8-CHARACTER PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::BYTES-PER-UTF8-CHARACTER-AREF
;                     (LAMBDA (ARRAY SB!IMPL::POS SB!IMPL::END)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (SIMPLE-ARRAY # #) ARRAY)
;                        (TYPE SB!IMPL::ARRAY-RANGE SB!IMPL::POS SB!IMPL::END))
;                       (BLOCK SB!IMPL::BYTES-PER-UTF8-CHARACTER-AREF
;                         (LET (# # # #)
;                           (DECLARE #)
;                           (LABELS #
;                             #
;                             #)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET BYTES-PER-UTF8-CHARACTER-AREF (LAMBDA (ARRAY POS END) (DECLARE # # ...) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET BYTES-PER-UTF8-CHARACTER-AREF not cross-compiled at top level:
;   demoting to (SETF FDEFINITION)

; in: DEFMACRO DEFINE-BYTES-PER-UTF8-CHARACTER
;     (SB!INT:BUG "can't happen")
; ==>
;   "can't happen"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF8-CHARACTER
;     (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION
;      SB!IMPL::DEFINE-BYTES-PER-UTF8-CHARACTER)
; --> PROGN SB!IMPL::DEFINE-BYTES-PER-UTF8-CHARACTER PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::BYTES-PER-UTF8-CHARACTER-SAP-REF-8
;                     (LAMBDA (ARRAY SB!IMPL::POS SB!IMPL::END)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE SB!SYS:SYSTEM-AREA-POINTER ARRAY)
;                        (TYPE SB!IMPL::ARRAY-RANGE SB!IMPL::POS SB!IMPL::END))
;                       (BLOCK SB!IMPL::BYTES-PER-UTF8-CHARACTER-SAP-REF-8
;                         (LET (# # # #)
;                           (DECLARE #)
;                           (LABELS #
;                             #
;                             #)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET BYTES-PER-UTF8-CHARACTER-SAP-REF-8 (LAMBDA (ARRAY POS END) (DECLARE # # ...) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET BYTES-PER-UTF8-CHARACTER-SAP-REF-8 not cross-compiled at top level:
;   demoting to (SETF FDEFINITION)

; in: DEFMACRO DEFINE-BYTES-PER-UTF8-CHARACTER
;     (SB!INT:BUG "can't happen")
; ==>
;   "can't happen"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF8-CHAR ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF8-CHAR)
; compiling (DEFMACRO DEFINE-UTF8->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF8->STRING)
; file: /Users/nikodemus/src/sbcl/src/code/octets.lisp
; in: DEFMACRO DEFINE-UTF8->STRING
;     (CHAR SB!IMPL::INVALID SB!IMPL::I)
; --> AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...)
; compiling (DEFUN DEFAULT-EXTERNAL-FORMAT ...)
; compiling (DEFPARAMETER *EXTERNAL-FORMAT-FUNCTIONS* ...)
; compiling (DEFUN ADD-EXTERNAL-FORMAT-FUNS ...)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFUN EXTERNAL-FORMATS-FUNS ...)
; compiling (DEFUN OCTETS-TO-STRING ...)
; compiling (DEFUN STRING-TO-OCTETS ...)
; compiling (DEFVAR +UNICODE-REPLACEMENT-CHARACTER+ ...)
; compiling (DEFUN USE-UNICODE-REPLACEMENT-CHAR ...)
; compiling (DEFMACRO WITH-STANDARD-REPLACEMENT-CHARACTER ...)
; compiling (DEFMACRO WITH-DEFAULT-DECODING-REPLACEMENT ...); 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 34 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/octets.lisp-obj-tmp written
; compilation finished in 0:00:01
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/
; compiling file "/Users/nikodemus/src/sbcl/src/code/external-formats/enc-cyr.lisp" (written 06 MAY 2007 05:28:43 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFINE-UNIBYTE-MAPPER KOI8-R->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-UNIBYTE-MAPPER KOI8-R->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::KOI8-R->CODE-MAPPER
;      SB!IMPL::CODE->KOI8-R-MAPPER (128 9472) (129 9474) (130 9484) (131 9488)
;      (132 9492) (133 9496) (134 9500) (135 9508) (136 9516) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::KOI8-R->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::KOI8-R->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET KOI8-R->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET KOI8-R->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->KOI8-R-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->KOI8-R-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->KOI8-R-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->KOI8-R-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-KOI8-R-BYTES))
; compiling (DEFUN GET-KOI8-R-BYTES ...)
; compiling (DEFUN STRING->KOI8-R ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-cyr.lisp
; in: DEFUN STRING->KOI8-R
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-KOI8-R-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G35)
; 
; 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.

; compiling (DEFMACRO DEFINE-KOI8-R->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-KOI8-R->STRING*)
; compiling (DEFMACRO DEFINE-KOI8-R->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-KOI8-R->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:KOI8-R :|koi8-r|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-EXTERNAL-FORMAT (:KOI8-R :|koi8-r|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:KOI8-R :|koi8-r|) 1 T
;      (LET ((SB!IMPL::KOI8-R-BYTE (SB!IMPL::CODE->KOI8-R-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::KOI8-R-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::KOI8-R-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::KOI8-R->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER KOI8-U->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-UNIBYTE-MAPPER KOI8-U->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::KOI8-U->CODE-MAPPER
;      SB!IMPL::CODE->KOI8-U-MAPPER (128 9472) (129 9474) (130 9484) (131 9488)
;      (132 9492) (133 9496) (134 9500) (135 9508) (136 9516) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::KOI8-U->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::KOI8-U->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET KOI8-U->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET KOI8-U->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->KOI8-U-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->KOI8-U-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->KOI8-U-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->KOI8-U-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-KOI8-U-BYTES))
; compiling (DEFUN GET-KOI8-U-BYTES ...)
; compiling (DEFUN STRING->KOI8-U ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-cyr.lisp
; in: DEFUN STRING->KOI8-U
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-KOI8-U-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G624)
; 
; 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.

; compiling (DEFMACRO DEFINE-KOI8-U->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-KOI8-U->STRING*)
; compiling (DEFMACRO DEFINE-KOI8-U->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-KOI8-U->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:KOI8-U :|koi8-u|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-EXTERNAL-FORMAT (:KOI8-U :|koi8-u|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:KOI8-U :|koi8-u|) 1 T
;      (LET ((SB!IMPL::KOI8-U-BYTE (SB!IMPL::CODE->KOI8-U-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::KOI8-U-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::KOI8-U-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::KOI8-U->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER X-MAC-CYRILLIC->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-UNIBYTE-MAPPER X-MAC-CYRILLIC->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::X-MAC-CYRILLIC->CODE-MAPPER
;      SB!IMPL::CODE->X-MAC-CYRILLIC-MAPPER (128 1040) (129 1041) (130 1042)
;      (131 1043) (132 1044) (133 1045) (134 1046) (135 1047) (136 1048) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::X-MAC-CYRILLIC->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::X-MAC-CYRILLIC->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET X-MAC-CYRILLIC->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET X-MAC-CYRILLIC->CODE-MAPPER not cross-compiled at top level: demoting
;   to (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->X-MAC-CYRILLIC-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->X-MAC-CYRILLIC-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->X-MAC-CYRILLIC-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->X-MAC-CYRILLIC-MAPPER not cross-compiled at top level: demoting
;   to (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-X-MAC-CYRILLIC-BYTES))
; compiling (DEFUN GET-X-MAC-CYRILLIC-BYTES ...)
; compiling (DEFUN STRING->X-MAC-CYRILLIC ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-cyr.lisp
; in: DEFUN STRING->X-MAC-CYRILLIC
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-X-MAC-CYRILLIC-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G1213)
; 
; 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.

; compiling (DEFMACRO DEFINE-X-MAC-CYRILLIC->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-X-MAC-CYRILLIC->STRING*)
; compiling (DEFMACRO DEFINE-X-MAC-CYRILLIC->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-X-MAC-CYRILLIC->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:X-MAC-CYRILLIC :|x-mac-cyrillic|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-cyr.lisp
; in: DEFINE-EXTERNAL-FORMAT (:X-MAC-CYRILLIC :|x-mac-cyrillic|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:X-MAC-CYRILLIC :|x-mac-cyrillic|) 1 T
;      (LET ((SB!IMPL::X-MAC-CYRILLIC-BYTE
;             (SB!IMPL::CODE->X-MAC-CYRILLIC-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::X-MAC-CYRILLIC-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::X-MAC-CYRILLIC-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::X-MAC-CYRILLIC->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   caught 6 STYLE-WARNING conditions
;   printed 18 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp" (written 06 MAY 2007 05:28:43 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFINE-UNIBYTE-MAPPER CP437->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP437->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP437->CODE-MAPPER
;      SB!IMPL::CODE->CP437-MAPPER (128 199) (129 252) (130 233) (131 226)
;      (132 228) (133 224) (134 229) (135 231) (136 234) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP437->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP437->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP437->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP437->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP437-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP437-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP437-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP437-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP437-BYTES))
; compiling (DEFUN GET-CP437-BYTES ...)
; compiling (DEFUN STRING->CP437 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP437
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP437-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G35)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP437->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP437->STRING*)
; compiling (DEFMACRO DEFINE-CP437->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP437->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP437 :|cp437|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP437 :|cp437|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP437 :|cp437|) 1 T
;      (LET ((SB!IMPL::CP437-BYTE (SB!IMPL::CODE->CP437-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP437-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP437-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP437->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP850->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP850->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP850->CODE-MAPPER
;      SB!IMPL::CODE->CP850-MAPPER (128 199) (129 252) (130 233) (131 226)
;      (132 228) (133 224) (134 229) (135 231) (136 234) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP850->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP850->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP850->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP850->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP850-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP850-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP850-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP850-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP850-BYTES))
; compiling (DEFUN GET-CP850-BYTES ...)
; compiling (DEFUN STRING->CP850 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP850
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP850-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G624)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP850->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP850->STRING*)
; compiling (DEFMACRO DEFINE-CP850->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP850->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP850 :|cp850|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP850 :|cp850|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP850 :|cp850|) 1 T
;      (LET ((SB!IMPL::CP850-BYTE (SB!IMPL::CODE->CP850-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP850-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP850-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP850->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP852->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP852->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP852->CODE-MAPPER
;      SB!IMPL::CODE->CP852-MAPPER (128 199) (129 252) (130 233) (131 226)
;      (132 228) (133 367) (134 263) (135 231) (136 322) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP852->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP852->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP852->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP852->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP852-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP852-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP852-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP852-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP852-BYTES))
; compiling (DEFUN GET-CP852-BYTES ...)
; compiling (DEFUN STRING->CP852 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP852
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP852-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G1213)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP852->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP852->STRING*)
; compiling (DEFMACRO DEFINE-CP852->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP852->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP852 :|cp852|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP852 :|cp852|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP852 :|cp852|) 1 T
;      (LET ((SB!IMPL::CP852-BYTE (SB!IMPL::CODE->CP852-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP852-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP852-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP852->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP855->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP855->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP855->CODE-MAPPER
;      SB!IMPL::CODE->CP855-MAPPER (128 1106) (129 1026) (130 1107) (131 1027)
;      (132 1105) (133 1025) (134 1108) (135 1028) (136 1109) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP855->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP855->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP855->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP855->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP855-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP855-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP855-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP855-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP855-BYTES))
; compiling (DEFUN GET-CP855-BYTES ...)
; compiling (DEFUN STRING->CP855 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP855
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP855-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G1802)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP855->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP855->STRING*)
; compiling (DEFMACRO DEFINE-CP855->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP855->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP855 :|cp855|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP855 :|cp855|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP855 :|cp855|) 1 T
;      (LET ((SB!IMPL::CP855-BYTE (SB!IMPL::CODE->CP855-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP855-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP855-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP855->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP857->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP857->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP857->CODE-MAPPER
;      SB!IMPL::CODE->CP857-MAPPER (128 199) (129 252) (130 233) (131 226)
;      (132 228) (133 224) (134 229) (135 231) (136 234) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP857->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP857->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP857->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP857->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP857-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP857-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP857-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP857-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP857-BYTES))
; compiling (DEFUN GET-CP857-BYTES ...)
; compiling (DEFUN STRING->CP857 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP857
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP857-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G2391)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP857->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP857->STRING*)
; compiling (DEFMACRO DEFINE-CP857->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP857->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP857 :|cp857|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP857 :|cp857|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP857 :|cp857|) 1 T
;      (LET ((SB!IMPL::CP857-BYTE (SB!IMPL::CODE->CP857-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP857-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP857-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP857->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP860->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP860->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP860->CODE-MAPPER
;      SB!IMPL::CODE->CP860-MAPPER (128 199) (129 252) (130 233) (131 226)
;      (132 227) (133 224) (134 193) (135 231) (136 234) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP860->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP860->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP860->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP860->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP860-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP860-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP860-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP860-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP860-BYTES))
; compiling (DEFUN GET-CP860-BYTES ...)
; compiling (DEFUN STRING->CP860 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP860
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP860-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G2980)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP860->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP860->STRING*)
; compiling (DEFMACRO DEFINE-CP860->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP860->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP860 :|cp860|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP860 :|cp860|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP860 :|cp860|) 1 T
;      (LET ((SB!IMPL::CP860-BYTE (SB!IMPL::CODE->CP860-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP860-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP860-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP860->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP861->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP861->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP861->CODE-MAPPER
;      SB!IMPL::CODE->CP861-MAPPER (128 199) (129 252) (130 233) (131 226)
;      (132 228) (133 224) (134 229) (135 231) (136 234) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP861->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP861->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP861->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP861->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP861-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP861-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP861-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP861-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP861-BYTES))
; compiling (DEFUN GET-CP861-BYTES ...)
; compiling (DEFUN STRING->CP861 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP861
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP861-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G3569)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP861->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP861->STRING*)
; compiling (DEFMACRO DEFINE-CP861->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP861->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP861 :|cp861|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP861 :|cp861|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP861 :|cp861|) 1 T
;      (LET ((SB!IMPL::CP861-BYTE (SB!IMPL::CODE->CP861-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP861-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP861-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP861->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP862->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP862->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP862->CODE-MAPPER
;      SB!IMPL::CODE->CP862-MAPPER (128 1488) (129 1489) (130 1490) (131 1491)
;      (132 1492) (133 1493) (134 1494) (135 1495) (136 1496) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP862->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP862->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP862->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP862->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP862-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP862-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP862-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP862-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP862-BYTES))
; compiling (DEFUN GET-CP862-BYTES ...)
; compiling (DEFUN STRING->CP862 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP862
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP862-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G4158)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP862->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP862->STRING*)
; compiling (DEFMACRO DEFINE-CP862->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP862->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP862 :|cp862|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP862 :|cp862|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP862 :|cp862|) 1 T
;      (LET ((SB!IMPL::CP862-BYTE (SB!IMPL::CODE->CP862-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP862-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP862-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP862->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP863->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP863->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP863->CODE-MAPPER
;      SB!IMPL::CODE->CP863-MAPPER (128 199) (129 252) (130 233) (131 226)
;      (132 194) (133 224) (134 182) (135 231) (136 234) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP863->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP863->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP863->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP863->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP863-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP863-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP863-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP863-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP863-BYTES))
; compiling (DEFUN GET-CP863-BYTES ...)
; compiling (DEFUN STRING->CP863 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP863
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP863-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G4747)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP863->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP863->STRING*)
; compiling (DEFMACRO DEFINE-CP863->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP863->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP863 :|cp863|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP863 :|cp863|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP863 :|cp863|) 1 T
;      (LET ((SB!IMPL::CP863-BYTE (SB!IMPL::CODE->CP863-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP863-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP863-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP863->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP864->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP864->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP864->CODE-MAPPER
;      SB!IMPL::CODE->CP864-MAPPER (128 176) (129 183) (130 8729) (131 8730)
;      (132 9618) (133 9472) (134 9474) (135 9532) (136 9508) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP864->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP864->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP864->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP864->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP864-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP864-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP864-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP864-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP864-BYTES))
; compiling (DEFUN GET-CP864-BYTES ...)
; compiling (DEFUN STRING->CP864 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP864
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP864-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G5336)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP864->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP864->STRING*)
; compiling (DEFMACRO DEFINE-CP864->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP864->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP864 :|cp864|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP864 :|cp864|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP864 :|cp864|) 1 T
;      (LET ((SB!IMPL::CP864-BYTE (SB!IMPL::CODE->CP864-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP864-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP864-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP864->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP865->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP865->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP865->CODE-MAPPER
;      SB!IMPL::CODE->CP865-MAPPER (128 199) (129 252) (130 233) (131 226)
;      (132 228) (133 224) (134 229) (135 231) (136 234) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP865->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP865->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP865->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP865->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP865-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP865-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP865-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP865-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP865-BYTES))
; compiling (DEFUN GET-CP865-BYTES ...)
; compiling (DEFUN STRING->CP865 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP865
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP865-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G5925)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP865->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP865->STRING*)
; compiling (DEFMACRO DEFINE-CP865->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP865->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP865 :|cp865|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP865 :|cp865|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP865 :|cp865|) 1 T
;      (LET ((SB!IMPL::CP865-BYTE (SB!IMPL::CODE->CP865-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP865-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP865-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP865->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP866->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP866->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP866->CODE-MAPPER
;      SB!IMPL::CODE->CP866-MAPPER (128 1040) (129 1041) (130 1042) (131 1043)
;      (132 1044) (133 1045) (134 1046) (135 1047) (136 1048) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP866->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP866->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP866->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP866->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP866-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP866-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP866-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP866-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP866-BYTES))
; compiling (DEFUN GET-CP866-BYTES ...)
; compiling (DEFUN STRING->CP866 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP866
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP866-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G6514)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP866->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP866->STRING*)
; compiling (DEFMACRO DEFINE-CP866->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP866->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP866 :|cp866|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP866 :|cp866|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP866 :|cp866|) 1 T
;      (LET ((SB!IMPL::CP866-BYTE (SB!IMPL::CODE->CP866-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP866-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP866-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP866->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP869->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP869->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP869->CODE-MAPPER
;      SB!IMPL::CODE->CP869-MAPPER (128 NIL) (129 NIL) (130 NIL) (131 NIL)
;      (132 NIL) (133 NIL) (134 902) (135 NIL) (136 183) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP869->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP869->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP869->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP869->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP869-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP869-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP869-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP869-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP869-BYTES))
; compiling (DEFUN GET-CP869-BYTES ...)
; compiling (DEFUN STRING->CP869 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP869
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP869-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G7103)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP869->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP869->STRING*)
; compiling (DEFMACRO DEFINE-CP869->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP869->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP869 :|cp869|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP869 :|cp869|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP869 :|cp869|) 1 T
;      (LET ((SB!IMPL::CP869-BYTE (SB!IMPL::CODE->CP869-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP869-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP869-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP869->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP874->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-UNIBYTE-MAPPER CP874->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP874->CODE-MAPPER
;      SB!IMPL::CODE->CP874-MAPPER (128 8364) (129 NIL) (130 NIL) (131 NIL)
;      (132 NIL) (133 8230) (134 NIL) (135 NIL) (136 NIL) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP874->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP874->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP874->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP874->CODE-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP874-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP874-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP874-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP874-MAPPER not cross-compiled at top level: demoting to (SETF
;   FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP874-BYTES))
; compiling (DEFUN GET-CP874-BYTES ...)
; compiling (DEFUN STRING->CP874 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFUN STRING->CP874
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP874-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G7692)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP874->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP874->STRING*)
; compiling (DEFMACRO DEFINE-CP874->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP874->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP874 :|cp874|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-dos.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP874 :|cp874|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP874 :|cp874|) 1 T
;      (LET ((SB!IMPL::CP874-BYTE (SB!IMPL::CODE->CP874-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP874-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP874-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP874->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   caught 28 STYLE-WARNING conditions
;   printed 84 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/enc-dos.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp" (written 06 MAY 2007 05:28:43 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-2->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-2->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-2->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-2-MAPPER (161 260) (162 728) (163 321) (165 317)
;      (166 346) (169 352) (170 350) (171 356) (172 377) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-2->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-2->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-2->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-2->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-2-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-2-MAPPER
;                         (IF (< SB!IMPL::CODE 161) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-2-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-2-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-2-BYTES))
; compiling (DEFUN GET-ISO-8859-2-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-2 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-2
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-2-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G35)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-2->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-2->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-2->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-2->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-2 :|iso-8859-2| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:ISO-8859-2 :|iso-8859-2| :LATIN-2 :|latin-2|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:ISO-8859-2 :|iso-8859-2| :LATIN-2 :|latin-2|) 1 T
;      (LET ((SB!IMPL::ISO-8859-2-BYTE
;             (SB!IMPL::CODE->ISO-8859-2-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-2-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-2-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-2->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-3->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-3->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-3->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-3-MAPPER (161 294) (162 728) (165 NIL) (166 292)
;      (169 304) (170 350) (171 286) (172 308) (174 NIL) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-3->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-3->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-3->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-3->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-3-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-3-MAPPER
;                         (IF (< SB!IMPL::CODE 161) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-3-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-3-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-3-BYTES))
; compiling (DEFUN GET-ISO-8859-3-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-3 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-3
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-3-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G624)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-3->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-3->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-3->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-3->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-3 :|iso-8859-3| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:ISO-8859-3 :|iso-8859-3| :LATIN-3 :|latin-3|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:ISO-8859-3 :|iso-8859-3| :LATIN-3 :|latin-3|) 1 T
;      (LET ((SB!IMPL::ISO-8859-3-BYTE
;             (SB!IMPL::CODE->ISO-8859-3-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-3-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-3-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-3->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-4->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-4->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-4->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-4-MAPPER (161 260) (162 312) (163 342) (165 296)
;      (166 315) (169 352) (170 274) (171 290) (172 358) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-4->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-4->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-4->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-4->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-4-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-4-MAPPER
;                         (IF (< SB!IMPL::CODE 161) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-4-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-4-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-4-BYTES))
; compiling (DEFUN GET-ISO-8859-4-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-4 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-4
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-4-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G1213)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-4->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-4->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-4->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-4->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-4 :|iso-8859-4| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:ISO-8859-4 :|iso-8859-4| :LATIN-4 :|latin-4|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:ISO-8859-4 :|iso-8859-4| :LATIN-4 :|latin-4|) 1 T
;      (LET ((SB!IMPL::ISO-8859-4-BYTE
;             (SB!IMPL::CODE->ISO-8859-4-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-4-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-4-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-4->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-5->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-5->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-5->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-5-MAPPER (161 1025) (162 1026) (163 1027) (164 1028)
;      (165 1029) (166 1030) (167 1031) (168 1032) (169 1033) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-5->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-5->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-5->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-5->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-5-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-5-MAPPER
;                         (IF (< SB!IMPL::CODE 161) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-5-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-5-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-5-BYTES))
; compiling (DEFUN GET-ISO-8859-5-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-5 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-5
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-5-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G1802)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-5->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-5->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-5->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-5->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-5 :|iso-8859-5|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-EXTERNAL-FORMAT (:ISO-8859-5 :|iso-8859-5|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:ISO-8859-5 :|iso-8859-5|) 1 T
;      (LET ((SB!IMPL::ISO-8859-5-BYTE
;             (SB!IMPL::CODE->ISO-8859-5-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-5-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-5-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-5->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-6->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-6->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-6->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-6-MAPPER (161 NIL) (162 NIL) (163 NIL) (165 NIL)
;      (166 NIL) (167 NIL) (168 NIL) (169 NIL) (170 NIL) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-6->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-6->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-6->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-6->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-6-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-6-MAPPER
;                         (IF (< SB!IMPL::CODE 162) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-6-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-6-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-6-BYTES))
; compiling (DEFUN GET-ISO-8859-6-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-6 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-6
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-6-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G2391)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-6->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-6->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-6->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-6->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-6 :|iso-8859-6|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-EXTERNAL-FORMAT (:ISO-8859-6 :|iso-8859-6|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:ISO-8859-6 :|iso-8859-6|) 1 T
;      (LET ((SB!IMPL::ISO-8859-6-BYTE
;             (SB!IMPL::CODE->ISO-8859-6-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-6-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-6-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-6->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-7->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-7->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-7->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-7-MAPPER (161 701) (162 700) (164 NIL) (165 NIL)
;      (170 NIL) (174 NIL) (175 8213) (180 900) (181 901) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-7->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-7->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-7->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-7->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-7-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-7-MAPPER
;                         (IF (< SB!IMPL::CODE 161) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-7-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-7-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-7-BYTES))
; compiling (DEFUN GET-ISO-8859-7-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-7 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-7
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-7-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G2980)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-7->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-7->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-7->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-7->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-7 :|iso-8859-7|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-EXTERNAL-FORMAT (:ISO-8859-7 :|iso-8859-7|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:ISO-8859-7 :|iso-8859-7|) 1 T
;      (LET ((SB!IMPL::ISO-8859-7-BYTE
;             (SB!IMPL::CODE->ISO-8859-7-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-7-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-7-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-7->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-8->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-8->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-8->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-8-MAPPER (161 NIL) (170 215) (175 8254) (186 247)
;      (191 NIL) (192 NIL) (193 NIL) (194 NIL) (195 NIL) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-8->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-8->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-8->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-8->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-8-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-8-MAPPER
;                         (IF (< SB!IMPL::CODE 169) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-8-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-8-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-8-BYTES))
; compiling (DEFUN GET-ISO-8859-8-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-8 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-8
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-8-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G3569)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-8->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-8->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-8->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-8->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-8 :|iso-8859-8|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-EXTERNAL-FORMAT (:ISO-8859-8 :|iso-8859-8|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:ISO-8859-8 :|iso-8859-8|) 1 T
;      (LET ((SB!IMPL::ISO-8859-8-BYTE
;             (SB!IMPL::CODE->ISO-8859-8-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-8-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-8-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-8->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-9->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-9->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-9->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-9-MAPPER (208 286) (221 304) (222 350) (240 287)
;      (253 305) (254 351))
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-9->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-9->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-9->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-9->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-9-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-9-MAPPER
;                         (IF (< SB!IMPL::CODE 208) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-9-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-9-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-9-BYTES))
; compiling (DEFUN GET-ISO-8859-9-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-9 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-9
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-9-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G4158)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-9->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-9->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-9->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-9->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-9 :|iso-8859-9| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:ISO-8859-9 :|iso-8859-9| :LATIN-5 :|latin-5|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:ISO-8859-9 :|iso-8859-9| :LATIN-5 :|latin-5|) 1 T
;      (LET ((SB!IMPL::ISO-8859-9-BYTE
;             (SB!IMPL::CODE->ISO-8859-9-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-9-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-9-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-9->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-10->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-10->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-10->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-10-MAPPER (161 260) (162 274) (163 290) (164 298)
;      (165 296) (166 310) (168 315) (169 272) (170 352) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-10->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-10->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-10->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-10->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-10-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-10-MAPPER
;                         (IF (< SB!IMPL::CODE 161) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-10-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-10-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-10-BYTES))
; compiling (DEFUN GET-ISO-8859-10-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-10 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-10
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-10-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G4747)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-10->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-10->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-10->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-10->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-10 :|iso-8859-10| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:ISO-8859-10 :|iso-8859-10| :LATIN-6 :|latin-6|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:ISO-8859-10 :|iso-8859-10| :LATIN-6 :|latin-6|) 1 T
;      (LET ((SB!IMPL::ISO-8859-10-BYTE
;             (SB!IMPL::CODE->ISO-8859-10-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-10-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-10-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-10->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-11->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-11->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-11->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-11-MAPPER (161 3585) (162 3586) (163 3587)
;      (164 3588) (165 3589) (166 3590) (167 3591) (168 3592) (169 3593) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-11->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-11->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-11->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-11->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-11-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-11-MAPPER
;                         (IF (< SB!IMPL::CODE 161) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-11-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-11-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-11-BYTES))
; compiling (DEFUN GET-ISO-8859-11-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-11 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-11
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-11-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G5336)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-11->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-11->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-11->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-11->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-11 :|iso-8859-11|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-EXTERNAL-FORMAT (:ISO-8859-11 :|iso-8859-11|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:ISO-8859-11 :|iso-8859-11|) 1 T
;      (LET ((SB!IMPL::ISO-8859-11-BYTE
;             (SB!IMPL::CODE->ISO-8859-11-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-11-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-11-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-11->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-13->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-13->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-13->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-13-MAPPER (161 8221) (165 8222) (168 216) (170 342)
;      (175 198) (180 8220) (184 248) (186 343) (191 230) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-13->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-13->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-13->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-13->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-13-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-13-MAPPER
;                         (IF (< SB!IMPL::CODE 161) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-13-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-13-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-13-BYTES))
; compiling (DEFUN GET-ISO-8859-13-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-13 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-13
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-13-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G5925)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-13->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-13->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-13->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-13->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-13 :|iso-8859-13| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:ISO-8859-13 :|iso-8859-13| :LATIN-7 :|latin-7|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:ISO-8859-13 :|iso-8859-13| :LATIN-7 :|latin-7|) 1 T
;      (LET ((SB!IMPL::ISO-8859-13-BYTE
;             (SB!IMPL::CODE->ISO-8859-13-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-13-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-13-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-13->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER ISO-8859-14->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFINE-UNIBYTE-MAPPER ISO-8859-14->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::ISO-8859-14->CODE-MAPPER
;      SB!IMPL::CODE->ISO-8859-14-MAPPER (161 7682) (162 7683) (164 266) (165 267)
;      (166 7690) (168 7808) (170 7810) (171 7691) (172 7922) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::ISO-8859-14->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::ISO-8859-14->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET ISO-8859-14->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET ISO-8859-14->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->ISO-8859-14-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->ISO-8859-14-MAPPER
;                         (IF (< SB!IMPL::CODE 161) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->ISO-8859-14-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->ISO-8859-14-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-ISO-8859-14-BYTES))
; compiling (DEFUN GET-ISO-8859-14-BYTES ...)
; compiling (DEFUN STRING->ISO-8859-14 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in: DEFUN STRING->ISO-8859-14
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-ISO-8859-14-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G6514)
; 
; 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.

; compiling (DEFMACRO DEFINE-ISO-8859-14->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-14->STRING*)
; compiling (DEFMACRO DEFINE-ISO-8859-14->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ISO-8859-14->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:ISO-8859-14 :|iso-8859-14| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-iso.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:ISO-8859-14 :|iso-8859-14| :LATIN-8 :|latin-8|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:ISO-8859-14 :|iso-8859-14| :LATIN-8 :|latin-8|) 1 T
;      (LET ((SB!IMPL::ISO-8859-14-BYTE
;             (SB!IMPL::CODE->ISO-8859-14-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::ISO-8859-14-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::ISO-8859-14-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::ISO-8859-14->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   caught 24 STYLE-WARNING conditions
;   printed 72 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/enc-iso.lisp-obj-tmp written
; compilation finished in 0:00:04
; compiling file "/Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp" (written 06 MAY 2007 05:28:43 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFINE-UNIBYTE-MAPPER CP1250->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPER CP1250->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP1250->CODE-MAPPER
;      SB!IMPL::CODE->CP1250-MAPPER (128 8364) (129 NIL) (130 8218) (131 NIL)
;      (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP1250->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP1250->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP1250->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP1250->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP1250-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP1250-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP1250-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP1250-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP1250-BYTES))
; compiling (DEFUN GET-CP1250-BYTES ...)
; compiling (DEFUN STRING->CP1250 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFUN STRING->CP1250
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP1250-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G35)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP1250->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1250->STRING*)
; compiling (DEFMACRO DEFINE-CP1250->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1250->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP1250 :|cp1250| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:CP1250 :|cp1250| :WINDOWS-1250 :|windows-1250|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:CP1250 :|cp1250| :WINDOWS-1250 :|windows-1250|) 1 T
;      (LET ((SB!IMPL::CP1250-BYTE (SB!IMPL::CODE->CP1250-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP1250-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP1250-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP1250->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP1251->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPER CP1251->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP1251->CODE-MAPPER
;      SB!IMPL::CODE->CP1251-MAPPER (128 1026) (129 1027) (130 8218) (131 1107)
;      (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP1251->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP1251->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP1251->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP1251->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP1251-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP1251-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP1251-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP1251-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP1251-BYTES))
; compiling (DEFUN GET-CP1251-BYTES ...)
; compiling (DEFUN STRING->CP1251 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFUN STRING->CP1251
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP1251-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G624)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP1251->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1251->STRING*)
; compiling (DEFMACRO DEFINE-CP1251->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1251->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP1251 :|cp1251| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:CP1251 :|cp1251| :WINDOWS-1251 :|windows-1251|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:CP1251 :|cp1251| :WINDOWS-1251 :|windows-1251|) 1 T
;      (LET ((SB!IMPL::CP1251-BYTE (SB!IMPL::CODE->CP1251-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP1251-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP1251-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP1251->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP1252->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPER CP1252->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP1252->CODE-MAPPER
;      SB!IMPL::CODE->CP1252-MAPPER (128 8364) (129 NIL) (130 8218) (131 402)
;      (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP1252->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP1252->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP1252->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP1252->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP1252-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP1252-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP1252-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP1252-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP1252-BYTES))
; compiling (DEFUN GET-CP1252-BYTES ...)
; compiling (DEFUN STRING->CP1252 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFUN STRING->CP1252
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP1252-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G1213)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP1252->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1252->STRING*)
; compiling (DEFMACRO DEFINE-CP1252->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1252->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP1252 :|cp1252| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:CP1252 :|cp1252| :WINDOWS-1252 :|windows-1252|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:CP1252 :|cp1252| :WINDOWS-1252 :|windows-1252|) 1 T
;      (LET ((SB!IMPL::CP1252-BYTE (SB!IMPL::CODE->CP1252-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP1252-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP1252-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP1252->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP1253->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPER CP1253->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP1253->CODE-MAPPER
;      SB!IMPL::CODE->CP1253-MAPPER (128 8364) (129 NIL) (130 8218) (131 402)
;      (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP1253->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP1253->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP1253->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP1253->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP1253-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP1253-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP1253-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP1253-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP1253-BYTES))
; compiling (DEFUN GET-CP1253-BYTES ...)
; compiling (DEFUN STRING->CP1253 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFUN STRING->CP1253
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP1253-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G1802)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP1253->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1253->STRING*)
; compiling (DEFMACRO DEFINE-CP1253->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1253->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP1253 :|cp1253| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:CP1253 :|cp1253| :WINDOWS-1253 :|windows-1253|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:CP1253 :|cp1253| :WINDOWS-1253 :|windows-1253|) 1 T
;      (LET ((SB!IMPL::CP1253-BYTE (SB!IMPL::CODE->CP1253-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP1253-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP1253-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP1253->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP1254->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPER CP1254->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP1254->CODE-MAPPER
;      SB!IMPL::CODE->CP1254-MAPPER (128 8364) (129 NIL) (130 8218) (131 402)
;      (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP1254->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP1254->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP1254->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP1254->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP1254-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP1254-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP1254-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP1254-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP1254-BYTES))
; compiling (DEFUN GET-CP1254-BYTES ...)
; compiling (DEFUN STRING->CP1254 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFUN STRING->CP1254
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP1254-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G2391)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP1254->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1254->STRING*)
; compiling (DEFMACRO DEFINE-CP1254->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1254->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP1254 :|cp1254|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP1254 :|cp1254|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP1254 :|cp1254|) 1 T
;      (LET ((SB!IMPL::CP1254-BYTE (SB!IMPL::CODE->CP1254-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP1254-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP1254-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP1254->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP1255->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPER CP1255->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP1255->CODE-MAPPER
;      SB!IMPL::CODE->CP1255-MAPPER (128 8364) (129 NIL) (130 8218) (131 402)
;      (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP1255->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP1255->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP1255->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP1255->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP1255-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP1255-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP1255-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP1255-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP1255-BYTES))
; compiling (DEFUN GET-CP1255-BYTES ...)
; compiling (DEFUN STRING->CP1255 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFUN STRING->CP1255
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP1255-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G2980)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP1255->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1255->STRING*)
; compiling (DEFMACRO DEFINE-CP1255->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1255->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP1255 :|cp1255| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:CP1255 :|cp1255| :WINDOWS-1255 :|windows-1255|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:CP1255 :|cp1255| :WINDOWS-1255 :|windows-1255|) 1 T
;      (LET ((SB!IMPL::CP1255-BYTE (SB!IMPL::CODE->CP1255-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP1255-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP1255-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP1255->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP1256->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPER CP1256->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP1256->CODE-MAPPER
;      SB!IMPL::CODE->CP1256-MAPPER (128 8364) (129 1662) (130 8218) (131 402)
;      (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP1256->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP1256->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP1256->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP1256->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP1256-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP1256-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP1256-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP1256-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP1256-BYTES))
; compiling (DEFUN GET-CP1256-BYTES ...)
; compiling (DEFUN STRING->CP1256 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFUN STRING->CP1256
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP1256-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G3569)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP1256->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1256->STRING*)
; compiling (DEFMACRO DEFINE-CP1256->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1256->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP1256 :|cp1256|) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-EXTERNAL-FORMAT (:CP1256 :|cp1256|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT (:CP1256 :|cp1256|) 1 T
;      (LET ((SB!IMPL::CP1256-BYTE (SB!IMPL::CODE->CP1256-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP1256-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP1256-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP1256->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP1257->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPER CP1257->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP1257->CODE-MAPPER
;      SB!IMPL::CODE->CP1257-MAPPER (128 8364) (129 NIL) (130 8218) (131 NIL)
;      (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP1257->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP1257->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP1257->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP1257->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP1257-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP1257-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP1257-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP1257-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP1257-BYTES))
; compiling (DEFUN GET-CP1257-BYTES ...)
; compiling (DEFUN STRING->CP1257 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFUN STRING->CP1257
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP1257-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G4158)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP1257->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1257->STRING*)
; compiling (DEFMACRO DEFINE-CP1257->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1257->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP1257 :|cp1257| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:CP1257 :|cp1257| :WINDOWS-1257 :|windows-1257|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:CP1257 :|cp1257| :WINDOWS-1257 :|windows-1257|) 1 T
;      (LET ((SB!IMPL::CP1257-BYTE (SB!IMPL::CODE->CP1257-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP1257-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP1257-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP1257->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; compiling (DEFINE-UNIBYTE-MAPPER CP1258->CODE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFINE-UNIBYTE-MAPPER CP1258->CODE-MAPPER
;     (SB!IMPL::DEFINE-UNIBYTE-MAPPER SB!IMPL::CP1258->CODE-MAPPER
;      SB!IMPL::CODE->CP1258-MAPPER (128 8364) (129 NIL) (130 8218) (131 402)
;      (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...)
; --> PROGN LET LET DEFUN PROGN 
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CP1258->CODE-MAPPER
;                     (LAMBDA (SB-XC:BYTE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE (UNSIGNED-BYTE 8) SB-XC:BYTE))
;                       (BLOCK SB!IMPL::CP1258->CODE-MAPPER
;                         (AREF SB!IMPL::BYTE-TO-CODE-TABLE SB-XC:BYTE))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CP1258->CODE-MAPPER (LAMBDA (BYTE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CP1258->CODE-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; ==>
;   (SB!INT:COLD-FSET SB!IMPL::CODE->CP1258-MAPPER
;                     (LAMBDA (SB!IMPL::CODE)
;                       (DECLARE (OPTIMIZE SPEED (SAFETY 0))
;                        (TYPE CHAR-CODE SB!IMPL::CODE))
;                       (BLOCK SB!IMPL::CODE->CP1258-MAPPER
;                         (IF (< SB!IMPL::CODE 128) SB!IMPL::CODE
;                             (LOOP SB!IMPL::WITH SB!IMPL::LOW = 0 SB!IMPL::WITH
;                                   SB!IMPL::HIGH = # SB!IMPL::WHILE # DO ...)))))
; 
; caught STYLE-WARNING:
;   (in cross-compiler macroexpansion of (COLD-FSET CODE->CP1258-MAPPER (LAMBDA (CODE) (DECLARE # #) ...)))
;   (hint: For more precise location, try *BREAK-ON-SIGNALS*.)
;   COLD-FSET CODE->CP1258-MAPPER not cross-compiled at top level: demoting to
;   (SETF FDEFINITION)

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY LET IF 
; ==>
;   (< SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::MID))
; 
; 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.

; --> PROGN LET LET DEFUN PROGN SB!INT:COLD-FSET SETF 
; --> SB!KERNEL:%SET-FDEFINITION SB!INT:NAMED-LAMBDA FUNCTION BLOCK IF LOOP 
; --> BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY RETURN RETURN-FROM IF 
; ==>
;   (EQL SB!IMPL::CODE (AREF SB!IMPL::CODE-TO-BYTE-TABLE SB!IMPL::LOW))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a T, not a FIXNUM.

; compiling (DECLAIM (INLINE GET-CP1258-BYTES))
; compiling (DEFUN GET-CP1258-BYTES ...)
; compiling (DEFUN STRING->CP1258 ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in: DEFUN STRING->CP1258
;     (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND
;      #'SB!IMPL::GET-CP1258-BYTES SB!IMPL::NULL-PADDING)
; --> BLOCK LET TAGBODY LET 
; ==>
;   (REPLACE SB!IMPL::NEW-OCTETS SB!IMPL::OCTETS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a (SIMPLE-ARRAY
;                                                              (UNSIGNED-BYTE 8)
;                                                              (*)).
;   The result is a (VALUES (VECTOR (UNSIGNED-BYTE 8)) &OPTIONAL), not a (VALUES
;                                                                         (SIMPLE-ARRAY
;                                                                          (UNSIGNED-BYTE
;                                                                           8)
;                                                                          (*))
;                                                                         &REST
;                                                                         T).

; --> BLOCK LET TAGBODY LET MAKE-ARRAY * 
; ==>
;   (ASH SB!C::X 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* 
; ==>
;   (+ SB!INT:INDEX #:G4747)
; 
; 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.

; compiling (DEFMACRO DEFINE-CP1258->STRING* ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1258->STRING*)
; compiling (DEFMACRO DEFINE-CP1258->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-CP1258->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (DEFINE-EXTERNAL-FORMAT (:CP1258 :|cp1258| ...) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-win.lisp
; in:
;      DEFINE-EXTERNAL-FORMAT (:CP1258 :|cp1258| :WINDOWS-1258 :|windows-1258|)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT
;      (:CP1258 :|cp1258| :WINDOWS-1258 :|windows-1258|) 1 T
;      (LET ((SB!IMPL::CP1258-BYTE (SB!IMPL::CODE->CP1258-MAPPER SB!SYS:BITS)))
;        (IF SB!IMPL::CP1258-BYTE
;            (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL)
;                    SB!IMPL::CP1258-BYTE)
;            (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)))
;      (LET ((SB!IMPL::CODE (SB!IMPL::CP1258->CODE-MAPPER SB-XC:BYTE)))
;        (IF SB!IMPL::CODE (CODE-CHAR SB!IMPL::CODE)
;            (SB!IMPL::EXTERNAL-FORMAT-DECODING-ERROR STREAM SB-XC:BYTE))))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
; 
; compilation unit finished
;   caught 18 STYLE-WARNING conditions
;   printed 54 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/enc-win.lisp-obj-tmp written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/code/external-formats/mb-util.lisp" (written 10 SEP 2007 04:31:46 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN MAKE-MULTIBYTE-MAPPER ...)
; compiling (DEFMACRO DEFINE-MULTIBYTE-MAPPER ...)
; compiling (DEFUN GET-MULTIBYTE-MAPPER ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/mb-util.lisp
; in: DEFUN GET-MULTIBYTE-MAPPER
;     (AREF SB!IMPL::TABLE SB!IMPL::M 0)
; --> LET* 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (AREF SB!IMPL::TABLE SB!IMPL::M 1)
; --> LET* 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN MAKE-OD-NAME-LIST ...)
; compiling (DEFUN DEFINE-BYTES-PER-MB-CHARACTER-1 ...)
; compiling (DEFUN DEFINE-SIMPLE-GET-MB-CHAR-1 ...)
; compiling (DEFUN DEFINE-MB->STRING-1 ...)
; compiling (DECLAIM (INLINE MB-CHAR-LEN))
; compiling (DEFUN MB-CHAR-LEN ...)
; compiling (DEFMACRO DEFINE-MULTIBYTE-ENCODING ...); 
; compilation unit finished
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/mb-util.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/external-formats/enc-cn-tbl.lisp" (written 27 DEC 2006 02:37:31 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFINE-MULTIBYTE-MAPPER *GBK-TO-UCS-TABLE* ...)
; compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-GBK-TABLE* ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/enc-cn-tbl.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/external-formats/enc-cn.lisp" (written 27 DEC 2006 02:37:31 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (INLINE UCS-TO-GBK ...))
; compiling (DEFUN UCS-TO-GBK ...)
; compiling (DEFUN GBK-TO-UCS ...)
; compiling (DEFUN MB-LEN-AS-GBK ...)
; compiling (DEFUN GBK-CONTINUATION-BYTE-P ...)
; compiling (DEFINE-MULTIBYTE-ENCODING :GBK ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-cn.lisp
; in: DEFINE-MULTIBYTE-ENCODING :GBK
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :GBK (:GBK :CP936) SB!IMPL::UCS-TO-GBK
;      SB!IMPL::GBK-TO-UCS SB!IMPL::MB-LEN-AS-GBK SB!IMPL::GBK-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; in: DEFUN UCS-TO-GBK
;     (SB!IMPL::GET-MULTIBYTE-MAPPER SB!IMPL::*UCS-TO-GBK-TABLE* SB!IMPL::CODE)
; ==>
;   SB!IMPL::*UCS-TO-GBK-TABLE*
; 
; note: deleting unreachable code

; in: DEFINE-MULTIBYTE-ENCODING :GBK
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :GBK (:GBK :CP936) SB!IMPL::UCS-TO-GBK
;      SB!IMPL::GBK-TO-UCS SB!IMPL::MB-LEN-AS-GBK SB!IMPL::GBK-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* 
; ==>
;   (+
;    (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW
;          LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...)
;    (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE)))
;      (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS))
;      (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN #)))))
; 
; note: 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).

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-629
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN (OR # -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).

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* 
; ==>
;   (+
;    (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW
;          LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...)
;    (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE)))
;      (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS))
;      (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN #)))))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; ==>
;   (LOGAND (ASH SB!ALIEN:INT (- SB!C::POSN)) (ASH 4294967295 (- SB!C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; ==>
;   (LOGAND (ASH SB!ALIEN:INT (- SB!C::POSN)) (ASH 4294967295 (- SB!C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; ==>
;   (LOGAND (ASH SB!ALIEN:INT (- SB!C::POSN)) (ASH 4294967295 (- SB!C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-629
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN (OR # -1)))))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SIMPLE-GET-GBK-CHAR PROGN DEFUN PROGN SB!INT:COLD-FSET 
; --> BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES)
;    :GBK 'SB!IMPL::MALFORMED-GBK SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND PROGN DOTIMES DO BLOCK LET 
; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN VECTOR-PUSH-EXTEND 
; --> SB!IMPL::SIMPLE-GET-GBK-CHAR-AREF BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES)
;    :GBK 'SB!IMPL::MALFORMED-GBK SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND PROGN DOTIMES DO BLOCK LET 
; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET 
; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN VECTOR-PUSH-EXTEND 
; --> SB!IMPL::SIMPLE-GET-GBK-CHAR-SAP-REF-8 BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES)
;    :GBK 'SB!IMPL::MALFORMED-GBK SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LET UNLESS IF PROGN 
; ==>
;   (SB!IMPL::SEQUENCE-BOUNDING-INDICES-BAD STRING SB!IMPL::START SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: SEQUENCE-BOUNDING-INDICES-BAD

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SEQUENCE-BOUNDING-INDICES-BAD
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 26 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/enc-cn.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/external-formats/enc-jpn-tbl.lisp" (written 12 NOV 2006 11:42:29 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-EUCJP-TABLE* ...)
; compiling (DEFINE-MULTIBYTE-MAPPER *EUCJP-TO-UCS-TABLE* ...)
; compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-SJIS-TABLE* ...)
; compiling (DEFINE-MULTIBYTE-MAPPER *SJIS-TO-UCS-TABLE* ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/external-formats/enc-jpn.lisp" (written 12 NOV 2006 11:42:29 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DECLAIM (INLINE UCS-TO-EUCJP ...))
; compiling (DEFUN UCS-TO-EUCJP ...)
; compiling (DEFUN EUCJP-TO-UCS ...)
; compiling (DEFUN MB-LEN-AS-EUCJP ...)
; compiling (DEFUN EUCJP-CONTINUATION-BYTE-P ...)
; compiling (DEFINE-MULTIBYTE-ENCODING :EUC-JP ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-jpn.lisp
; in: DEFINE-MULTIBYTE-ENCODING :EUC-JP
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :EUC-JP (:EUC-JP :EUCJP :|eucJP|)
;      SB!IMPL::UCS-TO-EUCJP SB!IMPL::EUCJP-TO-UCS SB!IMPL::MB-LEN-AS-EUCJP
;      SB!IMPL::EUCJP-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; in: DEFUN UCS-TO-EUCJP
;     (SB!IMPL::GET-MULTIBYTE-MAPPER SB!IMPL::*UCS-TO-EUCJP-TABLE* SB!IMPL::CODE)
; ==>
;   SB!IMPL::*UCS-TO-EUCJP-TABLE*
; 
; note: deleting unreachable code

; in: DEFINE-MULTIBYTE-ENCODING :EUC-JP
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :EUC-JP (:EUC-JP :EUCJP :|eucJP|)
;      SB!IMPL::UCS-TO-EUCJP SB!IMPL::EUCJP-TO-UCS SB!IMPL::MB-LEN-AS-EUCJP
;      SB!IMPL::EUCJP-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* 
; ==>
;   (+
;    (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW
;          LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...)
;    (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE)))
;      (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS))
;      (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN #)))))
; 
; note: 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).

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-715
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN (OR # -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).

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* 
; ==>
;   (+
;    (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW
;          LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...)
;    (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE)))
;      (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS))
;      (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN #)))))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; ==>
;   (LOGAND (ASH SB!ALIEN:INT (- SB!C::POSN)) (ASH 4294967295 (- SB!C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; ==>
;   (LOGAND (ASH SB!ALIEN:INT (- SB!C::POSN)) (ASH 4294967295 (- SB!C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; ==>
;   (LOGAND (ASH SB!ALIEN:INT (- SB!C::POSN)) (ASH 4294967295 (- SB!C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-715
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN (OR # -1)))))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SIMPLE-GET-EUC-JP-CHAR PROGN DEFUN PROGN SB!INT:COLD-FSET 
; --> BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES)
;    :EUC-JP 'SB!IMPL::MALFORMED-EUC-JP SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK 
; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND PROGN DOTIMES DO BLOCK LET 
; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK 
; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN VECTOR-PUSH-EXTEND 
; --> SB!IMPL::SIMPLE-GET-EUC-JP-CHAR-AREF BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES)
;    :EUC-JP 'SB!IMPL::MALFORMED-EUC-JP SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK 
; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND PROGN DOTIMES DO BLOCK LET 
; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK 
; --> LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN VECTOR-PUSH-EXTEND 
; --> SB!IMPL::SIMPLE-GET-EUC-JP-CHAR-SAP-REF-8 BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES)
;    :EUC-JP 'SB!IMPL::MALFORMED-EUC-JP SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DECLAIM (INLINE UCS-TO-SJIS ...))
; compiling (DEFUN UCS-TO-SJIS ...)
; compiling (DEFUN SJIS-TO-UCS ...)
; compiling (DEFUN MB-LEN-AS-SJIS ...)
; compiling (DEFUN SJIS-CONTINUATION-BYTE-P ...)
; compiling (DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/enc-jpn.lisp
; in: DEFUN SJIS-CONTINUATION-BYTE-P
;     (<= 64 SB!IMPL::CODE 126)
; --> 
; --> (LAMBDA (#:G1448 #:G1447 #:G1446) (DECLARE (TYPE REAL #:G1448 #:G1447 #:G1446)) (IF (<= #:G1448 #:G1447) (IF (<= #:G1447 #:G1446) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 128 SB!IMPL::CODE 252)
; --> 
; --> (LAMBDA (#:G1445 #:G1444 #:G1443) (DECLARE (TYPE REAL #:G1445 #:G1444 #:G1443)) (IF (<= #:G1445 #:G1444) (IF (<= #:G1444 #:G1443) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 64 SB!IMPL::CODE 126)
; --> 
; --> (LAMBDA (#:G1441 #:G1440 #:G1439) (DECLARE (TYPE REAL #:G1441 #:G1440 #:G1439)) (IF (<= #:G1441 #:G1440) (IF (<= #:G1440 #:G1439) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 128 SB!IMPL::CODE 252)
; --> 
; --> (LAMBDA (#:G1438 #:G1437 #:G1436) (DECLARE (TYPE REAL #:G1438 #:G1437 #:G1436)) (IF (<= #:G1438 #:G1437) (IF (<= #:G1437 #:G1436) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 64 SB!IMPL::CODE 126)
; --> 
; --> (LAMBDA (#:G1527 #:G1526 #:G1525) (DECLARE (TYPE REAL #:G1527 #:G1526 #:G1525)) (IF (<= #:G1527 #:G1526) (IF (<= #:G1526 #:G1525) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 128 SB!IMPL::CODE 252)
; --> 
; --> (LAMBDA (#:G1524 #:G1523 #:G1522) (DECLARE (TYPE REAL #:G1524 #:G1523 #:G1522)) (IF (<= #:G1524 #:G1523) (IF (<= #:G1523 #:G1522) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 64 SB!IMPL::CODE 126)
; --> 
; --> (LAMBDA (#:G1520 #:G1519 #:G1518) (DECLARE (TYPE REAL #:G1520 #:G1519 #:G1518)) (IF (<= #:G1520 #:G1519) (IF (<= #:G1519 #:G1518) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 128 SB!IMPL::CODE 252)
; --> 
; --> (LAMBDA (#:G1517 #:G1516 #:G1515) (DECLARE (TYPE REAL #:G1517 #:G1516 #:G1515)) (IF (<= #:G1517 #:G1516) (IF (<= #:G1516 #:G1515) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 64 SB!IMPL::CODE 126)
; --> 
; --> (LAMBDA (#:G1603 #:G1602 #:G1601) (DECLARE (TYPE REAL #:G1603 #:G1602 #:G1601)) (IF (<= #:G1603 #:G1602) (IF (<= #:G1602 #:G1601) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 128 SB!IMPL::CODE 252)
; --> 
; --> (LAMBDA (#:G1600 #:G1599 #:G1598) (DECLARE (TYPE REAL #:G1600 #:G1599 #:G1598)) (IF (<= #:G1600 #:G1599) (IF (<= #:G1599 #:G1598) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 64 SB!IMPL::CODE 126)
; --> 
; --> (LAMBDA (#:G1596 #:G1595 #:G1594) (DECLARE (TYPE REAL #:G1596 #:G1595 #:G1594)) (IF (<= #:G1596 #:G1595) (IF (<= #:G1595 #:G1594) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 128 SB!IMPL::CODE 252)
; --> 
; --> (LAMBDA (#:G1593 #:G1592 #:G1591) (DECLARE (TYPE REAL #:G1593 #:G1592 #:G1591)) (IF (<= #:G1593 #:G1592) (IF (<= #:G1592 #:G1591) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 64 SB!IMPL::CODE 126)
; --> 
; --> (LAMBDA (#:G1624 #:G1623 #:G1622) (DECLARE (TYPE REAL #:G1624 #:G1623 #:G1622)) (IF (<= #:G1624 #:G1623) (IF (<= #:G1623 #:G1622) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 128 SB!IMPL::CODE 252)
; --> 
; --> (LAMBDA (#:G1621 #:G1620 #:G1619) (DECLARE (TYPE REAL #:G1621 #:G1620 #:G1619)) (IF (<= #:G1621 #:G1620) (IF (<= #:G1620 #:G1619) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 64 SB!IMPL::CODE 126)
; --> 
; --> (LAMBDA (#:G1617 #:G1616 #:G1615) (DECLARE (TYPE REAL #:G1617 #:G1616 #:G1615)) (IF (<= #:G1617 #:G1616) (IF (<= #:G1616 #:G1615) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

;     (<= 128 SB!IMPL::CODE 252)
; --> 
; --> (LAMBDA (#:G1614 #:G1613 #:G1612) (DECLARE (TYPE REAL #:G1614 #:G1613 #:G1612)) (IF (<= #:G1614 #:G1613) (IF (<= #:G1613 #:G1612) T NIL) NIL)) 
; ==>
;   SB!IMPL::CODE
; 
; note: deleting unreachable code

; in: DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS
;      (:SHIFT_JIS :SJIS :|Shift_JIS| :CP932) SB!IMPL::UCS-TO-SJIS
;      SB!IMPL::SJIS-TO-UCS SB!IMPL::MB-LEN-AS-SJIS
;      SB!IMPL::SJIS-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; in: DEFUN UCS-TO-SJIS
;     (SB!IMPL::GET-MULTIBYTE-MAPPER SB!IMPL::*UCS-TO-SJIS-TABLE* SB!IMPL::CODE)
; ==>
;   SB!IMPL::*UCS-TO-SJIS-TABLE*
; 
; note: deleting unreachable code

; in: DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS
;      (:SHIFT_JIS :SJIS :|Shift_JIS| :CP932) SB!IMPL::UCS-TO-SJIS
;      SB!IMPL::SJIS-TO-UCS SB!IMPL::MB-LEN-AS-SJIS
;      SB!IMPL::SJIS-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* 
; ==>
;   (+
;    (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW
;          LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...)
;    (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE)))
;      (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS))
;      (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN #)))))
; 
; note: 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).

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-1714
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN (OR # -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).

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* 
; ==>
;   (+
;    (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW
;          LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...)
;    (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE)))
;      (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS))
;      (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN #)))))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; ==>
;   (LOGAND (ASH SB!ALIEN:INT (- SB!C::POSN)) (ASH 4294967295 (- SB!C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; ==>
;   (LOGAND (ASH SB!ALIEN:INT (- SB!C::POSN)) (ASH 4294967295 (- SB!C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB LOGAND 
; ==>
;   (ASH SB!ALIEN:INT (- SB!C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
;                                                          (UNSIGNED-BYTE 32)
;                                                          &REST T).
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK 
; --> PROGN LET LOOP BLOCK LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET 
; --> LET IF ECASE LET COND IF COND IF COND IF PROGN SETF PROGN SETF 
; --> SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB SB!KERNEL:%LDB 
; ==>
;   (LOGAND (ASH SB!ALIEN:INT (- SB!C::POSN)) (ASH 4294967295 (- SB!C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LOCALLY LET* + LOOP BLOCK LET LET LET LET 
; --> SB!LOOP::LOOP-BODY TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-1714
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I)
;              (THE SB!INT:INDEX (SB!IMPL::MB-CHAR-LEN (OR # -1)))))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SIMPLE-GET-SHIFT_JIS-CHAR PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES)
;    :SHIFT_JIS 'SB!IMPL::MALFORMED-SHIFT_JIS SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET 
; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND PROGN DOTIMES DO BLOCK LET 
; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET 
; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN VECTOR-PUSH-EXTEND 
; --> SB!IMPL::SIMPLE-GET-SHIFT_JIS-CHAR-AREF BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES)
;    :SHIFT_JIS 'SB!IMPL::MALFORMED-SHIFT_JIS SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET 
; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF COND PROGN DOTIMES DO BLOCK LET 
; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF 
; ==>
;   (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN 
; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!INT:COLD-FSET 
; --> BLOCK LET LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION COND IF PROGN VECTOR-PUSH-EXTEND 
; --> SB!IMPL::SIMPLE-GET-SHIFT_JIS-CHAR-SAP-REF-8 BLOCK FLET LET IF 
; ==>
;   (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!SYS:BYTES)
;    :SHIFT_JIS 'SB!IMPL::MALFORMED-SHIFT_JIS SB!IMPL::POS)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LET UNLESS IF PROGN 
; ==>
;   (SB!IMPL::SEQUENCE-BOUNDING-INDICES-BAD STRING SB!IMPL::START SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: SEQUENCE-BOUNDING-INDICES-BAD

; in: DEFINE-MULTIBYTE-ENCODING :EUC-JP
;     (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :EUC-JP (:EUC-JP :EUCJP :|eucJP|)
;      SB!IMPL::UCS-TO-EUCJP SB!IMPL::EUCJP-TO-UCS SB!IMPL::MB-LEN-AS-EUCJP
;      SB!IMPL::EUCJP-CONTINUATION-BYTE-P)
; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN 
; --> SB!INT:COLD-FSET BLOCK LET UNLESS IF PROGN 
; ==>
;   (SB!IMPL::SEQUENCE-BOUNDING-INDICES-BAD STRING SB!IMPL::START SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: SEQUENCE-BOUNDING-INDICES-BAD

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SEQUENCE-BOUNDING-INDICES-BAD
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 68 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/external-formats/ucs-2.lisp" (written 06 MAY 2007 05:28:43 AM):
; compiling (IN-PACKAGE #:SB!IMPL)
; compiling (DECLAIM (INLINE SAP-REF-16LE ...))
; compiling (DEFUN SAP-REF-16LE ...)
; compiling (DEFUN (SETF SAP-REF-16LE) ...)
; compiling (DEFUN SAP-REF-16BE ...)
; compiling (DEFUN (SETF SAP-REF-16BE) ...)
; compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/ucs-2.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) NIL 2
;      (IF (< SB!SYS:BITS 65536)
;          (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))
;      2 (CODE-CHAR (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD)))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DO BLOCK LET TAGBODY TAGBODY 
; --> LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF PROGN WHEN IF 
; --> SB!IMPL::STREAM-DECODING-ERROR-AND-HANDLE 
; ==>
;   STREAM
; 
; note: deleting unreachable code

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DO BLOCK LET TAGBODY TAGBODY 
; --> LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF PROGN WHEN IF PROGN IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) NIL 2
;      (IF (< SB!SYS:BITS 65536)
;          (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))
;      2 (CODE-CHAR (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD)))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* 
; ==>
;   (+
;    (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW
;          LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...)
;    (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE)))
;      (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS))
;      (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 2))))
; 
; note: 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).

; --> 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-433
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 2)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* 
; ==>
;   (+
;    (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW
;          LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...)
;    (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE)))
;      (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS))
;      (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 2))))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       etc.

; --> 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-433
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 2)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/ucs-2.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) NIL 2
;      (IF (< SB!SYS:BITS 65536)
;          (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))
;      2 (CODE-CHAR (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD)))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DO BLOCK LET TAGBODY TAGBODY 
; --> LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF PROGN WHEN IF 
; --> SB!IMPL::STREAM-DECODING-ERROR-AND-HANDLE 
; ==>
;   STREAM
; 
; note: deleting unreachable code

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK DO BLOCK LET TAGBODY TAGBODY 
; --> LET* DO BLOCK LET TAGBODY TAGBODY WHEN IF PROGN WHEN IF PROGN IF ERROR 
; ==>
;   STREAM
; 
; note: deleting unreachable code

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* MAKE-STRING THE 
; ==>
;   (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS)
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) NIL 2
;      (IF (< SB!SYS:BITS 65536)
;          (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))
;      2 (CODE-CHAR (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD)))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* 
; ==>
;   (+
;    (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW
;          LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...)
;    (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE)))
;      (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS))
;      (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 2))))
; 
; note: 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).

; --> 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-927
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 2)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LOCALLY LET* 
; ==>
;   (+
;    (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::OF-TYPE SB!INT:INDEX SB!IMPL::BELOW
;          LENGTH SB!IMPL::FOR SB-XC:BYTE SB!IMPL::OF-TYPE CHARACTER = ...)
;    (LET* ((SB-XC:BYTE (CODE-CHAR 0)) (SB!SYS:BITS (CHAR-CODE SB-XC:BYTE)))
;      (DECLARE (IGNORABLE SB-XC:BYTE SB!SYS:BITS))
;      (SETF (AREF SB!IMPL::CHAR-LENGTH LENGTH) (THE SB!INT:INDEX 2))))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       etc.

; --> 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-927
;      (SETF (AREF SB!IMPL::CHAR-LENGTH SB!IMPL::I) (THE SB!INT:INDEX 2)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                                &REST T).
;       etc.

; compiling (DECLAIM (INLINE CHAR->UCS-2LE))
; compiling (DEFUN CHAR->UCS-2LE ...)
; compiling (DECLAIM (INLINE CHAR->UCS-2BE))
; compiling (DEFUN CHAR->UCS-2BE ...)
; compiling (DEFUN STRING->UCS-2LE ...)
; compiling (DEFUN STRING->UCS-2BE ...)
; compiling (DEFMACRO DEFINE-BYTES-PER-UCS2-CHARACTER ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UCS2-CHARACTER)
; compiling (DEFMACRO DEFINE-SIMPLE-GET-UCS2-CHARACTER ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS2-CHARACTER)
; compiling (DEFMACRO DEFINE-UCS-2->STRING ...)
; compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-2->STRING)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; compiling (ADD-EXTERNAL-FORMAT-FUNS (QUOTE #) ...)
; file: /Users/nikodemus/src/sbcl/src/code/external-formats/ucs-2.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) NIL 2
;      (IF (< SB!SYS:BITS 65536)
;          (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))
;      2 (CODE-CHAR (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD)))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET UNLESS IF PROGN 
; ==>
;   (SB!IMPL::SEQUENCE-BOUNDING-INDICES-BAD STRING SB!IMPL::START SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: SEQUENCE-BOUNDING-INDICES-BAD

; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) NIL 2
;      (IF (< SB!SYS:BITS 65536)
;          (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) SB!SYS:BITS)
;          (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!SYS:BITS))
;      2 (CODE-CHAR (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD)))
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET UNLESS IF PROGN 
; ==>
;   (SB!IMPL::SEQUENCE-BOUNDING-INDICES-BAD STRING SB!IMPL::START SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: SEQUENCE-BOUNDING-INDICES-BAD

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SEQUENCE-BOUNDING-INDICES-BAD
; 
; compilation unit finished
;   caught 3 STYLE-WARNING conditions
;   printed 24 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/external-formats/ucs-2.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/parse-defmacro-errors.lisp" (written 14 JUL 2005 07: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: /Users/nikodemus/src/sbcl/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


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/parse-defmacro-errors.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/full-eval.lisp" (written 09 JUL 2008 12:31:53 AM):
; compiling (IN-PACKAGE "SB!EVAL")
; compiling (DEFVAR *SPECIAL* ...)
; compiling (DEFVAR *MACRO* ...)
; compiling (DEFVAR *SYMBOL-MACRO* ...)
; compiling (DEFVAR *NOT-PRESENT* ...)
; compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...)
; compiling (DEFINE-CONDITION ARG-COUNT-PROGRAM-ERROR ...)
; compiling (DEFUN ARG-COUNT-PROGRAM-ERROR ...)
; compiling (DEFMACRO PROGRAM-DESTRUCTURING-BIND ...)
; compiling (DEFUN IP-ERROR ...)
; compiling (DEFMACRO NCONC-2 ...)
; compiling (DEFUN FABRICATE-NEW-NATIVE-ENVIRONMENT ...)
; compiling (DEFSTRUCT (ENV #) ...)
; compiling (DEFUN MAKE-ENV ...)
; compiling (DEFUN MAKE-NULL-ENVIRONMENT ...)
; compiling (DECLAIM (INLINE PUSH-VAR))
; compiling (DEFUN PUSH-VAR ...)
; compiling (DECLAIM (INLINE PUSH-FUN))
; compiling (DEFUN PUSH-FUN ...)
; compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...)
; compiling (DEFINE-GET-BINDING GET-BINDING ...)
; compiling (DEFINE-GET-BINDING GET-FBINDING ...)
; compiling (DEFINE-GET-BINDING GET-EXPANDER-BINDING ...)
; compiling (DEFINE-GET-BINDING GET-SYMBOL-EXPANSION-BINDING ...)
; compiling (DEFINE-GET-BINDING GET-TAG-BINDING ...)
; compiling (DEFINE-GET-BINDING GET-BLOCK-BINDING ...)
; compiling (DEFUN DECLARED-SPECIALS ...)
; compiling (DEFUN SPECIAL-BINDINGS ...)
; compiling (DEFUN SPECIALP ...)
; compiling (DEFUN BINDING-NAME ...)
; compiling (DEFUN BINDING-VALUE ...)
; compiling (DEFUN SUPPLIED-P-PARAMETER ...)
; compiling (DEFUN KEYWORD-NAME ...)
; compiling (DEFUN KEYWORD-KEY ...)
; compiling (DEFUN KEYWORD-DEFAULT-VALUE ...)
; compiling (DEFUN PARSE-ARGUMENTS ...)
; compiling (DEFUN EVAL-NEXT-LET*-BINDING ...)
; compiling (DEFUN CALL-WITH-NEW-ENV ...)
; compiling (DEFUN CALL-WITH-NEW-ENV-FULL-PARSING ...)
; compiling (DEFUN SET-VARIABLE ...)
; file: /Users/nikodemus/src/sbcl/src/code/full-eval.lisp
; in: DEFUN SET-VARIABLE
;     (SETF (SB!ALIEN-INTERNALS:%HEAP-ALIEN TYPE) SB!EVAL::VALUE)
; ==>
;   (SB!ALIEN-INTERNALS:%SET-HEAP-ALIEN TYPE SB!EVAL::VALUE)
; 
; note: unable to optimize because: info not constant; can't open code

; compiling (DEFUN GET-VARIABLE ...)
; file: /Users/nikodemus/src/sbcl/src/code/full-eval.lisp
; in: DEFUN GET-VARIABLE
;     (SB!ALIEN-INTERNALS:%HEAP-ALIEN TYPE)
; 
; note: unable to optimize because: info not constant; can't open code

; compiling (DEFUN GET-FUNCTION ...)
; compiling (DEFUN LAMBDAP ...)
; compiling (DEFUN PARSE-LAMBDA-HEADERS ...)
; compiling (DEFUN EVAL-LAMBDA ...)
; compiling (DEFUN EVAL-PROGN ...)
; compiling (DEFUN EVAL-IF ...)
; compiling (DEFUN EVAL-LET ...)
; compiling (DEFUN EVAL-LET* ...)
; compiling (DEFUN EVAL-LOCAL-FUNCTION-DEF ...)
; compiling (DEFUN EVAL-FLET ...)
; compiling (DEFUN EVAL-LABELS ...)
; compiling (DEFUN EVAL-LOCAL-MACRO-DEF ...)
; compiling (DEFUN EVAL-MACROLET ...)
; compiling (DEFUN EVAL-SYMBOL-MACROLET ...)
; compiling (DEFUN EVAL-PROGV ...)
; compiling (DEFUN EVAL-FUNCTION ...)
; compiling (DEFUN EVAL-EVAL-WHEN ...)
; compiling (DEFUN EVAL-QUOTE ...)
; compiling (DEFUN EVAL-SETQ ...)
; compiling (DEFUN EVAL-MULTIPLE-VALUE-CALL ...)
; compiling (DEFUN EVAL-MULTIPLE-VALUE-PROG1 ...)
; compiling (DEFUN EVAL-CATCH ...)
; compiling (DEFUN EVAL-TAGBODY ...)
; compiling (DEFUN EVAL-GO ...)
; compiling (DEFUN EVAL-BLOCK ...)
; compiling (DEFUN EVAL-RETURN-FROM ...)
; compiling (DEFUN EVAL-THE ...)
; compiling (DEFUN EVAL-UNWIND-PROTECT ...)
; compiling (DEFUN EVAL-THROW ...)
; compiling (DEFUN EVAL-LOAD-TIME-VALUE ...)
; compiling (DEFUN EVAL-LOCALLY ...)
; compiling (DEFUN EVAL-ARGS ...)
; compiling (DEFUN EVAL-WITH-PINNED-OBJECTS ...)
; compiling (DEFINE-CONDITION MACROEXPAND-HOOK-TYPE-ERROR ...)
; compiling (DEFVAR *EVAL-DISPATCH-FUNCTIONS* ...)
; compiling (DECLAIM (INLINE %%EVAL))
; compiling (DEFUN %%EVAL ...)
; compiling (DEFUN %EVAL ...)
; compiling (DEFUN %APPLY ...)
; compiling (DEFUN INTERPRETED-APPLY ...)
; compiling (DEFINE-CONDITION INTERPRETER-ENVIRONMENT-TOO-COMPLEX-ERROR ...)
; compiling (DEFINE-CONDITION COMPILER-ENVIRONMENT-TOO-COMPLEX-ERROR ...)
; compiling (DEFUN PREPARE-FOR-COMPILE ...)
; compiling (DEFUN MAKE-ENV-FROM-NATIVE-ENVIRONMENT ...)
; compiling (DEFUN EVAL-IN-ENVIRONMENT ...)
; compiling (DEFUN EVAL-IN-NATIVE-ENVIRONMENT ...)
; file: /Users/nikodemus/src/sbcl/src/code/full-eval.lisp
; in: DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR
;     (SLOT-BOUNDP CONDITION 'CONDITION)
; 
; caught STYLE-WARNING:
;   undefined function: SLOT-BOUNDP

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SLOT-BOUNDP
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 2 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/full-eval.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/bit-bash.lisp" (written 14 JUL 2005 07:30:13 PM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFTYPE BIT-OFFSET ...)
; compiling (DEF WORD-LOGICAL-NOT ...)
; compiling (DEF WORD-LOGICAL-AND ...)
; compiling (DEF WORD-LOGICAL-OR ...)
; compiling (DEF WORD-LOGICAL-XOR ...)
; compiling (DEF WORD-LOGICAL-NOR ...)
; compiling (DEF WORD-LOGICAL-EQV ...)
; compiling (DEF WORD-LOGICAL-NAND ...)
; compiling (DEF WORD-LOGICAL-ANDC1 ...)
; compiling (DEF WORD-LOGICAL-ANDC2 ...)
; compiling (DEF WORD-LOGICAL-ORC1 ...)
; compiling (DEF WORD-LOGICAL-ORC2 ...)
; compiling (DEFUN SHIFT-TOWARDS-START ...)
; compiling (DEFUN SHIFT-TOWARDS-END ...)
; compiling (DECLAIM (INLINE START-MASK ...))
; compiling (DEFUN START-MASK ...)
; compiling (DEFUN END-MASK ...)
; compiling (DECLAIM (INLINE WORD-SAP-REF ...))
; compiling (DEFUN WORD-SAP-REF ...)
; compiling (DEFUN %SET-WORD-SAP-REF ...)
; compiling (DEFMACRO !DEFINE-SAP-FIXER ...)
; compiling (DEFMACRO !DEFINE-BYTE-BASHERS ...)
; compiling (!DEFINE-SAP-FIXER 1)
; compiling (!DEFINE-SAP-FIXER 2)
; compiling (!DEFINE-SAP-FIXER 4)
; compiling (!DEFINE-SAP-FIXER 8)
; compiling (!DEFINE-SAP-FIXER 16)
; compiling (!DEFINE-SAP-FIXER 32)
; compiling (!DEFINE-BYTE-BASHERS 1)
; compiling (!DEFINE-BYTE-BASHERS 2)
; compiling (!DEFINE-BYTE-BASHERS 4)
; compiling (!DEFINE-BYTE-BASHERS 8)
; compiling (!DEFINE-BYTE-BASHERS 16)
; file: /Users/nikodemus/src/sbcl/src/code/bit-bash.lisp
; in: DEFMACRO !DEFINE-BYTE-BASHERS
;     (SB!VM::GET-NEXT-SRC)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::PREV SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC
;              (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET)))
; 
; note: deleting unreachable code

;     (INCF SB!VM::SRC-WORD-OFFSET)
; --> LET* + 
; ==>
;   SB!VM::SRC-WORD-OFFSET
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (SB!VM::GET-NEXT-SRC)
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code

;     (SB!VM::GET-NEXT-SRC)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::PREV SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC
;              (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET)))
; 
; note: deleting unreachable code

;     (INCF SB!VM::SRC-WORD-OFFSET)
; --> LET* + 
; ==>
;   SB!VM::SRC-WORD-OFFSET
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (SB!VM::GET-NEXT-SRC)
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code

;     (SB!VM::GET-NEXT-SRC)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::PREV SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC
;              (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET)))
; 
; note: deleting unreachable code

;     (INCF SB!VM::SRC-WORD-OFFSET)
; --> LET* + 
; ==>
;   SB!VM::SRC-WORD-OFFSET
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (SB!VM::GET-NEXT-SRC)
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code

;     (SB!VM::GET-NEXT-SRC)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::PREV SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC
;              (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET)))
; 
; note: deleting unreachable code

;     (INCF SB!VM::SRC-WORD-OFFSET)
; --> LET* + 
; ==>
;   SB!VM::SRC-WORD-OFFSET
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (SB!VM::GET-NEXT-SRC)
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code

;     (SB!VM::GET-NEXT-SRC)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::PREV SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC
;              (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET)))
; 
; note: deleting unreachable code

;     (INCF SB!VM::SRC-WORD-OFFSET)
; --> LET* + 
; ==>
;   SB!VM::SRC-WORD-OFFSET
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (SB!VM::GET-NEXT-SRC)
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code

; compiling (!DEFINE-BYTE-BASHERS 32)
; file: /Users/nikodemus/src/sbcl/src/code/bit-bash.lisp
; in: PROGN (!DEFINE-SAP-FIXER 1)
;     (SB!VM::!DEFINE-BYTE-BASHERS 32)
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK SB!KERNEL::CONSTANT-UB32-BASH 
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF LET 
; ==>
;   (LET ((SB!VM::END (+ SB!VM::DST-WORD-OFFSET SB!VM::INTERIOR)))
;     (DECLARE (TYPE (INTEGER 0 536870911) SB!VM::END))
;     (DO ()
;         ((>= SB!VM::DST-WORD-OFFSET SB!VM::END))
;       (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET
;                SB!VM::VALUE)
;       (INCF SB!VM::DST-WORD-OFFSET)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION SB!KERNEL::CONSTANT-UB32-BASH BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION IF LET 
; ==>
;   (LET ((SB!VM::END (+ SB!VM::DST-WORD-OFFSET SB!VM::INTERIOR)))
;     (DECLARE (TYPE (INTEGER 0 536870911) SB!VM::END))
;     (DO ()
;         ((>= SB!VM::DST-WORD-OFFSET SB!VM::END))
;       (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET
;                SB!VM::VALUE)
;       (INCF SB!VM::DST-WORD-OFFSET)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; in: DEFMACRO !DEFINE-BYTE-BASHERS
;     (+ SB!VM::DST-BYTE-OFFSET LENGTH)
; ==>
;   SB!VM::DST-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET SB!VM::VALUE)
; ==>
;   SB!VM::DST-SET-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (>= SB!VM::DST-WORD-OFFSET SB!VM::END)
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::PREV SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC
;              (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET)))
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET SB!VM::VALUE)
; ==>
;   SB!VM::DST-SET-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (<= SB!VM::DST-WORD-OFFSET SB!VM::END)
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::NEXT SB!VM::PREV)
; --> SETQ THE 
; ==>
;   SB!VM::PREV
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC (DECF SB!VM::SRC-WORD-OFFSET))
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-BYTE-OFFSET SB!VM::DST-BYTE-OFFSET)
; ==>
;   SB!VM::SRC-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (- LENGTH SB!VM::FINAL-BYTES)
; ==>
;   LENGTH
; 
; note: deleting unreachable code

;     (<= SB!VM::DST-OFFSET SB!VM::SRC-OFFSET)
; ==>
;   SB!VM::DST-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (INCF SB!VM::DST-WORD-OFFSET SB!SYS:WORDS)
; --> LET* + 
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (+ SB!VM::DST-BYTE-OFFSET LENGTH)
; ==>
;   SB!VM::DST-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET SB!VM::VALUE)
; ==>
;   SB!VM::DST-SET-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (>= SB!VM::DST-WORD-OFFSET SB!VM::END)
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::PREV SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC
;              (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET)))
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET SB!VM::VALUE)
; ==>
;   SB!VM::DST-SET-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (<= SB!VM::DST-WORD-OFFSET SB!VM::END)
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::NEXT SB!VM::PREV)
; --> SETQ THE 
; ==>
;   SB!VM::PREV
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC (DECF SB!VM::SRC-WORD-OFFSET))
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-BYTE-OFFSET SB!VM::DST-BYTE-OFFSET)
; ==>
;   SB!VM::SRC-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (- LENGTH SB!VM::FINAL-BYTES)
; ==>
;   LENGTH
; 
; note: deleting unreachable code

;     (<= SB!VM::DST-OFFSET SB!VM::SRC-OFFSET)
; ==>
;   SB!VM::DST-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (INCF SB!VM::DST-WORD-OFFSET SB!SYS:WORDS)
; --> LET* + 
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (+ SB!VM::DST-BYTE-OFFSET LENGTH)
; ==>
;   SB!VM::DST-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET SB!VM::VALUE)
; ==>
;   SB!VM::DST-SET-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (>= SB!VM::DST-WORD-OFFSET SB!VM::END)
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::PREV SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC
;              (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET)))
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET SB!VM::VALUE)
; ==>
;   SB!VM::DST-SET-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (<= SB!VM::DST-WORD-OFFSET SB!VM::END)
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::NEXT SB!VM::PREV)
; --> SETQ THE 
; ==>
;   SB!VM::PREV
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC (DECF SB!VM::SRC-WORD-OFFSET))
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-BYTE-OFFSET SB!VM::DST-BYTE-OFFSET)
; ==>
;   SB!VM::SRC-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (- LENGTH SB!VM::FINAL-BYTES)
; ==>
;   LENGTH
; 
; note: deleting unreachable code

;     (<= SB!VM::DST-OFFSET SB!VM::SRC-OFFSET)
; ==>
;   SB!VM::DST-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (INCF SB!VM::DST-WORD-OFFSET SB!SYS:WORDS)
; --> LET* + 
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (+ SB!VM::DST-BYTE-OFFSET LENGTH)
; ==>
;   SB!VM::DST-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET SB!VM::VALUE)
; ==>
;   SB!VM::DST-SET-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (>= SB!VM::DST-WORD-OFFSET SB!VM::END)
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::PREV SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC
;              (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET)))
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET SB!VM::VALUE)
; ==>
;   SB!VM::DST-SET-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (<= SB!VM::DST-WORD-OFFSET SB!VM::END)
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::NEXT SB!VM::PREV)
; --> SETQ THE 
; ==>
;   SB!VM::PREV
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC (DECF SB!VM::SRC-WORD-OFFSET))
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-BYTE-OFFSET SB!VM::DST-BYTE-OFFSET)
; ==>
;   SB!VM::SRC-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (- LENGTH SB!VM::FINAL-BYTES)
; ==>
;   LENGTH
; 
; note: deleting unreachable code

;     (<= SB!VM::DST-OFFSET SB!VM::SRC-OFFSET)
; ==>
;   SB!VM::DST-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (INCF SB!VM::DST-WORD-OFFSET SB!SYS:WORDS)
; --> LET* + 
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (+ SB!VM::DST-BYTE-OFFSET LENGTH)
; ==>
;   SB!VM::DST-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET SB!VM::VALUE)
; ==>
;   SB!VM::DST-SET-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (>= SB!VM::DST-WORD-OFFSET SB!VM::END)
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::PREV SB!VM::NEXT)
; --> SETQ THE 
; ==>
;   SB!VM::NEXT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC
;              (SETF SB!VM::SRC-WORD-OFFSET (INCF SB!VM::SRC-WORD-OFFSET)))
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::DST-SET-FN SB!VM::DST SB!VM::DST-WORD-OFFSET SB!VM::VALUE)
; ==>
;   SB!VM::DST-SET-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (<= SB!VM::DST-WORD-OFFSET SB!VM::END)
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (SETF SB!VM::NEXT SB!VM::PREV)
; --> SETQ THE 
; ==>
;   SB!VM::PREV
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC (DECF SB!VM::SRC-WORD-OFFSET))
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-SHIFT)
; --> SB!KERNEL:%NEGATE 
; ==>
;   SB!VM::SRC-SHIFT
; 
; note: deleting unreachable code

;     (- SB!VM::SRC-BYTE-OFFSET SB!VM::DST-BYTE-OFFSET)
; ==>
;   SB!VM::SRC-BYTE-OFFSET
; 
; note: deleting unreachable code

;     (- LENGTH SB!VM::FINAL-BYTES)
; ==>
;   LENGTH
; 
; note: deleting unreachable code

;     (<= SB!VM::DST-OFFSET SB!VM::SRC-OFFSET)
; ==>
;   SB!VM::DST-OFFSET
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (INCF SB!VM::DST-WORD-OFFSET SB!SYS:WORDS)
; --> LET* + 
; ==>
;   SB!VM::DST-WORD-OFFSET
; 
; note: deleting unreachable code

;     (FUNCALL SB!VM::SRC-REF-FN SB!VM::SRC SB!VM::SRC-WORD-OFFSET)
; ==>
;   SB!VM::SRC-REF-FN
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFUN COPY-BYTE-VECTOR-TO-SYSTEM-AREA ...); 
; compilation unit finished
;   printed 162 notes


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/bit-bash.lisp-obj-tmp written
; compilation finished in 0:00:05
; compiling file "/Users/nikodemus/src/sbcl/src/code/target-load.lisp" (written 03 JUL 2008 10:24:50 PM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFVAR *LOAD-SOURCE-DEFAULT-TYPE* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *LOAD-TRUENAME* ...)
; compiling (DEFVAR *LOAD-PATHNAME* ...)
; compiling (DEFUN LOAD-AS-SOURCE ...)
; compiling (DEFINE-CONDITION FASL-HEADER-MISSING ...)
; compiling (DEFUN LOAD ...)
; compiling (DEFUN PROBE-LOAD-DEFAULTS ...)
; compiling (DEFUN LOAD-CODE ...)
; compiling (DEFVAR *!INITIAL-ASSEMBLER-ROUTINES*)
; compiling (DEFUN !LOADER-COLD-INIT ...)
; file: /Users/nikodemus/src/sbcl/src/code/target-load.lisp
; in: DEFUN LOAD-CODE
;     (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM*
;      (SB!KERNEL:CODE-INSTRUCTIONS SB!FASL::CODE) 0 SB!FASL::CODE-LENGTH)
; --> BLOCK IF LET* 
; ==>
;   (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START
;    SB!IMPL::END)
; 
; caught STYLE-WARNING:
;   undefined function: SB!GRAY:STREAM-READ-SEQUENCE

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB!GRAY:STREAM-READ-SEQUENCE
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/target-load.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/x86/sanctify.lisp" (written 08 SEP 2005 10:25:32 AM):
; compiling (IN-PACKAGE "SB!VM")
; compiling (DEFUN SANCTIFY-FOR-EXECUTION ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target/sanctify.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/target-dump.lisp" (written 06 AUG 2007 02:50:48 PM):
; compiling (IN-PACKAGE "SB!FASL")
; compiling (DEFUN DUMP-CHARACTERS-OF-STRING ...)
; compiling (DEFUN DUMP-SIMPLE-CHARACTER-STRING ...)
; compiling (DEFUN DUMP-RAW-BYTES ...)
; compiling (DEFUN DUMP-MULTI-DIM-ARRAY ...)
; compiling (DEFUN DUMP-SINGLE-FLOAT-VECTOR ...)
; compiling (DEFUN DUMP-DOUBLE-FLOAT-VECTOR ...)
; compiling (DEFUN DUMP-COMPLEX-SINGLE-FLOAT-VECTOR ...)
; compiling (DEFUN DUMP-COMPLEX-DOUBLE-FLOAT-VECTOR ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/target-dump.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/cold-init.lisp" (written 17 MAY 2008 02:02:28 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFUN !UNINTERN-INIT-ONLY-STUFF ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN !COLD-LOSE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CRITICALLY-UNREACHABLE ...)
; compiling (DEFVAR *!REVERSED-COLD-TOPLEVELS*)
; compiling (DEFVAR *!LOAD-TIME-VALUES*)
; compiling (DEFUN !COLD-INIT ...)
; compiling (DEFUN QUIT ...)
; compiling (DEFUN THREAD-INIT-OR-REINIT ...)
; compiling (DEFUN REINIT ...)
; file: /Users/nikodemus/src/sbcl/src/code/cold-init.lisp
; in: DEFUN !COLD-INIT
;     (SB!IMPL::SHOW-AND-CALL SB!KERNEL:!LATE-PROCLAIM-COLD-INIT)
; --> PROGN 
; ==>
;   (SB!KERNEL:!LATE-PROCLAIM-COLD-INIT)
; 
; caught STYLE-WARNING:
;   undefined function: !LATE-PROCLAIM-COLD-INIT

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     !LATE-PROCLAIM-COLD-INIT
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/cold-init.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/cl-specials.lisp" (written 14 JUL 2005 07: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 #))

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/cl-specials.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/compiler/late-proclaim.lisp" (written 30 MAY 2003 01:44:11 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS)
; compiling (!COLD-INIT-FORMS (AVER *TYPE-SYSTEM-INITIALIZED*))
; compiling (!COLD-INIT-FORMS (MAPCAR # ...))
; compiling (!COLD-INIT-FORMS (MAKUNBOUND #))
; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-PROCLAIM-COLD-INIT)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/compiler/late-proclaim.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/defboot.lisp" (written 09 JUL 2008 12:31:53 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY IN-PACKAGE ...)
; compiling (DEFUN LIST-OF-SYMBOLS-P ...)
; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-BIND ...)
; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-SETQ ...)
; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-LIST ...)
; compiling (DEFMACRO-MUNDANELY COND ...)
; compiling (DEFMACRO-MUNDANELY WHEN ...)
; compiling (DEFMACRO-MUNDANELY UNLESS ...)
; compiling (DEFMACRO-MUNDANELY AND ...)
; compiling (DEFMACRO-MUNDANELY OR ...)
; compiling (FLET (#) ...)
; compiling (DEFMACRO-MUNDANELY PROG1 ...)
; compiling (DEFMACRO-MUNDANELY PROG2 ...)
; compiling (DEFUN INLINE-FUN-NAME-P ...)
; compiling (DEFMACRO-MUNDANELY DEFUN ...)
; compiling (DEFUN %DEFUN ...)
; compiling (DEFMACRO-MUNDANELY DEFVAR ...)
; compiling (DEFMACRO-MUNDANELY DEFPARAMETER ...)
; compiling (DEFUN %COMPILER-DEFVAR ...)
; compiling (DEFUN %DEFVAR ...)
; compiling (DEFUN %DEFPARAMETER ...)
; compiling (DEFMACRO-MUNDANELY DO ...)
; compiling (DEFMACRO-MUNDANELY DO* ...)
; compiling (DEFMACRO-MUNDANELY DOTIMES ...)
; compiling (DEFMACRO-MUNDANELY DOLIST ...)
; compiling (SB-XC:PROCLAIM (QUOTE #))
; compiling (DEFMACRO-MUNDANELY WITH-CONDITION-RESTARTS ...)
; compiling (DEFMACRO-MUNDANELY RESTART-BIND ...)
; compiling (DEFUN MUNGE-RESTART-CASE-EXPRESSION ...)
; compiling (DEFMACRO-MUNDANELY RESTART-CASE ...)
; compiling (DEFMACRO-MUNDANELY WITH-SIMPLE-RESTART ...)
; compiling (DEFMACRO-MUNDANELY %HANDLER-BIND ...)
; compiling (DEFMACRO-MUNDANELY HANDLER-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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/defboot.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/destructuring-bind.lisp" (written 14 AUG 2007 10:52:21 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/destructuring-bind.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/early-setf.lisp" (written 29 AUG 2007 06:13:32 PM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/early-setf.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/macros.lisp" (written 01 FEB 2008 01:15:34 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY ASSERT ...)
; compiling (DEFUN ASSERT-PROMPT ...)
; compiling (DEFMACRO-MUNDANELY CHECK-TYPE ...)
; compiling (DEFMACRO-MUNDANELY DEFINE-SYMBOL-MACRO ...)
; compiling (DEFUN SB!C::%DEFINE-SYMBOL-MACRO ...)
; compiling (DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO ...)
; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...)
; compiling (DEFINE-CONDITION DUPLICATE-CASE-KEY-WARNING ...)
; compiling (DEFUN CASE-BODY ...)
; compiling (DEFUN CASE-BODY-AUX ...)
; compiling (DEFMACRO-MUNDANELY CASE ...)
; compiling (DEFMACRO-MUNDANELY CCASE ...)
; compiling (DEFMACRO-MUNDANELY ECASE ...)
; compiling (DEFMACRO-MUNDANELY TYPECASE ...)
; compiling (DEFMACRO-MUNDANELY CTYPECASE ...)
; compiling (DEFMACRO-MUNDANELY ETYPECASE ...)
; compiling (DEFMACRO-MUNDANELY WITH-OPEN-STREAM ...)
; compiling (DEFMACRO-MUNDANELY WITH-OPEN-FILE ...)
; compiling (DEFMACRO-MUNDANELY WITH-INPUT-FROM-STRING ...)
; compiling (DEFMACRO-MUNDANELY WITH-OUTPUT-TO-STRING ...)
; compiling (DEFMACRO-MUNDANELY NTH-VALUE ...)
; compiling (DEFMACRO-MUNDANELY DECLAIM ...)
; compiling (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...)
; compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/macros.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/loop.lisp" (written 18 MAR 2007 02:06:52 AM):
; 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/loop.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-setf.lisp" (written 14 JUL 2005 07:30:35 PM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY PSETF ...)
; compiling (DEFMACRO-MUNDANELY ROTATEF ...)
; compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/late-setf.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-format.lisp" (written 05 MAR 2007 01:52:41 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/late-format.lisp-obj-tmp written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/sxhash.lisp" (written 14 APR 2007 03:28:15 PM):
; compiling (IN-PACKAGE "SB!C")
; compiling (SB-XC:DEFINE-MODIFY-MACRO MIXF ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM SXHASH ...)
; compiling (DEFTRANSFORM PSXHASH ...)
; compiling (DEFTRANSFORM PSXHASH ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/sxhash.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/signal.lisp" (written 28 JAN 2008 05:11:00 PM):
; compiling (IN-PACKAGE "SB!UNIX")
; compiling (DEFVAR *INTERRUPTS-ENABLED* ...)
; compiling (DEFVAR *INTERRUPT-PENDING* ...)
; compiling (DEFVAR *ALLOW-WITH-INTERRUPTS* ...)
; compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...)
; compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...)
; compiling (DEFMACRO ALLOW-WITH-INTERRUPTS ...)
; compiling (DEFMACRO WITH-LOCAL-INTERRUPTS ...)
; compiling (DEFUN %CHECK-INTERRUPTS ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/signal.lisp-obj-tmp written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-defbangmethod.lisp" (written 21 OCT 2000 02:30:33 AM):
; compiling (IN-PACKAGE "SB!IMPL")
; compiling (DEFMACRO-MUNDANELY DEF!METHOD ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/code/late-defbangmethod.lisp-obj-tmp written
; compilation finished in 0:00:00
creating directory: /Users/nikodemus/src/sbcl/obj/from-xc/src/pcl/
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/walk.lisp" (written 04 JUN 2008 03:39:41 PM):
; compiling (IN-PACKAGE "SB!WALKER")
; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT*)
; compiling (/SHOW "walk.lisp 108")
; compiling (DEFMACRO WITH-AUGMENTED-ENVIRONMENT ...)
; compiling (DEFVAR *BOGO-FUN-MAGIC-TAG* ...)
; compiling (DEFUN WALKER-INFO-TO-BOGO-FUN ...)
; compiling (DEFUN BOGO-FUN-TO-WALKER-INFO ...)
; compiling (DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL ...)
; compiling (DEFUN ENVIRONMENT-FUNCTION ...)
; compiling (DEFUN ENVIRONMENT-MACRO ...)
; compiling (DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT ...)
; compiling (DEFUN CONVERT-MACRO-TO-LAMBDA ...)
; compiling (DEFMACRO WALKER-ENVIRONMENT-BIND ...)
; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT* ...)
; compiling (DEFUN ENV-LOCK ...)
; compiling (DEFUN WALKER-ENVIRONMENT-BIND-1 ...)
; compiling (DEFUN ENV-WALK-FUNCTION ...)
; compiling (DEFUN ENV-WALK-FORM ...)
; compiling (DEFUN ENV-DECLARATIONS ...)
; compiling (DEFUN ENV-LEXICAL-VARIABLES ...)
; compiling (DEFUN NOTE-DECLARATION ...)
; compiling (DEFUN NOTE-LEXICAL-BINDING ...)
; compiling (DEFUN VAR-LEXICAL-P ...)
; compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...)
; compiling (DEFUN WALKED-VAR-DECLARATION-P ...)
; compiling (DEFUN %VAR-DECLARATION ...)
; compiling (DEFUN VAR-DECLARATION ...)
; compiling (DEFINE-COMPILER-MACRO 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 ...)

; /Users/nikodemus/src/sbcl/obj/from-xc/src/pcl/walk.lisp-obj-tmp written
; compilation finished in 0:00:01
T
* 
(#P"obj/from-xc/src/code/show.lisp-obj"
 #P"obj/from-xc/src/code/early-source-location.lisp-obj"
 #P"obj/from-xc/src/code/early-constants.lisp-obj"
 #P"obj/from-xc/src/code/backq.lisp-obj"
 #P"obj/from-xc/src/code/globals.lisp-obj" ...)
* 
T
* 
NIL
* //entering make-genesis-2.sh
//loading and running GENESIS to create cold-sbcl.core
This is SBCL 1.0.19, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

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 :SB-DOC
                                      :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS
                                      :SB-UNICODE :SB-EVAL :SB-SOURCE-LOCATIONS
                                      :IEEE-FLOATING-POINT :X86 :UNIX :MACH-O
                                      :BSD :DARWIN :MACH-EXCEPTION-HANDLER
                                      :SB-LUTEX
                                      :RESTORE-FS-SEGMENT-REGISTER-FROM-TLS
                                      :GENCGC :STACK-GROWS-DOWNWARD-NOT-UPWARD
                                      :C-STACK-IS-CONTROL-STACK
                                      :COMPARE-AND-SWAP-VOPS
                                      :UNWIND-TO-FRAME-AND-CALL-VOP
                                      :RAW-INSTANCE-INIT-VOPS
                                      :STACK-ALLOCATABLE-CLOSURES
                                      :ALIEN-CALLBACKS :CYCLE-COUNTER
                                      :LINKAGE-TABLE :OS-PROVIDES-DLOPEN
                                      :OS-PROVIDES-DLADDR :OS-PROVIDES-PUTWC
                                      :OS-PROVIDES-BLKSIZE-T
                                      :OS-PROVIDES-SUSECONDS-T)
target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL
T
* 
#<PACKAGE "SB-COLD">
* 
"obj/from-xc/"
* 
T
* 
T
* 
; in: LAMBDA NIL
;     (THE SB!SYS:SAP-INT #:ONCE-ONLY-647)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G4 'SB!SYS:SAP-INT)
; 
; caught STYLE-WARNING:
;   undefined type: SAP-INT

; --> MULTIPLE-VALUE-BIND LET UNLESS 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-655)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G4 'SB!C::CLAMBDA)
; 
; caught STYLE-WARNING:
;   undefined type: CLAMBDA

; --> MULTIPLE-VALUE-BIND LET UNLESS 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-667)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP 
; ==>
;   (SB-KERNEL:%TYPEP #:G4 'SB!C:TN)
; 
; caught STYLE-WARNING:
;   undefined type: TN

; --> MULTIPLE-VALUE-BIND LET UNLESS 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: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (CLASSOID) (VALUES SYMBOL &OPTIONAL))>
for CLASSOID-NAME does not match old FTYPE proclamation
#<FUN-TYPE (FUNCTION (CLASSOID) (VALUES T &OPTIONAL))>

* 
*TARGET-OBJECT-FILE-NAMES*
* STYLE-WARNING: redefining FOP-MAYBE-COLD-LOAD in DEFUN

T
* 
beginning GENESIS, creating core "output/cold-sbcl.core"
obj/from-xc/src/code/show.lisp-obj
obj/from-xc/src/code/early-source-location.lisp-obj
obj/from-xc/src/code/early-constants.lisp-obj
obj/from-xc/src/code/backq.lisp-obj
obj/from-xc/src/code/globals.lisp-obj
obj/from-xc/src/code/defsetfs.lisp-obj
obj/from-xc/src/code/cold-init-helper-macros.lisp-obj
obj/from-xc/src/code/uncross.lisp-obj
obj/from-xc/src/code/primordial-type.lisp-obj
obj/from-xc/src/code/early-defbangmethod.lisp-obj
obj/from-xc/src/code/defbangtype.lisp-obj
obj/from-xc/src/code/defbangmacro.lisp-obj
obj/from-xc/src/code/defbangconstant.lisp-obj
obj/from-xc/src/code/primordial-extensions.lisp-obj
obj/from-xc/src/code/function-names.lisp-obj
obj/from-xc/src/compiler/generic/parms.lisp-obj
obj/from-xc/src/compiler/target/parms.lisp-obj
obj/from-xc/src/compiler/generic/early-vm.lisp-obj
obj/from-xc/src/compiler/generic/early-objdef.lisp-obj
obj/from-xc/src/code/early-array.lisp-obj
obj/from-xc/src/code/early-extensions.lisp-obj
obj/from-xc/src/code/parse-body.lisp-obj
obj/from-xc/src/code/parse-defmacro.lisp-obj
obj/from-xc/src/compiler/deftype.lisp-obj
obj/from-xc/src/compiler/defconstant.lisp-obj
obj/from-xc/src/code/early-alieneval.lisp-obj
obj/from-xc/src/code/specializable-array.lisp-obj
obj/from-xc/src/code/early-cl.lisp-obj
obj/from-xc/src/code/early-fasl.lisp-obj
obj/from-xc/src/code/debug-var-io.lisp-obj
obj/from-xc/src/code/early-thread.lisp-obj
obj/from-xc/src/code/target-defbangmethod.lisp-obj
obj/from-xc/src/code/early-print.lisp-obj
obj/from-xc/src/code/early-pprint.lisp-obj
obj/from-xc/src/code/early-impl.lisp-obj
obj/from-xc/src/code/target-extensions.lisp-obj
obj/from-xc/src/code/early-package.lisp-obj
obj/from-xc/src/code/early-defstructs.lisp-obj
obj/from-xc/src/code/defbangstruct.lisp-obj
obj/from-xc/src/code/unportable-float.lisp-obj
obj/from-xc/src/code/funutils.lisp-obj
obj/from-xc/src/code/type-class.lisp-obj
obj/from-xc/src/code/early-pcounter.lisp-obj
obj/from-xc/src/code/pcounter.lisp-obj
obj/from-xc/src/code/ansi-stream.lisp-obj
obj/from-xc/src/code/sysmacs.lisp-obj
obj/from-xc/src/code/target-error.lisp-obj
obj/from-xc/src/compiler/early-backend.lisp-obj
obj/from-xc/output/stuff-groveled-from-headers.lisp-obj
obj/from-xc/src/code/kernel.lisp-obj
obj/from-xc/src/code/toplevel.lisp-obj
obj/from-xc/src/code/cold-error.lisp-obj
obj/from-xc/src/code/fdefinition.lisp-obj
obj/from-xc/src/code/target-type.lisp-obj
obj/from-xc/src/code/pred.lisp-obj
obj/from-xc/src/code/target-alieneval.lisp-obj
obj/from-xc/src/code/target-c-call.lisp-obj
obj/from-xc/src/code/target-allocate.lisp-obj
obj/from-xc/src/code/misc-aliens.lisp-obj
obj/from-xc/src/code/array.lisp-obj
obj/from-xc/src/code/early-float.lisp-obj
obj/from-xc/src/code/target-sxhash.lisp-obj
obj/from-xc/src/code/list.lisp-obj
obj/from-xc/src/code/seq.lisp-obj
obj/from-xc/src/code/coerce.lisp-obj
obj/from-xc/src/code/string.lisp-obj
obj/from-xc/src/code/mipsstrops.lisp-obj
obj/from-xc/src/code/early-time.lisp-obj
obj/from-xc/src/code/unix.lisp-obj
obj/from-xc/src/code/common-os.lisp-obj
obj/from-xc/src/code/bsd-os.lisp-obj
obj/from-xc/src/code/sc-offset.lisp-obj
obj/from-xc/src/code/x86-vm.lisp-obj
obj/from-xc/src/code/target-signal.lisp-obj
obj/from-xc/src/code/symbol.lisp-obj
obj/from-xc/src/code/bignum.lisp-obj
obj/from-xc/src/code/numbers.lisp-obj
obj/from-xc/src/code/float-trap.lisp-obj
obj/from-xc/src/code/float.lisp-obj
obj/from-xc/src/code/irrat.lisp-obj
obj/from-xc/src/code/char.lisp-obj
obj/from-xc/src/code/huffman.lisp-obj
obj/from-xc/src/code/target-char.lisp-obj
obj/from-xc/src/code/target-misc.lisp-obj
obj/from-xc/src/code/misc.lisp-obj
obj/from-xc/src/code/room.lisp-obj
obj/from-xc/src/code/stream.lisp-obj
obj/from-xc/src/code/print.lisp-obj
obj/from-xc/src/code/pprint.lisp-obj
obj/from-xc/src/code/early-format.lisp-obj
obj/from-xc/src/code/target-format.lisp-obj
obj/from-xc/src/code/defpackage.lisp-obj
obj/from-xc/src/code/pp-backq.lisp-obj
obj/from-xc/src/code/error-error.lisp-obj
obj/from-xc/src/code/deadline.lisp-obj
obj/from-xc/src/code/serve-event.lisp-obj
obj/from-xc/src/code/fd-stream.lisp-obj
obj/from-xc/src/code/module.lisp-obj
obj/from-xc/src/code/interr.lisp-obj
obj/from-xc/src/code/query.lisp-obj
obj/from-xc/src/code/sort.lisp-obj
obj/from-xc/src/code/time.lisp-obj
obj/from-xc/src/code/timer.lisp-obj
obj/from-xc/src/code/weak.lisp-obj
obj/from-xc/src/code/final.lisp-obj
obj/from-xc/src/code/setf-funs.lisp-obj
obj/from-xc/src/code/stubs.lisp-obj
obj/from-xc/src/code/exhaust.lisp-obj
obj/from-xc/src/compiler/early-c.lisp-obj
obj/from-xc/src/compiler/policy.lisp-obj
obj/from-xc/src/compiler/policies.lisp-obj
obj/from-xc/src/code/typedefs.lisp-obj
obj/from-xc/src/compiler/macros.lisp-obj
obj/from-xc/src/compiler/generic/vm-macs.lisp-obj
obj/from-xc/src/compiler/sset.lisp-obj
obj/from-xc/src/compiler/node.lisp-obj
obj/from-xc/src/compiler/vop.lisp-obj
obj/from-xc/src/compiler/backend.lisp-obj
obj/from-xc/src/compiler/vmdef.lisp-obj
obj/from-xc/src/compiler/target/backend-parms.lisp-obj
obj/from-xc/src/compiler/globaldb.lisp-obj
obj/from-xc/src/compiler/info-functions.lisp-obj
obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj
obj/from-xc/src/code/defmacro.lisp-obj
obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj
obj/from-xc/src/compiler/late-macros.lisp-obj
obj/from-xc/src/compiler/meta-vmdef.lisp-obj
obj/from-xc/src/compiler/target/vm.lisp-obj
obj/from-xc/src/code/xset.lisp-obj
obj/from-xc/src/code/early-type.lisp-obj
obj/from-xc/src/code/class.lisp-obj
obj/from-xc/src/code/condition.lisp-obj
obj/from-xc/src/compiler/generic/vm-array.lisp-obj
obj/from-xc/src/compiler/generic/primtype.lisp-obj
obj/from-xc/src/compiler/parse-lambda-list.lisp-obj
obj/from-xc/src/code/host-alieneval.lisp-obj
obj/from-xc/src/code/host-c-call.lisp-obj
obj/from-xc/src/compiler/compiler-deftype.lisp-obj
obj/from-xc/src/code/late-type.lisp-obj
obj/from-xc/src/code/deftypes-for-target.lisp-obj
obj/from-xc/src/compiler/knownfun.lisp-obj
obj/from-xc/src/compiler/constantp.lisp-obj
obj/from-xc/src/compiler/fun-info-funs.lisp-obj
obj/from-xc/src/compiler/generic/vm-type.lisp-obj
obj/from-xc/src/compiler/proclaim.lisp-obj
obj/from-xc/src/code/class-init.lisp-obj
obj/from-xc/src/code/typecheckfuns.lisp-obj
obj/from-xc/src/code/defstruct.lisp-obj
obj/from-xc/src/code/target-defstruct.lisp-obj
obj/from-xc/src/code/alien-type.lisp-obj
obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj
obj/from-xc/src/code/early-full-eval.lisp-obj
obj/from-xc/src/code/typep.lisp-obj
obj/from-xc/src/compiler/compiler-error.lisp-obj
obj/from-xc/src/code/late-deftypes-for-target.lisp-obj
obj/from-xc/src/code/type-init.lisp-obj
obj/from-xc/src/compiler/fixup-type.lisp-obj
obj/from-xc/src/code/package.lisp-obj
obj/from-xc/src/code/random.lisp-obj
obj/from-xc/src/code/hash-table.lisp-obj
obj/from-xc/src/code/readtable.lisp-obj
obj/from-xc/src/code/pathname.lisp-obj
obj/from-xc/src/code/host-pprint.lisp-obj
obj/from-xc/src/compiler/lexenv.lisp-obj
obj/from-xc/src/compiler/fndb.lisp-obj
obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj
obj/from-xc/src/compiler/generic/objdef.lisp-obj
obj/from-xc/src/compiler/generic/interr.lisp-obj
obj/from-xc/src/compiler/bit-util.lisp-obj
obj/from-xc/src/compiler/early-assem.lisp-obj
obj/from-xc/src/compiler/generic/core.lisp-obj
obj/from-xc/src/code/thread.lisp-obj
obj/from-xc/src/code/load.lisp-obj
obj/from-xc/src/code/linkage-table.lisp-obj
obj/from-xc/src/code/foreign-load.lisp-obj
obj/from-xc/src/code/foreign.lisp-obj
obj/from-xc/src/code/fop.lisp-obj
obj/from-xc/src/compiler/ctype.lisp-obj
obj/from-xc/src/compiler/disassem.lisp-obj
obj/from-xc/src/compiler/assem.lisp-obj
obj/from-xc/src/compiler/trace-table.lisp-obj
obj/from-xc/src/compiler/dump.lisp-obj
obj/from-xc/src/compiler/main.lisp-obj
obj/from-xc/src/compiler/xref.lisp-obj
obj/from-xc/src/code/source-location.lisp-obj
obj/from-xc/src/compiler/target-main.lisp-obj
obj/from-xc/src/compiler/ir1tran.lisp-obj
obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj
obj/from-xc/src/compiler/ir1-translators.lisp-obj
obj/from-xc/src/compiler/ir1util.lisp-obj
obj/from-xc/src/compiler/ir1report.lisp-obj
obj/from-xc/src/compiler/ir1opt.lisp-obj
obj/from-xc/src/compiler/loop.lisp-obj
obj/from-xc/src/compiler/ir1final.lisp-obj
obj/from-xc/src/compiler/array-tran.lisp-obj
obj/from-xc/src/compiler/seqtran.lisp-obj
obj/from-xc/src/compiler/typetran.lisp-obj
obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj
obj/from-xc/src/compiler/float-tran.lisp-obj
obj/from-xc/src/compiler/saptran.lisp-obj
obj/from-xc/src/compiler/srctran.lisp-obj
obj/from-xc/src/compiler/generic/vm-tran.lisp-obj
obj/from-xc/src/compiler/locall.lisp-obj
obj/from-xc/src/compiler/dfo.lisp-obj
obj/from-xc/src/compiler/checkgen.lisp-obj
obj/from-xc/src/compiler/constraint.lisp-obj
obj/from-xc/src/compiler/physenvanal.lisp-obj
obj/from-xc/src/compiler/tn.lisp-obj
obj/from-xc/src/compiler/life.lisp-obj
obj/from-xc/src/code/debug-info.lisp-obj
obj/from-xc/src/compiler/debug-dump.lisp-obj
obj/from-xc/src/compiler/generic/utils.lisp-obj
obj/from-xc/src/compiler/fopcompile.lisp-obj
obj/from-xc/src/assembly/assemfile.lisp-obj
obj/from-xc/src/compiler/late-vmdef.lisp-obj
obj/from-xc/src/compiler/fixup.lisp-obj
obj/from-xc/src/compiler/target/insts.lisp-obj
obj/from-xc/src/compiler/target/macros.lisp-obj
obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj
obj/from-xc/src/assembly/target/support.lisp-obj
obj/from-xc/src/compiler/target/move.lisp-obj
obj/from-xc/src/compiler/target/float.lisp-obj
obj/from-xc/src/compiler/target/sap.lisp-obj
obj/from-xc/src/compiler/target/system.lisp-obj
obj/from-xc/src/compiler/target/char.lisp-obj
obj/from-xc/src/compiler/target/memory.lisp-obj
obj/from-xc/src/compiler/target/static-fn.lisp-obj
obj/from-xc/src/compiler/target/arith.lisp-obj
obj/from-xc/src/compiler/target/subprim.lisp-obj
obj/from-xc/src/compiler/target/debug.lisp-obj
obj/from-xc/src/compiler/early-aliencomp.lisp-obj
obj/from-xc/src/compiler/target/c-call.lisp-obj
obj/from-xc/src/compiler/target/cell.lisp-obj
obj/from-xc/src/compiler/target/values.lisp-obj
obj/from-xc/src/compiler/target/alloc.lisp-obj
obj/from-xc/src/compiler/target/call.lisp-obj
obj/from-xc/src/compiler/target/nlx.lisp-obj
obj/from-xc/src/compiler/generic/late-nlx.lisp-obj
obj/from-xc/src/compiler/target/show.lisp-obj
obj/from-xc/src/compiler/target/array.lisp-obj
obj/from-xc/src/compiler/generic/array.lisp-obj
obj/from-xc/src/compiler/target/pred.lisp-obj
obj/from-xc/src/compiler/target/type-vops.lisp-obj
obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj
obj/from-xc/src/compiler/assembly/target/assem-rtns.lisp-obj
obj/from-xc/src/compiler/assembly/target/array.lisp-obj
obj/from-xc/src/compiler/assembly/target/arith.lisp-obj
obj/from-xc/src/compiler/assembly/target/alloc.lisp-obj
obj/from-xc/src/assembly/target/assem-rtns.lisp-obj
obj/from-xc/src/assembly/target/array.lisp-obj
obj/from-xc/src/assembly/target/arith.lisp-obj
obj/from-xc/src/assembly/target/alloc.lisp-obj
obj/from-xc/src/compiler/pseudo-vops.lisp-obj
obj/from-xc/src/compiler/aliencomp.lisp-obj
obj/from-xc/src/compiler/ltv.lisp-obj
obj/from-xc/src/compiler/gtn.lisp-obj
obj/from-xc/src/compiler/ltn.lisp-obj
obj/from-xc/src/compiler/stack.lisp-obj
obj/from-xc/src/compiler/control.lisp-obj
obj/from-xc/src/compiler/entry.lisp-obj
obj/from-xc/src/compiler/ir2tran.lisp-obj
obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj
obj/from-xc/src/compiler/copyprop.lisp-obj
obj/from-xc/src/compiler/represent.lisp-obj
obj/from-xc/src/compiler/pack.lisp-obj
obj/from-xc/src/compiler/codegen.lisp-obj
obj/from-xc/src/compiler/debug.lisp-obj
obj/from-xc/src/code/format-time.lisp-obj
obj/from-xc/src/code/error.lisp-obj
obj/from-xc/src/code/macroexpand.lisp-obj
obj/from-xc/src/code/late-extensions.lisp-obj
obj/from-xc/src/compiler/generic/target-core.lisp-obj
obj/from-xc/src/code/eval.lisp-obj
obj/from-xc/src/code/target-sap.lisp-obj
obj/from-xc/src/code/target-package.lisp-obj
obj/from-xc/src/code/target-random.lisp-obj
obj/from-xc/src/code/target-hash-table.lisp-obj
obj/from-xc/src/code/reader.lisp-obj
obj/from-xc/src/code/target-stream.lisp-obj
obj/from-xc/src/code/target-pathname.lisp-obj
obj/from-xc/src/code/unix-pathname.lisp-obj
obj/from-xc/src/code/win32-pathname.lisp-obj
obj/from-xc/src/code/filesys.lisp-obj
obj/from-xc/src/code/save.lisp-obj
obj/from-xc/src/code/sharpm.lisp-obj
obj/from-xc/src/code/alloc.lisp-obj
obj/from-xc/src/code/early-step.lisp-obj
obj/from-xc/src/code/target-thread.lisp-obj
obj/from-xc/src/code/gc.lisp-obj
obj/from-xc/src/code/purify.lisp-obj
obj/from-xc/src/code/debug-int.lisp-obj
obj/from-xc/src/compiler/target-disassem.lisp-obj
obj/from-xc/src/compiler/target/target-insts.lisp-obj
obj/from-xc/src/code/debug.lisp-obj
obj/from-xc/src/code/octets.lisp-obj
obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj
obj/from-xc/src/code/external-formats/enc-dos.lisp-obj
obj/from-xc/src/code/external-formats/enc-iso.lisp-obj
obj/from-xc/src/code/external-formats/enc-win.lisp-obj
obj/from-xc/src/code/external-formats/mb-util.lisp-obj
obj/from-xc/src/code/external-formats/enc-cn-tbl.lisp-obj
obj/from-xc/src/code/external-formats/enc-cn.lisp-obj
obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj
obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj
obj/from-xc/src/code/external-formats/ucs-2.lisp-obj
obj/from-xc/src/code/parse-defmacro-errors.lisp-obj
obj/from-xc/src/code/full-eval.lisp-obj
obj/from-xc/src/code/bit-bash.lisp-obj
obj/from-xc/src/code/target-load.lisp-obj
obj/from-xc/src/compiler/target/sanctify.lisp-obj
obj/from-xc/src/compiler/target-dump.lisp-obj
obj/from-xc/src/code/cold-init.lisp-obj
obj/from-xc/src/code/cl-specials.lisp-obj
obj/from-xc/src/compiler/late-proclaim.lisp-obj
obj/from-xc/src/code/defboot.lisp-obj
obj/from-xc/src/code/destructuring-bind.lisp-obj
obj/from-xc/src/code/early-setf.lisp-obj
obj/from-xc/src/code/macros.lisp-obj
obj/from-xc/src/code/loop.lisp-obj
obj/from-xc/src/code/late-setf.lisp-obj
obj/from-xc/src/code/late-format.lisp-obj
obj/from-xc/src/code/sxhash.lisp-obj
obj/from-xc/src/code/signal.lisp-obj
obj/from-xc/src/code/late-defbangmethod.lisp-obj
obj/from-xc/src/pcl/walk.lisp-obj
[building initial core file in "output/cold-sbcl.core": 
writing 4096 bytes [1 page] from #<SB!FASL::GSPACE :READ-ONLY>
writing 4096 bytes [1 page] from #<SB!FASL::GSPACE :STATIC>
writing 40914944 bytes [9989 pages] from #<SB!FASL::GSPACE :DYNAMIC>
/(DESCRIPTOR-BITS INITIAL-FUN)=#X117F47F5
done]
* //testing for consistency of first and second GENESIS passes
//header files match between first and second GENESIS -- good

real	3m15.312s
user	2m49.206s
sys	0m13.103s
//entering make-target-2.sh
//doing warm init - compilation phase
This is SBCL 1.0.19, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.

* 
10
* 
5
* 
T
* 
*COMPILE-FILES-P*
* 
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/early-low.lisp" (written 14 MAR 2008 09:03:06 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (/SHOW "starting early-low.lisp")
; compiling (DEFVAR *PCL-PACKAGE* ...)
; compiling (DECLAIM (INLINE DEFSTRUCT-CLASSOID-P))
; compiling (DEFUN DEFSTRUCT-CLASSOID-P ...)
; compiling (DEFUN STRUCTURE-TYPE-P ...)
; compiling (DEFUN FORMAT-SYMBOL ...)
; compiling (DEFUN MAKE-CLASS-SYMBOL ...)
; compiling (DEFUN MAKE-WRAPPER-SYMBOL ...)
; compiling (DEFUN CONDITION-TYPE-P ...)
; compiling (DECLAIM (SPECIAL *THE-CLASS-T* ...))
; compiling (DECLAIM (SPECIAL *THE-WRAPPER-OF-T* ...))
; compiling (/SHOW "finished with early-low.lisp")

; SYS:SRC;PCL;EARLY-LOW.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/macros.lisp" (written 14 MAR 2008 09:03:06 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (/SHOW "starting pcl/macros.lisp")
; compiling (DECLAIM (DECLARATION %METHOD-NAME ...))
; compiling (/SHOW "done with DECLAIM DECLARATION")
; compiling (DEFUN GET-DECLARATION ...)
; compiling (/SHOW "pcl/macros.lisp 85")
; compiling (DEFMACRO DOPLIST ...)
; compiling (/SHOW "pcl/macros.lisp 101")
; compiling (DEFMACRO DOLIST-CAREFULLY ...)
; compiling (/SHOW "pcl/macros.lisp 119")
; compiling (DECLAIM (INLINE LEGAL-CLASS-NAME-P))
; compiling (DEFUN LEGAL-CLASS-NAME-P ...)
; compiling (DEFVAR *CREATE-CLASSES-FROM-INTERNAL-STRUCTURE-DEFINITIONS-P* ...)
; compiling (DEFUN FIND-CLASS-FROM-CELL ...)
; compiling (DEFUN FIND-CLASS ...)
; compiling (DEFVAR *BOOT-STATE* ...)
; compiling (/SHOW "pcl/macros.lisp 187")
; compiling (DEFINE-COMPILER-MACRO FIND-CLASS ...)
; compiling (DECLAIM (INLINE CLASS-CLASSOID))
; compiling (DEFUN CLASS-CLASSOID ...)
; compiling (DEFUN (SETF FIND-CLASS) ...)
; compiling (/SHOW "pcl/macros.lisp 241")
; compiling (DEFMACRO FUNCTION-FUNCALL ...)
; compiling (DEFMACRO FUNCTION-APPLY ...)
; compiling (/SHOW "pcl/macros.lisp 249")
; compiling (DEFUN GET-SETF-FUN-NAME ...)
; compiling (DEFSETF SLOT-VALUE ...)
; compiling (/SHOW "finished with pcl/macros.lisp")
; file: /Users/nikodemus/src/sbcl/src/pcl/macros.lisp
; in: DEFUN CLASS-CLASSOID
;     (SB-PCL::CLASS-WRAPPER CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-WRAPPER))
;      :ASSIGNED-SLOTS NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-WRAPPER))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN FIND-CLASS-FROM-CELL
;     (SB-PCL::ENSURE-NON-STANDARD-CLASS SYMBOL SB-KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ENSURE-NON-STANDARD-CLASS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN (SETF FIND-CLASS)
;     (SB-PCL::SET-CLASS-TYPE-TRANSLATION SB-PCL::NEW-VALUE SB-KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SET-CLASS-TYPE-TRANSLATION))
;      :ASSIGNED-SLOTS NIL)

;     (SB-PCL::UPDATE-CTORS 'SB-PCL::SETF-FIND-CLASS :CLASS SB-PCL::NEW-VALUE :NAME
;      SB-PCL::NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION UPDATE-CTORS))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(ENSURE-NON-STANDARD-CLASS SET-CLASS-TYPE-TRANSLATION
;                             UPDATE-CTORS)
;                         FUNCTION (CLASS-WRAPPER . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 6 STYLE-WARNING conditions


; SYS:SRC;PCL;MACROS.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/compiler-support.lisp" (written 21 JUL 2007 03:05:15 AM):
; compiling (IN-PACKAGE "SB-C")
; compiling (DEFKNOWN SB-PCL::PCL-INSTANCE-P ...)
; compiling (DEFTRANSFORM SB-PCL::PCL-INSTANCE-P ...)
; compiling (DEFUN SB-PCL::SAFE-CODE-P ...)
; compiling (DEFINE-SOURCE-CONTEXT DEFMETHOD ...)
; compiling (DEFVAR SB-PCL::*INTERNAL-PCL-GENERALIZED-FUN-NAME-SYMBOLS* ...)
; compiling (DEFMACRO DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX ...)
; compiling (DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX SB-PCL::SLOT-ACCESSOR ...)
; compiling (DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX SB-PCL::FAST-METHOD ...)
; compiling (DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX SB-PCL::SLOW-METHOD ...)
; compiling (DEFINE-INTERNAL-PCL-FUNCTION-NAME-SYNTAX SB-PCL::CTOR ...)
; compiling (DEFUN SB-PCL::RANDOM-DOCUMENTATION ...)
; compiling (DEFUN SB-PCL::SET-RANDOM-DOCUMENTATION ...)
; compiling (DEFSETF SB-PCL::RANDOM-DOCUMENTATION ...)
; compiling (DEFKNOWN SLOT-VALUE ...)
; compiling (DEFKNOWN SB-PCL::SET-SLOT-VALUE ...)
; compiling (DEFUN PCL-BOOT-STATE-COMPLETE-P ...)
; compiling (DEFTRANSFORM SLOT-VALUE ...)
; compiling (DEFTRANSFORM SB-PCL::SET-SLOT-VALUE ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/compiler-support.lisp
; in: DEFTRANSFORM SB-PCL::SET-SLOT-VALUE
;     (SB-PCL::INTERNED-SYMBOL-P SB-C::C-SLOT-NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION INTERNED-SYMBOL-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFTRANSFORM SLOT-VALUE
;     (SB-PCL::INTERNED-SYMBOL-P SB-C::C-SLOT-NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION INTERNED-SYMBOL-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFINE-SOURCE-CONTEXT DEFMETHOD
;     (SB-PCL::PARSE-SPECIALIZED-LAMBDA-LIST (ELT SB-C::STUFF SB-C::ARG-POS))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION PARSE-SPECIALIZED-LAMBDA-LIST))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(PARSE-SPECIALIZED-LAMBDA-LIST) FUNCTION
;                         (INTERNED-SYMBOL-P . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions


; SYS:SRC;PCL;COMPILER-SUPPORT.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/low.lisp" (written 29 MAY 2007 05:36:23 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFVAR *OPTIMIZE-SPEED* ...)
; compiling (DEFMACRO DOTIMES-FIXNUM ...)
; compiling (DEFSTRUCT (WRAPPER # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE WRAPPER))
; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS STANDARD-FUNCALLABLE-INSTANCE ...)
; compiling (IMPORT (QUOTE FUNCALLABLE-INSTANCE-P))
; compiling (DEFUN SET-FUNCALLABLE-INSTANCE-FUNCTION ...)
; compiling (DEFMACRO FSC-INSTANCE-P ...)
; compiling (DEFMACRO FSC-INSTANCE-WRAPPER ...)
; compiling (DEFMACRO FSC-INSTANCE-SLOTS ...)
; compiling (DEFMACRO FSC-INSTANCE-HASH ...)
; compiling (DECLAIM (INLINE CLOS-SLOTS-REF ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN CLOS-SLOTS-REF ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN (SETF CLOS-SLOTS-REF) ...)
; compiling (DEFMACRO STD-INSTANCE-P ...)
; compiling (DEFCONSTANT +SLOT-UNBOUND+ ...)
; compiling (DEFMACRO %ALLOCATE-STATIC-SLOT-STORAGE--CLASS ...)
; compiling (DEFMACRO STD-INSTANCE-CLASS ...)
; compiling (DEFUN SET-FUN-NAME ...)
; compiling (DEFMACRO PRECOMPILE-RANDOM-CODE-SEGMENTS ...)
; compiling (DEFUN PCL-INSTANCE-P ...)
; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS STANDARD-INSTANCE ...)
; compiling (DEFMACRO STD-INSTANCE-SLOTS ...)
; compiling (DEFMACRO STD-INSTANCE-WRAPPER ...)
; compiling (DEFMACRO STD-INSTANCE-HASH ...)
; compiling (DECLAIM (INLINE GET-SLOTS ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN GET-SLOTS ...)
; compiling (DEFUN GET-SLOTS-OR-NIL ...)
; compiling (DEFMACRO GET-WRAPPER ...)
; compiling (DEFMACRO GET-INSTANCE-WRAPPER-OR-NIL ...)
; compiling (DEFVAR *INSTANCE-HASH-CODE-RANDOM-STATE* ...)
; compiling (DEFUN GET-INSTANCE-HASH-CODE ...)
; compiling (DEFUN SB-IMPL::SXHASH-INSTANCE ...)
; compiling (DEFUN STRUCTURE-TYPE-INCLUDED-TYPE-NAME ...)
; compiling (DEFUN STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST ...)
; compiling (DEFUN STRUCTURE-SLOTD-NAME ...)
; compiling (DEFUN STRUCTURE-SLOTD-ACCESSOR-SYMBOL ...)
; compiling (DEFUN STRUCTURE-SLOTD-READER-FUNCTION ...)
; compiling (DEFUN STRUCTURE-SLOTD-WRITER-FUNCTION ...)
; compiling (DEFUN STRUCTURE-SLOTD-TYPE ...)
; compiling (DEFUN STRUCTURE-SLOTD-INIT-FORM ...)
; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS %METHOD-FUNCTION ...)
; compiling (DEFMACRO WITH-PCL-LOCK ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/low.lisp
; in: DEFUN SET-FUN-NAME
;     (CLASS-OF SB-PCL::FUN)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (TYPE GENERIC-FUNCTION))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/low.lisp
; in: DEFUN SET-FUN-NAME
;     (TYPEP SB-PCL::FUN 'GENERIC-FUNCTION)
; ==>
;   (SB-KERNEL:%TYPEP SB-PCL::FUN 'GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (TYPE GENERIC-FUNCTION))
;      :ASSIGNED-SLOTS NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (TYPE GENERIC-FUNCTION))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S
;                        FORMAT-ARGUMENTS (6 TYPE GENERIC-FUNCTION))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/low.lisp
; in: DEFUN GET-SLOTS-OR-NIL
;     (SB-PCL::PCL-INSTANCE-P SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (TYPE STANDARD-OBJECT))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS (NIL FUNCTION (CLASS-OF)))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(STANDARD-OBJECT) TYPE (GENERIC-FUNCTION . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions


; SYS:SRC;PCL;LOW.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/slot-name.lisp" (written 15 FEB 2003 01:16:34 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFUN SLOT-READER-NAME ...)
; compiling (DEFUN SLOT-WRITER-NAME ...)
; compiling (DEFUN SLOT-BOUNDP-NAME ...)

; SYS:SRC;PCL;SLOT-NAME.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/defclass.lisp" (written 30 MAY 2008 04:16:27 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFVAR *INITFUNCTIONS-FOR-THIS-DEFCLASS*)
; compiling (DEFVAR *READERS-FOR-THIS-DEFCLASS*)
; compiling (DEFVAR *WRITERS-FOR-THIS-DEFCLASS*)
; compiling (DEFVAR *SLOT-NAMES-FOR-THIS-DEFCLASS*)
; compiling (DEFMACRO DEFCLASS ...)
; compiling (DEFUN CANONIZE-DEFCLASS-OPTIONS ...)
; compiling (DEFUN CANONIZE-DEFCLASS-SLOTS ...)
; compiling (DEFUN CHECK-SLOT-NAME-FOR-DEFCLASS ...)
; compiling (DEFUN MAKE-INITFUNCTION ...)
; compiling (DEFUN %COMPILER-DEFCLASS ...)
; compiling (DEFUN PREINFORM-COMPILER-ABOUT-CLASS-TYPE ...)
; compiling (DEFUN PREINFORM-COMPILER-ABOUT-ACCESSORS ...)
; compiling (DEFPARAMETER *EARLY-CLASS-DEFINITIONS* ...)
; compiling (DEFUN EARLY-CLASS-DEFINITION ...)
; compiling (DEFUN MAKE-EARLY-CLASS-DEFINITION ...)
; compiling (DEFUN ECD-CLASS-NAME ...)
; compiling (DEFUN ECD-SOURCE-LOCATION ...)
; compiling (DEFUN ECD-METACLASS ...)
; compiling (DEFUN ECD-SUPERCLASS-NAMES ...)
; compiling (DEFUN ECD-CANONICAL-SLOTS ...)
; compiling (DEFUN ECD-OTHER-INITARGS ...)
; compiling (DEFVAR *EARLY-CLASS-SLOTS* ...)
; compiling (DEFUN CANONICAL-SLOT-NAME ...)
; compiling (DEFUN EARLY-CLASS-SLOTS ...)
; compiling (DEFUN EARLY-CLASS-SIZE ...)
; compiling (DEFUN EARLY-COLLECT-INHERITANCE ...)
; compiling (DEFUN EARLY-COLLECT-SLOTS ...)
; compiling (DEFUN EARLY-COLLECT-CPL ...)
; compiling (DEFUN EARLY-COLLECT-DEFAULT-INITARGS ...)
; compiling (DEFUN !BOOTSTRAP-SLOT-INDEX ...)
; compiling (DEFMACRO !BOOTSTRAP-GET-SLOT ...)
; compiling (DEFUN !BOOTSTRAP-SET-SLOT ...)
; compiling (DEFUN EARLY-CLASS-NAME ...)
; compiling (DEFUN EARLY-CLASS-PRECEDENCE-LIST ...)
; compiling (DEFUN EARLY-CLASS-NAME-OF ...)
; compiling (DEFUN EARLY-CLASS-SLOTDS ...)
; compiling (DEFUN EARLY-SLOT-DEFINITION-NAME ...)
; compiling (DEFUN EARLY-SLOT-DEFINITION-LOCATION ...)
; compiling (DEFUN EARLY-ACCESSOR-METHOD-SLOT-NAME ...)
; compiling (UNLESS (FBOUNDP #) ...)
; compiling (UNINTERN (QUOTE EARLY-CLASS-NAME-OF))
; compiling (DEFUN EARLY-CLASS-DIRECT-SUBCLASSES ...)
; compiling (DECLAIM (NOTINLINE LOAD-DEFCLASS))
; compiling (DEFUN LOAD-DEFCLASS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/defclass.lisp
; in: DEFMACRO DEFCLASS =>
;      DEFSTRUCT-P (AND (EQ *BOOT-STATE* 'COMPLETE)
;                   (LET ((MCLASS #))
;                     (AND MCLASS
;                          (*SUBTYPEP MCLASS *THE-CLASS-STRUCTURE-CLASS*))))
;     (SB-PCL::*SUBTYPEP SB-PCL::MCLASS SB-PCL::*THE-CLASS-STRUCTURE-CLASS*)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION *SUBTYPEP))
;      :ASSIGNED-SLOTS NIL)

; in:
;      DEFSTRUCT-P (AND (EQ *BOOT-STATE* 'COMPLETE)
;                   (LET ((MCLASS #))
;                     (AND MCLASS
;                          (*SUBTYPEP MCLASS *THE-CLASS-STRUCTURE-CLASS*))))
;     (SB-PCL::*SUBTYPEP SB-PCL::MCLASS SB-PCL::*THE-CLASS-STRUCTURE-CLASS*)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION *SUBTYPEP))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/defclass.lisp
; in: DEFMACRO DEFCLASS =>
;      DEFSTRUCT-FORM (MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM NAME
;                  (CLASS-DIRECT-SLOTS (FIND-CLASS NAME)) INCLUDE)
;     (SB-MOP:CLASS-DIRECT-SLOTS (FIND-CLASS SB-PCL::NAME))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-DIRECT-SLOTS))
;      :ASSIGNED-SLOTS NIL)

; in:
;      DEFSTRUCT-FORM (MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM NAME
;                  (CLASS-DIRECT-SLOTS (FIND-CLASS NAME)) INCLUDE)
;     (SB-MOP:CLASS-DIRECT-SLOTS (FIND-CLASS SB-PCL::NAME))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-DIRECT-SLOTS))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/defclass.lisp
; in: DEFUN EARLY-CLASS-NAME-OF
;     (CLASS-OF SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFMACRO DEFCLASS =>
;      DEFSTRUCT-FORM (MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM NAME
;                  (CLASS-DIRECT-SLOTS (FIND-CLASS NAME)) INCLUDE)
;     (SB-PCL::MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM SB-PCL::NAME
;      (SB-MOP:CLASS-DIRECT-SLOTS (FIND-CLASS SB-PCL::NAME)) SB-PCL::INCLUDE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM))
;      :ASSIGNED-SLOTS NIL)

; in:
;      DEFSTRUCT-FORM (MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM NAME
;                  (CLASS-DIRECT-SLOTS (FIND-CLASS NAME)) INCLUDE)
;     (SB-PCL::MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM SB-PCL::NAME
;      (SB-MOP:CLASS-DIRECT-SLOTS (FIND-CLASS SB-PCL::NAME)) SB-PCL::INCLUDE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(CLASS-DIRECT-SLOTS CLASS-OF
;                             MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM)
;                         FUNCTION (*SUBTYPEP . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 8 STYLE-WARNING conditions


; SYS:SRC;PCL;DEFCLASS.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/defs.lisp" (written 30 MAY 2008 04:16:27 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (WHEN (EQ *BOOT-STATE* ...) ...)
; compiling (WHEN *BOOT-STATE* ...)
; compiling (DECLAIM (INLINE GDEFINITION))
; compiling (DEFUN GDEFINITION ...)
; compiling (DEFUN (SETF GDEFINITION) ...)
; compiling (DEFUN COERCE-TO-CLASS ...)
; compiling (DEFUN SPECIALIZER-FROM-TYPE ...)
; compiling (DEFUN TYPE-FROM-SPECIALIZER ...)
; compiling (DEFUN TYPE-CLASS ...)
; compiling (DEFUN CLASS-EQ-TYPE ...)
; compiling (DEFUN *NORMALIZE-TYPE ...)
; compiling (DEFUN CONVERT-TO-SYSTEM-TYPE ...)
; compiling (DEFUN *SUBTYPEP ...)
; compiling (DEFVAR *BUILT-IN-CLASS-SYMBOLS* ...)
; compiling (DEFVAR *BUILT-IN-WRAPPER-SYMBOLS* ...)
; compiling (DEFUN GET-BUILT-IN-CLASS-SYMBOL ...)
; compiling (DEFUN GET-BUILT-IN-WRAPPER-SYMBOL ...)
; compiling (DEFVAR *STANDARD-METHOD-COMBINATION*)
; compiling (DEFUN PLIST-VALUE ...)
; compiling (DEFUN (SETF PLIST-VALUE) ...)
; compiling (/SHOW "about to set up SB-PCL::*BUILT-IN-CLASSES*")
; compiling (DEFVAR *BUILT-IN-CLASSES* ...)
; compiling (/NOSHOW "done setting up SB-PCL::*BUILT-IN-CLASSES*")
; compiling (DEFCLASS T ...)
; compiling (DEFCLASS FUNCTION ...)
; compiling (DEFCLASS STREAM ...)
; compiling (DEFCLASS FILE-STREAM ...)
; compiling (DEFCLASS STRING-STREAM ...)
; compiling (DEFCLASS SLOT-OBJECT ...)
; compiling (DEFCLASS CONDITION ...)
; compiling (DEFCLASS STRUCTURE-OBJECT ...)
; compiling (DEFSTRUCT (DEAD-BEEF-STRUCTURE-OBJECT # ...))
; compiling (DEFCLASS STANDARD-OBJECT ...)
; compiling (DEFCLASS FUNCALLABLE-STANDARD-OBJECT ...)
; compiling (DEFCLASS METAOBJECT ...)
; compiling (DEFCLASS GENERIC-FUNCTION ...)
; compiling (DEFCLASS STANDARD-GENERIC-FUNCTION ...)
; compiling (DEFCLASS METHOD ...)
; compiling (DEFCLASS STANDARD-METHOD ...)
; compiling (DEFCLASS ACCESSOR-METHOD ...)
; compiling (DEFCLASS STANDARD-ACCESSOR-METHOD ...)
; compiling (DEFCLASS STANDARD-READER-METHOD ...)
; compiling (DEFCLASS STANDARD-WRITER-METHOD ...)
; compiling (DEFCLASS STANDARD-BOUNDP-METHOD ...)
; compiling (DEFCLASS GLOBAL-READER-METHOD ...)
; compiling (DEFCLASS GLOBAL-WRITER-METHOD ...)
; compiling (DEFCLASS GLOBAL-BOUNDP-METHOD ...)
; compiling (DEFCLASS METHOD-COMBINATION ...)
; compiling (DEFCLASS STANDARD-METHOD-COMBINATION ...)
; compiling (DEFCLASS LONG-METHOD-COMBINATION ...)
; compiling (DEFCLASS SHORT-METHOD-COMBINATION ...)
; compiling (DEFCLASS SLOT-DEFINITION ...)
; compiling (DEFCLASS STANDARD-SLOT-DEFINITION ...)
; compiling (DEFCLASS CONDITION-SLOT-DEFINITION ...)
; compiling (DEFCLASS STRUCTURE-SLOT-DEFINITION ...)
; compiling (DEFCLASS DIRECT-SLOT-DEFINITION ...)
; compiling (DEFCLASS EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFCLASS STANDARD-DIRECT-SLOT-DEFINITION ...)
; compiling (DEFCLASS STANDARD-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFCLASS CONDITION-DIRECT-SLOT-DEFINITION ...)
; compiling (DEFCLASS CONDITION-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFCLASS STRUCTURE-DIRECT-SLOT-DEFINITION ...)
; compiling (DEFCLASS STRUCTURE-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFCLASS SPECIALIZER ...)
; compiling (DEFCLASS STANDARD-SPECIALIZER ...)
; compiling (DEFCLASS SPECIALIZER-WITH-OBJECT ...)
; compiling (DEFCLASS EXACT-CLASS-SPECIALIZER ...)
; compiling (DEFCLASS CLASS-EQ-SPECIALIZER ...)
; compiling (DEFCLASS CLASS-PROTOTYPE-SPECIALIZER ...)
; compiling (DEFCLASS EQL-SPECIALIZER ...)
; compiling (DEFVAR *EQL-SPECIALIZER-TABLE* ...)
; compiling (DEFVAR *EQL-SPECIALIZER-TABLE-LOCK* ...)
; compiling (DEFUN INTERN-EQL-SPECIALIZER ...)
; compiling (DEFCLASS CLASS ...)
; compiling (DEF!METHOD MAKE-LOAD-FORM ...)
; compiling (DEFCLASS PCL-CLASS ...)
; compiling (DEFCLASS SLOT-CLASS ...)
; compiling (DEFCLASS STD-CLASS ...)
; compiling (DEFCLASS STANDARD-CLASS ...)
; compiling (DEFCLASS FUNCALLABLE-STANDARD-CLASS ...)
; compiling (DEFCLASS FORWARD-REFERENCED-CLASS ...)
; compiling (DEFCLASS BUILT-IN-CLASS ...)
; compiling (DEFCLASS CONDITION-CLASS ...)
; compiling (DEFCLASS STRUCTURE-CLASS ...)
; compiling (DEFCLASS DEFINITION-SOURCE-MIXIN ...)
; compiling (DEFCLASS PLIST-MIXIN ...)
; compiling (DEFCLASS DEPENDENT-UPDATE-MIXIN ...)
; compiling (DEFPARAMETER *EARLY-CLASS-PREDICATES* ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/defs.lisp
; in: DEFUN TYPE-CLASS
;     (CLASS-OF (CADR TYPE))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN COERCE-TO-CLASS
;     (SB-MOP:ENSURE-CLASS CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ENSURE-CLASS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN SPECIALIZER-FROM-TYPE
;     (SB-PCL::ENSURE-NON-STANDARD-CLASS (SB-KERNEL:CLASSOID-NAME TYPE) TYPE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ENSURE-NON-STANDARD-CLASS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFCLASS STANDARD-GENERIC-FUNCTION
;     (SB-PCL::MAKE-ARG-INFO)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-ARG-INFO))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN INTERN-EQL-SPECIALIZER
;     (MAKE-INSTANCE 'SB-MOP:EQL-SPECIALIZER :OBJECT SB-PCL::OBJECT)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN SPECIALIZER-FROM-TYPE
;     (MAKE-INSTANCE 'SB-PCL::CLASS-PROTOTYPE-SPECIALIZER :OBJECT
;      (SB-PCL::COERCE-TO-CLASS (CAR SB-PCL::ARGS)))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN *SUBTYPEP
;     (SB-PCL::SPECIALIZER-APPLICABLE-USING-TYPE-P SB-PCL::TYPE2 SB-PCL::TYPE1)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SPECIALIZER-APPLICABLE-USING-TYPE-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN *NORMALIZE-TYPE
;     (SB-PCL::SPECIALIZERP TYPE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SPECIALIZERP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN TYPE-FROM-SPECIALIZER
;     (SB-PCL::SPECIALIZERP SB-PCL::SPECL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SPECIALIZERP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN SPECIALIZER-FROM-TYPE
;     (SB-PCL::SPECIALIZERP TYPE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SPECIALIZERP))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(ENSURE-CLASS ENSURE-NON-STANDARD-CLASS MAKE-ARG-INFO
;                             MAKE-INSTANCE SPECIALIZER-APPLICABLE-USING-TYPE-P
;                             SPECIALIZERP)
;                         FUNCTION (CLASS-OF . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 11 STYLE-WARNING conditions


; SYS:SRC;PCL;DEFS.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/fngen.lisp" (written 14 FEB 2008 06:43:11 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFUN GET-FUN ...)
; compiling (DEFUN GET-FUN1 ...)
; compiling (DEFUN DEFAULT-CONSTANTP ...)
; compiling (DEFUN DEFAULT-TEST-CONVERTER ...)
; compiling (DEFUN DEFAULT-CODE-CONVERTER ...)
; compiling (DEFUN DEFAULT-CONSTANT-CONVERTER ...)
; compiling (DEFSTRUCT (FGEN #) ...)
; compiling (DEFVAR *FGENS* ...)
; compiling (DEFUN ENSURE-FGEN ...)
; compiling (DEFUN LOOKUP-FGEN ...)
; compiling (DEFUN GET-FUN-GENERATOR ...)
; compiling (DEFUN GET-NEW-FUN-GENERATOR ...)
; compiling (DEFUN COMPUTE-TEST ...)
; compiling (DEFUN COMPUTE-CODE ...)
; compiling (DEFUN COMPUTE-CONSTANTS ...)
; compiling (DEFMACRO PRECOMPILE-FUNCTION-GENERATORS ...)

; SYS:SRC;PCL;FNGEN.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/wrapper.lisp" (written 14 MAR 2008 09:03:06 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFMACRO WRAPPER-CLASS ...)
; compiling (DEFMACRO WRAPPER-NO-OF-INSTANCE-SLOTS ...)
; compiling (DEFUN BOOT-MAKE-WRAPPER ...)
; compiling (DEFVAR *PCL-CLASS-BOOT* ...)
; compiling (DEFUN MAKE-WRAPPER ...)
; compiling (DECLAIM (INLINE WRAPPER-CLASS*))
; compiling (DEFUN WRAPPER-CLASS* ...)
; compiling (DECLAIM (INLINE INVALID-WRAPPER-P))
; compiling (DEFUN INVALID-WRAPPER-P ...)
; compiling (DEFVAR *PREVIOUS-NWRAPPERS* ...)
; compiling (DEFUN INVALIDATE-WRAPPER ...)
; compiling (DEFUN CHECK-WRAPPER-VALIDITY ...)
; compiling (DECLAIM (INLINE CHECK-OBSOLETE-INSTANCE))
; compiling (DEFUN CHECK-OBSOLETE-INSTANCE ...)
; compiling (DEFUN VALID-WRAPPER-OF ...)
; compiling (DEFUN RAISE-METATYPE ...)
; compiling (DEFMACRO WITH-DFUN-WRAPPERS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/wrapper.lisp
; in: DEFUN RAISE-METATYPE
;     (CLASS-OF SB-PCL::SPECIALIZER-CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CHECK-WRAPPER-VALIDITY
;     (CLASS-OF SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-WRAPPER
;     (CLASS-OF CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN WRAPPER-CLASS*
;     (SB-PCL::ENSURE-NON-STANDARD-CLASS
;      (SB-KERNEL:CLASSOID-NAME SB-KERNEL:CLASSOID) SB-KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ENSURE-NON-STANDARD-CLASS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CHECK-WRAPPER-VALIDITY
;     (SB-PCL::FLUSH-CACHE-TRAP SB-PCL::OWRAPPER (CADR SB-PCL::STATE)
;      SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FLUSH-CACHE-TRAP))
;      :ASSIGNED-SLOTS NIL)

;     (SB-PCL::FORCE-CACHE-FLUSHES (CLASS-OF SB-KERNEL:INSTANCE))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FORCE-CACHE-FLUSHES))
;      :ASSIGNED-SLOTS NIL)

;     (SB-PCL::OBSOLETE-INSTANCE-TRAP SB-PCL::OWRAPPER NIL SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION OBSOLETE-INSTANCE-TRAP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN RAISE-METATYPE
;     (SB-PCL::SPECIALIZER-CLASS-OR-NIL SB-PCL::X)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SPECIALIZER-CLASS-OR-NIL))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN VALID-WRAPPER-OF
;     (SB-PCL::WRAPPER-OF SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION WRAPPER-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CHECK-WRAPPER-VALIDITY
;     (SB-PCL::WRAPPER-OF SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION WRAPPER-OF))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(ENSURE-NON-STANDARD-CLASS FLUSH-CACHE-TRAP
;                             FORCE-CACHE-FLUSHES OBSOLETE-INSTANCE-TRAP
;                             SPECIALIZER-CLASS-OR-NIL WRAPPER-OF)
;                         FUNCTION (CLASS-OF . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 11 STYLE-WARNING conditions


; SYS:SRC;PCL;WRAPPER.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/cache.lisp" (written 30 JUN 2008 01:34:03 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFSTRUCT (CACHE # ...) ...)
; compiling (DEFUN COMPUTE-CACHE-MASK ...)
; compiling (DEFUN CACHE-STATISTICS ...)
; compiling (DEFCONSTANT +CACHE-VECTOR-MAX-LENGTH+ ...)
; compiling (DECLAIM (INLINE COMPUTE-LIMIT))
; compiling (DEFUN COMPUTE-LIMIT ...)
; compiling (DEFMACRO NON-EMPTY-OR ...)
; compiling (DECLAIM (INLINE CACHE-KEY-P))
; compiling (DEFUN CACHE-KEY-P ...)
; compiling (DEFUN NOTE-CACHE-DEPTH ...)
; compiling (DECLAIM (INLINE NEXT-CACHE-INDEX))
; compiling (DEFUN NEXT-CACHE-INDEX ...)
; compiling (DEFMACRO HASH-LAYOUT-OR ...)
; compiling (DECLAIM (INLINE COMPUTE-CACHE-INDEX))
; compiling (DEFUN COMPUTE-CACHE-INDEX ...)
; compiling (DEFUN EMIT-CACHE-LOOKUP ...)
; compiling (DEFUN PROBE-CACHE ...)
; compiling (DEFUN TRY-UPDATE-CACHE-LINE ...)
; compiling (DEFUN TRY-UPDATE-CACHE ...)
; compiling (DEFUN MAKE-CACHE ...)
; compiling (DEFCONSTANT N-FIXNUM-BITS ...)
; compiling (DEFUN COPY-AND-EXPAND-CACHE ...)
; compiling (DEFUN CACHE-HAS-INVALID-ENTRIES-P ...)
; compiling (DEFUN HASH-TABLE-TO-CACHE ...)
; compiling (DEFUN FILL-CACHE ...)
; compiling (DEFUN MAP-CACHE ...)
; compiling (DEFUN COPY-CACHE ...)
; compiling (DEFUN MAP-ALL-CACHES ...)
; compiling (DEFUN CHECK-CACHE-CONSISTENCY ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/cache.lisp
; in: DEFUN MAP-ALL-CACHES
;     (SB-PCL::GF-DFUN-CACHE SB-PCL::FUN)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GF-DFUN-CACHE))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS (NIL FUNCTION (GF-DFUN-CACHE)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions


; SYS:SRC;PCL;CACHE.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/dlisp.lisp" (written 08 SEP 2007 06:15:45 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DECLAIM (LIST *DFUN-ARG-SYMBOLS*))
; compiling (DEFVAR *DFUN-ARG-SYMBOLS* ...)
; compiling (DEFUN DFUN-ARG-SYMBOL ...)
; compiling (DECLAIM (LIST *SLOT-VECTOR-SYMBOLS*))
; compiling (DEFVAR *SLOT-VECTOR-SYMBOLS* ...)
; compiling (DEFUN SLOT-VECTOR-SYMBOL ...)
; compiling (DECLAIM (INLINE MAKE-DFUN-REQUIRED-ARGS))
; compiling (DEFUN MAKE-DFUN-REQUIRED-ARGS ...)
; compiling (DEFUN MAKE-DFUN-LAMBDA-LIST ...)
; compiling (DEFUN MAKE-DLAP-LAMBDA-LIST ...)
; compiling (DEFUN MAKE-EMF-CALL ...)
; compiling (DEFUN MAKE-FAST-METHOD-CALL-LAMBDA-LIST ...)
; compiling (DEFUN EMIT-ONE-CLASS-READER ...)
; compiling (DEFUN EMIT-ONE-CLASS-BOUNDP ...)
; compiling (DEFUN EMIT-ONE-CLASS-WRITER ...)
; compiling (DEFUN EMIT-TWO-CLASS-READER ...)
; compiling (DEFUN EMIT-TWO-CLASS-BOUNDP ...)
; compiling (DEFUN EMIT-TWO-CLASS-WRITER ...)
; compiling (DEFUN EMIT-ONE-INDEX-READERS ...)
; compiling (DEFUN EMIT-ONE-INDEX-BOUNDPS ...)
; compiling (DEFUN EMIT-ONE-INDEX-WRITERS ...)
; compiling (DEFUN EMIT-N-N-READERS ...)
; compiling (DEFUN EMIT-N-N-BOUNDPS ...)
; compiling (DEFUN EMIT-N-N-WRITERS ...)
; compiling (DEFUN EMIT-CHECKING ...)
; compiling (DEFUN EMIT-CACHING ...)
; compiling (DEFUN EMIT-IN-CHECKING-CACHE-P ...)
; compiling (DEFUN EMIT-CONSTANT-VALUE ...)
; compiling (DEFVAR *PRECOMPILING-LAP* ...)
; compiling (DEFUN EMIT-DEFAULT-ONLY ...)
; compiling (DEFUN GENERATING-LISP ...)
; compiling (DEFUN EMIT-READER/WRITER ...)
; compiling (DEFUN EMIT-SLOT-READ-FORM ...)
; compiling (DEFUN EMIT-BOUNDP-CHECK ...)
; compiling (DEFUN EMIT-SLOT-ACCESS ...)
; compiling (DEFMACRO EMIT-READER/WRITER-MACRO ...)
; compiling (DEFUN EMIT-ONE-OR-N-INDEX-READER/WRITER ...)
; compiling (DEFMACRO EMIT-ONE-OR-N-INDEX-READER/WRITER-MACRO ...)
; compiling (DEFUN EMIT-MISS ...)
; compiling (DEFUN EMIT-CHECKING-OR-CACHING ...)
; compiling (DEFMACRO EMIT-CHECKING-OR-CACHING-MACRO ...)
; compiling (DEFUN EMIT-DLAP ...)
; compiling (DEFUN EMIT-FETCH-WRAPPER ...)

; SYS:SRC;PCL;DLISP.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/boot.lisp" (written 09 JUL 2008 12:31:53 AM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DECLAIM (NOTINLINE MAKE-A-METHOD ...))
; compiling (DEFVAR *!EARLY-FUNCTIONS* ...)
; compiling (DOLIST (FNS *!EARLY-FUNCTIONS*) ...)
; compiling (DEFVAR *!GENERIC-FUNCTION-FIXUPS* ...)
; compiling (DEFMACRO DEFGENERIC ...)
; compiling (DEFUN COMPILE-OR-LOAD-DEFGENERIC ...)
; compiling (DEFUN LOAD-DEFGENERIC ...)
; compiling (DEFINE-CONDITION GENERIC-FUNCTION-LAMBDA-LIST-ERROR ...)
; compiling (DEFUN CHECK-GF-LAMBDA-LIST ...)
; compiling (DEFMACRO DEFMETHOD ...)
; compiling (DEFMACRO %DEFMETHOD-EXPANDER ...)
; compiling (DEFUN PROTOTYPES-FOR-MAKE-METHOD-LAMBDA ...)
; compiling (DEFUN METHOD-PROTOTYPE-FOR-GF ...)
; compiling (DEFUN EXPAND-DEFMETHOD ...)
; compiling (DEFUN INTERNED-SYMBOL-P ...)
; compiling (DEFUN MAKE-DEFMETHOD-FORM ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN MAKE-DEFMETHOD-FORM
;     (LET* ((SB-PCL::SPECLS (MAPCAR (LAMBDA # #) SB-PCL::SPECIALIZERS))
;            (SB-PCL::MNAME
;             `(,(IF # 'SB-PCL::SLOW-METHOD 'SB-PCL::FAST-METHOD) ,SB-PCL::NAME
;               ,@SB-PCL::QUALIFIERS ,SB-PCL::SPECLS)))
;       `(PROGN
;         (DEFUN ,SB-PCL::MNAME ,(CADR SB-PCL::FN-LAMBDA)
;           ,@(CDDR SB-PCL::FN-LAMBDA))
;         ,(SB-PCL::MAKE-DEFMETHOD-FORM-INTERNAL SB-PCL::NAME SB-PCL::QUALIFIERS
;           `',SB-PCL::SPECLS SB-PCL::UNSPECIALIZED-LAMBDA-LIST
;           SB-PCL::METHOD-CLASS-NAME
;           `(LIST* ,(CADR SB-PCL::INITARGS-FORM) #',SB-PCL::MNAME
;                   ,@(CDDDR SB-PCL::INITARGS-FORM)))))
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

;     'SB-PCL::SLOW-METHOD
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

;     'SB-PCL::FAST-METHOD
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

;     `(,(IF (EQ (CADR SB-PCL::INITARGS-FORM) :FUNCTION) 'SB-PCL::SLOW-METHOD
;            'SB-PCL::FAST-METHOD)
;       ,SB-PCL::NAME ,@SB-PCL::QUALIFIERS ,SB-PCL::SPECLS)
; ==>
;   SB-PCL::NAME
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

;     (MAPCAR
;      (LAMBDA (SB-PCL::SPECL)
;        (IF (CONSP SB-PCL::SPECL) `(,(CAR SB-PCL::SPECL) ,(EVAL #))
;            SB-PCL::SPECL))
;      SB-PCL::SPECIALIZERS)
; --> LET LET SB-INT:DO-ANONYMOUS BLOCK LET 
; ==>
;   SB-PCL::SPECIALIZERS
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

;     (LET* ((SB-PCL::SPECLS (MAPCAR (LAMBDA # #) SB-PCL::SPECIALIZERS))
;            (SB-PCL::MNAME
;             `(,(IF # 'SB-PCL::SLOW-METHOD 'SB-PCL::FAST-METHOD) ,SB-PCL::NAME
;               ,@SB-PCL::QUALIFIERS ,SB-PCL::SPECLS)))
;       `(PROGN
;         (DEFUN ,SB-PCL::MNAME ,(CADR SB-PCL::FN-LAMBDA)
;           ,@(CDDR SB-PCL::FN-LAMBDA))
;         ,(SB-PCL::MAKE-DEFMETHOD-FORM-INTERNAL SB-PCL::NAME SB-PCL::QUALIFIERS
;           `',SB-PCL::SPECLS SB-PCL::UNSPECIALIZED-LAMBDA-LIST
;           SB-PCL::METHOD-CLASS-NAME
;           `(LIST* ,(CADR SB-PCL::INITARGS-FORM) #',SB-PCL::MNAME
;                   ,@(CDDDR SB-PCL::INITARGS-FORM)))))
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

; compiling (DEFUN MAKE-DEFMETHOD-FORM-INTERNAL ...)
; compiling (DEFMACRO MAKE-METHOD-FUNCTION ...)
; compiling (DEFUN ADD-METHOD-DECLARATIONS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN ADD-METHOD-DECLARATIONS
;     (MULTIPLE-VALUE-BIND
;         (SB-PCL::PARAMETERS SB-PCL::UNSPECIALIZED-LAMBDA-LIST
;          SB-PCL::SPECIALIZERS)
;         (SB-PCL::PARSE-SPECIALIZED-LAMBDA-LIST SB-PCL::LAMBDA-LIST)
;       (MULTIPLE-VALUE-BIND
;           (SB-PCL::REAL-BODY SB-PCL::DECLARATIONS DOCUMENTATION)
;           (SB-INT:PARSE-BODY SB-PCL::BODY)
;         (VALUES
;          `(LAMBDA ,SB-PCL::UNSPECIALIZED-LAMBDA-LIST
;             ,@(WHEN DOCUMENTATION `#)
;             (DECLARE #)
;             (DECLARE #)
;             ,@SB-PCL::DECLARATIONS
;             ,@SB-PCL::REAL-BODY)
;          SB-PCL::UNSPECIALIZED-LAMBDA-LIST SB-PCL::SPECIALIZERS)))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (&OPTIONAL (SB-PCL::PARAMETERS) (SB-PCL::UNSPECIALIZED-LAMBDA-LIST)
;          (SB-PCL::SPECIALIZERS)
;          &REST #:G290)
;       (DECLARE (IGNORE #:G290))
;       (MULTIPLE-VALUE-BIND
;           (SB-PCL::REAL-BODY SB-PCL::DECLARATIONS DOCUMENTATION)
;           (SB-INT:PARSE-BODY SB-PCL::BODY)
;         (VALUES
;          `(LAMBDA ,SB-PCL::UNSPECIALIZED-LAMBDA-LIST
;             ,@(WHEN DOCUMENTATION `#)
;             (DECLARE #)
;             (DECLARE #)
;             ,@SB-PCL::DECLARATIONS
;             ,@SB-PCL::REAL-BODY)
;          SB-PCL::UNSPECIALIZED-LAMBDA-LIST SB-PCL::SPECIALIZERS)))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (PARAMETERS))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN REAL-MAKE-METHOD-INITARGS-FORM ...)
; compiling (UNLESS (FBOUNDP #) ...)
; compiling (DEFUN REAL-MAKE-METHOD-LAMBDA ...)
; compiling (UNLESS (FBOUNDP #) ...)
; compiling (DEFUN MAKE-METHOD-LAMBDA-INTERNAL ...)
; compiling (DEFUN REAL-MAKE-METHOD-SPECIALIZERS-FORM ...)
; compiling (UNLESS (FBOUNDP #) ...)
; compiling (DEFUN REAL-PARSE-SPECIALIZER-USING-CLASS ...)
; compiling (UNLESS (FBOUNDP #) ...)
; compiling (DEFUN REAL-UNPARSE-SPECIALIZER-USING-CLASS ...)
; compiling (UNLESS (FBOUNDP #) ...)
; compiling (DEFUN PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD ...)
; compiling (DEFINE-SYMBOL-MACRO %PARAMETER-BINDING-MODIFIED ...)
; compiling (DEFMACRO SIMPLE-LEXICAL-METHOD-FUNCTIONS ...)
; compiling (DEFMACRO FAST-LEXICAL-METHOD-FUNCTIONS ...)
; compiling (DEFMACRO BIND-SIMPLE-LEXICAL-METHOD-FUNCTIONS ...)
; compiling (DEFUN CALL-NO-NEXT-METHOD ...)
; compiling (DEFSTRUCT (METHOD-CALL #) ...)
; compiling (DEFSTRUCT (CONSTANT-METHOD-CALL # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE METHOD-CALL))
; compiling (DEFMACRO INVOKE-METHOD-CALL1 ...)
; compiling (DEFMACRO INVOKE-METHOD-CALL ...)
; compiling (DEFSTRUCT (FAST-METHOD-CALL #) ...)
; compiling (DEFSTRUCT (CONSTANT-FAST-METHOD-CALL # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE FAST-METHOD-CALL))
; compiling (DEFMACRO INVOKE-FAST-METHOD-CALL ...)
; compiling (DEFMACRO INVOKE-FAST-METHOD-CALL/MORE ...); in: LAMBDA NIL
;     'SB-C:%MORE-ARG
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFMACRO INVOKE-FAST-METHOD-CALL/MORE
;     'SB-C:%MORE-ARG
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

; compiling (DEFSTRUCT (FAST-INSTANCE-BOUNDP #) ...)
; compiling (DECLAIM (FREEZE-TYPE FAST-INSTANCE-BOUNDP))
; compiling (DEFVAR *ALLOW-EMF-CALL-TRACING-P* ...)
; compiling (DEFVAR *ENABLE-EMF-CALL-TRACING-P* ...)
; compiling (DEFVAR *EMF-CALL-TRACE-SIZE* ...)
; compiling (DEFVAR *EMF-CALL-TRACE* ...)
; compiling (DEFVAR *EMF-CALL-TRACE-INDEX* ...)
; compiling (DEFUN TRACE-EMF-CALL-INTERNAL ...)
; compiling (DEFMACRO TRACE-EMF-CALL ...)
; compiling (DEFMACRO INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST ...)
; compiling (DEFUN EFFECTIVE-METHOD-OPTIMIZED-SLOT-ACCESS-CLAUSE ...)
; compiling (DEF INVOKE-EFFECTIVE-METHOD-FUNCTION ...)
; compiling (DEF INVOKE-NARROW-EFFECTIVE-METHOD-FUNCTION ...)
; compiling (DEFUN INVOKE-EMF ...)
; compiling (DEFMACRO FAST-CALL-NEXT-METHOD-BODY ...)
; compiling (DEFMACRO BIND-FAST-LEXICAL-METHOD-FUNCTIONS ...)
; compiling (DEFUN %CHECK-CNM-ARGS ...)
; compiling (DEFMACRO BIND-ARGS ...)
; compiling (DEFUN GET-KEY-ARG-TAIL ...)
; compiling (DEFUN WALK-METHOD-LAMBDA ...)
; compiling (DEFUN GENERIC-FUNCTION-NAME-P ...)
; compiling (DEFUN METHOD-PLIST-VALUE ...)
; compiling (DEFUN (SETF METHOD-PLIST-VALUE) ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN (SETF METHOD-PLIST-VALUE)
;     (SETF (GETF (GETF (SB-PCL::EARLY-METHOD-INITARGS METHOD) 'SB-PCL::PLIST)
;                 SB-PCL::KEY SB-PCL::DEFAULT)
;             SB-PCL::NEW-VALUE)
; ==>
;   (LET* ((#:G1141 METHOD)
;          (#:G1143 'SB-PCL::PLIST)
;          (#:G1145 SB-PCL::KEY)
;          (#:G1146 SB-PCL::DEFAULT))
;     (MULTIPLE-VALUE-BIND
;         (#:G1144)
;         SB-PCL::NEW-VALUE
;       (LET ((#:G1142 #))
;         (LET (#)
;           (FUNCALL #'# #:G1140 #:G1141)
;           #:G1142)
;         #:G1144)))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (G1146))
;      :ASSIGNED-SLOTS NIL)

;     (SETF (GETF (SB-PCL::OBJECT-PLIST METHOD) SB-PCL::KEY SB-PCL::DEFAULT)
;             SB-PCL::NEW-VALUE)
; ==>
;   (LET* ((#:G1148 METHOD) (#:G1150 SB-PCL::KEY) (#:G1151 SB-PCL::DEFAULT))
;     (MULTIPLE-VALUE-BIND
;         (#:G1149)
;         SB-PCL::NEW-VALUE
;       (LET ((#:G1147 #))
;         (FUNCALL #'(SETF SB-PCL::OBJECT-PLIST) #:G1147 #:G1148)
;         #:G1149)))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (G1151))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN LOAD-DEFMETHOD ...)
; compiling (DEFUN LOAD-DEFMETHOD-INTERNAL ...)
; compiling (DEFUN MAKE-METHOD-SPEC ...)
; compiling (DEFUN INITIALIZE-METHOD-FUNCTION ...)
; compiling (DEFUN ANALYZE-LAMBDA-LIST ...)
; compiling (DEFUN KEYWORD-SPEC-NAME ...)
; compiling (DEFUN FTYPE-DECLARATION-FROM-LAMBDA-LIST ...)
; compiling (DEFUN DEFGENERIC-DECLARATION ...)
; compiling (DEFVAR *!EARLY-GENERIC-FUNCTIONS* ...)
; compiling (DEFUN ENSURE-GENERIC-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN ENSURE-GENERIC-FUNCTION
;     (DEFUN ENSURE-GENERIC-FUNCTION
;            (SB-PCL::FUN-NAME
;             &REST SB-PCL::ALL-KEYS
;             &KEY SB-PCL::ENVIRONMENT SB-PCL::SOURCE-LOCATION &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORE SB-PCL::ENVIRONMENT))
;       (LET ((SB-PCL::EXISTING (AND # #)))
;         (COND
;          ((AND SB-PCL::EXISTING # #)
;           (SB-PCL::GENERIC-CLOBBERS-FUNCTION SB-PCL::FUN-NAME)
;           (FMAKUNBOUND SB-PCL::FUN-NAME)
;           (APPLY #'ENSURE-GENERIC-FUNCTION SB-PCL::FUN-NAME SB-PCL::ALL-KEYS))
;          (T
;           (APPLY #'SB-MOP:ENSURE-GENERIC-FUNCTION-USING-CLASS SB-PCL::EXISTING
;                  SB-PCL::FUN-NAME SB-PCL::ALL-KEYS)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'ENSURE-GENERIC-FUNCTION
;                    (SB-INT:NAMED-LAMBDA ENSURE-GENERIC-FUNCTION
;                                         (SB-PCL::FUN-NAME &REST
;                                          SB-PCL::ALL-KEYS &KEY
;                                          SB-PCL::ENVIRONMENT
;                                          SB-PCL::SOURCE-LOCATION
;                                          &ALLOW-OTHER-KEYS)
;                                         (DECLARE (IGNORE SB-PCL::ENVIRONMENT))
;                                         (BLOCK ENSURE-GENERIC-FUNCTION
;                                           (LET (#)
;                                             (COND # #))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (SOURCE-LOCATION))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN GENERIC-CLOBBERS-FUNCTION ...)
; compiling (DEFVAR *SGF-WRAPPER* ...)
; compiling (DEFVAR *SGF-SLOTS-INIT* ...)
; compiling (DEFVAR *SGF-METHOD-CLASS-INDEX* ...)
; compiling (DEFUN EARLY-GF-P ...)
; compiling (DEFVAR *SGF-METHODS-INDEX* ...)
; compiling (DEFMACRO EARLY-GF-METHODS ...)
; compiling (DEFUN SAFE-GENERIC-FUNCTION-METHODS ...)
; compiling (DEFVAR *SGF-ARG-INFO-INDEX* ...)
; compiling (DEFMACRO EARLY-GF-ARG-INFO ...)
; compiling (DEFVAR *SGF-DFUN-STATE-INDEX* ...)
; compiling (DEFSTRUCT (ARG-INFO # ...) ...)
; compiling (DECLAIM (FREEZE-TYPE ARG-INFO))
; compiling (DEFUN ARG-INFO-VALID-P ...)
; compiling (DEFUN ARG-INFO-APPLYP ...)
; compiling (DEFUN ARG-INFO-NUMBER-REQUIRED ...)
; compiling (DEFUN ARG-INFO-NKEYS ...)
; compiling (DEFUN CREATE-GF-LAMBDA-LIST ...)
; compiling (DEFUN SET-ARG-INFO ...)
; compiling (DEFUN CHECK-METHOD-ARG-INFO ...)
; compiling (DEFVAR *SM-SPECIALIZERS-INDEX* ...)
; compiling (DEFVAR *SM-%FUNCTION-INDEX* ...)
; compiling (DEFVAR *SM-QUALIFIERS-INDEX* ...)
; compiling (DEFVAR *SM-PLIST-INDEX* ...)
; compiling (DOLIST (S #) ...)
; compiling (DEFINE-SYMBOL-MACRO *STANDARD-METHOD-CLASSES* ...)
; compiling (DEFUN SAFE-METHOD-SPECIALIZERS ...)
; compiling (DEFUN SAFE-METHOD-FAST-FUNCTION ...)
; compiling (DEFUN SAFE-METHOD-FUNCTION ...)
; compiling (DEFUN SAFE-METHOD-QUALIFIERS ...)
; compiling (DEFUN SET-ARG-INFO1 ...)
; compiling (DEFUN ENSURE-GENERIC-FUNCTION-USING-CLASS ...)
; compiling (DEFUN MAKE-EARLY-GF ...)
; compiling (DEFUN SAFE-GF-DFUN-STATE ...)
; compiling (DEFUN (SETF SAFE-GF-DFUN-STATE) ...)
; compiling (DEFUN SET-DFUN ...)
; compiling (DEFUN GF-DFUN-CACHE ...)
; compiling (DEFUN GF-DFUN-INFO ...)
; compiling (DEFVAR *SGF-NAME-INDEX* ...)
; compiling (DEFUN !EARLY-GF-NAME ...)
; compiling (DEFUN GF-LAMBDA-LIST ...)
; compiling (DEFMACRO REAL-ENSURE-GF-INTERNAL ...)
; compiling (DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION ...)
; compiling (DEFUN REAL-ENSURE-GF-USING-CLASS--NULL ...)
; compiling (DEFUN SAFE-GF-ARG-INFO ...)
; compiling (DEFUN GET-GENERIC-FUN-INFO ...)
; compiling (DEFUN EARLY-MAKE-A-METHOD ...)
; compiling (DEFUN REAL-MAKE-A-METHOD ...)
; compiling (DEFUN EARLY-METHOD-FUNCTION ...)
; compiling (DEFUN EARLY-METHOD-CLASS ...)
; compiling (DEFUN EARLY-METHOD-STANDARD-ACCESSOR-P ...)
; compiling (DEFUN EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME ...)
; compiling (DEFUN EARLY-METHOD-SPECIALIZERS ...)
; compiling (DEFUN EARLY-METHOD-QUALIFIERS ...)
; compiling (DEFUN EARLY-METHOD-LAMBDA-LIST ...)
; compiling (DEFUN EARLY-METHOD-INITARGS ...)
; compiling (DEFUN (SETF EARLY-METHOD-INITARGS) ...)
; compiling (DEFUN EARLY-ADD-NAMED-METHOD ...)
; compiling (DEFUN ADD-METHOD ...)
; compiling (DEFUN REMOVE-METHOD ...)
; compiling (DEFUN GET-METHOD ...)
; compiling (DEFUN !FIX-EARLY-GENERIC-FUNCTIONS ...)
; compiling (DEFUN PARSE-DEFMETHOD ...)
; compiling (DEFUN PARSE-SPECIALIZERS ...)
; compiling (DEFUN UNPARSE-SPECIALIZERS ...)
; compiling (DEFUN EXTRACT-PARAMETERS ...)
; compiling (DEFUN EXTRACT-LAMBDA-LIST ...)
; compiling (DEFUN EXTRACT-SPECIALIZER-NAMES ...)
; compiling (DEFUN EXTRACT-REQUIRED-PARAMETERS ...)
; compiling (DEFINE-CONDITION SPECIALIZED-LAMBDA-LIST-ERROR ...)
; compiling (DEFUN PARSE-SPECIALIZED-LAMBDA-LIST ...)
; compiling (SETQ *BOOT-STATE* ...)
; compiling (DEFUN EXTRACT-THE ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN EXTRACT-THE
;     (SB-INT:PROPER-LIST-OF-LENGTH-P 3)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        The function was called with ~R argument~:P, but wants at least ~R.
;                        FORMAT-ARGUMENTS (1 2))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFMACRO WITH-SLOTS ...)
; compiling (DEFMACRO WITH-ACCESSORS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN MAKE-EARLY-GF
;     (SB-PCL::ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE SB-PCL::*SGF-WRAPPER*
;      SB-PCL::*SGF-SLOTS-INIT*)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
;     (CHANGE-CLASS SB-PCL::EXISTING SB-PCL::GENERIC-FUNCTION-CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CHANGE-CLASS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-ENSURE-GF-USING-CLASS--NULL
;     (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS
;                                      SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT)
; --> PROGN UNLESS IF PROGN IF 
; ==>
;   (SB-PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P
;    SB-PCL::GENERIC-FUNCTION-CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
;     (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS
;                                      SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT)
; --> PROGN UNLESS IF PROGN IF 
; ==>
;   (SB-PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P
;    SB-PCL::GENERIC-FUNCTION-CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN SAFE-GENERIC-FUNCTION-METHODS
;     (CLASS-OF GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN LOAD-DEFMETHOD-INTERNAL
;     (CLASS-OF METHOD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN EXPAND-DEFMETHOD
;     (CLASS-OF SB-PCL::PROTO-METHOD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S
;                        FORMAT-ARGUMENTS (8 FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN REAL-ENSURE-GF-USING-CLASS--NULL
;     (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS
;                                      SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT)
; --> PROGN COND IF COND LET 
; ==>
;   (SB-PCL::CLASSP SB-PCL::GENERIC-FUNCTION-CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASSP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
;     (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS
;                                      SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT)
; --> PROGN COND IF COND LET 
; ==>
;   (SB-PCL::CLASSP SB-PCL::GENERIC-FUNCTION-CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASSP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN SET-ARG-INFO1
;     (SB-PCL::CLASSP (CAR SB-PCL::SPECLS))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASSP))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S
;                        FORMAT-ARGUMENTS (1 FUNCTION CLASSP))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN SET-ARG-INFO1
;     (COMPUTE-APPLICABLE-METHODS #'SB-MOP:MAKE-METHOD-LAMBDA
;      (LIST SB-PCL::GF (SB-MOP:CLASS-PROTOTYPE SB-PCL::METHOD-CLASS) '(LAMBDA)
;            NIL))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION COMPUTE-APPLICABLE-METHODS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN %CHECK-CNM-ARGS
;     (COMPUTE-APPLICABLE-METHODS SB-PCL::GF SB-PCL::CNM-ARGS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION COMPUTE-APPLICABLE-METHODS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN SET-ARG-INFO1
;     (SB-PCL::COMPUTE-APPLICABLE-METHODS-EMF SB-PCL::GF)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION COMPUTE-APPLICABLE-METHODS-EMF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN SET-ARG-INFO
;     (SB-PCL::COMPUTE-PRECEDENCE SB-PCL::LAMBDA-LIST SB-PCL::NREQ
;      SB-PCL::ARGUMENT-PRECEDENCE-ORDER)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION COMPUTE-PRECEDENCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-ENSURE-GF-USING-CLASS--NULL
;     (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS
;                                      SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT)
; --> PROGN UNLESS IF PROGN IF 
; ==>
;   (SB-MOP:FINALIZE-INHERITANCE SB-PCL::GENERIC-FUNCTION-CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FINALIZE-INHERITANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
;     (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS
;                                      SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT)
; --> PROGN UNLESS IF PROGN IF 
; ==>
;   (SB-MOP:FINALIZE-INHERITANCE SB-PCL::GENERIC-FUNCTION-CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FINALIZE-INHERITANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN LOAD-DEFMETHOD-INTERNAL
;     (FIND-METHOD SB-PCL::GF SB-PCL::QUALIFIERS SB-PCL::SPECIALIZERS NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FIND-METHOD))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-ENSURE-GF-USING-CLASS--NULL
;     (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS
;                                      SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT)
; --> PROGN LET UNLESS IF PROGN SETF LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   (SB-MOP:FIND-METHOD-COMBINATION
;    (SB-MOP:CLASS-PROTOTYPE SB-PCL::GENERIC-FUNCTION-CLASS) (CAR SB-PCL::COMBIN)
;    (CDR SB-PCL::COMBIN))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FIND-METHOD-COMBINATION))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
;     (SB-PCL::REAL-ENSURE-GF-INTERNAL SB-PCL::GENERIC-FUNCTION-CLASS
;                                      SB-PCL::ALL-KEYS SB-PCL::ENVIRONMENT)
; --> PROGN LET UNLESS IF PROGN SETF LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   (SB-MOP:FIND-METHOD-COMBINATION
;    (SB-MOP:CLASS-PROTOTYPE SB-PCL::GENERIC-FUNCTION-CLASS) (CAR SB-PCL::COMBIN)
;    (CDR SB-PCL::COMBIN))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FIND-METHOD-COMBINATION))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN METHOD-PROTOTYPE-FOR-GF
;     (SB-PCL::GENERIC-FUNCTION-P SB-PCL::GF?)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GENERIC-FUNCTION-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN PROTOTYPES-FOR-MAKE-METHOD-LAMBDA
;     (SB-PCL::GENERIC-FUNCTION-P SB-PCL::GF?)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GENERIC-FUNCTION-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN LOAD-DEFGENERIC
;     (SB-PCL::GENERIC-FUNCTION-P SB-PCL::FUN)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GENERIC-FUNCTION-P))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S
;                        FORMAT-ARGUMENTS (2 FUNCTION GENERIC-FUNCTION-P))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN INITIALIZE-METHOD-FUNCTION
;     (SB-PCL::INTERN-PV-TABLE :SLOT-NAME-LISTS SB-PCL::SNL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION INTERN-PV-TABLE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-MAKE-A-METHOD
;     #'MAKE-INSTANCE
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-ENSURE-GF-USING-CLASS--NULL
;     #'MAKE-INSTANCE
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFMACRO MAKE-METHOD-FUNCTION
;     (SB-PCL::MAKE-METHOD-INITARGS-FORM SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD
;      SB-PCL::METHOD-FUNCTION-LAMBDA SB-PCL::INITARGS SB-PCL::ENV)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-METHOD-INITARGS-FORM))
;      :ASSIGNED-SLOTS NIL)

; in: LAMBDA NIL
;     (SB-PCL::MAKE-METHOD-INITARGS-FORM SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD
;      SB-PCL::METHOD-FUNCTION-LAMBDA SB-PCL::INITARGS SB-PCL::ENV)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-METHOD-INITARGS-FORM))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN EXPAND-DEFMETHOD
;     (SB-PCL::MAKE-METHOD-INITARGS-FORM SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD
;      SB-PCL::METHOD-FUNCTION-LAMBDA SB-PCL::INITARGS SB-PCL::ENV)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-METHOD-INITARGS-FORM))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-MAKE-METHOD-INITARGS-FORM
;     (SB-PCL::MAKE-METHOD-INITARGS-FORM-INTERNAL SB-PCL::METHOD-LAMBDA
;      SB-PCL::INITARGS SB-PCL::ENV)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-METHOD-INITARGS-FORM-INTERNAL))
;      :ASSIGNED-SLOTS NIL)

; in: DEFMACRO MAKE-METHOD-FUNCTION
;     (SB-MOP:MAKE-METHOD-LAMBDA SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD
;      SB-PCL::METHOD-LAMBDA SB-PCL::ENV)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-METHOD-LAMBDA))
;      :ASSIGNED-SLOTS NIL)

; in: LAMBDA NIL
;     (SB-MOP:MAKE-METHOD-LAMBDA SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD
;      SB-PCL::METHOD-LAMBDA SB-PCL::ENV)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-METHOD-LAMBDA))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN EXPAND-DEFMETHOD
;     (SB-MOP:MAKE-METHOD-LAMBDA SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD
;      SB-PCL::METHOD-LAMBDA SB-PCL::ENV)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-METHOD-LAMBDA))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S
;                        FORMAT-ARGUMENTS (1 FUNCTION MAKE-METHOD-LAMBDA))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/boot.lisp
; in: DEFUN EXPAND-DEFMETHOD
;     (SB-PCL:MAKE-METHOD-SPECIALIZERS-FORM SB-PCL::PROTO-GF SB-PCL::PROTO-METHOD
;      SB-PCL::SPECIALIZERS SB-PCL::ENV)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-METHOD-SPECIALIZERS-FORM))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CALL-NO-NEXT-METHOD
;     #'NO-NEXT-METHOD
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION NO-NEXT-METHOD))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN WALK-METHOD-LAMBDA
;     #'SB-PCL::OPTIMIZE-SET-SLOT-VALUE
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION OPTIMIZE-SET-SLOT-VALUE))
;      :ASSIGNED-SLOTS NIL)

;     #'SB-PCL::OPTIMIZE-SLOT-BOUNDP
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION OPTIMIZE-SLOT-BOUNDP))
;      :ASSIGNED-SLOTS NIL)

;     #'SB-PCL::OPTIMIZE-SLOT-VALUE
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION OPTIMIZE-SLOT-VALUE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN PARSE-SPECIALIZERS
;     (SB-PCL:PARSE-SPECIALIZER-USING-CLASS GENERIC-FUNCTION SB-PCL::SPEC)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION PARSE-SPECIALIZER-USING-CLASS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-METHOD
;     (SB-PCL::REAL-GET-METHOD GENERIC-FUNCTION SB-PCL::QUALIFIERS
;      SB-PCL::SPECIALIZERS SB-PCL::ERRORP)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION REAL-GET-METHOD))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
;     #'REINITIALIZE-INSTANCE
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION REINITIALIZE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN !FIX-EARLY-GENERIC-FUNCTIONS
;     (SB-PCL::SET-METHODS SB-PCL::GF SB-PCL::METHODS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SET-METHODS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-METHOD-LAMBDA-INTERNAL
;     (SB-PCL::SLOT-NAME-LISTS-FROM-SLOTS SB-PCL::SLOTS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-NAME-LISTS-FROM-SLOTS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN INVOKE-EMF
;     (SB-PCL::SLOT-UNBOUND-INTERNAL (CAR SB-PCL::ARGS) SB-PCL::EMF)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-UNBOUND-INTERNAL))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-UNPARSE-SPECIALIZER-USING-CLASS
;     (SB-PCL::SPECIALIZERP SB-MOP:SPECIALIZER)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SPECIALIZERP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-PARSE-SPECIALIZER-USING-CLASS
;     (SB-PCL::SPECIALIZERP SB-PCL::RESULT)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SPECIALIZERP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REAL-MAKE-METHOD-SPECIALIZERS-FORM
;     (SB-PCL::SPECIALIZERP SB-PCL::NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SPECIALIZERP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GENERIC-FUNCTION-NAME-P
;     (SB-PCL::STANDARD-GENERIC-FUNCTION-P (SB-PCL::GDEFINITION SB-PCL::NAME))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STANDARD-GENERIC-FUNCTION-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN UNPARSE-SPECIALIZERS
;     (SB-PCL:UNPARSE-SPECIALIZER-USING-CLASS GENERIC-FUNCTION SB-PCL::SPEC)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION UNPARSE-SPECIALIZER-USING-CLASS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN REMOVE-METHOD
;     (SB-PCL::UPDATE-DFUN GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION UPDATE-DFUN))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN ADD-METHOD
;     (SB-PCL::UPDATE-DFUN GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION UPDATE-DFUN))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(CHANGE-CLASS
;                             CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS-OF
;                             CLASSP COMPUTE-APPLICABLE-METHODS
;                             COMPUTE-APPLICABLE-METHODS-EMF COMPUTE-PRECEDENCE
;                             FINALIZE-INHERITANCE FIND-METHOD
;                             FIND-METHOD-COMBINATION ...)
;                         FUNCTION (ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 60 STYLE-WARNING conditions
;   printed 8 notes


; SYS:SRC;PCL;BOOT.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/vector.lisp" (written 30 MAY 2008 04:16:27 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DECLAIM (INLINE MAKE-PV-TABLE))
; compiling (DEFSTRUCT (PV-TABLE # ...) ...)
; compiling (DEFUN MAKE-PV-TABLE-TYPE-DECLARATION ...)
; compiling (DEFVAR *SLOT-NAME-LISTS* ...)
; compiling (DEFVAR *PV-TABLES* ...)
; compiling (DEFVAR *PV-LOCK* ...)
; compiling (DEFUN INTERN-PV-TABLE ...)
; compiling (DEFUN OPTIMIZE-SLOT-VALUE-BY-CLASS-P ...)
; compiling (DEFUN COMPUTE-SLOT-LOCATION-FOR-PV ...)
; compiling (DEFUN COMPUTE-SLOT-TYPECHECKFUN-FOR-PV ...)
; compiling (DEFUN COMPUTE-PV ...)
; compiling (DEFUN PV-TABLE-LOOKUP ...)
; compiling (DEFUN MAKE-PV-TYPE-DECLARATION ...)
; compiling (DEFUN CAN-OPTIMIZE-ACCESS ...)
; compiling (DEFUN PARAMETER-MODIFIED-P ...)
; compiling (DEFUN OPTIMIZE-SLOT-VALUE ...)
; compiling (DEFMACRO OPTIMIZED-SLOT-VALUE ...)
; compiling (DEFUN OPTIMIZE-SET-SLOT-VALUE ...)
; compiling (DEFMACRO OPTIMIZED-SET-SLOT-VALUE ...)
; compiling (DEFUN OPTIMIZE-SLOT-BOUNDP ...)
; compiling (DEFMACRO OPTIMIZED-SLOT-BOUNDP ...)
; compiling (DEFUN OPTIMIZE-INSTANCE-ACCESS ...)
; compiling (DEFINE-WALKER-TEMPLATE PV-OFFSET)
; compiling (DEFMACRO PV-OFFSET ...)
; compiling (DEFINE-WALKER-TEMPLATE INSTANCE-ACCESSOR-PARAMETER)
; compiling (DEFMACRO INSTANCE-ACCESSOR-PARAMETER ...)
; compiling (DEFUN GENERATE-FAST-CLASS-SLOT-ACCESS-P ...)
; compiling (DEFUN SKIP-FAST-SLOT-ACCESS-P ...)
; compiling (DEFMACRO INSTANCE-READ-INTERNAL ...)
; compiling (DEFMACRO INSTANCE-READ ...)
; compiling (DEFMACRO INSTANCE-WRITE-INTERNAL ...)
; compiling (DEFMACRO INSTANCE-WRITE ...)
; compiling (DEFMACRO INSTANCE-BOUNDP-INTERNAL ...)
; compiling (DEFMACRO INSTANCE-BOUNDP ...)
; compiling (DEFUN SLOT-NAME-LISTS-FROM-SLOTS ...)
; compiling (DEFUN MUTATE-SLOTS ...)
; compiling (DEFUN SYMBOL-PKG-NAME ...)
; compiling (DEFUN SYMBOL-LESSP ...)
; compiling (DEFUN SYMBOL-OR-CONS-LESSP ...)
; compiling (DEFUN SORT-SLOTS ...)
; compiling (DEFMACRO PV-BINDING ...)
; compiling (DEFMACRO PV-BINDING1 ...)
; compiling (DEFINE-SYMBOL-MACRO PV-ENV-ENVIRONMENT ...)
; compiling (DEFMACRO PV-ENV ...)
; compiling (DEFUN SPLIT-DECLARATIONS ...)
; compiling (DEFUN BODY-METHOD-NAME ...)
; compiling (DEFUN NAME-METHOD-LAMBDA ...)
; compiling (DEFUN MAKE-METHOD-INITARGS-FORM-INTERNAL ...)
; compiling (DEFUN LAMBDA-LIST-PARAMETER-NAMES ...)
; compiling (DEFUN MAKE-METHOD-INITARGS-FORM-INTERNAL1 ...)
; compiling (DEFUN METHOD-FUNCTION-FROM-FAST-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/vector.lisp
; in: DEFUN METHOD-FUNCTION-FROM-FAST-FUNCTION
;     (LET* ((SB-MOP:METHOD-FUNCTION NIL)
;            (SB-PCL::SNL (GETF SB-PCL::PLIST :SLOT-NAME-LISTS))
;            (SB-PCL::PV-TABLE
;             (WHEN SB-PCL::SNL
;               (SB-PCL::INTERN-PV-TABLE :SLOT-NAME-LISTS SB-PCL::SNL)))
;            (SB-PCL::ARG-INFO (GETF SB-PCL::PLIST :ARG-INFO))
;            (SB-PCL::NREQ (CAR SB-PCL::ARG-INFO))
;            (SB-PCL::RESTP (CDR SB-PCL::ARG-INFO)))
;       (SETQ SB-MOP:METHOD-FUNCTION
;               (LAMBDA (SB-PCL::METHOD-ARGS SB-PCL::NEXT-METHODS)
;                 (LET* (# # # #)
;                   (APPLY SB-PCL::FMF SB-PCL::PV SB-PCL::NMC
;                          SB-PCL::METHOD-ARGS))))
;       (LET* ((SB-PCL::FNAME (SB-KERNEL:%FUN-NAME SB-PCL::FMF)))
;         (WHEN (AND SB-PCL::FNAME (EQ # 'SB-PCL::FAST-METHOD))
;           (SB-PCL::SET-FUN-NAME SB-MOP:METHOD-FUNCTION
;                                 (CONS 'SB-PCL::SLOW-METHOD #))))
;       SB-MOP:METHOD-FUNCTION)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (NREQ))
;      :ASSIGNED-SLOTS NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (RESTP))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN METHOD-FUNCTION-FROM-FAST-METHOD-CALL ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/vector.lisp
; in: DEFUN METHOD-FUNCTION-FROM-FAST-METHOD-CALL
;     (LET* ((SB-PCL::FMF (SB-PCL::FAST-METHOD-CALL-FUNCTION SB-PCL::FMC))
;            (SB-PCL::PV (SB-PCL::FAST-METHOD-CALL-PV SB-PCL::FMC))
;            (SB-PCL::ARG-INFO (SB-PCL::FAST-METHOD-CALL-ARG-INFO SB-PCL::FMC))
;            (SB-PCL::NREQ (CAR SB-PCL::ARG-INFO))
;            (SB-PCL::RESTP (CDR SB-PCL::ARG-INFO)))
;       (LAMBDA (SB-PCL::METHOD-ARGS SB-PCL::NEXT-METHODS)
;         (LET* ((SB-PCL::NM #) (SB-PCL::NMS #) (SB-PCL::NMC #))
;           (APPLY SB-PCL::FMF SB-PCL::PV SB-PCL::NMC SB-PCL::METHOD-ARGS))))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (NREQ))
;      :ASSIGNED-SLOTS NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (RESTP))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN GET-PV ...)
; compiling (DEFUN PV-TABLE-LOOKUP-PV-ARGS ...)
; compiling (DEFUN PV-WRAPPERS-FROM-PV-ARGS ...)
; compiling (DEFUN PV-WRAPPERS-FROM-ALL-ARGS ...)
; compiling (DEFUN PV-WRAPPERS-FROM-ALL-WRAPPERS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/vector.lisp
; in: DEFUN OPTIMIZE-INSTANCE-ACCESS
;     (SB-PCL::CLASSP CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASSP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN COMPUTE-PV
;     (SB-PCL::WRAPPER-CLASS* SB-PCL::WRAPPER)
; --> BLOCK OR LET IF OR LET 
; ==>
;   (SB-PCL::ENSURE-NON-STANDARD-CLASS
;    (SB-KERNEL:CLASSOID-NAME SB-KERNEL:CLASSOID) SB-KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ENSURE-NON-STANDARD-CLASS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN COMPUTE-SLOT-TYPECHECKFUN-FOR-PV
;     (SB-PCL::FIND-SLOT-CELL SB-PCL::WRAPPER SB-PCL::SLOT-NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FIND-SLOT-CELL))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN COMPUTE-SLOT-LOCATION-FOR-PV
;     (SB-PCL::FIND-SLOT-CELL SB-PCL::WRAPPER SB-PCL::SLOT-NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FIND-SLOT-CELL))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GENERATE-FAST-CLASS-SLOT-ACCESS-P
;     (SB-PCL::FIND-SLOT-DEFINITION CLASS SB-PCL::SLOT-NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FIND-SLOT-DEFINITION))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN OPTIMIZE-INSTANCE-ACCESS
;     (SB-PCL::FIND-SLOT-DEFINITION CLASS SB-PCL::SLOT-NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FIND-SLOT-DEFINITION))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN OPTIMIZE-SLOT-VALUE-BY-CLASS-P
;     (SB-PCL::FIND-SLOT-DEFINITION CLASS SB-PCL::SLOT-NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FIND-SLOT-DEFINITION))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S
;                        FORMAT-ARGUMENTS (1 FUNCTION FIND-SLOT-DEFINITION))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/vector.lisp
; in: DEFUN SKIP-FAST-SLOT-ACCESS-P
;     (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::SLOTD TYPE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-ACCESSOR-STD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN OPTIMIZE-SLOT-VALUE-BY-CLASS-P
;     (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::SLOTD TYPE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-ACCESSOR-STD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN SKIP-FAST-SLOT-ACCESS-P
;     (SB-PCL::STANDARD-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STANDARD-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GENERATE-FAST-CLASS-SLOT-ACCESS-P
;     (SB-PCL::STANDARD-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STANDARD-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(ENSURE-NON-STANDARD-CLASS FIND-SLOT-CELL
;                             FIND-SLOT-DEFINITION SLOT-ACCESSOR-STD-P
;                             STANDARD-CLASS-P)
;                         FUNCTION (CLASSP . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 17 STYLE-WARNING conditions


; SYS:SRC;PCL;VECTOR.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/slots-boot.lisp" (written 11 OCT 2007 06:33:55 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (LET (# #) ...)
; compiling (DEFMACRO ACCESSOR-SLOT-VALUE ...)
; compiling (DEFMACRO ACCESSOR-SET-SLOT-VALUE ...)
; compiling (DEFMACRO ACCESSOR-SLOT-BOUNDP ...)
; compiling (DEFUN MAKE-STRUCTURE-SLOT-BOUNDP-FUNCTION ...)
; compiling (DEFINE-CONDITION INSTANCE-STRUCTURE-PROTOCOL-ERROR ...)
; compiling (DEFUN INSTANCE-STRUCTURE-PROTOCOL-ERROR ...)
; compiling (DEFUN GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION ...)
; compiling (DEFUN MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/slots-boot.lisp
; in: DEFUN MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION
;     (LAMBDA (SB-KERNEL:INSTANCE)
;       (SB-PCL::INSTANCE-STRUCTURE-PROTOCOL-ERROR SB-PCL::SLOTD
;        'SB-MOP:SLOT-VALUE-USING-CLASS))
; ==>
;   #'(LAMBDA (SB-KERNEL:INSTANCE)
;       (SB-PCL::INSTANCE-STRUCTURE-PROTOCOL-ERROR SB-PCL::SLOTD
;        'SB-MOP:SLOT-VALUE-USING-CLASS))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION ...)
; compiling (DEFUN MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/slots-boot.lisp
; in: DEFUN MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION
;     (LAMBDA (SB-KERNEL:INSTANCE)
;       (SB-PCL::INSTANCE-STRUCTURE-PROTOCOL-ERROR SB-PCL::SLOTD
;        'SB-MOP:SLOT-BOUNDP-USING-CLASS))
; ==>
;   #'(LAMBDA (SB-KERNEL:INSTANCE)
;       (SB-PCL::INSTANCE-STRUCTURE-PROTOCOL-ERROR SB-PCL::SLOTD
;        'SB-MOP:SLOT-BOUNDP-USING-CLASS))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN MAKE-OPTIMIZED-STRUCTURE-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ...)
; compiling (DEFUN MAKE-OPTIMIZED-STRUCTURE-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ...)
; compiling (DEFUN MAKE-OPTIMIZED-STRUCTURE-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION ...)
; compiling (DEFUN GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ...)
; compiling (DEFUN MAKE-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ...)
; compiling (DEFUN MAKE-OPTIMIZED-STD-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION ...)
; compiling (DEFUN MAKE-OPTIMIZED-STD-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION ...)
; compiling (DEFUN GET-ACCESSOR-FROM-SVUC-METHOD-FUNCTION ...)
; compiling (DEFUN MAKE-STD-READER-METHOD-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/slots-boot.lisp
; in: DEFUN MAKE-STD-READER-METHOD-FUNCTION
;     (SLOT-VALUE SB-KERNEL:INSTANCE SB-PCL::SLOT-NAME)
; 
; note: #S(SIMPLE-COMPILER-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL
;                      ~@<unable to ~2I~_~A ~I~_because: ~2I~_~?~:>
;                      FORMAT-ARGUMENTS
;                      (optimize Slot name is not constant. NIL))
;    :ASSIGNED-SLOTS NIL)

; compiling (DEFUN MAKE-STD-WRITER-METHOD-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/slots-boot.lisp
; in: DEFUN MAKE-STD-WRITER-METHOD-FUNCTION
;     (SETF (SLOT-VALUE SB-KERNEL:INSTANCE SB-PCL::SLOT-NAME) SB-PCL::NV)
; ==>
;   (SB-PCL::SET-SLOT-VALUE SB-KERNEL:INSTANCE SB-PCL::SLOT-NAME SB-PCL::NV)
; 
; note: #S(SIMPLE-COMPILER-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL
;                      ~@<unable to ~2I~_~A ~I~_because: ~2I~_~?~:>
;                      FORMAT-ARGUMENTS
;                      (optimize Slot name is not constant. NIL))
;    :ASSIGNED-SLOTS NIL)
; 
; note: #S(SIMPLE-COMPILER-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL
;                      ~@<unable to ~2I~_~A ~I~_because: ~2I~_~?~:>
;                      FORMAT-ARGUMENTS
;                      (optimize Slot name is not constant. NIL))
;    :ASSIGNED-SLOTS NIL)

; compiling (DEFUN MAKE-STD-BOUNDP-METHOD-FUNCTION ...)
; compiling (DEFUN FIND-SLOT-DEFINITION ...)
; compiling (DEFUN FIND-SLOT-CELL ...)
; compiling (DEFUN MAKE-SLOT-TABLE ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/slots-boot.lisp
; in: DEFUN MAKE-SLOT-TABLE
;     (CLASS-OF CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-STD-WRITER-METHOD-FUNCTION
;     (CLASS-OF SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION
;     (CLASS-OF SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
;     (SB-PCL::CONDITION-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CONDITION-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION
;     (SB-PCL::CONDITION-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CONDITION-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
;     (SB-PCL::FUNCALLABLE-STANDARD-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FUNCALLABLE-STANDARD-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION
;     (SB-PCL::FUNCALLABLE-STANDARD-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FUNCALLABLE-STANDARD-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-STD-BOUNDP-METHOD-FUNCTION
;     (SLOT-BOUNDP SB-KERNEL:INSTANCE SB-PCL::SLOT-NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-BOUNDP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
;     (SLOT-UNBOUND CLASS SB-KERNEL:INSTANCE SB-PCL::SLOT-NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-UNBOUND))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION
;     (SLOT-UNBOUND (CLASS-OF SB-KERNEL:INSTANCE) SB-KERNEL:INSTANCE
;      SB-PCL::SLOT-NAME)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-UNBOUND))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
;     (SB-PCL::STANDARD-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STANDARD-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION
;     (SB-PCL::STANDARD-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STANDARD-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

;     (SB-PCL::STD-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STD-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
;     (SB-PCL::STRUCTURE-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STRUCTURE-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION
;     (SB-PCL::STRUCTURE-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STRUCTURE-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(CONDITION-CLASS-P FUNCALLABLE-STANDARD-CLASS-P
;                             SLOT-BOUNDP SLOT-UNBOUND STANDARD-CLASS-P STD-CLASS-P
;                             STRUCTURE-CLASS-P)
;                         FUNCTION (CLASS-OF . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 18 STYLE-WARNING conditions
;   printed 3 notes


; SYS:SRC;PCL;SLOTS-BOOT.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/combin.lisp" (written 10 JUN 2008 12:49:15 AM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFUN GET-METHOD-FUNCTION ...)
; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION ...)
; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION1 ...)
; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUN-TYPE ...)
; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE ...)
; compiling (DEFUN MAKE-EMF-FROM-METHOD ...)
; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1 ...)
; compiling (DEFVAR *GLOBAL-EFFECTIVE-METHOD-GENSYMS* ...)
; compiling (DEFVAR *REBOUND-EFFECTIVE-METHOD-GENSYMS*)
; compiling (DEFUN GET-EFFECTIVE-METHOD-GENSYM ...)
; compiling (LET (#) ...)
; compiling (DEFUN EXPAND-EFFECTIVE-METHOD-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/combin.lisp
; in: DEFUN EXPAND-EFFECTIVE-METHOD-FUNCTION
;     (IF SB-PCL::ERROR-P SB-PCL::LL '(SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.))
; ==>
;   SB-PCL::LL
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

; compiling (DEFUN EXPAND-EMF-CALL-METHOD ...)
; compiling (DEFMACRO CALL-METHOD ...)
; compiling (DEFUN MAKE-EFFECTIVE-METHOD-LIST-FUN-TYPE ...)
; compiling (DEFUN MEMF-TEST-CONVERTER ...)
; compiling (DEFUN MEMF-CODE-CONVERTER ...)
; compiling (DEFUN MEMF-CONSTANT-CONVERTER ...)
; compiling (DEFVAR *APPLICABLE-METHODS*)
; compiling (DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL ...)
; compiling (DEFMACRO CALL-METHOD-LIST ...)
; compiling (DEFUN MAKE-CALL-METHODS ...)
; compiling (DEFUN GF-REQUIRES-EMF-KEYWORD-CHECKS ...)
; compiling (DEFVAR *IN-PRECOMPUTE-EFFECTIVE-METHODS-P* ...)
; compiling (DEFUN STANDARD-COMPUTE-EFFECTIVE-METHOD ...)
; compiling (DEFUN COMPUTE-APPLICABLE-KEYWORDS ...)
; compiling (DEFUN CHECK-APPLICABLE-KEYWORDS ...)
; compiling (DEFUN COMPUTE-EFFECTIVE-METHOD ...)
; compiling (DEFUN INVALID-METHOD-ERROR ...)
; compiling (DEFUN METHOD-COMBINATION-ERROR ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/combin.lisp
; in: DEFUN COMPUTE-APPLICABLE-KEYWORDS
;     (SB-MOP:GENERIC-FUNCTION-LAMBDA-LIST SB-PCL::GF)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GENERIC-FUNCTION-LAMBDA-LIST))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE
;     (SB-PCL::GF-FAST-METHOD-FUNCTION-P GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GF-FAST-METHOD-FUNCTION-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN STANDARD-COMPUTE-EFFECTIVE-METHOD
;     (SB-PCL::INVALID-QUALIFIERS SB-PCL::GF SB-PCL::COMBIN SB-PCL::M)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION INVALID-QUALIFIERS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN EXPAND-EFFECTIVE-METHOD-FUNCTION
;     (SB-PCL::LONG-METHOD-COMBINATION-P SB-PCL::COMBIN)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION LONG-METHOD-COMBINATION-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-EMF-FROM-METHOD
;     (MAKE-INSTANCE 'STANDARD-METHOD :SPECIALIZERS NIL :QUALIFIERS NIL :FUNCTION
;      (SB-PCL::METHOD-CALL-FUNCTION SB-PCL::EMF))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1
;     (SB-PCL::METHOD-P METHOD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION METHOD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-EMF-FROM-METHOD
;     (SB-PCL::METHOD-P SB-PCL::ARG)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION METHOD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-EFFECTIVE-METHOD-FUN-TYPE
;     (SB-PCL::METHOD-P METHOD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION METHOD-P))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(GF-FAST-METHOD-FUNCTION-P INVALID-QUALIFIERS
;                             LONG-METHOD-COMBINATION-P MAKE-INSTANCE METHOD-P)
;                         FUNCTION (GENERIC-FUNCTION-LAMBDA-LIST . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 9 STYLE-WARNING conditions
;   printed 1 note


; SYS:SRC;PCL;COMBIN.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/dfun.lisp" (written 30 MAY 2008 04:16:27 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFVAR *DFUN-CONSTRUCTORS* ...)
; compiling (DEFVAR *ENABLE-DFUN-CONSTRUCTOR-CACHING* ...)
; compiling (DEFUN SHOW-DFUN-CONSTRUCTORS ...)
; compiling (DEFVAR *RAISE-METATYPES-TO-CLASS-P* ...)
; compiling (DEFUN GET-DFUN-CONSTRUCTOR ...)
; compiling (DEFUN LOAD-PRECOMPILED-DFUN-CONSTRUCTOR ...)
; compiling (DEFMACRO PRECOMPILE-DFUN-CONSTRUCTORS ...)
; compiling (DEFVAR *STANDARD-CLASSES* ...)
; compiling (DEFVAR *STANDARD-SLOT-LOCATIONS* ...)
; compiling (DEFUN COMPUTE-STANDARD-SLOT-LOCATIONS ...)
; compiling (DEFUN MAYBE-UPDATE-STANDARD-CLASS-LOCATIONS ...)
; compiling (DEFUN STANDARD-SLOT-VALUE ...)
; compiling (DEFUN STANDARD-SLOT-VALUE/GF ...)
; compiling (DEFUN STANDARD-SLOT-VALUE/METHOD ...)
; compiling (DEFUN STANDARD-SLOT-VALUE/ESLOTD ...)
; compiling (DEFUN STANDARD-SLOT-VALUE/CLASS ...)
; compiling (DEFSTRUCT (DFUN-INFO # ...) ...)
; compiling (DEFSTRUCT (NO-METHODS # ...))
; compiling (DEFSTRUCT (INITIAL # ...))
; compiling (DEFSTRUCT (INITIAL-DISPATCH # ...))
; compiling (DEFSTRUCT (DISPATCH # ...))
; compiling (DEFSTRUCT (DEFAULT-METHOD-ONLY # ...))
; compiling (DEFSTRUCT (ACCESSOR-DFUN-INFO # ...) ...)
; compiling (DEFMACRO DFUN-INFO-ACCESSOR-TYPE ...)
; compiling (DEFSTRUCT (ONE-INDEX-DFUN-INFO # ...) ...)
; compiling (DEFMACRO DFUN-INFO-INDEX ...)
; compiling (DEFSTRUCT (N-N # ...))
; compiling (DEFSTRUCT (ONE-CLASS # ...) ...)
; compiling (DEFMACRO DFUN-INFO-WRAPPER0 ...)
; compiling (DEFSTRUCT (TWO-CLASS # ...) ...)
; compiling (DEFMACRO DFUN-INFO-WRAPPER1 ...)
; compiling (DEFSTRUCT (ONE-INDEX # ...))
; compiling (DEFSTRUCT (CHECKING # ...) ...)
; compiling (DEFMACRO DFUN-INFO-FUNCTION ...)
; compiling (DEFSTRUCT (CACHING # ...))
; compiling (DEFSTRUCT (CONSTANT-VALUE # ...))
; compiling (DEFMACRO DFUN-UPDATE ...)
; compiling (DEFUN ACCESSOR-MISS-FUNCTION ...)
; compiling (DECLAIM (FREEZE-TYPE DFUN-INFO))
; compiling (DEFUN MAKE-ONE-CLASS-ACCESSOR-DFUN ...)
; compiling (DEFUN MAKE-TWO-CLASS-ACCESSOR-DFUN ...)
; compiling (DEFUN MAKE-ONE-INDEX-ACCESSOR-DFUN ...)
; compiling (DEFUN MAKE-N-N-ACCESSOR-DFUN ...)
; compiling (DEFUN MAKE-CHECKING-DFUN ...)
; compiling (DEFUN MAKE-FINAL-CHECKING-DFUN ...)
; compiling (DEFUN USE-DEFAULT-METHOD-ONLY-DFUN-P ...)
; compiling (DEFUN USE-CACHING-DFUN-P ...)
; compiling (DEFUN MAKE-CACHING-DFUN ...)
; compiling (DEFUN MAKE-FINAL-CACHING-DFUN ...)
; compiling (DEFUN INSURE-CACHING-DFUN ...)
; compiling (DEFUN USE-CONSTANT-VALUE-DFUN-P ...)
; compiling (DEFUN MAKE-CONSTANT-VALUE-DFUN ...)
; compiling (DEFUN MAKE-FINAL-CONSTANT-VALUE-DFUN ...)
; compiling (DEFUN GF-HAS-METHOD-WITH-NONSTANDARD-SPECIALIZER-P ...)
; compiling (DEFUN USE-DISPATCH-DFUN-P ...)
; compiling (DEFPARAMETER *NON-BUILT-IN-TYPEP-COST* ...)
; compiling (DEFPARAMETER *STRUCTURE-TYPEP-COST* ...)
; compiling (DEFPARAMETER *BUILT-IN-TYPEP-COST* ...)
; compiling (DEFUN DISPATCH-DFUN-COST ...)
; compiling (DEFPARAMETER *CACHE-LOOKUP-COST* ...)
; compiling (DEFPARAMETER *WRAPPER-OF-COST* ...)
; compiling (DEFPARAMETER *SECONDARY-DFUN-CALL-COST* ...)
; compiling (DEFUN CACHING-DFUN-COST ...)
; compiling (DECLAIM (INLINE MAKE-CALLABLE))
; compiling (DEFUN MAKE-CALLABLE ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/dfun.lisp
; in: DEFUN MAKE-CALLABLE
;     (DEFUN SB-PCL::MAKE-CALLABLE
;            (SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR SB-PCL::METHOD-ALIST
;             SB-PCL::WRAPPERS)
;       (LET* ((SB-PCL::*APPLICABLE-METHODS* SB-PCL::METHODS)
;              (SB-KERNEL:CALLABLE
;               (SB-PCL::FUNCTION-FUNCALL SB-PCL::GENERATOR SB-PCL::METHOD-ALIST
;                                         SB-PCL::WRAPPERS)))
;         SB-KERNEL:CALLABLE))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-PCL::MAKE-CALLABLE
;                    (SB-INT:NAMED-LAMBDA SB-PCL::MAKE-CALLABLE
;                                         (SB-PCL::GF SB-PCL::METHODS
;                                          SB-PCL::GENERATOR SB-PCL::METHOD-ALIST
;                                          SB-PCL::WRAPPERS)
;                                         (BLOCK SB-PCL::MAKE-CALLABLE
;                                           (LET* (# #)
;                                             SB-KERNEL:CALLABLE)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL
;                      (SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR
;                       SB-PCL::METHOD-ALIST SB-PCL::WRAPPERS)
;                      (BLOCK SB-PCL::MAKE-CALLABLE
;                        (LET* (# #)
;                          SB-KERNEL:CALLABLE)))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (GF))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN MAKE-DISPATCH-DFUN ...)
; compiling (DEFUN GET-DISPATCH-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/dfun.lisp
; in: DEFUN GET-DISPATCH-FUNCTION
;     (SB-PCL::MAKE-CALLABLE SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR NIL NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (GF))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN MAKE-FINAL-DISPATCH-DFUN ...)
; compiling (DEFUN UPDATE-DISPATCH-DFUNS ...)
; compiling (DEFUN MAKE-FINAL-ORDINARY-DFUN-CACHE ...)
; compiling (DEFVAR *DFUN-MISS-GFS-ON-STACK* ...)
; compiling (DEFMACRO DFUN-MISS ...)
; compiling (DEFVAR *LAZY-DFUN-COMPUTE-P* ...)
; compiling (DEFVAR *EARLY-P* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *MAX-EMF-PRECOMPUTATION-METHODS* ...)
; compiling (DEFUN FINALIZE-SPECIALIZERS ...)
; compiling (DEFUN MAKE-INITIAL-DFUN ...)
; compiling (DEFUN MAKE-EARLY-ACCESSOR ...)
; compiling (DEFUN INITIAL-DFUN ...)
; compiling (DEFUN MAKE-FINAL-DFUN ...)
; compiling (DEFVAR *NEW-CLASS* ...)
; compiling (DEFUN FINAL-ACCESSOR-DFUN-TYPE ...)
; compiling (DEFUN MAKE-FINAL-ACCESSOR-DFUN ...)
; compiling (DEFUN MAKE-FINAL-DFUN-INTERNAL ...)
; compiling (DEFVAR *PCL-MISC-RANDOM-STATE* ...)
; compiling (DEFUN ACCESSOR-MISS ...)
; compiling (DEFUN CHECKING-MISS ...)
; compiling (DEFUN CACHING-MISS ...)
; compiling (DEFUN CONSTANT-VALUE-MISS ...)
; compiling (DEFVAR *CACHE-MISS-VALUES-STACK* ...)
; compiling (DEFUN CACHE-MISS-VALUES ...)
; compiling (DEFUN CACHE-MISS-VALUES-INTERNAL ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/dfun.lisp
; in: DEFUN CACHE-MISS-VALUES-INTERNAL
;     (SB-PCL::MAKE-CALLABLE SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR NIL
;      (AND SB-PCL::FOR-CACHE-P SB-PCL::WRAPPERS))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (GF))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN BREAK-VICIOUS-METACIRCLE ...)
; compiling (DEFUN ACCESSES-STANDARD-CLASS-SLOT-P ...)
; compiling (DEFUN FIND-STANDARD-CLASS-ACCESSOR-METHOD ...)
; compiling (DEFUN ACCESSOR-VALUES ...)
; compiling (DEFUN ACCESSOR-VALUES1 ...)
; compiling (DEFUN ACCESSOR-VALUES-INTERNAL ...)
; compiling (DEFUN MAKE-ACCESSOR-TABLE ...)
; compiling (DEFUN COMPUTE-APPLICABLE-METHODS-USING-TYPES ...)
; compiling (DEFUN SORT-APPLICABLE-METHODS ...)
; compiling (DEFUN SORT-METHODS ...)
; compiling (DEFUN ORDER-SPECIALIZERS ...)
; compiling (DEFUN MAP-ALL-ORDERS ...)
; compiling (DEFUN CLASS-MIGHT-PRECEDE-P ...)
; compiling (DEFUN COMPUTE-PRECEDENCE ...)
; compiling (DEFUN CPL-OR-NIL ...)
; compiling (DEFUN SAUT-AND ...)
; compiling (DEFUN SAUT-NOT ...)
; compiling (DEFUN SAUT-NOT-CLASS ...)
; compiling (DEFUN SAUT-NOT-PROTOTYPE ...)
; compiling (DEFUN SAUT-NOT-CLASS-EQ ...)
; compiling (DEFUN SAUT-NOT-EQL ...)
; compiling (DEFUN CLASS-APPLICABLE-USING-CLASS-P ...)
; compiling (DEFUN CLASSES-HAVE-COMMON-SUBCLASS-P ...)
; compiling (DEFUN SAUT-CLASS ...)
; compiling (DEFUN SAUT-CLASS-EQ ...)
; compiling (DEFUN SAUT-PROTOTYPE ...)
; compiling (DEFUN SAUT-EQL ...)
; compiling (DEFUN SPECIALIZER-APPLICABLE-USING-TYPE-P ...)
; compiling (DEFUN MAP-ALL-CLASSES ...)
; compiling (DEFVAR *EFFECTIVE-METHOD-CACHE* ...)
; compiling (DEFUN FLUSH-EFFECTIVE-METHOD-CACHE ...)
; compiling (DEFUN GET-SECONDARY-DISPATCH-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/dfun.lisp
; in: DEFUN GET-SECONDARY-DISPATCH-FUNCTION
;     (SB-PCL::MAKE-CALLABLE SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR
;      SB-PCL::METHOD-ALIST SB-PCL::WRAPPERS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (GF))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN GET-SECONDARY-DISPATCH-FUNCTION1 ...)
; compiling (DEFUN GET-SECONDARY-DISPATCH-FUNCTION2 ...)
; compiling (DEFUN GET-EFFECTIVE-METHOD-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/dfun.lisp
; in: DEFUN GET-EFFECTIVE-METHOD-FUNCTION
;     (SB-PCL::MAKE-CALLABLE SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR
;      SB-PCL::METHOD-ALIST SB-PCL::WRAPPERS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (GF))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN GET-EFFECTIVE-METHOD-FUNCTION1 ...)
; compiling (DEFUN METHODS-CONTAIN-EQL-SPECIALIZER-P ...)
; compiling (DEFUN UPDATE-DFUN ...)
; compiling (DEFVAR *DFUN-COUNT* ...)
; compiling (DEFVAR *DFUN-LIST* ...)
; compiling (DEFVAR *MINIMUM-CACHE-SIZE-TO-LIST*)
; compiling (DEFUN LIST-DFUN ...)
; compiling (DEFUN LIST-ALL-DFUNS ...)
; compiling (DEFUN LIST-LARGE-CACHE ...)
; compiling (DEFUN LIST-LARGE-CACHES ...)
; compiling (DEFUN COUNT-DFUN ...)
; compiling (DEFUN COUNT-ALL-DFUNS ...)
; compiling |#|
; compiling (DEFUN GFS-OF-TYPE ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/dfun.lisp
; in: DEFUN ACCESSOR-VALUES-INTERNAL
;     (SB-PCL::ACCESSOR-METHOD-P SB-PCL::METH)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ACCESSOR-METHOD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN COUNT-DFUN
;     (SB-PCL::CACHE-SIZE SB-PCL::CACHE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CACHE-SIZE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN LIST-LARGE-CACHE
;     (SB-PCL::CACHE-SIZE SB-PCL::CACHE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CACHE-SIZE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CLASS-MIGHT-PRECEDE-P
;     (SB-PCL::CLASS-CAN-PRECEDE-P SB-PCL::CLASS1 SB-PCL::CLASS2)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-CAN-PRECEDE-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CPL-OR-NIL
;     (SB-PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN FINALIZE-SPECIALIZERS
;     (SB-PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P SB-MOP:SPECIALIZER)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN SAUT-NOT-PROTOTYPE
;     (CLASS-OF (CADR SB-PCL::SPECL))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-EARLY-ACCESSOR
;     (CLASS-OF SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN DISPATCH-DFUN-COST
;     (CLASS-OF (CADR TYPE))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S
;                        FORMAT-ARGUMENTS (3 FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/dfun.lisp
; in: DEFUN FINALIZE-SPECIALIZERS
;     (SB-PCL::CLASSP SB-MOP:SPECIALIZER)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASSP))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-INITIAL-DFUN
;     (SB-PCL::COMPUTE-APPLICABLE-METHODS-EMF-STD-P SB-PCL::GF)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION COMPUTE-APPLICABLE-METHODS-EMF-STD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN USE-CONSTANT-VALUE-DFUN-P
;     (SB-PCL::COMPUTE-APPLICABLE-METHODS-EMF-STD-P SB-PCL::GF)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION COMPUTE-APPLICABLE-METHODS-EMF-STD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CACHE-MISS-VALUES-INTERNAL
;     (SB-MOP:COMPUTE-APPLICABLE-METHODS-USING-CLASSES SB-PCL::GF SB-PCL::CLASSES)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION COMPUTE-APPLICABLE-METHODS-USING-CLASSES))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN UPDATE-DFUN
;     (SB-MOP:COMPUTE-DISCRIMINATING-FUNCTION GENERIC-FUNCTION)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION COMPUTE-DISCRIMINATING-FUNCTION))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-SECONDARY-DISPATCH-FUNCTION2
;     (SB-PCL::COMPUTE-SECONDARY-DISPATCH-FUNCTION1 SB-PCL::GF SB-PCL::NET
;      SB-PCL::FUNCTION-P)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION COMPUTE-SECONDARY-DISPATCH-FUNCTION1))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CACHE-MISS-VALUES-INTERNAL => DEFAULT-SECONDARY-DISPATCH-FUNCTION GF
;     (SB-PCL::DEFAULT-SECONDARY-DISPATCH-FUNCTION SB-PCL::GF)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION DEFAULT-SECONDARY-DISPATCH-FUNCTION))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CACHE-MISS-VALUES
;     (SB-PCL::WITH-DFUN-WRAPPERS (SB-PCL::ARGS SB-PCL::METATYPES)
;                                 (SB-PCL::DFUN-WRAPPERS SB-PCL::INVALID-WRAPPER-P
;                                  SB-PCL::WRAPPERS SB-PCL::CLASSES SB-PCL::TYPES)
;                                 (SB-PCL::ERROR-NEED-AT-LEAST-N-ARGS SB-PCL::GF
;                                  (LENGTH SB-PCL::METATYPES))
;                                 (MULTIPLE-VALUE-BIND
;                                     (SB-PCL::EMF SB-PCL::METHODS
;                                      SB-PCL::ACCESSOR-TYPE SB-INT:INDEX)
;                                     (SB-PCL::CACHE-MISS-VALUES-INTERNAL
;                                      SB-PCL::GF SB-PCL::ARG-INFO SB-PCL::WRAPPERS
;                                      SB-PCL::CLASSES SB-PCL::TYPES SB-PCL::STATE)
;                                   (VALUES SB-PCL::EMF SB-PCL::METHODS
;                                           SB-PCL::DFUN-WRAPPERS
;                                           SB-PCL::INVALID-WRAPPER-P
;                                           SB-PCL::ACCESSOR-TYPE SB-INT:INDEX)))
; --> LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET* UNLESS IF 
; --> PROGN SETQ THE SB-PCL::WRAPPER-CLASS* BLOCK OR LET IF OR LET 
; ==>
;   (SB-PCL::ENSURE-NON-STANDARD-CLASS
;    (SB-KERNEL:CLASSOID-NAME SB-KERNEL:CLASSOID) SB-KERNEL:CLASSOID)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ENSURE-NON-STANDARD-CLASS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN METHODS-CONTAIN-EQL-SPECIALIZER-P
;     (SB-PCL::EQL-SPECIALIZER-P SB-PCL::SPEC)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION EQL-SPECIALIZER-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN USE-CONSTANT-VALUE-DFUN-P
;     #'SB-PCL::EQL-SPECIALIZER-P
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION EQL-SPECIALIZER-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CACHE-MISS-VALUES
;     (SB-PCL::ERROR-NEED-AT-LEAST-N-ARGS SB-PCL::GF (LENGTH SB-PCL::METATYPES))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ERROR-NEED-AT-LEAST-N-ARGS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CPL-OR-NIL
;     (SB-MOP:FINALIZE-INHERITANCE CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FINALIZE-INHERITANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN FINALIZE-SPECIALIZERS
;     (SB-MOP:FINALIZE-INHERITANCE SB-MOP:SPECIALIZER)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FINALIZE-INHERITANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN STANDARD-SLOT-VALUE
;     (SB-MOP:FUNCALLABLE-STANDARD-INSTANCE-ACCESS SB-PCL::OBJECT SB-PCL::LOCATION)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FUNCALLABLE-STANDARD-INSTANCE-ACCESS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GET-SECONDARY-DISPATCH-FUNCTION2
;     (SB-PCL::GENERATE-DISCRIMINATION-NET SB-PCL::GF SB-PCL::METHODS SB-PCL::TYPES
;      SB-PCL::ALL-SORTED-P)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GENERATE-DISCRIMINATION-NET))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN DISPATCH-DFUN-COST
;     (SB-PCL::GENERATE-DISCRIMINATION-NET-INTERNAL SB-PCL::GF
;      (SB-MOP:GENERIC-FUNCTION-METHODS SB-PCL::GF) NIL
;      (LAMBDA (SB-PCL::METHODS SB-PCL::KNOWN-TYPES)
;        (DECLARE (IGNORE SB-PCL::METHODS SB-PCL::KNOWN-TYPES))
;        0)
;      (LAMBDA (POSITION TYPE SB-PCL::TRUE-VALUE SB-PCL::FALSE-VALUE)
;        (DECLARE (IGNORE POSITION))
;        (LET* ((SB-PCL::TYPE-TEST-COST #) (SB-PCL::MAX-COST-SO-FAR #))
;          (WHEN (AND SB-PCL::LIMIT #)
;            (RETURN-FROM SB-PCL::DISPATCH-DFUN-COST SB-PCL::MAX-COST-SO-FAR))
;          SB-PCL::MAX-COST-SO-FAR))
;      #'IDENTITY)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GENERATE-DISCRIMINATION-NET-INTERNAL))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN FINAL-ACCESSOR-DFUN-TYPE
;     (SB-PCL::GLOBAL-BOUNDP-METHOD-P METHOD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GLOBAL-BOUNDP-METHOD-P))
;      :ASSIGNED-SLOTS NIL)

;     (SB-PCL::GLOBAL-READER-METHOD-P METHOD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GLOBAL-READER-METHOD-P))
;      :ASSIGNED-SLOTS NIL)

;     (SB-PCL::GLOBAL-WRITER-METHOD-P METHOD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GLOBAL-WRITER-METHOD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-FINAL-ORDINARY-DFUN-CACHE
;     (SB-PCL::MAKE-EMF-CACHE GENERIC-FUNCTION SB-PCL::VALUEP SB-PCL::CACHE
;      SB-PCL::CLASSES-LIST SB-PCL::NEW-CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-EMF-CACHE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN COUNT-ALL-DFUNS
;     (SB-PCL::MAP-ALL-GENERIC-FUNCTIONS #'SB-PCL::COUNT-DFUN)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAP-ALL-GENERIC-FUNCTIONS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN LIST-LARGE-CACHES
;     (SB-PCL::MAP-ALL-GENERIC-FUNCTIONS #'SB-PCL::LIST-LARGE-CACHE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAP-ALL-GENERIC-FUNCTIONS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN LIST-ALL-DFUNS
;     (SB-PCL::MAP-ALL-GENERIC-FUNCTIONS #'SB-PCL::LIST-DFUN)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAP-ALL-GENERIC-FUNCTIONS))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL ~W more use~:P of undefined ~(~A~) ~S
;                        FORMAT-ARGUMENTS (1 FUNCTION MAP-ALL-GENERIC-FUNCTIONS))
;      :ASSIGNED-SLOTS NIL)


; file: /Users/nikodemus/src/sbcl/src/pcl/dfun.lisp
; in: DEFUN GET-SECONDARY-DISPATCH-FUNCTION1
;     #'NO-APPLICABLE-METHOD
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION NO-APPLICABLE-METHOD))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-FINAL-DFUN-INTERNAL
;     #'NO-APPLICABLE-METHOD
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION NO-APPLICABLE-METHOD))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-INITIAL-DFUN
;     (SB-PCL::PRECOMPUTE-EFFECTIVE-METHODS SB-PCL::GF SB-PCL::CACHING-P
;      (NOT SB-PCL::*LAZY-DFUN-COMPUTE-P*))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION PRECOMPUTE-EFFECTIVE-METHODS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN MAKE-ACCESSOR-TABLE
;     (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::SLOTD TYPE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-ACCESSOR-STD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN ACCESSOR-VALUES-INTERNAL
;     (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::SLOTD SB-PCL::ACCESSOR-TYPE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-ACCESSOR-STD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN FINAL-ACCESSOR-DFUN-TYPE
;     (SB-PCL::STANDARD-BOUNDP-METHOD-P METHOD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STANDARD-BOUNDP-METHOD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN STANDARD-SLOT-VALUE
;     (SB-MOP:STANDARD-INSTANCE-ACCESS SB-PCL::OBJECT SB-PCL::LOCATION)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STANDARD-INSTANCE-ACCESS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN FINAL-ACCESSOR-DFUN-TYPE
;     (SB-PCL::STANDARD-READER-METHOD-P METHOD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STANDARD-READER-METHOD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN GF-HAS-METHOD-WITH-NONSTANDARD-SPECIALIZER-P
;     (SB-PCL::STANDARD-SPECIALIZER-P SB-PCL::S)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STANDARD-SPECIALIZER-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN FINAL-ACCESSOR-DFUN-TYPE
;     (SB-PCL::STANDARD-WRITER-METHOD-P METHOD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STANDARD-WRITER-METHOD-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CLASS-APPLICABLE-USING-CLASS-P
;     (SB-PCL::SUPERCLASSES-COMPATIBLE-P SB-PCL::SPECL TYPE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SUPERCLASSES-COMPATIBLE-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CACHE-MISS-VALUES
;     (SB-PCL::WITH-DFUN-WRAPPERS (SB-PCL::ARGS SB-PCL::METATYPES)
;                                 (SB-PCL::DFUN-WRAPPERS SB-PCL::INVALID-WRAPPER-P
;                                  SB-PCL::WRAPPERS SB-PCL::CLASSES SB-PCL::TYPES)
;                                 (SB-PCL::ERROR-NEED-AT-LEAST-N-ARGS SB-PCL::GF
;                                  (LENGTH SB-PCL::METATYPES))
;                                 (MULTIPLE-VALUE-BIND
;                                     (SB-PCL::EMF SB-PCL::METHODS
;                                      SB-PCL::ACCESSOR-TYPE SB-INT:INDEX)
;                                     (SB-PCL::CACHE-MISS-VALUES-INTERNAL
;                                      SB-PCL::GF SB-PCL::ARG-INFO SB-PCL::WRAPPERS
;                                      SB-PCL::CLASSES SB-PCL::TYPES SB-PCL::STATE)
;                                   (VALUES SB-PCL::EMF SB-PCL::METHODS
;                                           SB-PCL::DFUN-WRAPPERS
;                                           SB-PCL::INVALID-WRAPPER-P
;                                           SB-PCL::ACCESSOR-TYPE SB-INT:INDEX)))
; --> LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET* UNLESS IF 
; --> PROGN SETQ THE 
; ==>
;   (SB-PCL::WRAPPER-OF SB-PCL::ARG)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION WRAPPER-OF))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(CACHE-SIZE CLASS-CAN-PRECEDE-P
;                             CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS-OF
;                             CLASSP COMPUTE-APPLICABLE-METHODS-EMF-STD-P
;                             COMPUTE-APPLICABLE-METHODS-USING-CLASSES
;                             COMPUTE-DISCRIMINATING-FUNCTION
;                             COMPUTE-SECONDARY-DISPATCH-FUNCTION1
;                             DEFAULT-SECONDARY-DISPATCH-FUNCTION ...)
;                         FUNCTION (ACCESSOR-METHOD-P . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 52 STYLE-WARNING conditions


; SYS:SRC;PCL;DFUN.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/ctor.lisp" (written 10 JUN 2008 12:49:15 AM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFUN QUOTE-PLIST-KEYS ...)
; compiling (DEFUN PLIST-KEYS ...)
; compiling (DEFUN PLIST-VALUES ...)
; compiling (DEFUN CONSTANT-SYMBOL-P ...)
; compiling (DEFUN CTOR-DEFAULT-INITKEYS ...)
; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS CTOR ...)
; compiling (DEFVAR *ALL-CTORS* ...)
; compiling (DEFUN MAKE-CTOR-PARAMETER-LIST ...)
; compiling (DEFUN INSTALL-INITIAL-CONSTRUCTOR ...)
; compiling (DEFUN MAKE-CTOR-FUNCTION-NAME ...)
; compiling (DEFUN ENSURE-CTOR ...)
; compiling (DEFUN MAKE-CTOR ...)
; compiling (DEFINE-COMPILER-MACRO MAKE-INSTANCE ...)
; compiling (DEFUN MAKE-INSTANCE->CONSTRUCTOR-CALL ...)
; compiling (DEFVAR *THE-SYSTEM-II-METHOD* ...)
; compiling (DEFVAR *THE-SYSTEM-SI-METHOD* ...)
; compiling (DEFUN INSTALL-OPTIMIZED-CONSTRUCTOR ...)
; compiling (DEFUN CONSTRUCTOR-FUNCTION-FORM ...)
; compiling (DEFUN AROUND-OR-NONSTANDARD-PRIMARY-METHOD-P ...)
; compiling (DEFUN FALLBACK-GENERATOR ...)
; compiling (DEFUN OPTIMIZING-GENERATOR ...)
; compiling (DEFUN WRAP-IN-ALLOCATE-FORMS ...)
; compiling (DEFMACRO INVOKE-METHOD ...)
; compiling (DEFUN FAKE-INITIALIZATION-EMF ...)
; compiling (DEFUN STANDARD-SORT-METHODS ...)
; compiling (DEFMACRO WITH-TYPE-CHECKED ...)
; compiling (DEFUN SLOT-INIT-FORMS ...)
; compiling (DEFUN COMPUTE-INITARG-LOCATIONS ...)
; compiling (DEFUN UPDATE-CTORS ...)
; compiling (DEFUN PRECOMPILE-CTORS ...)
; compiling (DEFUN CHECK-RI-INITARGS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/ctor.lisp
; in: DEFUN CONSTRUCTOR-FUNCTION-FORM
;     #'(SETF SB-MOP:SLOT-VALUE-USING-CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION (SETF SLOT-VALUE-USING-CLASS)))
;      :ASSIGNED-SLOTS NIL)

;     #'ALLOCATE-INSTANCE
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ALLOCATE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CHECK-RI-INITARGS
;     (SB-PCL::CHECK-INITARGS-1 CLASS SB-PCL::INITARGS
;      (LIST (LIST* 'REINITIALIZE-INSTANCE SB-KERNEL:INSTANCE SB-PCL::INITARGS)
;            (LIST* 'SHARED-INITIALIZE SB-KERNEL:INSTANCE NIL SB-PCL::INITARGS))
;      T NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CHECK-INITARGS-1))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CONSTRUCTOR-FUNCTION-FORM
;     (SB-PCL::CHECK-INITARGS-1 CLASS
;      (APPEND
;       (SB-PCL::CTOR-DEFAULT-INITKEYS (SB-PCL::CTOR-INITARGS SB-PCL::CTOR)
;        (SB-MOP:CLASS-DEFAULT-INITARGS CLASS))
;       (SB-PCL::PLIST-KEYS (SB-PCL::CTOR-INITARGS SB-PCL::CTOR)))
;      (APPEND SB-PCL::II-METHODS SB-PCL::SI-METHODS) NIL NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CHECK-INITARGS-1))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN SLOT-INIT-FORMS => DEFAULT-INITARGS (CLASS-DEFAULT-INITARGS CLASS)
;     (SB-MOP:CLASS-DEFAULT-INITARGS CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-DEFAULT-INITARGS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CONSTRUCTOR-FUNCTION-FORM
;     (SB-MOP:CLASS-DEFAULT-INITARGS CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-DEFAULT-INITARGS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CHECK-RI-INITARGS
;     (CLASS-OF SB-KERNEL:INSTANCE)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CLASS-OF))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CONSTRUCTOR-FUNCTION-FORM
;     (COMPUTE-APPLICABLE-METHODS #'SB-MOP:SLOT-BOUNDP-USING-CLASS
;      (LIST CLASS SB-PCL::PROTO SB-PCL::SLOT))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION COMPUTE-APPLICABLE-METHODS))
;      :ASSIGNED-SLOTS NIL)

;     (SB-PCL::CONDITION-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION CONDITION-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN INSTALL-OPTIMIZED-CONSTRUCTOR
;     (SB-MOP:FINALIZE-INHERITANCE CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FINALIZE-INHERITANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CONSTRUCTOR-FUNCTION-FORM
;     (FIND-METHOD #'SHARED-INITIALIZE NIL
;      (LIST SB-PCL::*THE-CLASS-SLOT-OBJECT* SB-PCL::*THE-CLASS-T*))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FIND-METHOD))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN INSTALL-OPTIMIZED-CONSTRUCTOR
;     (SB-PCL::FORCE-CACHE-FLUSHES CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FORCE-CACHE-FLUSHES))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CONSTRUCTOR-FUNCTION-FORM
;     #'INITIALIZE-INSTANCE
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION INITIALIZE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

;     #'MAKE-INSTANCE
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION MAKE-INSTANCE))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN WRAP-IN-ALLOCATE-FORMS
;     (SB-PCL::RAW-INSTANCE-ALLOCATOR CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION RAW-INSTANCE-ALLOCATOR))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CONSTRUCTOR-FUNCTION-FORM
;     #'SHARED-INITIALIZE
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SHARED-INITIALIZE))
;      :ASSIGNED-SLOTS NIL)

;     #'SB-MOP:SLOT-BOUNDP-USING-CLASS
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-BOUNDP-USING-CLASS))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN WRAP-IN-ALLOCATE-FORMS
;     (SB-PCL::SLOTS-FETCHER CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOTS-FETCHER))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN CONSTRUCTOR-FUNCTION-FORM
;     (SB-PCL::STRUCTURE-CLASS-P CLASS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION STRUCTURE-CLASS-P))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(ALLOCATE-INSTANCE CHECK-INITARGS-1
;                             CLASS-DEFAULT-INITARGS CLASS-OF
;                             COMPUTE-APPLICABLE-METHODS CONDITION-CLASS-P
;                             FINALIZE-INHERITANCE FIND-METHOD FORCE-CACHE-FLUSHES
;                             INITIALIZE-INSTANCE ...)
;                         FUNCTION ((SETF SLOT-VALUE-USING-CLASS) . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 20 STYLE-WARNING conditions


; SYS:SRC;PCL;CTOR.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/braid.lisp" (written 14 MAR 2008 09:03:06 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFUN ALLOCATE-STANDARD-INSTANCE ...)
; compiling (DEFMACRO ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE-SLOTS ...)
; compiling (DEFINE-CONDITION UNSET-FUNCALLABLE-INSTANCE-FUNCTION ...)
; compiling (DEFUN ALLOCATE-STANDARD-FUNCALLABLE-INSTANCE ...)
; compiling (DEFUN ALLOCATE-STRUCTURE-INSTANCE ...)
; compiling (DEFMACRO !INITIAL-CLASSES-AND-WRAPPERS ...)
; compiling (DEFUN !BOOTSTRAP-META-BRAID ...)
; compiling (DEFUN !BOOTSTRAP-INITIALIZE-CLASS ...)
; compiling (DEFUN !BOOTSTRAP-MAKE-SLOT-DEFINITIONS ...)
; compiling (DEFUN !BOOTSTRAP-MAKE-SLOT-DEFINITION ...)
; compiling (DEFUN !BOOTSTRAP-ACCESSOR-DEFINITIONS ...)
; compiling (DEFUN !BOOTSTRAP-ACCESSOR-DEFINITION ...)
; compiling (DEFUN !BOOTSTRAP-ACCESSOR-DEFINITIONS1 ...)
; compiling (DEFUN !BOOTSTRAP-CLASS-PREDICATES ...)
; compiling (DEFUN !BOOTSTRAP-BUILT-IN-CLASSES ...)
; compiling (DECLAIM (INLINE WRAPPER-OF))
; compiling (DEFUN WRAPPER-OF ...)
; compiling (DEFUN CLASS-OF ...)
; compiling (DEFUN EVAL-FORM ...)
; compiling (DEFUN ENSURE-NON-STANDARD-CLASS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/braid.lisp
; in: DEFUN ENSURE-NON-STANDARD-CLASS
;     (SB-MOP:ENSURE-CLASS-USING-CLASS SB-PCL::EXISTING-CLASS SB-PCL::NAME
;      :METACLASS SB-PCL::METACLASS :NAME SB-PCL::NAME :DIRECT-SUPERCLASSES
;      SB-PCL::SUPERS)
; ==>
;   SB-PCL::EXISTING-CLASS
; 
; note: #S(CODE-DELETION-NOTE
;    :ACTUAL-INITARGS (FORMAT-CONTROL deleting unreachable code FORMAT-ARGUMENTS
;                      NIL)
;    :ASSIGNED-SLOTS NIL)

; compiling (DEFUN ENSURE-DEFFOO-CLASS ...)
; compiling (PUSHNEW (QUOTE ENSURE-DEFFOO-CLASS) ...)
; compiling (PUSHNEW (QUOTE ENSURE-DEFFOO-CLASS) ...)
; compiling (DEFUN MAKE-CLASS-PREDICATE ...)
; compiling (DEFUN UPDATE-LISP-CLASS-LAYOUT ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/braid.lisp
; in: DEFUN UPDATE-LISP-CLASS-LAYOUT
;     (LET ((SB-KERNEL:CLASSOID (SB-KERNEL:LAYOUT-CLASSOID SB-KERNEL:LAYOUT))
;           (SB-PCL::OLAYOUT (SB-PCL::CLASS-WRAPPER CLASS)))
;       (UNLESS
;           (EQ (SB-KERNEL:CLASSOID-LAYOUT SB-KERNEL:CLASSOID) SB-KERNEL:LAYOUT)
;         (SETF (SB-KERNEL:LAYOUT-INHERITS SB-KERNEL:LAYOUT)
;                 (SB-KERNEL:ORDER-LAYOUT-INHERITS
;                  (MAP 'SIMPLE-VECTOR #'SB-PCL::CLASS-WRAPPER #)))
;         (SB-KERNEL:REGISTER-LAYOUT SB-KERNEL:LAYOUT :INVALIDATE T)
;         (LET ((SB-PCL::NAME #))
;           (WHEN (AND SB-PCL::NAME # #) (SETF # SB-KERNEL:CLASSOID)))))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (OLAYOUT))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN SET-CLASS-TYPE-TRANSLATION ...)
; compiling (!BOOTSTRAP-META-BRAID)
; compiling (!BOOTSTRAP-ACCESSOR-DEFINITIONS T)
; compiling (!BOOTSTRAP-CLASS-PREDICATES T)
; compiling (!BOOTSTRAP-ACCESSOR-DEFINITIONS NIL)
; compiling (!BOOTSTRAP-CLASS-PREDICATES NIL)
; compiling (!BOOTSTRAP-BUILT-IN-CLASSES)
; compiling (DOHASH (# SB-KERNEL::*CLASSOID-CELLS*) ...)
; compiling (SETQ *BOOT-STATE* ...)
; compiling (DEFMETHOD NO-APPLICABLE-METHOD ...)
; compiling (DEFMETHOD NO-NEXT-METHOD ...)
; compiling (DEFINE-CONDITION NO-PRIMARY-METHOD ...)
; compiling (DEFMETHOD NO-PRIMARY-METHOD ...)
; compiling (DEFMETHOD INVALID-QUALIFIERS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/braid.lisp
; in: DEFUN ALLOCATE-STRUCTURE-INSTANCE
;     (SETF (SB-MOP:SLOT-VALUE-USING-CLASS CLASS SB-KERNEL:INSTANCE SB-PCL::SLOT)
;             (POP SB-PCL::SLOTS-INIT))
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SETF SB-MOP:SLOT-VALUE-USING-CLASS) #:G242 #:G245 #:G244
;                   #:G243)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION (SETF SLOT-VALUE-USING-CLASS)))
;      :ASSIGNED-SLOTS NIL)

; in: DEFUN ENSURE-NON-STANDARD-CLASS
;     (SB-MOP:ENSURE-CLASS-USING-CLASS SB-PCL::EXISTING-CLASS SB-PCL::NAME
;      :METACLASS SB-PCL::METACLASS :NAME SB-PCL::NAME :DIRECT-SUPERCLASSES
;      SB-PCL::SUPERS :DIRECT-SLOTS SB-PCL::SLOTS)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION ENSURE-CLASS-USING-CLASS))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(ENSURE-CLASS-USING-CLASS) FUNCTION
;                         ((SETF SLOT-VALUE-USING-CLASS) . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 4 STYLE-WARNING conditions
;   printed 1 note


; SYS:SRC;PCL;BRAID.FASL.NEWEST written
; compilation finished in 0:00:00
; in: LAMBDA (CACHE EMF MISS-FN)
;     (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION SB-PCL::EMF NIL :REQUIRED-ARGS
;                                               (SB-PCL::.ARG0.) :MORE-ARG NIL
;                                               :REST-ARG NIL)
; --> LOCALLY LET ETYPECASE LET COND IF COND IF PROGN LET* IF 
; ==>
;   (SB-PCL::SLOT-UNBOUND-INTERNAL SB-PCL::.ARG0. #:EMF-N-6)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-UNBOUND-INTERNAL))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS (NIL FUNCTION (SLOT-UNBOUND-INTERNAL)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; compiling file "/Users/nikodemus/src/sbcl/src/pcl/dlisp3.lisp" (written 14 JUL 2005 10:28:18 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFPARAMETER *CHECKING-OR-CACHING-LIST* ...)
; compiling (DOLIST (KEY *CHECKING-OR-CACHING-LIST*) ...)

; SYS:SRC;PCL;DLISP3.FASL.NEWEST written
; compilation finished in 0:00:00
; in: LAMBDA (CACHE MISS-FN)
;     (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION SB-PCL::EMF NIL :REQUIRED-ARGS
;                                               (SB-PCL::.ARG0.) :MORE-ARG NIL
;                                               :REST-ARG NIL)
; --> LOCALLY LET ETYPECASE LET COND IF COND IF PROGN LET* IF 
; ==>
;   (SB-PCL::SLOT-UNBOUND-INTERNAL SB-PCL::.ARG0. #:EMF-N-7)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-UNBOUND-INTERNAL))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS (NIL FUNCTION (SLOT-UNBOUND-INTERNAL)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; compiling file "/Users/nikodemus/src/sbcl/src/pcl/generic-functions.lisp" (written 16 JUL 2008 08:30:01 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFGENERIC CLASS-EQ-SPECIALIZER-P ...)
; compiling (DEFGENERIC CLASSP ...)
; compiling (DEFGENERIC CONDITION-CLASS-P ...)
; compiling (DEFGENERIC EQL-SPECIALIZER-P ...)
; compiling (DEFGENERIC EXACT-CLASS-SPECIALIZER-P ...)
; compiling (DEFGENERIC FORWARD-REFERENCED-CLASS-P ...)
; compiling (DEFGENERIC FUNCALLABLE-STANDARD-CLASS-P ...)
; compiling (DEFGENERIC GENERIC-FUNCTION-P ...)
; compiling (DEFGENERIC METHOD-COMBINATION-P ...)
; compiling (DEFGENERIC METHOD-P ...)
; compiling (DEFGENERIC SHORT-METHOD-COMBINATION-P ...)
; compiling (DEFGENERIC SLOT-CLASS-P ...)
; compiling (DEFGENERIC SPECIALIZERP ...)
; compiling (DEFGENERIC STANDARD-ACCESSOR-METHOD-P ...)
; compiling (DEFGENERIC STANDARD-BOUNDP-METHOD-P ...)
; compiling (DEFGENERIC STANDARD-CLASS-P ...)
; compiling (DEFGENERIC STANDARD-GENERIC-FUNCTION-P ...)
; compiling (DEFGENERIC STANDARD-METHOD-P ...)
; compiling (DEFGENERIC STANDARD-READER-METHOD-P ...)
; compiling (DEFGENERIC STANDARD-WRITER-METHOD-P ...)
; compiling (DEFGENERIC STRUCTURE-CLASS-P ...)
; compiling (DEFGENERIC ACCESSOR-METHOD-SLOT-DEFINITION ...)
; compiling (DEFGENERIC CLASS-CAN-PRECEDE-LIST ...)
; compiling (DEFGENERIC CLASS-DEFSTRUCT-CONSTRUCTOR ...)
; compiling (DEFGENERIC CLASS-DEFSTRUCT-FORM ...)
; compiling (DEFGENERIC CLASS-DIRECT-SUBCLASSES ...)
; compiling (DEFGENERIC CLASS-DIRECT-SUPERCLASSES ...)
; compiling (DEFGENERIC CLASS-EQ-SPECIALIZER ...)
; compiling (DEFGENERIC CLASS-INCOMPATIBLE-SUPERCLASS-LIST ...)
; compiling (DEFGENERIC CLASS-NAME ...)
; compiling (DEFGENERIC CLASS-PRECEDENCE-LIST ...)
; compiling (DEFGENERIC CLASS-WRAPPER ...)
; compiling (DEFGENERIC DEFINITION-SOURCE ...)
; compiling (DEFGENERIC EQL-SPECIALIZER-OBJECT ...)
; compiling (DEFGENERIC GENERIC-FUNCTION-DECLARATIONS ...)
; compiling (DEFGENERIC GENERIC-FUNCTION-METHOD-CLASS ...)
; compiling (DEFGENERIC GENERIC-FUNCTION-METHOD-COMBINATION ...)
; compiling (DEFGENERIC GENERIC-FUNCTION-METHODS ...)
; compiling (DEFGENERIC GENERIC-FUNCTION-NAME ...)
; compiling (DEFGENERIC GF-ARG-INFO ...)
; compiling (DEFGENERIC GF-DFUN-STATE ...)
; compiling (DEFGENERIC GENERIC-FUNCTION-INITIAL-METHODS ...)
; compiling (DEFGENERIC LONG-METHOD-COMBINATION-FUNCTION ...)
; compiling (DEFGENERIC METHOD-COMBINATION-DOCUMENTATION ...)
; compiling (DEFGENERIC METHOD-COMBINATION-OPTIONS ...)
; compiling (DEFGENERIC METHOD-COMBINATION-TYPE-NAME ...)
; compiling (DEFGENERIC METHOD-GENERIC-FUNCTION ...)
; compiling (DEFGENERIC OBJECT-PLIST ...)
; compiling (DEFGENERIC SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT ...)
; compiling (DEFGENERIC SHORT-COMBINATION-OPERATOR ...)
; compiling (DEFGENERIC SLOT-DEFINITION-BOUNDP-FUNCTION ...)
; compiling (DEFGENERIC SLOT-DEFINITION-CLASS ...)
; compiling (DEFGENERIC SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL ...)
; compiling (DEFGENERIC SLOT-DEFINITION-INITARGS ...)
; compiling (DEFGENERIC SLOT-DEFINITION-INITFORM ...)
; compiling (DEFGENERIC SLOT-DEFINITION-INITFUNCTION ...)
; compiling (DEFGENERIC SLOT-DEFINITION-INTERNAL-READER-FUNCTION ...)
; compiling (DEFGENERIC SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION ...)
; compiling (DEFGENERIC SLOT-DEFINITION-LOCATION ...)
; compiling (DEFGENERIC SLOT-DEFINITION-NAME ...)
; compiling (DEFGENERIC SLOT-DEFINITION-READER-FUNCTION ...)
; compiling (DEFGENERIC SLOT-DEFINITION-READERS ...)
; compiling (DEFGENERIC SLOT-DEFINITION-TYPE ...)
; compiling (DEFGENERIC SLOT-DEFINITION-WRITER-FUNCTION ...)
; compiling (DEFGENERIC SLOT-DEFINITION-WRITERS ...)
; compiling (DEFGENERIC SPECIALIZER-OBJECT ...)
; compiling (DEFGENERIC SPECIALIZER-TYPE ...)
; compiling (DEFGENERIC (SETF CLASS-DEFSTRUCT-CONSTRUCTOR) ...)
; compiling (DEFGENERIC (SETF CLASS-DEFSTRUCT-FORM) ...)
; compiling (DEFGENERIC (SETF CLASS-DIRECT-SLOTS) ...)
; compiling (DEFGENERIC (SETF CLASS-INCOMPATIBLE-SUPERCLASS-LIST) ...)
; compiling (DEFGENERIC (SETF CLASS-NAME) ...)
; compiling (DEFGENERIC (SETF CLASS-SLOTS) ...)
; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-METHOD-CLASS) ...)
; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-METHOD-COMBINATION) ...)
; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-DECLARATIONS) ...)
; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-METHODS) ...)
; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-NAME) ...)
; compiling (DEFGENERIC (SETF GF-DFUN-STATE) ...)
; compiling (DEFGENERIC (SETF GENERIC-FUNCTION-INITIAL-METHODS) ...)
; compiling (DEFGENERIC (SETF METHOD-GENERIC-FUNCTION) ...)
; compiling (DEFGENERIC (SETF OBJECT-PLIST) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-ALLOCATION) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-BOUNDP-FUNCTION) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-CLASS) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-INITARGS) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-INITFORM) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-INITFUNCTION) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-INTERNAL-READER-FUNCTION) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-LOCATION) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-NAME) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-READER-FUNCTION) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-READERS) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-TYPE) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-WRITER-FUNCTION) ...)
; compiling (DEFGENERIC (SETF SLOT-DEFINITION-WRITERS) ...)
; compiling (DEFGENERIC ACCESSOR-METHOD-SLOT-NAME ...)
; compiling (DEFGENERIC CLASS-DEFAULT-INITARGS ...)
; compiling (DEFGENERIC CLASS-DIRECT-DEFAULT-INITARGS ...)
; compiling (DEFGENERIC CLASS-DIRECT-SLOTS ...)
; compiling (DEFGENERIC CLASS-FINALIZED-P ...)
; compiling (DEFGENERIC CLASS-PROTOTYPE ...)
; compiling (DEFGENERIC CLASS-SLOT-CELLS ...)
; compiling (DEFGENERIC CLASS-SLOTS ...)
; compiling (DEFGENERIC COMPUTE-CLASS-PRECEDENCE-LIST ...)
; compiling (DEFGENERIC COMPUTE-DEFAULT-INITARGS ...)
; compiling (DEFGENERIC COMPUTE-DISCRIMINATING-FUNCTION ...)
; compiling (DEFGENERIC COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO ...)
; compiling (DEFGENERIC COMPUTE-SLOTS ...)
; compiling (DEFGENERIC FINALIZE-INHERITANCE ...)
; compiling (DEFGENERIC FUNCTION-KEYWORDS ...)
; compiling (DEFGENERIC FUNCTION-KEYWORD-PARAMETERS ...)
; compiling (DEFGENERIC GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER ...)
; compiling (DEFGENERIC GENERIC-FUNCTION-LAMBDA-LIST ...)
; compiling (DEFGENERIC GENERIC-FUNCTION-PRETTY-ARGLIST ...)
; compiling (DEFGENERIC GF-FAST-METHOD-FUNCTION-P ...)
; compiling (DEFGENERIC INITIALIZE-INTERNAL-SLOT-FUNCTIONS ...)
; compiling (DEFGENERIC MAKE-INSTANCES-OBSOLETE ...)
; compiling (DEFGENERIC METHOD-FUNCTION ...)
; compiling (DEFGENERIC METHOD-LAMBDA-LIST ...)
; compiling (DEFGENERIC METHOD-QUALIFIERS ...)
; compiling (DEFGENERIC METHOD-SPECIALIZERS ...)
; compiling (DEFGENERIC RAW-INSTANCE-ALLOCATOR ...)
; compiling (DEFGENERIC SLOT-DEFINITION-ALLOCATION ...)
; compiling (DEFGENERIC SLOTS-FETCHER ...)
; compiling (DEFGENERIC SPECIALIZER-CLASS ...)
; compiling (DEFGENERIC SPECIALIZER-DIRECT-GENERIC-FUNCTIONS ...)
; compiling (DEFGENERIC SPECIALIZER-DIRECT-METHODS ...)
; compiling (DEFGENERIC SPECIALIZER-METHOD-TABLE ...)
; compiling (DEFGENERIC UPDATE-CONSTRUCTORS ...)
; compiling (DEFGENERIC WRAPPER-FETCHER ...)
; compiling (DEFGENERIC ADD-DEPENDENT ...)
; compiling (DEFGENERIC ADD-DIRECT-METHOD ...)
; compiling (DEFGENERIC ADD-DIRECT-SUBCLASS ...)
; compiling (DEFGENERIC ADD-METHOD ...)
; compiling (DEFGENERIC (SETF CLASS-SLOT-CELLS) ...)
; compiling (DEFGENERIC CLASS-SLOT-VALUE ...)
; compiling (DEFGENERIC COMPATIBLE-META-CLASS-CHANGE-P ...)
; compiling (DEFGENERIC COMPUTE-APPLICABLE-METHODS ...)
; compiling (DEFGENERIC COMPUTE-APPLICABLE-METHODS-USING-CLASSES ...)
; compiling (DEFGENERIC COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS ...)
; compiling (DEFGENERIC DESCRIBE-OBJECT ...)
; compiling (DEFGENERIC DIRECT-SLOT-DEFINITION-CLASS ...)
; compiling (DEFGENERIC EFFECTIVE-SLOT-DEFINITION-CLASS ...)
; compiling (DEFGENERIC MAKE-BOUNDP-METHOD-FUNCTION ...)
; compiling (DEFGENERIC MAKE-READER-METHOD-FUNCTION ...)
; compiling (DEFGENERIC MAKE-WRITER-METHOD-FUNCTION ...)
; compiling (DEFGENERIC MAP-DEPENDENTS ...)
; compiling (DEFGENERIC PARSE-SPECIALIZER-USING-CLASS ...)
; compiling (DEFGENERIC REMOVE-BOUNDP-METHOD ...)
; compiling (DEFGENERIC REMOVE-DEPENDENT ...)
; compiling (DEFGENERIC REMOVE-DIRECT-METHOD ...)
; compiling (DEFGENERIC REMOVE-DIRECT-SUBCLASS ...)
; compiling (DEFGENERIC REMOVE-METHOD ...)
; compiling (DEFGENERIC REMOVE-READER-METHOD ...)
; compiling (DEFGENERIC REMOVE-WRITER-METHOD ...)
; compiling (DEFGENERIC SAME-SPECIALIZER-P ...)
; compiling (DEFGENERIC SLOT-ACCESSOR-FUNCTION ...)
; compiling (DEFGENERIC SLOT-ACCESSOR-STD-P ...)
; compiling (DEFGENERIC SLOTS-TO-INSPECT ...)
; compiling (DEFGENERIC UNPARSE-SPECIALIZER-USING-CLASS ...)
; compiling (DEFGENERIC UPDATE-GF-DFUN ...)
; compiling (DEFGENERIC VALIDATE-SUPERCLASS ...)
; compiling (DEFGENERIC (SETF DOCUMENTATION) ...)
; compiling (DEFGENERIC DOCUMENTATION ...)
; compiling (DEFGENERIC (SETF CLASS-SLOT-VALUE) ...)
; compiling (DEFGENERIC COMPUTE-EFFECTIVE-METHOD ...)
; compiling (DEFGENERIC COMPUTE-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFGENERIC COMPUTE-SLOT-ACCESSOR-INFO ...)
; compiling (DEFGENERIC DEFAULT-INITARGS ...)
; compiling (DEFGENERIC FIND-METHOD-COMBINATION ...)
; compiling (DEFGENERIC INVALID-QUALIFIERS ...)
; compiling (DEFGENERIC (SETF SLOT-ACCESSOR-FUNCTION) ...)
; compiling (DEFGENERIC (SETF SLOT-ACCESSOR-STD-P) ...)
; compiling (DEFGENERIC SLOT-BOUNDP-USING-CLASS ...)
; compiling (DEFGENERIC SLOT-MAKUNBOUND-USING-CLASS ...)
; compiling (DEFGENERIC SLOT-UNBOUND ...)
; compiling (DEFGENERIC SLOT-VALUE-USING-CLASS ...)
; compiling (DEFGENERIC MAKE-METHOD-LAMBDA ...)
; compiling (DEFGENERIC MAKE-METHOD-SPECIALIZERS-FORM ...)
; compiling (DEFGENERIC (SETF SLOT-VALUE-USING-CLASS) ...)
; compiling (DEFGENERIC ADD-BOUNDP-METHOD ...)
; compiling (DEFGENERIC ADD-READER-METHOD ...)
; compiling (DEFGENERIC ADD-WRITER-METHOD ...)
; compiling (DEFGENERIC MAKE-METHOD-INITARGS-FORM ...)
; compiling (DEFGENERIC GET-METHOD ...)
; compiling (DEFGENERIC FIND-METHOD ...)
; compiling (DEFGENERIC SLOT-MISSING ...)
; compiling (DEFGENERIC ALLOCATE-INSTANCE ...)
; compiling (DEFGENERIC ENSURE-CLASS-USING-CLASS ...)
; compiling (DEFGENERIC ENSURE-GENERIC-FUNCTION-USING-CLASS ...)
; compiling (DEFGENERIC INITIALIZE-INSTANCE ...)
; compiling (DEFGENERIC MAKE-INSTANCE ...)
; compiling (DEFGENERIC CHANGE-CLASS ...)
; compiling (DEFGENERIC NO-APPLICABLE-METHOD ...)
; compiling (DEFGENERIC NO-NEXT-METHOD ...)
; compiling (DEFGENERIC NO-PRIMARY-METHOD ...)
; compiling (DEFGENERIC READER-METHOD-CLASS ...)
; compiling (DEFGENERIC REINITIALIZE-INSTANCE ...)
; compiling (DEFGENERIC SHARED-INITIALIZE ...)
; compiling (DEFGENERIC UPDATE-DEPENDENT ...)
; compiling (DEFGENERIC UPDATE-INSTANCE-FOR-DIFFERENT-CLASS ...)
; compiling (DEFGENERIC UPDATE-INSTANCE-FOR-REDEFINED-CLASS ...)
; compiling (DEFGENERIC WRITER-METHOD-CLASS ...)

; SYS:SRC;PCL;GENERIC-FUNCTIONS.FASL.NEWEST written
; compilation finished in 0:00:00
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-EQ-SPECIALIZER-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134EEC5D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 1
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASSP OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {1345222D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 2
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CONDITION-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134D68D5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 3
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME EQL-SPECIALIZER-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134E77D5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 4
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME EXACT-CLASS-SPECIALIZER-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134D4E25}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 5
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME FORWARD-REFERENCED-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134F1A2D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 6
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME FUNCALLABLE-STANDARD-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134E541D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 7
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134527D5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 8
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-COMBINATION-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134DA52D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 9
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13479B95}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 10
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SHORT-METHOD-COMBINATION-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134F3D05}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 11
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134E4395}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 12
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SPECIALIZERP OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134530A5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 13
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-ACCESSOR-METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134E8315}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 14
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-BOUNDP-METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134D2F0D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 15
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13452B45}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 16
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-GENERIC-FUNCTION-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13453165}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 17
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134DB35D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 18
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-READER-METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134F32FD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 19
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-WRITER-METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134E80A5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 20
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STRUCTURE-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134D91CD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 21
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME ACCESSOR-METHOD-SLOT-DEFINITION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C4495}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 22
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-CAN-PRECEDE-LIST OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2F0D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 23
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-DEFSTRUCT-CONSTRUCTOR OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2B95}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 24
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-DEFSTRUCT-FORM OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C440D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 25
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-DIRECT-SUBCLASSES OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134A28DD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 26
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-DIRECT-SUPERCLASSES OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2DED}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 27
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-EQ-SPECIALIZER OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134521BD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 28
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-INCOMPATIBLE-SUPERCLASS-LIST OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2D05}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 29
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-NAME OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {12D60FDD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 30
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-PRECEDENCE-LIST OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {1345156D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 31
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-WRAPPER OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134530E5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 32
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME DEFINITION-SOURCE OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {12E06A65}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 33
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME EQL-SPECIALIZER-OBJECT OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13452DED}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 34
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-DECLARATIONS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C4455}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 35
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-METHOD-CLASS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13452B85}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 36
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-METHOD-COMBINATION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13453105}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 37
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-METHODS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13452DAD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 38
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-NAME OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134530C5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 39
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GF-ARG-INFO OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13453085}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 40
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GF-DFUN-STATE OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13453025}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 41
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-INITIAL-METHODS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13452DCD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 42
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME LONG-METHOD-COMBINATION-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C436D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 43
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-COMBINATION-OPTIONS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2F55}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 45
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-COMBINATION-TYPE-NAME OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C4515}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 46
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-GENERIC-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {1345220D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 47
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME OBJECT-PLIST OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13453145}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 48
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2BD5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 49
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SHORT-COMBINATION-OPERATOR OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C434D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 50
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-BOUNDP-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C389D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 51
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-CLASS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2EED}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 52
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134521ED}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 53
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-INITARGS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2DAD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 54
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-INITFORM OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C42CD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 55
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-INITFUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2ECD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 56
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-INTERNAL-READER-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C43ED}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 57
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2CA5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 58
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-LOCATION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C44B5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 59
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-NAME OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13452FE5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 60
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-READER-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C44F5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 61
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-READERS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2CC5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 62
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-TYPE OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C43AD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 63
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-WRITER-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2E6D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 64
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-WRITERS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2DCD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 65
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SPECIALIZER-OBJECT OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C4575}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 66
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SPECIALIZER-TYPE OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13452B65}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 67
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF CLASS-DEFSTRUCT-CONSTRUCTOR) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2E4D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 68
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF CLASS-DEFSTRUCT-FORM) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C44D5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 69
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF CLASS-INCOMPATIBLE-SUPERCLASS-LIST) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C43CD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 71
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GENERIC-FUNCTION-METHOD-CLASS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {1345228D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 74
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GENERIC-FUNCTION-METHOD-COMBINATION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13452E0D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 75
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GENERIC-FUNCTION-DECLARATIONS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2C85}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 76
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GENERIC-FUNCTION-METHODS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2CE5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 77
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GF-DFUN-STATE) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13453125}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 79
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GENERIC-FUNCTION-INITIAL-METHODS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13453065}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 80
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF METHOD-GENERIC-FUNCTION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2F35}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 81
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF OBJECT-PLIST) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {1345154D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 82
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-ALLOCATION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C4535}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 83
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-BOUNDP-FUNCTION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2BB5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 84
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-CLASS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2D25}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 85
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL)
                        OLD #1=#<STANDARD-GENERIC-FUNCTION {134C2E0D}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 86
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-INITARGS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C4595}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 87
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-INITFORM) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2E2D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 88
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-INITFUNCTION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C431D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 89
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-INTERNAL-READER-FUNCTION)
                        OLD #1=#<STANDARD-GENERIC-FUNCTION {134C2D45}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 90
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION)
                        OLD #1=#<STANDARD-GENERIC-FUNCTION {134C442D}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 91
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-LOCATION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C3955}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 92
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-NAME) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2C65}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 93
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-READER-FUNCTION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C2E8D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 94
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-READERS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C4475}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 95
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-TYPE) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C38BD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 96
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-WRITER-FUNCTION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C45BD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 97
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-WRITERS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C438D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 98
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME ACCESSOR-METHOD-SLOT-NAME OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134C45DD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 99
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-DIRECT-SLOTS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {1345159D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 102
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-FINALIZED-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {12D60F65}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 103
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-PROTOTYPE OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {12D60F85}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 104
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-SLOTS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134A2005}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 106
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {1345224D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 121
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-LAMBDA-LIST OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {1345169D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 122
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-QUALIFIERS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13451AFD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 123
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-SPECIALIZERS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13453005}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 124
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-ALLOCATION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13452E2D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 126
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SPECIALIZER-CLASS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13453045}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 128
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME ADD-METHOD OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 137
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(SIMPLE-STYLE-WARNING
      :ACTUAL-INITARGS (FORMAT-CONTROL new FTYPE proclamation~@
                       ~S~@
                       for ~S does not match old FTYPE proclamation~@
                       ~S
                        FORMAT-ARGUMENTS
                        (#S(FUN-TYPE
                            :CLASS-INFO #
                            :ENUMERABLE NIL
                            :HASH-VALUE 14141
                            :MIGHT-CONTAIN-OTHER-TYPES-P NIL
                            :REQUIRED #
                            :OPTIONAL NIL
                            :REST NIL
                            :KEYP NIL
                            :KEYWORDS NIL
                            :ALLOWP NIL
                            ...)
                         DESCRIBE-OBJECT
                         #S(BUILT-IN-CLASSOID
                            :CLASS-INFO #
                            :ENUMERABLE NIL
                            :HASH-VALUE 22909
                            :MIGHT-CONTAIN-OTHER-TYPES-P NIL
                            :NAME FUNCTION
                            :LAYOUT #
                            :STATE READ-ONLY
                            :DIRECT-SUPERCLASSES #
                            :SUBCLASSES #
                            :PCL-CLASS #
                            ...)))
      :ASSIGNED-SLOTS NIL)
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME PARSE-SPECIALIZER-USING-CLASS OLD #1=#
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 151
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME REMOVE-METHOD OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 156
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME UNPARSE-SPECIALIZER-USING-CLASS OLD #1=#
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 163
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME COMPUTE-EFFECTIVE-METHOD OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 169
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME INVALID-QUALIFIERS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134F1A4D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 174
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME MAKE-METHOD-LAMBDA OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 181
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME MAKE-METHOD-SPECIALIZERS-FORM OLD #1=#
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 182
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME MAKE-METHOD-INITARGS-FORM OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 187
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GET-METHOD OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 188
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME ENSURE-GENERIC-FUNCTION-USING-CLASS OLD #1=#
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 193
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME NO-APPLICABLE-METHOD OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134DAEFD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 197
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME NO-NEXT-METHOD OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {1345226D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 198
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME NO-PRIMARY-METHOD OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {134F300D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 199
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/slots.lisp" (written 15 JAN 2008 08:10:46 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFINE-CONDITION UNBOUND-SLOT ...)
; compiling (DEFMETHOD WRAPPER-FETCHER ...)
; compiling (DEFMETHOD SLOTS-FETCHER ...)
; compiling (DEFMETHOD RAW-INSTANCE-ALLOCATOR ...)
; compiling (DEFUN SET-WRAPPER ...)
; compiling (DEFUN SWAP-WRAPPERS-AND-SLOTS ...)
; compiling (DECLAIM (INLINE STANDARD-INSTANCE-ACCESS ...))
; compiling (DEFUN STANDARD-INSTANCE-ACCESS ...)
; compiling (DEFUN (SETF STANDARD-INSTANCE-ACCESS) ...)
; compiling (DEFUN FUNCALLABLE-STANDARD-INSTANCE-ACCESS ...)
; compiling (DEFUN (SETF FUNCALLABLE-STANDARD-INSTANCE-ACCESS) ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN SLOT-VALUE ...)
; compiling (DEFINE-COMPILER-MACRO SLOT-VALUE ...)
; compiling (DEFUN SET-SLOT-VALUE ...)
; compiling (DEFUN SAFE-SET-SLOT-VALUE ...)
; compiling (DEFINE-COMPILER-MACRO SET-SLOT-VALUE ...)
; compiling (DEFUN SLOT-BOUNDP ...)
; compiling (DEFINE-COMPILER-MACRO SLOT-BOUNDP ...)
; compiling (DEFUN SLOT-MAKUNBOUND ...)
; compiling (DEFUN SLOT-EXISTS-P ...)
; compiling (DEFVAR *UNBOUND-SLOT-VALUE-MARKER* ...)
; compiling (DEFUN SLOT-VALUE-OR-DEFAULT ...)
; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...)
; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...)
; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...)
; compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...)
; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...)
; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...)
; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...)
; compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...)
; compiling (DEFMETHOD SLOT-VALUE-USING-CLASS ...)
; compiling (DEFMETHOD (SETF SLOT-VALUE-USING-CLASS) ...)
; compiling (DEFMETHOD SLOT-BOUNDP-USING-CLASS ...)
; compiling (DEFMETHOD SLOT-MAKUNBOUND-USING-CLASS ...)
; compiling (DEFMETHOD SLOT-MISSING ...)
; compiling (DEFMETHOD SLOT-UNBOUND ...)
; compiling (DEFUN SLOT-UNBOUND-INTERNAL ...)
; compiling (DEFMETHOD ALLOCATE-INSTANCE ...)
; compiling (DEFMETHOD ALLOCATE-INSTANCE ...)
; compiling (DEFMETHOD ALLOCATE-INSTANCE ...)
; compiling (DEFMETHOD ALLOCATE-INSTANCE ...)
; compiling (DEFMETHOD CLASS-SLOTS ...)

; SYS:SRC;PCL;SLOTS.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/init.lisp" (written 09 SEP 2005 07:09:51 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFMETHOD MAKE-INSTANCE ...)
; compiling (DEFMETHOD MAKE-INSTANCE ...)
; compiling (DEFMETHOD DEFAULT-INITARGS ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS ...)
; compiling (DEFMETHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFUN CHECK-INITARGS-1 ...)
; compiling (DEFUN CHECK-INITARGS-VALUES ...)
; compiling (DEFINE-CONDITION INITARG-ERROR ...)
; compiling (DEFUN CHECK-INITARGS-2-PLIST ...)
; compiling (DEFUN CHECK-INITARGS-2-LIST ...)

; SYS:SRC;PCL;INIT.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/std-class.lisp" (written 10 JUN 2008 12:49:15 AM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFMETHOD SLOT-ACCESSOR-FUNCTION ...)
; compiling (DEFMETHOD (SETF SLOT-ACCESSOR-FUNCTION) ...)
; compiling (DEFCONSTANT +SLOTD-READER-FUNCTION-STD-P+ ...)
; compiling (DEFCONSTANT +SLOTD-WRITER-FUNCTION-STD-P+ ...)
; compiling (DEFCONSTANT +SLOTD-BOUNDP-FUNCTION-STD-P+ ...)
; compiling (DEFCONSTANT +SLOTD-ALL-FUNCTION-STD-P+ ...)
; compiling (DEFMETHOD SLOT-ACCESSOR-STD-P ...)
; compiling (DEFMETHOD (SETF SLOT-ACCESSOR-STD-P) ...)
; compiling (DEFMETHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/std-class.lisp
; in:
;      DEFMETHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION)
;     (DEFMETHOD SB-PCL::INITIALIZE-INTERNAL-SLOT-FUNCTIONS
;                ((SB-PCL::SLOTD SB-MOP:EFFECTIVE-SLOT-DEFINITION))
;                (LET* ((SB-PCL::NAME (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::NAME))
;                       (CLASS (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::%CLASS)))
;                  (DOLIST (TYPE '(SB-PCL::READER SB-PCL::WRITER BOUNDP))
;                    (LET* (# #)
;                      (SB-PCL::COMPUTE-SLOT-ACCESSOR-INFO SB-PCL::SLOTD TYPE
;                                                          SB-PCL::GF)))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK 
; ==>
;   (LET* ((SB-PCL::NAME
;           (SB-PCL::OPTIMIZED-SLOT-VALUE
;            (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::NAME) SB-PCL::SLOTD
;            (SB-PCL::INSTANCE-READ # SB-PCL::SLOTD 0 'SB-PCL::NAME
;                                   'SB-MOP:EFFECTIVE-SLOT-DEFINITION)))
;          (CLASS
;           (SB-PCL::OPTIMIZED-SLOT-VALUE
;            (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::%CLASS) SB-PCL::SLOTD
;            (SB-PCL::INSTANCE-READ # SB-PCL::SLOTD 0 'SB-PCL::%CLASS
;                                   'SB-MOP:EFFECTIVE-SLOT-DEFINITION))))
;     (DOLIST (TYPE '(SB-PCL::READER SB-PCL::WRITER BOUNDP))
;       (LET* ((SB-PCL::GF-NAME #) (SB-PCL::GF #))
;         (SB-PCL::COMPUTE-SLOT-ACCESSOR-INFO SB-PCL::SLOTD TYPE SB-PCL::GF))))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (NAME))
;      :ASSIGNED-SLOTS NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (CLASS))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFMETHOD COMPUTE-SLOT-ACCESSOR-INFO ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/std-class.lisp
; in:
;      DEFMETHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T)
;     (DEFMETHOD SB-PCL::COMPUTE-SLOT-ACCESSOR-INFO
;                ((SB-PCL::SLOTD SB-MOP:EFFECTIVE-SLOT-DEFINITION) TYPE SB-PCL::GF)
;                (LET* ((SB-PCL::NAME (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::NAME))
;                       (CLASS (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::%CLASS))
;                       (SB-PCL::OLD-SLOTD (WHEN # #))
;                       (SB-PCL::OLD-STD-P (AND SB-PCL::OLD-SLOTD #)))
;                  (MULTIPLE-VALUE-BIND
;                      #'SB-PCL::STD-P
;                      (IF (EQ SB-PCL::*BOOT-STATE* 'SB-PCL::COMPLETE)
;                          (SB-PCL::GET-ACCESSOR-METHOD-FUNCTION SB-PCL::GF TYPE
;                           CLASS SB-PCL::SLOTD)
;                          (SB-PCL::GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION
;                           CLASS SB-PCL::SLOTD TYPE))
;                    (SETF (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::SLOTD TYPE)
;                            SB-PCL::STD-P)
;                    (SETF (SB-PCL::SLOT-ACCESSOR-FUNCTION SB-PCL::SLOTD TYPE)
;                            FUNCTION))))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK 
; ==>
;   (LET* ((SB-PCL::NAME
;           (SB-PCL::OPTIMIZED-SLOT-VALUE
;            (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::NAME) SB-PCL::SLOTD
;            (SB-PCL::INSTANCE-READ # SB-PCL::SLOTD 0 'SB-PCL::NAME
;                                   'SB-MOP:EFFECTIVE-SLOT-DEFINITION)))
;          (CLASS
;           (SB-PCL::OPTIMIZED-SLOT-VALUE
;            (SLOT-VALUE SB-PCL::SLOTD 'SB-PCL::%CLASS) SB-PCL::SLOTD
;            (SB-PCL::INSTANCE-READ # SB-PCL::SLOTD 0 'SB-PCL::%CLASS
;                                   'SB-MOP:EFFECTIVE-SLOT-DEFINITION)))
;          (SB-PCL::OLD-SLOTD
;           (WHEN (SB-MOP:CLASS-FINALIZED-P CLASS)
;             (SB-PCL::FIND-SLOT-DEFINITION CLASS SB-PCL::NAME)))
;          (SB-PCL::OLD-STD-P
;           (AND SB-PCL::OLD-SLOTD
;                (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::OLD-SLOTD 'SB-PCL::ALL))))
;     (MULTIPLE-VALUE-BIND
;         #'SB-PCL::STD-P
;         (IF (EQ SB-PCL::*BOOT-STATE* 'SB-PCL::COMPLETE)
;             (SB-PCL::GET-ACCESSOR-METHOD-FUNCTION SB-PCL::GF TYPE CLASS
;              SB-PCL::SLOTD)
;             (SB-PCL::GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION CLASS
;                                                                 SB-PCL::SLOTD
;                                                                 TYPE))
;       (SETF (SB-PCL::SLOT-ACCESSOR-STD-P SB-PCL::SLOTD TYPE) SB-PCL::STD-P)
;       (SETF (SB-PCL::SLOT-ACCESSOR-FUNCTION SB-PCL::SLOTD TYPE) FUNCTION)))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (OLD-STD-P))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFMETHOD SLOT-DEFINITION-ALLOCATION ...)
; compiling (DEFMETHOD CLASS-PROTOTYPE ...)
; compiling (DEF STD-CLASS)
; compiling (DEF CONDITION-CLASS)
; compiling (DEF STRUCTURE-CLASS)
; compiling (DEFMETHOD CLASS-DIRECT-DEFAULT-INITARGS ...)
; compiling (DEFMETHOD CLASS-DEFAULT-INITARGS ...)
; compiling (DEFMETHOD CLASS-SLOT-CELLS ...)
; compiling (DEFMETHOD (SETF CLASS-SLOT-CELLS) ...)
; compiling (DEFMETHOD ADD-DIRECT-SUBCLASS ...)
; compiling (DEFMETHOD REMOVE-DIRECT-SUBCLASS ...)
; compiling (DEFVAR *SPECIALIZER-LOCK* ...)
; compiling (DEFMETHOD ADD-DIRECT-METHOD ...)
; compiling (DEFMETHOD REMOVE-DIRECT-METHOD ...)
; compiling (DEFMETHOD ADD-DIRECT-METHOD ...)
; compiling (DEFMETHOD REMOVE-DIRECT-METHOD ...)
; compiling (DEFMETHOD SPECIALIZER-DIRECT-METHODS ...)
; compiling (DEFMETHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS ...)
; compiling (DEFVAR *EQL-SPECIALIZER-METHODS* ...)
; compiling (DEFVAR *CLASS-EQ-SPECIALIZER-METHODS* ...)
; compiling (DEFMETHOD SPECIALIZER-METHOD-TABLE ...)
; compiling (DEFMETHOD SPECIALIZER-METHOD-TABLE ...)
; compiling (DEFMETHOD ADD-DIRECT-METHOD ...)
; compiling (DEFMETHOD REMOVE-DIRECT-METHOD ...)
; compiling (DEFMETHOD SPECIALIZER-DIRECT-METHODS ...)
; compiling (DEFMETHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS ...)
; compiling (DEFUN MAP-SPECIALIZERS ...)
; compiling (DEFUN MAP-ALL-GENERIC-FUNCTIONS ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFUN REAL-LOAD-DEFCLASS ...)
; compiling (SETF (GDEFINITION #) ...)
; compiling (DEFUN ENSURE-CLASS ...)
; compiling (DEFMETHOD ENSURE-CLASS-USING-CLASS ...)
; compiling (DEFMETHOD ENSURE-CLASS-USING-CLASS ...)
; compiling (DEFUN FROB-ENSURE-CLASS-ARGS ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFVAR *ALLOW-FORWARD-REFERENCED-CLASSES-IN-CPL-P* ...)
; compiling (DEFUN MAKE-PRELIMINARY-LAYOUT ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/std-class.lisp
; in: DEFUN MAKE-PRELIMINARY-LAYOUT
;     (LET ((SB-PCL::NAME (CLASS-NAME CLASS)))
;       (LET ((SB-KERNEL:LAYOUT (SB-PCL::MAKE-WRAPPER 0 CLASS)))
;         (SETF (SLOT-VALUE CLASS 'SB-PCL::WRAPPER) SB-KERNEL:LAYOUT)
;         (LET ((SB-PCL::CPL #))
;           (SETF (SB-KERNEL:LAYOUT-INHERITS SB-KERNEL:LAYOUT)
;                   (SB-KERNEL:ORDER-LAYOUT-INHERITS #)))
;         (SB-KERNEL:REGISTER-LAYOUT SB-KERNEL:LAYOUT :INVALIDATE T)
;         (SB-PCL::SET-CLASS-TYPE-TRANSLATION CLASS
;                                             (SB-KERNEL:LAYOUT-CLASSOID
;                                              SB-KERNEL:LAYOUT))))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (NAME))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...)
; compiling (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ...)
; compiling (DEFMETHOD FINALIZE-INHERITANCE ...)
; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFMETHOD COMPUTE-SLOTS ...)
; compiling (DEFMETHOD COMPUTE-SLOTS ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFUN MAKE-STRUCTURE-CLASS-DEFSTRUCT-FORM ...)
; compiling (DEFUN MAKE-DEFSTRUCT-ALLOCATION-FUNCTION ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...)
; compiling (DEFMETHOD FINALIZE-INHERITANCE ...)
; compiling (DEFUN ADD-SLOT-ACCESSORS ...)
; compiling (DEFUN REMOVE-SLOT-ACCESSORS ...)
; compiling (DEFUN FIX-SLOT-ACCESSORS ...)
; compiling (DEFUN ADD-DIRECT-SUBCLASSES ...)
; compiling (DEFMETHOD FINALIZE-INHERITANCE ...)
; compiling (DEFMETHOD FINALIZE-INHERITANCE ...)
; compiling (DEFUN CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ...)
; compiling (DEFUN UPDATE-CLASS ...)
; compiling (DEFINE-CONDITION CPL-PROTOCOL-VIOLATION ...)
; compiling (DEFUN UPDATE-CPL ...)
; compiling (DEFUN UPDATE-CLASS-CAN-PRECEDE-P ...)
; compiling (DEFUN CLASS-CAN-PRECEDE-P ...)
; compiling (DEFUN UPDATE-SLOTS ...)
; compiling (DEFUN COMPUTE-CLASS-SLOTS ...)
; compiling (DEFUN UPDATE-GFS-OF-CLASS ...)
; compiling (DEFUN UPDATE-INITARGS ...)
; compiling (DEFMETHOD COMPUTE-DEFAULT-INITARGS ...)
; compiling (DEFMETHOD DIRECT-SLOT-DEFINITION-CLASS ...)
; compiling (DEFUN MAKE-DIRECT-SLOTD ...)
; compiling (DEFUN STD-COMPUTE-SLOTS ...)
; compiling (DEFMETHOD COMPUTE-SLOTS ...)
; compiling (DEFMETHOD COMPUTE-SLOTS ...)
; compiling (DEFUN STD-COMPUTE-SLOTS-AROUND ...)
; compiling (DEFMETHOD COMPUTE-SLOTS ...)
; compiling (DEFMETHOD COMPUTE-SLOTS ...)
; compiling (DEFMETHOD COMPUTE-SLOTS ...)
; compiling (DEFMETHOD COMPUTE-SLOTS ...)
; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION ...)
; compiling (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ...)
; compiling (DEFMETHOD EFFECTIVE-SLOT-DEFINITION-CLASS ...)
; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS ...)
; compiling (DEFMETHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS ...)
; compiling (DEFMETHOD READER-METHOD-CLASS ...)
; compiling (DEFMETHOD ADD-READER-METHOD ...)
; compiling (DEFMETHOD WRITER-METHOD-CLASS ...)
; compiling (DEFMETHOD ADD-WRITER-METHOD ...)
; compiling (DEFMETHOD ADD-BOUNDP-METHOD ...)
; compiling (DEFMETHOD REMOVE-READER-METHOD ...)
; compiling (DEFMETHOD REMOVE-WRITER-METHOD ...)
; compiling (DEFMETHOD REMOVE-BOUNDP-METHOD ...)
; compiling (DEFMETHOD MAKE-READER-METHOD-FUNCTION ...)
; compiling (DEFMETHOD MAKE-WRITER-METHOD-FUNCTION ...)
; compiling (DEFMETHOD MAKE-BOUNDP-METHOD-FUNCTION ...)
; compiling (DEFMETHOD COMPATIBLE-META-CLASS-CHANGE-P ...)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFUN FORCE-CACHE-FLUSHES ...)
; compiling (DEFUN FLUSH-CACHE-TRAP ...)
; compiling (DEFMETHOD MAKE-INSTANCES-OBSOLETE ...)
; compiling (DEFMETHOD MAKE-INSTANCES-OBSOLETE ...)
; compiling (DEFVAR *IN-OBSOLETE-INSTANCE-TRAP* ...)
; compiling (DEFVAR *THE-WRAPPER-OF-STRUCTURE-OBJECT* ...)
; compiling (DEFINE-CONDITION OBSOLETE-STRUCTURE ...)
; compiling (DEFUN OBSOLETE-INSTANCE-TRAP ...)
; compiling (DEFUN CHANGE-CLASS-INTERNAL ...)
; compiling (DEFMETHOD CHANGE-CLASS ...)
; compiling (DEFMETHOD CHANGE-CLASS ...)
; compiling (DEFMETHOD CHANGE-CLASS ...)
; compiling (DEFMETHOD CHANGE-CLASS ...)
; compiling (DEFMETHOD CHANGE-CLASS ...)
; compiling (DEFMETHOD CHANGE-CLASS ...)
; compiling (DEF INITIALIZE-INSTANCE ...)
; compiling (DEF REINITIALIZE-INSTANCE ...)
; compiling (DEF CLASS-DIRECT-SLOTS)
; compiling (DEF CLASS-SLOTS)
; compiling (DEF CLASS-DIRECT-DEFAULT-INITARGS)
; compiling (DEF CLASS-DEFAULT-INITARGS)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFMETHOD CLASS-DIRECT-SLOTS ...)
; compiling (DEFMETHOD CLASS-DIRECT-DEFAULT-INITARGS ...)
; compiling (DEF CLASS-DEFAULT-INITARGS)
; compiling (DEF CLASS-PRECEDENCE-LIST)
; compiling (DEF CLASS-SLOTS)
; compiling (DEFMETHOD VALIDATE-SUPERCLASS ...)
; compiling (DEFMETHOD ADD-DEPENDENT ...)
; compiling (DEFMETHOD REMOVE-DEPENDENT ...)
; compiling (DEFMETHOD MAP-DEPENDENTS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/std-class.lisp
; in: DEFUN FIX-SLOT-ACCESSORS
;     (SB-PCL::FIND-GENERIC-FUNCTION SB-PCL::GFSPEC NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION FIND-GENERIC-FUNCTION))
;      :ASSIGNED-SLOTS NIL)

; in:
;      DEFMETHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T)
;     (SB-PCL::GET-ACCESSOR-METHOD-FUNCTION SB-PCL::GF TYPE CLASS SB-PCL::SLOTD)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION GET-ACCESSOR-METHOD-FUNCTION))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS
;                        (#1=(GET-ACCESSOR-METHOD-FUNCTION) FUNCTION
;                         (FIND-GENERIC-FUNCTION . #1#)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions


; SYS:SRC;PCL;STD-CLASS.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/cpl.lisp" (written 14 JUL 2005 10:28:17 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFMETHOD COMPUTE-CLASS-PRECEDENCE-LIST ...)
; compiling (DEFSTRUCT (CLASS-PRECEDENCE-DESCRIPTION # ...) ...)
; compiling (DEFUN COMPUTE-STD-CPL ...)
; compiling (DEFVAR *COMPUTE-STD-CPL-CLASS->ENTRY-TABLE-SIZE* ...)
; compiling (DEFUN COMPUTE-STD-CPL-PHASE-1 ...)
; compiling (DEFUN COMPUTE-STD-CPL-PHASE-2 ...)
; compiling (DEFUN COMPUTE-STD-CPL-PHASE-3 ...)
; compiling (DEFUN CPL-ERROR ...)
; compiling (DEFUN CPL-FORWARD-REFERENCED-CLASS-ERROR ...)
; compiling (DEFUN FIND-SUPERCLASS-CHAIN ...)
; compiling (DEFUN CPL-INCONSISTENT-ERROR ...)
; compiling (DEFUN FORMAT-CYCLE-REASONS ...)
; compiling (DEFUN FIND-CYCLE-REASONS ...)

; SYS:SRC;PCL;CPL.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/fsc.lisp" (written 07 NOV 2006 12:22:17 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFMETHOD WRAPPER-FETCHER ...)
; compiling (DEFMETHOD SLOTS-FETCHER ...)
; compiling (DEFMETHOD RAW-INSTANCE-ALLOCATOR ...)
; compiling (DEFMETHOD ALLOCATE-INSTANCE ...)
; compiling (DEFMETHOD MAKE-READER-METHOD-FUNCTION ...)
; compiling (DEFMETHOD MAKE-WRITER-METHOD-FUNCTION ...)

; SYS:SRC;PCL;FSC.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/methods.lisp" (written 16 JUL 2008 08:30:01 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFINE-CONDITION METAOBJECT-INITIALIZATION-VIOLATION ...)
; compiling (DEF REINITIALIZE-INSTANCE ...)
; compiling (DEF CHANGE-CLASS ...)
; compiling (DEF UPDATE-INSTANCE-FOR-REDEFINED-CLASS ...)
; compiling (DEF UPDATE-INSTANCE-FOR-DIFFERENT-CLASS ...)
; compiling (DEF UPDATE-INSTANCE-FOR-DIFFERENT-CLASS ...)
; compiling (DEFINE-CONDITION INVALID-METHOD-INITARG ...)
; compiling (DEFUN INVALID-METHOD-INITARG ...)
; compiling (DEFUN CHECK-DOCUMENTATION ...)
; compiling (DEFUN CHECK-LAMBDA-LIST ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/methods.lisp
; in: DEFUN CHECK-LAMBDA-LIST
;     (DEFUN SB-PCL::CHECK-LAMBDA-LIST (METHOD SB-PCL::LL) NIL)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-PCL::CHECK-LAMBDA-LIST
;                    (SB-INT:NAMED-LAMBDA SB-PCL::CHECK-LAMBDA-LIST
;                                         (METHOD SB-PCL::LL)
;                                         (BLOCK SB-PCL::CHECK-LAMBDA-LIST NIL))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (METHOD))
;      :ASSIGNED-SLOTS NIL)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (LL))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN CHECK-METHOD-FUNCTION ...)
; compiling (DEFUN CHECK-QUALIFIERS ...)
; compiling (DEFUN CHECK-SLOT-NAME ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/methods.lisp
; in: DEFUN CHECK-SLOT-NAME
;     (DEFUN SB-PCL::CHECK-SLOT-NAME (METHOD SB-PCL::NAME)
;       (UNLESS (SYMBOLP SB-PCL::NAME)
;         (SB-PCL::INVALID-METHOD-INITARG "~@<~S of ~S is not a ~S.~@:>" :SLOT-NAME
;          SB-PCL::NAME 'SYMBOL)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-PCL::CHECK-SLOT-NAME
;                    (SB-INT:NAMED-LAMBDA SB-PCL::CHECK-SLOT-NAME
;                                         (METHOD SB-PCL::NAME)
;                                         (BLOCK SB-PCL::CHECK-SLOT-NAME
;                                           (UNLESS (SYMBOLP SB-PCL::NAME)
;                                             (SB-PCL::INVALID-METHOD-INITARG
;                                              "~@<~S of ~S is not a ~S.~@:>"
;                                              :SLOT-NAME SB-PCL::NAME
;                                              'SYMBOL))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (METHOD))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN CHECK-SPECIALIZERS ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFVAR *THE-CLASS-GENERIC-FUNCTION* ...)
; compiling (DEFVAR *THE-CLASS-STANDARD-GENERIC-FUNCTION* ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFUN FIND-GENERIC-FUNCTION ...)
; compiling (DEFUN REAL-ADD-NAMED-METHOD ...)
; compiling (DEFINE-CONDITION FIND-METHOD-LENGTH-MISMATCH ...)
; compiling (DEFUN REAL-GET-METHOD ...)
; compiling (DEFMETHOD FIND-METHOD ...)
; compiling (DEFMETHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO ...)
; compiling (DEFUN COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO-INTERNAL ...)
; compiling (DEFUN MAKE-DISCRIMINATING-FUNCTION-ARGLIST ...)
; compiling (DEFMETHOD GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER ...)
; compiling (DEFMETHOD GENERIC-FUNCTION-LAMBDA-LIST ...)
; compiling (DEFMETHOD GF-FAST-METHOD-FUNCTION-P ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD REINITIALIZE-INSTANCE ...)
; compiling (DECLAIM (SPECIAL *LAZY-DFUN-COMPUTE-P*))
; compiling (DEFUN SET-METHODS ...)
; compiling (DEFINE-CONDITION NEW-VALUE-SPECIALIZATION ...)
; compiling (DEFGENERIC VALUES-FOR-ADD-METHOD ...)
; compiling (DEFINE-CONDITION PRINT-OBJECT-STREAM-SPECIALIZER ...)
; compiling (DEFUN REAL-ADD-METHOD ...)
; compiling (DEFUN REAL-REMOVE-METHOD ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/methods.lisp
; in: DEFUN REAL-REMOVE-METHOD
;     (LET* ((SB-PCL::SPECIALIZERS (SB-MOP:METHOD-SPECIALIZERS METHOD))
;            (SB-PCL::METHODS (SB-MOP:GENERIC-FUNCTION-METHODS GENERIC-FUNCTION))
;            (SB-PCL::NEW-METHODS (REMOVE METHOD SB-PCL::METHODS)))
;       (SETF (SB-MOP:METHOD-GENERIC-FUNCTION METHOD)
;               NIL
;             (SB-MOP:GENERIC-FUNCTION-METHODS GENERIC-FUNCTION)
;               SB-PCL::NEW-METHODS)
;       (DOLIST (SB-MOP:SPECIALIZER (SB-MOP:METHOD-SPECIALIZERS METHOD))
;         (SB-MOP:REMOVE-DIRECT-METHOD SB-MOP:SPECIALIZER METHOD))
;       (SB-PCL::SET-ARG-INFO GENERIC-FUNCTION)
;       (SB-PCL::UPDATE-CTORS 'REMOVE-METHOD :GENERIC-FUNCTION GENERIC-FUNCTION
;                             :METHOD METHOD)
;       (SB-PCL::UPDATE-DFUN GENERIC-FUNCTION)
;       (SB-MOP:MAP-DEPENDENTS GENERIC-FUNCTION
;                              (LAMBDA (SB-PCL::DEP)
;                                (SB-MOP:UPDATE-DEPENDENT GENERIC-FUNCTION
;                                                         SB-PCL::DEP
;                                                         'REMOVE-METHOD METHOD))))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (SPECIALIZERS))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN COMPUTE-APPLICABLE-METHODS-FUNCTION ...)
; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS ...)
; compiling (DEFMETHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES ...)
; compiling (DEFUN PROCLAIM-INCOMPATIBLE-SUPERCLASSES ...)
; compiling (DEFUN SUPERCLASSES-COMPATIBLE-P ...)
; compiling (MAPC (FUNCTION PROCLAIM-INCOMPATIBLE-SUPERCLASSES) ...)
; compiling (DEFMETHOD SAME-SPECIALIZER-P ...)
; compiling (DEFMETHOD SAME-SPECIALIZER-P ...)
; compiling (DEFMETHOD SPECIALIZER-CLASS ...)
; compiling (DEFMETHOD SAME-SPECIALIZER-P ...)
; compiling (DEFMETHOD SAME-SPECIALIZER-P ...)
; compiling (DEFMETHOD SPECIALIZER-CLASS ...)
; compiling (DEFUN SPECIALIZER-CLASS-OR-NIL ...)
; compiling (DEFUN ERROR-NEED-AT-LEAST-N-ARGS ...)
; compiling (DEFUN TYPES-FROM-ARGS ...)
; compiling (DEFUN GET-WRAPPERS-FROM-CLASSES ...)
; compiling (DEFUN SDFUN-FOR-CACHING ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/methods.lisp
; in: DEFUN SDFUN-FOR-CACHING
;     (SB-PCL::MAKE-CALLABLE SB-PCL::GF SB-PCL::METHODS SB-PCL::GENERATOR NIL
;                            (MAPCAR #'SB-PCL::CLASS-WRAPPER SB-PCL::CLASSES))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (GF))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFUN VALUE-FOR-CACHING ...)
; compiling (DEFUN DEFAULT-SECONDARY-DISPATCH-FUNCTION ...)
; compiling (DEFUN LIST-EQ ...)
; compiling (DEFVAR *STD-CAM-METHODS* ...)
; compiling (DEFUN COMPUTE-APPLICABLE-METHODS-EMF ...)
; compiling (DEFUN COMPUTE-APPLICABLE-METHODS-EMF-STD-P ...)
; compiling (DEFVAR *OLD-C-A-M-GF-METHODS* ...)
; compiling (DEFUN UPDATE-ALL-C-A-M-GF-INFO ...)
; compiling (DEFUN UPDATE-GF-INFO ...)
; compiling (DEFUN UPDATE-C-A-M-GF-INFO ...)
; compiling (DEFUN UPDATE-GF-SIMPLE-ACCESSOR-TYPE ...)
; compiling (DEFUN GET-ACCESSOR-METHOD-FUNCTION ...)
; compiling (DEFUN UPDATE-SLOT-VALUE-GF-INFO ...)
; compiling (DEFVAR *STANDARD-SLOT-VALUE-USING-CLASS-METHOD* ...)
; compiling (DEFVAR *STANDARD-SETF-SLOT-VALUE-USING-CLASS-METHOD* ...)
; compiling (DEFVAR *STANDARD-SLOT-BOUNDP-USING-CLASS-METHOD* ...)
; compiling (DEFVAR *CONDITION-SLOT-VALUE-USING-CLASS-METHOD* ...)
; compiling (DEFVAR *CONDITION-SETF-SLOT-VALUE-USING-CLASS-METHOD* ...)
; compiling (DEFVAR *CONDITION-SLOT-BOUNDP-USING-CLASS-METHOD* ...)
; compiling (DEFVAR *STRUCTURE-SLOT-VALUE-USING-CLASS-METHOD* ...)
; compiling (DEFVAR *STRUCTURE-SETF-SLOT-VALUE-USING-CLASS-METHOD* ...)
; compiling (DEFVAR *STRUCTURE-SLOT-BOUNDP-USING-CLASS-METHOD* ...)
; compiling (DEFUN STANDARD-SVUC-METHOD ...)
; compiling (DEFUN SET-STANDARD-SVUC-METHOD ...)
; compiling (DEFUN CONDITION-SVUC-METHOD ...)
; compiling (DEFUN SET-CONDITION-SVUC-METHOD ...)
; compiling (DEFUN STRUCTURE-SVUC-METHOD ...)
; compiling (DEFUN SET-STRUCTURE-SVUC-METHOD ...)
; compiling (DEFUN UPDATE-STD-OR-STR-METHODS ...)
; compiling (DEFUN MEC-ALL-CLASSES-INTERNAL ...)
; compiling (DEFUN MEC-ALL-CLASSES ...)
; compiling (DEFUN MEC-ALL-CLASS-LISTS ...)
; compiling (DEFUN MAKE-EMF-CACHE ...)
; compiling (DEFMACRO CLASS-TEST ...)
; compiling (DEFMACRO CLASS-EQ-TEST ...)
; compiling (DEFMACRO EQL-TEST ...)
; compiling (DEFUN DNET-METHODS-P ...)
; compiling (DEFMACRO SCASE ...)
; compiling (DEFMACRO MCASE ...)
; compiling (DEFUN GENERATE-DISCRIMINATION-NET ...)
; compiling (DEFUN CLASS-FROM-TYPE ...)
; compiling (DEFUN PRECOMPUTE-EFFECTIVE-METHODS ...)
; compiling (DEFUN AUGMENT-TYPE ...)
; compiling (DEFUN GENERATE-DISCRIMINATION-NET-INTERNAL ...)
; compiling (DEFUN COMPUTE-SECONDARY-DISPATCH-FUNCTION ...)
; compiling (DEFVAR *EQ-CASE-TABLE-LIMIT* ...)
; compiling (DEFVAR *CASE-TABLE-LIMIT* ...)
; compiling (DEFUN COMPUTE-MCASE-PARAMETERS ...)
; compiling (DEFMACRO MLOOKUP ...)
; compiling (DEFUN NET-TEST-CONVERTER ...)
; compiling (DEFUN NET-CODE-CONVERTER ...)
; compiling (DEFUN NET-CONSTANT-CONVERTER ...)
; compiling (DEFUN METHODS-CONVERTER ...)
; compiling (DEFUN CONVERT-METHODS ...)
; compiling (DEFUN CONVERT-TABLE ...)
; compiling (DEFUN COMPUTE-SECONDARY-DISPATCH-FUNCTION1 ...)
; compiling (DEFVAR *SHOW-MAKE-UNORDERED-METHODS-EMF-CALLS* ...)
; compiling (DEFUN MAKE-UNORDERED-METHODS-EMF ...)
; compiling (DEFUN SLOT-VALUE-USING-CLASS-DFUN ...)
; compiling (DEFUN SETF-SLOT-VALUE-USING-CLASS-DFUN ...)
; compiling (DEFUN SLOT-BOUNDP-USING-CLASS-DFUN ...)
; compiling (DEFUN SPECIAL-CASE-FOR-COMPUTE-DISCRIMINATING-FUNCTION-P ...)
; compiling (LET (PO-CACHE) ...)
; compiling (DEFMETHOD UPDATE-GF-DFUN ...)
; compiling (DEFMETHOD (SETF CLASS-NAME) ...)
; compiling (DEFMETHOD (SETF GENERIC-FUNCTION-NAME) ...)
; compiling (DEFMETHOD FUNCTION-KEYWORDS ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/methods.lisp
; in: DEFMETHOD FUNCTION-KEYWORDS (STANDARD-METHOD)
;     (VALUES SB-PCL::KEYWORDS SB-PCL::ALLOW-OTHER-KEYS-P)
; ==>
;   SB-PCL::KEYWORDS
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL reading an ignored variable: ~S
;                        FORMAT-ARGUMENTS (KEYWORDS))
;      :ASSIGNED-SLOTS NIL)

;     (MULTIPLE-VALUE-BIND
;         (SB-PCL::NREQ SB-PCL::NOPT SB-PCL::KEYSP SB-PCL::RESTP
;          SB-PCL::ALLOW-OTHER-KEYS-P SB-PCL::KEYWORDS SB-PCL::KEYWORD-PARAMETERS)
;         (SB-PCL::ANALYZE-LAMBDA-LIST
;          (IF (CONSP METHOD) (SB-PCL::EARLY-METHOD-LAMBDA-LIST METHOD)
;              (SB-MOP:METHOD-LAMBDA-LIST METHOD)))
;       (DECLARE
;        (IGNORE SB-PCL::NREQ SB-PCL::NOPT SB-PCL::KEYSP SB-PCL::RESTP
;         SB-PCL::KEYWORDS))
;       (VALUES SB-PCL::KEYWORDS SB-PCL::ALLOW-OTHER-KEYS-P))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (&OPTIONAL (SB-PCL::NREQ) (SB-PCL::NOPT) (SB-PCL::KEYSP)
;          (SB-PCL::RESTP) (SB-PCL::ALLOW-OTHER-KEYS-P) (SB-PCL::KEYWORDS)
;          (SB-PCL::KEYWORD-PARAMETERS)
;          &REST #:G1843)
;       (DECLARE (IGNORE #:G1843))
;       (DECLARE
;        (IGNORE SB-PCL::NREQ SB-PCL::NOPT SB-PCL::KEYSP SB-PCL::RESTP
;         SB-PCL::KEYWORDS))
;       (VALUES SB-PCL::KEYWORDS SB-PCL::ALLOW-OTHER-KEYS-P))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (KEYWORD-PARAMETERS))
;      :ASSIGNED-SLOTS NIL)

; compiling (DEFMETHOD FUNCTION-KEYWORD-PARAMETERS ...)
; compiling (DEFUN METHOD-LL->GENERIC-FUNCTION-LL ...)
; compiling (DEFMETHOD GENERIC-FUNCTION-PRETTY-ARGLIST ...)
; compiling (DEFUN MAYBE-CAR ...)
; compiling (DEFUN %SPLIT-ARGLIST ...); 
; compilation unit finished
;   caught 7 STYLE-WARNING conditions


; SYS:SRC;PCL;METHODS.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/fixup.lisp" (written 12 NOV 2007 07:14:51 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (!FIX-EARLY-GENERIC-FUNCTIONS)
; compiling (!FIX-ENSURE-ACCESSOR-SPECIALIZERS)
; compiling (COMPUTE-STANDARD-SLOT-LOCATIONS)
; compiling (DOLIST (S #) ...)
; file: /Users/nikodemus/src/sbcl/src/pcl/fixup.lisp
; in: DOLIST (S '(CONDITION STRUCTURE-OBJECT))
;     (SB-INT:DOHASH
;      ((SB-PCL::K SB-PCL::V)
;       (SB-KERNEL:CLASSOID-SUBCLASSES (SB-KERNEL:FIND-CLASSOID SB-PCL::S)))
;      (FIND-CLASS (SB-KERNEL:CLASSOID-NAME SB-PCL::K)))
; --> LET WITH-HASH-TABLE-ITERATOR LET MACROLET LOOP BLOCK TAGBODY PROGN 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA (&OPTIONAL (#:G3) (SB-PCL::K) (SB-PCL::V) &REST #:G11)
;       (DECLARE (IGNORE #:G11))
;       (UNLESS #:G3 (RETURN NIL))
;       (FIND-CLASS (SB-KERNEL:CLASSOID-NAME SB-PCL::K)))
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL The variable ~S is defined but never used.
;                        FORMAT-ARGUMENTS (V))
;      :ASSIGNED-SLOTS NIL)

; compiling (SETQ *BOOT-STATE* ...)
; compiling (DEFUN PRINT-STD-INSTANCE ...); 
; compilation unit finished
;   caught 1 STYLE-WARNING condition


; SYS:SRC;PCL;FIXUP.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/defcombin.lisp" (written 30 MAY 2008 04:16:27 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFMACRO DEFINE-METHOD-COMBINATION ...)
; compiling (DEFMETHOD FIND-METHOD-COMBINATION ...)
; compiling (DEFUN EXPAND-SHORT-DEFCOMBIN ...)
; compiling (DEFUN LOAD-SHORT-DEFCOMBIN ...)
; compiling (DEFUN SHORT-COMBINE-METHODS ...)
; compiling (DEFMETHOD COMPUTE-EFFECTIVE-METHOD ...)
; compiling (DEFMETHOD INVALID-QUALIFIERS ...)
; compiling (DEFUN EXPAND-LONG-DEFCOMBIN ...)
; compiling (DEFVAR *LONG-METHOD-COMBINATION-FUNCTIONS* ...)
; compiling (DEFUN LOAD-LONG-DEFCOMBIN ...)
; compiling (DEFMETHOD COMPUTE-EFFECTIVE-METHOD ...)
; compiling (DEFUN MAKE-LONG-METHOD-COMBINATION-FUNCTION ...)
; compiling (DEFINE-CONDITION LONG-METHOD-COMBINATION-ERROR ...)
; compiling (DEFUN GROUP-COND-CLAUSE ...)
; compiling (DEFUN WRAP-METHOD-GROUP-SPECIFIER-BINDINGS ...)
; compiling (DEFUN PARSE-METHOD-GROUP-SPECIFIER ...)
; compiling (DEFUN PARSE-QUALIFIER-PATTERN ...)
; compiling (DEFUN QUALIFIER-CHECK-RUNTIME ...)
; compiling (DEFUN MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION ...)
; compiling (DEFUN DEAL-WITH-ARGS-OPTION ...)
; compiling (DEFUN FROB-COMBINED-METHOD-ARGS ...)

; SYS:SRC;PCL;DEFCOMBIN.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/ctypes.lisp" (written 17 JAN 2002 12:00:35 AM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFINE-METHOD-COMBINATION + ...)
; compiling (DEFINE-METHOD-COMBINATION AND ...)
; compiling (DEFINE-METHOD-COMBINATION APPEND ...)
; compiling (DEFINE-METHOD-COMBINATION LIST ...)
; compiling (DEFINE-METHOD-COMBINATION MAX ...)
; compiling (DEFINE-METHOD-COMBINATION MIN ...)
; compiling (DEFINE-METHOD-COMBINATION NCONC ...)
; compiling (DEFINE-METHOD-COMBINATION OR ...)
; compiling (DEFINE-METHOD-COMBINATION PROGN ...)

; SYS:SRC;PCL;CTYPES.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/env.lisp" (written 02 JUN 2007 12:04:16 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (FMAKUNBOUND (QUOTE MAKE-LOAD-FORM))
; compiling (DEFGENERIC MAKE-LOAD-FORM ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFUN MAKE-LOAD-FORM-SAVING-SLOTS ...)

; SYS:SRC;PCL;ENV.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/documentation.lisp" (written 13 JAN 2008 10:39:21 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFUN FUN-DOC ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFUN (SETF FUN-DOC) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (DEFMETHOD DOCUMENTATION ...)
; compiling (DEFMETHOD (SETF DOCUMENTATION) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)

; SYS:SRC;PCL;DOCUMENTATION.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/print-object.lisp" (written 18 AUG 2007 07:02:15 AM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (/SHOW0 "about to replace placeholder PRINT-OBJECT with DEFGENERIC")
; compiling (LET (#) ...)
; compiling (/SHOW0 "done replacing placeholder PRINT-OBJECT with DEFGENERIC")
; compiling (DEFUN SB-IMPL::PRINTED-AS-FUNCALLABLE-STANDARD-CLASS ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN NAMED-OBJECT-PRINT-FUNCTION ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)

; SYS:SRC;PCL;PRINT-OBJECT.FASL.NEWEST written
; compilation finished in 0:00:00
STYLE-WARNING: #<REDEFINITION-WITH-DEFUN {137A3EA9}>
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/precom1.lisp" (written 25 MAR 2003 02:13:17 AM):
; compiling (IN-PACKAGE "SB-PCL")

; SYS:SRC;PCL;PRECOM1.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/precom2.lisp" (written 21 OCT 2000 02:30:35 AM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (PRECOMPILE-RANDOM-CODE-SEGMENTS PCL)

; SYS:SRC;PCL;PRECOM2.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/force-delayed-defbangmethods.lisp" (written 14 JUL 2005 07:30:34 PM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (FORCE-DELAYED-DEF!METHODS); in: LAMBDA NIL
;     (SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO
;      #<SB-KERNEL:DEFSTRUCT-DESCRIPTION {10873749}> 'NIL)
; ==>
;   (TRULY-THE SB-EVAL:INTERPRETED-FUNCTION
;              (SB-KERNEL:%MAKE-STRUCTURE-INSTANCE
;               #<SB-KERNEL:DEFSTRUCT-DESCRIPTION {10873749}> 'NIL))
; 
; caught WARNING:
;   #<TYPE-WARNING {13D98671}>

; file: /Users/nikodemus/src/sbcl/src/code/force-delayed-defbangmethods.lisp
; in:
;      MACROLET ((FORCE-DELAYED-DEF!METHODS NIL
;             `(PROGN
;               ,@#1#
;               (DEFMACRO DEF!METHOD # ,'`#)
;               (MAKUNBOUND '*DELAYED-DEF!METHOD-ARGS*))))
;     (SB-IMPL::FORCE-DELAYED-DEF!METHODS)
; --> PROGN PROGN DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN 
; --> SB-PCL::LOAD-DEFMETHOD SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK IF IF SB-PCL::OPTIMIZED-SLOT-BOUNDP 
; --> SB-PCL::INSTANCE-BOUNDP SB-PCL::INSTANCE-BOUNDP-INTERNAL LOCALLY LET 
; --> TYPECASE LET COND IF COND PROGN SB-PCL::ACCESSOR-SLOT-BOUNDP LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL #'(SB-PCL::SLOT-ACCESSOR :GLOBAL SB-KERNEL::NAME BOUNDP)
;                   CONDITION)
; 
; caught STYLE-WARNING:
;   #<SIMPLE-STYLE-WARNING {13B03669}>

; 
; caught STYLE-WARNING:
;   #<SIMPLE-STYLE-WARNING {13B3C021}>
; 
; compilation unit finished
;   caught 1 WARNING condition
;   caught 2 STYLE-WARNING conditions


; SYS:SRC;CODE;FORCE-DELAYED-DEFBANGMETHODS.FASL.NEWEST written
; compilation finished in 0:00:02
; compiling file "/Users/nikodemus/src/sbcl/src/code/late-condition.lisp" (written 02 JUN 2007 12:04:15 PM):
; compiling (IN-PACKAGE "SB-KERNEL")
; compiling (FMAKUNBOUND (QUOTE INSTALL-CONDITION-SLOT-READER))
; compiling (FMAKUNBOUND (QUOTE INSTALL-CONDITION-SLOT-WRITER))
; compiling (DEFMACRO STANDARD-METHOD-FUNCTION ...)
; compiling (DEFUN INSTALL-CONDITION-SLOT-READER ...)
; compiling (DEFUN INSTALL-CONDITION-SLOT-WRITER ...)

; SYS:SRC;CODE;LATE-CONDITION.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/gray-streams-class.lisp" (written 20 DEC 2006 05:47:51 PM):
; compiling (IN-PACKAGE "SB-GRAY")
; compiling (LET (#) ...)
; compiling (DEFCLASS FUNDAMENTAL-INPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-OUTPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-BINARY-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-INPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-CHARACTER-OUTPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-BINARY-INPUT-STREAM ...)
; compiling (DEFCLASS FUNDAMENTAL-BINARY-OUTPUT-STREAM ...)

; SYS:SRC;PCL;GRAY-STREAMS-CLASS.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/gray-streams.lisp" (written 11 JAN 2007 11:43:06 PM):
; compiling (IN-PACKAGE "SB-GRAY")
; compiling (DEFMACRO BUG-OR-ERROR ...)
; compiling (FMAKUNBOUND (QUOTE STREAM-ELEMENT-TYPE))
; compiling (DEFGENERIC STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFGENERIC PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (DEFMETHOD PCL-OPEN-STREAM-P ...)
; compiling (PCL-OPEN-STREAM-P (MAKE-STRING-OUTPUT-STREAM))
; compiling (SETF (FDEFINITION #) ...)
; compiling (DEFGENERIC PCL-CLOSE ...)
; compiling (DEFMETHOD PCL-CLOSE ...)
; compiling (DEFMETHOD PCL-CLOSE ...)
; compiling (SETF (FDEFINITION #) ...)
; compiling (LET NIL ...)
; compiling (LET NIL ...)
; compiling (LET NIL ...)
; compiling (DEFGENERIC STREAM-READ-CHAR ...)
; compiling (DEFGENERIC STREAM-UNREAD-CHAR ...)
; compiling (DEFGENERIC STREAM-READ-CHAR-NO-HANG ...)
; compiling (DEFMETHOD STREAM-READ-CHAR-NO-HANG ...)
; compiling (DEFGENERIC STREAM-PEEK-CHAR ...)
; compiling (DEFMETHOD STREAM-PEEK-CHAR ...)
; compiling (DEFGENERIC STREAM-LISTEN ...)
; compiling (DEFMETHOD STREAM-LISTEN ...)
; compiling (DEFGENERIC STREAM-READ-LINE ...)
; compiling (DEFMETHOD STREAM-READ-LINE ...)
; compiling (DEFGENERIC STREAM-CLEAR-INPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-INPUT ...)
; compiling (DEFGENERIC STREAM-READ-SEQUENCE ...)
; compiling (DEFUN BASIC-IO-TYPE-STREAM-READ-SEQUENCE ...)
; compiling (DEFMETHOD STREAM-READ-SEQUENCE ...)
; compiling (DEFMETHOD STREAM-READ-SEQUENCE ...)
; compiling (DEFGENERIC STREAM-WRITE-CHAR ...)
; compiling (DEFGENERIC STREAM-LINE-COLUMN ...)
; compiling (DEFMETHOD STREAM-LINE-COLUMN ...)
; compiling (DEFGENERIC STREAM-LINE-LENGTH ...)
; compiling (DEFMETHOD STREAM-LINE-LENGTH ...)
; compiling (DEFGENERIC STREAM-START-LINE-P ...)
; compiling (DEFMETHOD STREAM-START-LINE-P ...)
; compiling (DEFGENERIC STREAM-WRITE-STRING ...)
; compiling (DEFMETHOD STREAM-WRITE-STRING ...)
; compiling (DEFGENERIC STREAM-TERPRI ...)
; compiling (DEFMETHOD STREAM-TERPRI ...)
; compiling (DEFGENERIC STREAM-FRESH-LINE ...)
; compiling (DEFMETHOD STREAM-FRESH-LINE ...)
; compiling (DEFGENERIC STREAM-FINISH-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FINISH-OUTPUT ...)
; compiling (DEFGENERIC STREAM-FORCE-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; compiling (DEFMETHOD STREAM-FORCE-OUTPUT ...)
; compiling (DEFGENERIC STREAM-CLEAR-OUTPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; compiling (DEFMETHOD STREAM-CLEAR-OUTPUT ...)
; compiling (DEFGENERIC STREAM-ADVANCE-TO-COLUMN ...)
; compiling (DEFMETHOD STREAM-ADVANCE-TO-COLUMN ...)
; compiling (DEFGENERIC STREAM-WRITE-SEQUENCE ...)
; compiling (DEFUN BASIC-IO-TYPE-STREAM-WRITE-SEQUENCE ...)
; compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; compiling (DEFGENERIC STREAM-READ-BYTE ...)
; compiling (DEFMETHOD STREAM-READ-BYTE ...)
; compiling (DEFMETHOD STREAM-READ-BYTE ...)
; compiling (DEFGENERIC STREAM-WRITE-BYTE ...)
; compiling (DEFMETHOD STREAM-WRITE-BYTE ...)
; compiling (DEFMETHOD STREAM-WRITE-BYTE ...)
; compiling (DEFMETHOD STREAM-WRITE-SEQUENCE ...)
; compiling (DEFGENERIC STREAM-FILE-POSITION ...)
; compiling (DEFMETHOD STREAM-FILE-POSITION ...)
; compiling (DEFMETHOD STREAM-FILE-POSITION ...)

; SYS:SRC;PCL;GRAY-STREAMS.FASL.NEWEST written
; compilation finished in 0:00:00
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-READ-CHAR does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
for STREAM-UNREAD-CHAR does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-READ-CHAR-NO-HANG does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-PEEK-CHAR does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-LISTEN does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-READ-LINE does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-CLEAR-INPUT does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
for STREAM-WRITE-CHAR does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-LINE-COLUMN does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-LINE-LENGTH does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-START-LINE-P does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T &OPTIONAL T T) *)>
for STREAM-WRITE-STRING does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-TERPRI does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-FRESH-LINE does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-FINISH-OUTPUT does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-FORCE-OUTPUT does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-CLEAR-OUTPUT does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
for STREAM-ADVANCE-TO-COLUMN does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-READ-BYTE does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
for STREAM-WRITE-BYTE does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/sequence.lisp" (written 05 DEC 2006 07:50:23 PM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFINE-CONDITION SB-SEQUENCE::PROTOCOL-UNIMPLEMENTED ...)
; compiling (DEFUN SB-SEQUENCE::PROTOCOL-UNIMPLEMENTED ...)
; compiling (DEFGENERIC SB-SEQUENCE:LENGTH ...)
; compiling (DEFGENERIC SB-SEQUENCE:ELT ...)
; compiling (DEFGENERIC (SETF SB-SEQUENCE:ELT) ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SEQUENCE-LIKE ...)
; compiling (DEFGENERIC SB-SEQUENCE:ADJUST-SEQUENCE ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SEQUENCE-ITERATOR ...)
; compiling (DEFVAR *EXHAUSTED* ...)
; compiling (DEFGENERIC SB-SEQUENCE:MAKE-SIMPLE-SEQUENCE-ITERATOR ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-STEP ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-ENDP ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-ELEMENT ...)
; compiling (DEFGENERIC (SETF SB-SEQUENCE:ITERATOR-ELEMENT) ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-INDEX ...)
; compiling (DEFGENERIC SB-SEQUENCE:ITERATOR-COPY ...)
; compiling (DEFMACRO SB-SEQUENCE:WITH-SEQUENCE-ITERATOR ...)
; compiling (DEFMACRO SB-SEQUENCE:WITH-SEQUENCE-ITERATOR-FUNCTIONS ...)
; compiling (DEFUN SB-SEQUENCE:CANONIZE-TEST ...)
; compiling (DEFUN SB-SEQUENCE:CANONIZE-KEY ...)
; compiling (DEFUN LOOP-ELEMENTS-ITERATION-PATH ...)
; compiling (SB-LOOP::ADD-LOOP-PATH (QUOTE #) ...)
; compiling (DEFGENERIC SB-SEQUENCE:COUNT ...)
; compiling (DEFMETHOD SB-SEQUENCE:COUNT ...)
; compiling (DEFGENERIC SB-SEQUENCE:COUNT-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:COUNT-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:COUNT-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:COUNT-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:FIND ...)
; compiling (DEFMETHOD SB-SEQUENCE:FIND ...)
; compiling (DEFGENERIC SB-SEQUENCE:FIND-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:FIND-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:FIND-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:FIND-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:POSITION ...)
; compiling (DEFMETHOD SB-SEQUENCE:POSITION ...)
; compiling (DEFGENERIC SB-SEQUENCE:POSITION-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:POSITION-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:POSITION-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:POSITION-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSEQ ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSEQ ...)
; compiling (DEFGENERIC SB-SEQUENCE:COPY-SEQ ...)
; compiling (DEFMETHOD SB-SEQUENCE:COPY-SEQ ...)
; compiling (DEFGENERIC SB-SEQUENCE:FILL ...)
; compiling (DEFMETHOD SB-SEQUENCE:FILL ...)
; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE ...)
; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE ...)
; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:NSUBSTITUTE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:NSUBSTITUTE-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:SUBSTITUTE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:SUBSTITUTE-IF-NOT ...)
; compiling (DEFUN %SEQUENCE-REPLACE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REPLACE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REPLACE ...)
; compiling (DEFGENERIC SB-SEQUENCE:NREVERSE ...)
; compiling (DEFMETHOD SB-SEQUENCE:NREVERSE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REVERSE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REVERSE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REDUCE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REDUCE ...)
; compiling (DEFGENERIC SB-SEQUENCE:MISMATCH ...)
; compiling (DEFMETHOD SB-SEQUENCE:MISMATCH ...)
; compiling (DEFGENERIC SB-SEQUENCE:SEARCH ...)
; compiling (DEFMETHOD SB-SEQUENCE:SEARCH ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-IF ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-IF ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-IF-NOT ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-IF-NOT ...)
; compiling (DEFGENERIC SB-SEQUENCE:DELETE-DUPLICATES ...)
; compiling (DEFMETHOD SB-SEQUENCE:DELETE-DUPLICATES ...)
; compiling (DEFGENERIC SB-SEQUENCE:REMOVE-DUPLICATES ...)
; compiling (DEFMETHOD SB-SEQUENCE:REMOVE-DUPLICATES ...)
; compiling (DEFGENERIC SB-SEQUENCE:SORT ...)
; compiling (DEFMETHOD SB-SEQUENCE:SORT ...)
; compiling (DEFGENERIC SB-SEQUENCE:STABLE-SORT ...)
; compiling (DEFMETHOD SB-SEQUENCE:STABLE-SORT ...)

; SYS:SRC;PCL;SEQUENCE.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/describe.lisp" (written 03 JUL 2008 10:24:50 PM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DECLAIM (FTYPE # ...)); 
; caught STYLE-WARNING:
;   new FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T STREAM) *)>
;   for DESCRIBE-OBJECT does not match old FTYPE proclamation
;   #<FUN-TYPE (FUNCTION (T T) *)>

; compiling (DEFGENERIC DESCRIBE-OBJECT ...)
; compiling (DEFUN DESCRIBE ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %DESCRIBE-DOC ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN %DESCRIBE-FUN-NAME ...)
; compiling (DEFUN %DESCRIBE-COMPILED-FROM ...)
; compiling (DEFUN %DESCRIBE-FUN-COMPILED ...)
; compiling (DEFUN %DESCRIBE-FUN ...)
; compiling (DEFUN %DESCRIBE-COMPILED-FUN ...)
; compiling (DEFUN %DESCRIBE-INTERPRETED-FUN ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFGENERIC DESCRIBE-SYMBOL-FDEFINITION ...)
; compiling (DEFMETHOD DESCRIBE-SYMBOL-FDEFINITION ...)
; compiling (DEFMETHOD DESCRIBE-SYMBOL-FDEFINITION ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...); 
; compilation unit finished
;   caught 1 STYLE-WARNING condition


; SYS:SRC;CODE;DESCRIBE.FASL.NEWEST written
; compilation finished in 0:00:01
STYLE-WARNING: redefining DESCRIBE-OBJECT in DEFGENERIC
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
for DESCRIBE-OBJECT does not match old FTYPE proclamation
#<FUN-TYPE (FUNCTION (T STREAM) *)>
; compiling file "/Users/nikodemus/src/sbcl/src/code/describe-policy.lisp" (written 20 JAN 2003 10:06:18 AM):
; compiling (IN-PACKAGE "SB-C")
; compiling (DEFUN DESCRIBE-COMPILER-POLICY ...)

; SYS:SRC;CODE;DESCRIBE-POLICY.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/inspect.lisp" (written 18 SEP 2006 05:26:50 PM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFPARAMETER *INSPECT-LENGTH* ...)
; compiling (DEFVAR *INSPECT-UNBOUND-OBJECT-MARKER* ...)
; compiling (DEFUN INSPECTOR ...)
; compiling (DEFVAR *INSPECT-FUN* ...)
; compiling (DEFVAR *INSPECTED*)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN INSPECT ...)
; compiling (DEFVAR *HELP-FOR-INSPECT* ...)
; compiling (DEFUN %INSPECT ...)
; compiling (DEFUN EVAL-FOR-INSPECT ...)
; compiling (DEFUN TTY-DISPLAY-INSPECTED-PARTS ...)
; compiling (DEFGENERIC INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STRUCTURE-ELEMENTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STANDARD-OBJECT-ELEMENTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-INDEX-STRING ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-SIMPLE-CONS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-NONTRIVIAL-LIST ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)

; SYS:SRC;CODE;INSPECT.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/code/profile.lisp" (written 19 NOV 2007 03:04:41 AM):
; compiling (IN-PACKAGE "SB-PROFILE")
; compiling (DEFCONSTANT +TICKS-PER-SECOND+ ...)
; compiling (DECLAIM (INLINE GET-INTERNAL-TICKS))
; compiling (DEFUN GET-INTERNAL-TICKS ...)
; compiling (DEFVAR *PROFILED-FUN-NAME->INFO* ...)
; compiling (DEFSTRUCT (PROFILE-INFO #) ...)
; compiling (DEFVAR *ENCLOSED-TICKS* ...)
; compiling (DEFVAR *ENCLOSED-CONSING* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *ENCLOSED-PROFILES* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *COMPUTING-PROFILING-DATA-FOR*)
; compiling (DEFSTRUCT (OVERHEAD #) ...)
; compiling (DEFVAR *OVERHEAD*)
; compiling (DECLAIM (TYPE OVERHEAD ...))
; compiling (MAKUNBOUND (QUOTE *OVERHEAD*))
; compiling (DEFMACRO FASTBIG- ...)
; compiling (DEFMACRO FASTBIG-1+ ...)
; compiling (DEFUN PROFILE-ENCAPSULATION-LAMBDAS ...)
; file: /Users/nikodemus/src/sbcl/src/code/profile.lisp
; in: DEFUN PROFILE-ENCAPSULATION-LAMBDAS
;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM COUNT 1)
; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM 
; ==>
;   COUNT
; 
; note: deleting unreachable code

;     (SB-PROFILE::FASTBIG- (SB-PROFILE::GET-INTERNAL-TICKS)
;                           SB-PROFILE::START-TICKS)
; --> LET LET IF 
; ==>
;   (- #:ONCE-ONLY-157 #:ONCE-ONLY-158)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (SETF SB-PROFILE::DTICKS
;             (SB-PROFILE::FASTBIG- (SB-PROFILE::GET-INTERNAL-TICKS)
;                                   SB-PROFILE::START-TICKS))
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF AND LOCALLY 
; --> AND >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0)
; --> EQL IF 
; ==>
;   (EQL SB-C::Y SB-C::X)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.

;     (- (GET-BYTES-CONSED) SB-PROFILE::NBF0 SB-PROFILE::DYNAMIC-USAGE-0)
; --> - 
; ==>
;   (- (GET-BYTES-CONSED) SB-PROFILE::NBF0)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

; ==>
;   (- (- (GET-BYTES-CONSED) SB-PROFILE::NBF0) SB-PROFILE::DYNAMIC-USAGE-0)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -4294967295 4294967295)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 4294967295)
;                               . #1#), not a (VALUES (SIGNED-BYTE 32) &REST T).
;       etc.

;     (SETF SB-PROFILE::DCONSING
;             (IF (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0)
;                 (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0)
;                 (- (GET-BYTES-CONSED) SB-PROFILE::NBF0
;                    SB-PROFILE::DYNAMIC-USAGE-0)))
; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET AND IF AND LOCALLY 
; --> AND >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (SB-PROFILE::FASTBIG- SB-PROFILE::DTICKS SB-PROFILE::*ENCLOSED-TICKS*)
; --> LET LET IF 
; ==>
;   (- #:ONCE-ONLY-166 #:ONCE-ONLY-167)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a (OR PCOUNTER FIXNUM), not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870911)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a (OR PCOUNTER FIXNUM), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870911) . #1#), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::TICKS
;                                             SB-PROFILE::NET-DTICKS)
; --> LET SB-INT:AVER UNLESS IF TYPEP LET AND IF AND LOCALLY AND >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a (INTEGER -536870911), not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a (INTEGER -536870911), not a FIXNUM.
;       etc.

; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN 
; --> LET 
; ==>
;   (+ SB-PROFILE::X SB-PROFILE::DELTA)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (INTEGER -536870911), not a FIXNUM.
;       The result is a (VALUES (INTEGER -1073741823)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (INTEGER -536870911), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -1073741823) . #1#), not a (VALUES
;                                                                    (SIGNED-BYTE
;                                                                     32)
;                                                                    &REST T).
;       etc.

;     (SB-PROFILE::FASTBIG- SB-PROFILE::DCONSING
;                           (SB-INT:PCOUNTER-OR-FIXNUM->INTEGER
;                            SB-PROFILE::*ENCLOSED-CONSING*))
; --> LET LET IF 
; ==>
;   (- #:ONCE-ONLY-174 #:ONCE-ONLY-175)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::CONSING
;                                             SB-PROFILE::NET-DCONSING)
; --> LET SB-INT:AVER UNLESS IF TYPEP LET AND IF AND LOCALLY AND >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do #1=inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do #1# (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN 
; --> LET 
; ==>
;   (+ SB-PROFILE::X SB-PROFILE::DELTA)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER . #1=(&OPTIONAL)), not a (VALUES FIXNUM
;                                                                        &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER . #1#), not a (VALUES (SIGNED-BYTE 32)
;                                                             &REST T).
;       etc.

;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::PROFILES
;                                             SB-PROFILE::INNER-ENCLOSED-PROFILES)
; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN 
; --> LET 
; ==>
;   (+ SB-PROFILE::X SB-PROFILE::DELTA)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::*ENCLOSED-TICKS*
;                                             SB-PROFILE::DTICKS)
; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN 
; --> LET 
; ==>
;   (+ SB-PROFILE::X SB-PROFILE::DELTA)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::*ENCLOSED-CONSING*
;                                             SB-PROFILE::DCONSING)
; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN 
; --> LET 
; ==>
;   (+ SB-PROFILE::X SB-PROFILE::DELTA)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) . #1#), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (SB-PROFILE::FASTBIG-1+ SB-PROFILE::INNER-ENCLOSED-PROFILES)
; --> LET IF 1+ 
; ==>
;   (+ #:ONCE-ONLY-146 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do #1=inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do #1# (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
;       etc.

; ==>
;   (+ #:ONCE-ONLY-144 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do #1=inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do #1# (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
;       etc.

;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::*ENCLOSED-PROFILES*
;                                             (SB-PROFILE::FASTBIG-1+
;                                              SB-PROFILE::INNER-ENCLOSED-PROFILES))
; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN 
; --> LET 
; ==>
;   (+ SB-PROFILE::X SB-PROFILE::DELTA)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (INTEGER 1), not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870911)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870911) . #1#), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (SB-PROFILE::FASTBIG-1+ SB-PROFILE::INNER-ENCLOSED-PROFILES)
; --> LET IF 1+ 
; ==>
;   (+ #:ONCE-ONLY-141 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do #1=inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) . #2=(&OPTIONAL)), not a (VALUES
;                                                                     FIXNUM
;                                                                     &REST T).
;       unable to do #1# (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) . #2#), not a (VALUES FIXNUM &REST T).
;       etc.

;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::*ENCLOSED-PROFILES*
;                                             (SB-PROFILE::FASTBIG-1+
;                                              SB-PROFILE::INNER-ENCLOSED-PROFILES))
; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN 
; --> LET 
; ==>
;   (+ SB-PROFILE::X SB-PROFILE::DELTA)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (INTEGER 1), not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870911)
;                               . #1=(&OPTIONAL)), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870911) . #1#), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM COUNT 1)
; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN 
; --> LET 
; ==>
;   (+ SB-PROFILE::X SB-PROFILE::DELTA)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of inline (signed-byte 32) arithmetic

;     (MULTIPLE-VALUE-CALL SB-PROFILE::ENCAPSULATED-FUN
;       (SB-C:%MORE-ARG-VALUES SB-PROFILE::ARG-CONTEXT 0 SB-PROFILE::ARG-COUNT))
; --> PROGN 
; ==>
;   (SB-C::%FUNCALL
;    #<SB-C::CLAMBDA
;      :%SOURCE-NAME #:CLEANUP-FUN-[EXIT-TAG-[PROFILE-ENCAPSULATION-LAMBDAS]126]151
;      :%DEBUG-NAME (FLET #:CLEANUP-FUN-[EXIT-TAG-[PROFILE-ENCAPSULATION-LAMBDAS]126]151)
;      :KIND :CLEANUP
;      :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)>
;      :WHERE-FROM :DEFINED
;      :VARS NIL {1357A651}>)
; 
; note: doing unsigned word to integer coercion (cost 20) from SB-ALIEN:ALIEN

;     (UNWIND-PROTECT
;         (MULTIPLE-VALUE-CALL SB-PROFILE::ENCAPSULATED-FUN
;           (SB-C:%MORE-ARG-VALUES SB-PROFILE::ARG-CONTEXT 0
;            SB-PROFILE::ARG-COUNT))
;       (LET ((SB-PROFILE::*COMPUTING-PROFILING-DATA-FOR*
;              SB-PROFILE::ENCAPSULATED-FUN)
;             (SB-PROFILE::DYNAMIC-USAGE-1 (SB-KERNEL:DYNAMIC-USAGE)))
;         (SETF SB-PROFILE::DTICKS
;                 (SB-PROFILE::FASTBIG- (SB-PROFILE::GET-INTERNAL-TICKS)
;                                       SB-PROFILE::START-TICKS))
;         (SETF SB-PROFILE::DCONSING
;                 (IF (EQL SB-INT:*N-BYTES-FREED-OR-PURIFIED* SB-PROFILE::NBF0)
;                     (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0)
;                     (- # SB-PROFILE::NBF0 SB-PROFILE::DYNAMIC-USAGE-0)))
;         (SETF SB-PROFILE::INNER-ENCLOSED-PROFILES
;                 (SB-INT:PCOUNTER-OR-FIXNUM->INTEGER
;                  SB-PROFILE::*ENCLOSED-PROFILES*))
;         (LET ((SB-PROFILE::NET-DTICKS #))
;           (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::TICKS
;                                                   SB-PROFILE::NET-DTICKS))
;         (LET ((SB-PROFILE::NET-DCONSING #))
;           (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::CONSING
;                                                   SB-PROFILE::NET-DCONSING))
;         (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::PROFILES
;                                                 SB-PROFILE::INNER-ENCLOSED-PROFILES)))
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (#:CLEANUP-FUN-[EXIT-TAG-[PROFILE-ENCAPSULATION-LAMBDAS]126]151)
; 
; note: doing unsigned word to integer coercion (cost 20) from SB-ALIEN:ALIEN

;     (- SB-PROFILE::DYNAMIC-USAGE-1 SB-PROFILE::DYNAMIC-USAGE-0)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of GENERIC--

;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::CONSING
;                                             SB-PROFILE::NET-DCONSING)
; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN 
; --> LET 
; ==>
;   (+ SB-PROFILE::X SB-PROFILE::DELTA)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of inline (signed-byte 32) arithmetic

;     (SB-INT:FASTBIG-INCF-PCOUNTER-OR-FIXNUM SB-PROFILE::TICKS
;                                             SB-PROFILE::NET-DTICKS)
; --> LET IF SB-INT:INCF-PCOUNTER-OR-FIXNUM LET* 
; --> SB-PROFILE::%INCF-PCOUNTER-OR-FIXNUM BLOCK ETYPECASE LET COND IF PROGN 
; --> LET 
; ==>
;   (+ SB-PROFILE::X SB-PROFILE::DELTA)
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first result of inline (signed-byte 32) arithmetic

; compiling (DEFUN MAPC-ON-NAMED-FUNS ...)
; compiling (DEFUN PROFILE-1-UNPROFILED-FUN ...)
; compiling (DEFUN PROFILE-1-FUN ...)
; compiling (DEFUN UNPROFILE-1-FUN ...)
; compiling (DEFMACRO PROFILE ...)
; compiling (DEFMACRO UNPROFILE ...)
; compiling (DEFUN UNPROFILE-ALL ...)
; compiling (DEFUN RESET ...)
; compiling (DEFSTRUCT (TIME-INFO #) ...)
; compiling (DEFUN COMPENSATE-TIME ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN PRINT-PROFILE-TABLE ...)
; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...))
; compiling (DEFPARAMETER *TIMER-OVERHEAD-ITERATIONS* ...)
; compiling (DECLAIM (NOTINLINE COMPUTE-OVERHEAD-AUX))
; compiling (DEFUN COMPUTE-OVERHEAD-AUX ...)
; compiling (DEFUN COMPUTE-OVERHEAD ...)
; compiling (DEFUN PROFILE-DEINIT ...); 
; compilation unit finished
;   printed 31 notes


; SYS:SRC;CODE;PROFILE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/ntrace.lisp" (written 31 JAN 2008 03:04:31 PM):
; compiling (IN-PACKAGE "SB-DEBUG")
; compiling (DEFVAR *TRACE-VALUES* ...)
; compiling (DEFVAR *TRACE-INDENTATION-STEP* ...)
; compiling (DEFVAR *MAX-TRACE-INDENTATION* ...)
; compiling (DEFVAR *TRACE-ENCAPSULATE-DEFAULT* ...)
; compiling (DEFVAR *TRACED-FUNS* ...)
; compiling (DEF!STRUCT (TRACE-INFO # ...) ...)
; compiling (DEFVAR *TRACED-ENTRIES* ...)
; compiling (DECLAIM (LIST *TRACED-ENTRIES*))
; compiling (DEFVAR *IN-TRACE* ...)
; compiling (DEFUN TRACE-FDEFINITION ...)
; compiling (DEFUN TRACE-REDEFINED-UPDATE ...)
; compiling (PUSH (FUNCTION TRACE-REDEFINED-UPDATE) ...)
; compiling (DEFUN COERCE-FORM ...)
; compiling (DEFUN COERCE-FORM-LIST ...)
; compiling (DEFUN PRINT-TRACE-INDENTATION ...)
; compiling (DEFUN TRACE-WHEREIN-P ...)
; compiling (DEFUN TRACE-PRINT ...)
; compiling (DEFUN TRACE-MAYBE-BREAK ...)
; compiling (DEFUN DISCARD-INVALID-ENTRIES ...)
; compiling (DEFUN TRACE-START-BREAKPOINT-FUN ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN TRACE-END-BREAKPOINT-FUN ...)
; compiling (DEFUN TRACE-CALL ...)
; compiling (DEFUN TRACE-1 ...)
; compiling (DEFUN PARSE-TRACE-OPTIONS ...)
; compiling (DEFUN EXPAND-TRACE ...)
; compiling (DEFUN %LIST-TRACED-FUNS ...)
; compiling (DEFMACRO TRACE ...)
; compiling (DEFUN UNTRACE-1 ...)
; compiling (DEFUN UNTRACE-ALL ...)
; compiling (DEFUN UNTRACE-PACKAGE ...)
; compiling (DEFMACRO UNTRACE ...)

; SYS:SRC;CODE;NTRACE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/step.lisp" (written 01 NOV 2006 03:00:41 PM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFUN STEP-FORM ...)
; compiling (DEFUN STEP-VALUES ...)
; compiling (DEFUN STEP-FINISHED ...)
; compiling (DEFGENERIC SINGLE-STEP ...)
; compiling (DEFMETHOD SINGLE-STEP ...)
; compiling (DEFMETHOD SINGLE-STEP ...)
; compiling (DEFMETHOD SINGLE-STEP ...)
; compiling (DEFVAR *STEPPER-HOOK* ...)
; compiling (DEFUN INVOKE-STEPPER ...)
; compiling (DEFMACRO STEP ...)

; SYS:SRC;CODE;STEP.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/src/code/run-program.lisp" (written 12 MAR 2008 08:32:45 PM):
; compiling (IN-PACKAGE "SB-IMPL")
; compiling (DEFINE-ALIEN-ROUTINE WRAPPED-ENVIRON ...)
; file: /Users/nikodemus/src/sbcl/src/code/run-program.lisp
; in: DEFINE-ALIEN-ROUTINE WRAPPED-ENVIRON
;     (DEFINE-ALIEN-ROUTINE SB-IMPL::WRAPPED-ENVIRON (* C-STRING))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 LET 
; --> ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (C-STRING
;                                                                             :EXTERNAL-FORMAT
;                                                                             :DEFAULT
;                                                                             :ELEMENT-TYPE
;                                                                             CHARACTER))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFUN POSIX-ENVIRON ...)
; compiling (DEFUN UNIX-ENVIRONMENT-CMUCL-FROM-SBCL ...)
; compiling (DEFUN UNIX-ENVIRONMENT-SBCL-FROM-CMUCL ...)
; compiling (DEFINE-ALIEN-ROUTINE ("wait3" C-WAIT3) ...)
; compiling (DEFUN WAIT3 ...)
; compiling (DEFVAR *ACTIVE-PROCESSES* ...)
; compiling (DEFVAR *ACTIVE-PROCESSES-LOCK* ...)
; compiling (DEFMACRO WITH-ACTIVE-PROCESSES-LOCK ...)
; compiling (DEFSTRUCT (PROCESS #) ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN PROCESS-STATUS ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN PROCESS-WAIT ...)
; compiling (DEFUN FIND-CURRENT-FOREGROUND-PROCESS ...)
; compiling (DEFUN PROCESS-KILL ...)
; file: /Users/nikodemus/src/sbcl/src/code/run-program.lisp
; in: DEFUN PROCESS-KILL
;     (VALUES NIL SB-IMPL::ERRNO)
; ==>
;   SB-IMPL::ERRNO
; 
; note: deleting unreachable code

; compiling (DEFUN PROCESS-ALIVE-P ...)
; compiling (DEFUN PROCESS-CLOSE ...)
; compiling (DEFUN SIGCHLD-HANDLER ...)
; compiling (DEFUN GET-PROCESSES-STATUS-CHANGES ...)
; compiling (DEFVAR *CLOSE-ON-ERROR* ...)
; compiling (DEFVAR *CLOSE-IN-PARENT* ...)
; compiling (DEFVAR *HANDLERS-INSTALLED* ...)
; compiling (DEFINE-ALIEN-ROUTINE PTSNAME ...)
; compiling (DEFINE-ALIEN-ROUTINE GRANTPT ...)
; compiling (DEFINE-ALIEN-ROUTINE UNLOCKPT ...)
; compiling (DEFUN FIND-A-PTY ...)
; compiling (DEFUN OPEN-PTY ...)
; compiling (DEFMACRO ROUND-BYTES-TO-WORDS ...)
; compiling (DEFUN STRING-LIST-TO-C-STRVEC ...)
; compiling (DEFMACRO WITH-C-STRVEC ...)
; compiling (DEFINE-ALIEN-ROUTINE SPAWN ...)
; compiling (DEFUN RUN-PROGRAM ...)
; compiling (DEFUN COPY-DESCRIPTOR-TO-STREAM ...)
; compiling (DEFUN GET-STREAM-FD-AND-EXTERNAL-FORMAT ...)
; compiling (DEFUN GET-DESCRIPTOR-FOR ...); 
; compilation unit finished
;   printed 2 notes


; SYS:SRC;CODE;RUN-PROGRAM.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/src/pcl/describe.lisp" (written 02 JUN 2007 12:04:15 PM):
; compiling (IN-PACKAGE "SB-PCL")
; compiling (DEFMETHOD SLOTS-TO-INSPECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)

; SYS:SRC;PCL;DESCRIBE.FASL.NEWEST written
; compilation finished in 0:00:00
T
* //doing warm init - load and dump phase
This is SBCL 1.0.19, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.

* 
10
* 
5
* 
T
* 
*COMPILE-FILES-P*
* ; in: LAMBDA (CACHE EMF MISS-FN)
;     (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION SB-PCL::EMF NIL :REQUIRED-ARGS
;                                               (SB-PCL::.ARG0.) :MORE-ARG NIL
;                                               :REST-ARG NIL)
; --> LOCALLY LET ETYPECASE LET COND IF COND IF PROGN LET* IF 
; ==>
;   (SB-PCL::SLOT-UNBOUND-INTERNAL SB-PCL::.ARG0. #:EMF-N-6)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-UNBOUND-INTERNAL))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS (NIL FUNCTION (SLOT-UNBOUND-INTERNAL)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

; in: LAMBDA (CACHE MISS-FN)
;     (SB-PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION SB-PCL::EMF NIL :REQUIRED-ARGS
;                                               (SB-PCL::.ARG0.) :MORE-ARG NIL
;                                               :REST-ARG NIL)
; --> LOCALLY LET ETYPECASE LET COND IF COND IF PROGN LET* IF 
; ==>
;   (SB-PCL::SLOT-UNBOUND-INTERNAL SB-PCL::.ARG0. #:EMF-N-7)
; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL undefined ~(~A~): ~S FORMAT-ARGUMENTS
;                        (FUNCTION SLOT-UNBOUND-INTERNAL))
;      :ASSIGNED-SLOTS NIL)

; 
; caught STYLE-WARNING:
;   #S(SIMPLE-STYLE-WARNING
;      :ACTUAL-INITARGS (FORMAT-CONTROL
;                        ~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
;                      ~%  ~{~<~%  ~1:;~S~>~^ ~}
;                        FORMAT-ARGUMENTS (NIL FUNCTION (SLOT-UNBOUND-INTERNAL)))
;      :ASSIGNED-SLOTS NIL)
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-EQ-SPECIALIZER-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C50DED}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 1
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASSP OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B12945}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 2
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CONDITION-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B105B5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 3
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME EQL-SPECIALIZER-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C48BDD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 4
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME EXACT-CLASS-SPECIALIZER-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C316F5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 5
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME FORWARD-REFERENCED-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C54B8D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 6
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME FUNCALLABLE-STANDARD-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B105F5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 7
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B124ED}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 8
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-COMBINATION-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C37A4D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 9
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1F71D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 10
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SHORT-METHOD-COMBINATION-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C5A12D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 11
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C45E05}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 12
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SPECIALIZERP OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13A95155}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 13
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-ACCESSOR-METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C499F5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 14
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-BOUNDP-METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13BD568D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 15
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B105D5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 16
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-GENERIC-FUNCTION-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1E69D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 17
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C39F6D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 18
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-READER-METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13BD56E5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 19
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STANDARD-WRITER-METHOD-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13BD55DD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 20
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME STRUCTURE-CLASS-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B10595}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 21
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME ACCESSOR-METHOD-SLOT-DEFINITION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13BD55FD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 22
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-CAN-PRECEDE-LIST OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C4092D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 23
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-DEFSTRUCT-CONSTRUCTOR OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3054D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 24
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-DEFSTRUCT-FORM OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C511B5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 25
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-DIRECT-SUBCLASSES OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3762D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 26
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-DIRECT-SUPERCLASSES OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3AD75}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 27
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-EQ-SPECIALIZER OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1E58D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 28
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-INCOMPATIBLE-SUPERCLASS-LIST OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C379C5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 29
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-NAME OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13A6A0B5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 30
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-PRECEDENCE-LIST OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B695CD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 31
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-WRAPPER OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C18FC5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 32
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME DEFINITION-SOURCE OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13A6A1E5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 33
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME EQL-SPECIALIZER-OBJECT OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1EF1D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 34
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-DECLARATIONS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C54D45}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 35
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-METHOD-CLASS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B12F2D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 36
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-METHOD-COMBINATION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B152CD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 37
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-METHODS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B12C7D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 38
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-NAME OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B119FD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 39
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GF-ARG-INFO OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1EB25}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 40
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GF-DFUN-STATE OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C17EFD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 41
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GENERIC-FUNCTION-INITIAL-METHODS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1EF75}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 42
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME LONG-METHOD-COMBINATION-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C4CD75}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 43
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-COMBINATION-OPTIONS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C460E5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 45
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-COMBINATION-TYPE-NAME OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C56B75}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 46
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-GENERIC-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B160FD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 47
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME OBJECT-PLIST OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1F8F5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 48
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C31715}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 49
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SHORT-COMBINATION-OPERATOR OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C4C475}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 50
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-BOUNDP-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B11635}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 51
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-CLASS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13BD561D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 52
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C145BD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 53
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-INITARGS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3A865}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 54
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-INITFORM OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C49A6D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 55
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-INITFUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3EC75}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 56
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-INTERNAL-READER-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B117ED}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 57
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B116B5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 58
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-LOCATION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B10BD5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 59
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-NAME OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1220D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 60
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-READER-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B115F5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 61
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-READERS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C36035}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 62
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-TYPE OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C4EB2D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 63
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-WRITER-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B11615}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 64
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-WRITERS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3A93D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 65
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SPECIALIZER-OBJECT OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C59655}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 66
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SPECIALIZER-TYPE OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B22A75}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 67
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF CLASS-DEFSTRUCT-CONSTRUCTOR) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3C1AD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 68
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF CLASS-DEFSTRUCT-FORM) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C55C25}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 69
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF CLASS-INCOMPATIBLE-SUPERCLASS-LIST) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C50935}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 71
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GENERIC-FUNCTION-METHOD-CLASS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B22675}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 74
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GENERIC-FUNCTION-METHOD-COMBINATION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B22695}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 75
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GENERIC-FUNCTION-DECLARATIONS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C34B75}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 76
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GENERIC-FUNCTION-METHODS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3747D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 77
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GF-DFUN-STATE) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1D9CD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 79
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF GENERIC-FUNCTION-INITIAL-METHODS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1F295}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 80
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF METHOD-GENERIC-FUNCTION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C45E3D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 81
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF OBJECT-PLIST) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B2339D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 82
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-ALLOCATION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C57A0D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 83
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-BOUNDP-FUNCTION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3103D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 84
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-CLASS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C37B35}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 85
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL)
                        OLD #1=#<STANDARD-GENERIC-FUNCTION {13C3B8E5}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 86
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-INITARGS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C5967D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 87
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-INITFORM) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3BA9D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 88
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-INITFUNCTION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C4C01D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 89
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-INTERNAL-READER-FUNCTION)
                        OLD #1=#<STANDARD-GENERIC-FUNCTION {13C3804D}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 90
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION)
                        OLD #1=#<STANDARD-GENERIC-FUNCTION {13C5136D}>
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 91
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-LOCATION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C4932D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 92
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-NAME) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C34B3D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 93
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-READER-FUNCTION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C3E965}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 94
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-READERS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C554D5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 95
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-TYPE) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C47A8D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 96
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-WRITER-FUNCTION) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C5A065}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 97
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME (SETF SLOT-DEFINITION-WRITERS) OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C4DC95}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 98
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME ACCESSOR-METHOD-SLOT-NAME OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C5A14D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 99
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-DIRECT-SLOTS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B12965}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 102
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-FINALIZED-P OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13A6A045}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 103
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-PROTOTYPE OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13A6A065}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 104
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME CLASS-SLOTS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B121ED}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 106
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-FUNCTION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B10575}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 121
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-LAMBDA-LIST OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1EA05}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 122
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-QUALIFIERS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13AF27C5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 123
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME METHOD-SPECIALIZERS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B12FCD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 124
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SLOT-DEFINITION-ALLOCATION OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C49B3D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 126
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME SPECIALIZER-CLASS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B1EF3D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 128
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME ADD-METHOD OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 137
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(SIMPLE-STYLE-WARNING
      :ACTUAL-INITARGS (FORMAT-CONTROL new FTYPE proclamation~@
                       ~S~@
                       for ~S does not match old FTYPE proclamation~@
                       ~S
                        FORMAT-ARGUMENTS
                        (#S(FUN-TYPE
                            :CLASS-INFO #
                            :ENUMERABLE NIL
                            :HASH-VALUE 30404
                            :MIGHT-CONTAIN-OTHER-TYPES-P NIL
                            :REQUIRED #
                            :OPTIONAL NIL
                            :REST NIL
                            :KEYP NIL
                            :KEYWORDS NIL
                            :ALLOWP NIL
                            ...)
                         DESCRIBE-OBJECT
                         #S(BUILT-IN-CLASSOID
                            :CLASS-INFO #
                            :ENUMERABLE NIL
                            :HASH-VALUE 22909
                            :MIGHT-CONTAIN-OTHER-TYPES-P NIL
                            :NAME FUNCTION
                            :LAYOUT #
                            :STATE READ-ONLY
                            :DIRECT-SUPERCLASSES #
                            :SUBCLASSES #
                            :PCL-CLASS #
                            ...)))
      :ASSIGNED-SLOTS NIL)
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME PARSE-SPECIALIZER-USING-CLASS OLD #1=#
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 151
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME REMOVE-METHOD OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 156
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME UNPARSE-SPECIALIZER-USING-CLASS OLD #1=#
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 163
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME COMPUTE-EFFECTIVE-METHOD OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 169
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME INVALID-QUALIFIERS OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13160FFD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 174
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME MAKE-METHOD-LAMBDA OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 181
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME MAKE-METHOD-SPECIALIZERS-FORM OLD #1=#
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 182
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME MAKE-METHOD-INITARGS-FORM OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 187
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME GET-METHOD OLD #1=# NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 188
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME ENSURE-GENERIC-FUNCTION-USING-CLASS OLD #1=#
                        NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 193
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME NO-APPLICABLE-METHOD OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13C38B7D}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 197
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME NO-NEXT-METHOD OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13B160DD}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 198
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING:
   #S(REDEFINITION-WITH-DEFGENERIC
      :ACTUAL-INITARGS (NAME NO-PRIMARY-METHOD OLD
                        #1=#<STANDARD-GENERIC-FUNCTION {13A956A5}> NEW-LOCATION
                        #2=#S(SB-C:DEFINITION-SOURCE-LOCATION
                              :NAMESTRING SYS:SRC;PCL;GENERIC-FUNCTIONS.LISP.NEWEST
                              :TOPLEVEL-FORM-NUMBER 199
                              :PLIST NIL))
      :ASSIGNED-SLOTS (NEW-LOCATION #2# OLD #1#))
STYLE-WARNING: #<REDEFINITION-WITH-DEFUN {12FF7EA1}>
; in: LAMBDA NIL
;     (SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO
;      #<SB-KERNEL:DEFSTRUCT-DESCRIPTION {10873749}> 'NIL)
; ==>
;   (TRULY-THE SB-EVAL:INTERPRETED-FUNCTION
;              (SB-KERNEL:%MAKE-STRUCTURE-INSTANCE
;               #<SB-KERNEL:DEFSTRUCT-DESCRIPTION {10873749}> 'NIL))
; 
; caught WARNING:
;   #<TYPE-WARNING {132C8E41}>
; 
; compilation unit finished
;   caught 1 WARNING condition
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-READ-CHAR does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
for STREAM-UNREAD-CHAR does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-READ-CHAR-NO-HANG does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-PEEK-CHAR does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-LISTEN does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-READ-LINE does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-CLEAR-INPUT does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
for STREAM-WRITE-CHAR does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-LINE-COLUMN does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-LINE-LENGTH does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-START-LINE-P does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T &OPTIONAL T T) *)>
for STREAM-WRITE-STRING does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-TERPRI does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-FRESH-LINE does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-FINISH-OUTPUT does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-FORCE-OUTPUT does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-CLEAR-OUTPUT does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
for STREAM-ADVANCE-TO-COLUMN does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T) *)>
for STREAM-READ-BYTE does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
for STREAM-WRITE-BYTE does not match old FTYPE proclamation
#<BUILT-IN-CLASSOID FUNCTION (read-only)>
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T STREAM) *)>
for DESCRIBE-OBJECT does not match old FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
STYLE-WARNING: redefining DESCRIBE-OBJECT in DEFGENERIC
STYLE-WARNING: new FTYPE proclamation
#<FUN-TYPE (FUNCTION (T T) *)>
for DESCRIBE-OBJECT does not match old FTYPE proclamation
#<FUN-TYPE (FUNCTION (T STREAM) *)>

T
* 
NIL
* 
NIL
* 
NIL
* 
NIL
* 
NIL
* 
NIL
* 
NIL
* 
* 
NIL
* 
NIL
* 
#(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
* 
T
* 
NIL
* [undoing binding stack and other enclosing state... done]
[saving current Lisp image into /Users/nikodemus/src/sbcl/output/sbcl.core:
writing 2872 bytes from the read-only space at 0x04000000
writing 1616 bytes from the static space at 0x04100000
writing 23425024 bytes from the dynamic space at 0x10000000
done]

real	0m27.554s
user	0m16.826s
sys	0m6.521s
//entering make-target-contrib.sh
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "asdf" "asdf"))' </dev/null

; compiling file "/Users/nikodemus/src/sbcl/contrib/asdf/asdf.lisp" (written 11 MAY 2008 10:42:05 AM):
; compiling (DEFPACKAGE #:ASDF ...)
; compiling (IN-PACKAGE #:ASDF)
; compiling (DEFVAR *ASDF-REVISION* ...)
; compiling (DEFVAR *LOAD-PREFERENCE-FILES* ...)
; compiling (DEFVAR *COMPILE-FILE-WARNINGS-BEHAVIOUR* ...)
; compiling (DEFVAR *COMPILE-FILE-FAILURE-BEHAVIOUR* ...)
; compiling (DEFVAR *VERBOSE-OUT* ...)
; compiling (DEFPARAMETER +ASDF-METHODS+ ...)
; compiling (DEFMACRO AIF ...)
; compiling (DEFUN PATHNAME-SANS-NAME+TYPE ...)
; compiling (DEFINE-MODIFY-MACRO APPENDF ...)
; compiling (DEFINE-CONDITION SYSTEM-DEFINITION-ERROR ...)
; compiling (DEFINE-CONDITION FORMATTED-SYSTEM-DEFINITION-ERROR ...)
; compiling (DEFINE-CONDITION CIRCULAR-DEPENDENCY ...)
; compiling (DEFINE-CONDITION DUPLICATE-NAMES ...)
; compiling (DEFINE-CONDITION MISSING-COMPONENT ...)
; compiling (DEFINE-CONDITION MISSING-DEPENDENCY ...)
; compiling (DEFINE-CONDITION OPERATION-ERROR ...)
; compiling (DEFINE-CONDITION COMPILE-ERROR ...)
; compiling (DEFINE-CONDITION COMPILE-FAILED ...)
; compiling (DEFINE-CONDITION COMPILE-WARNED ...)
; compiling (DEFCLASS COMPONENT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN SYSDEF-ERROR ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFGENERIC COMPONENT-SYSTEM ...)
; compiling (DEFMETHOD COMPONENT-SYSTEM ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS MODULE ...)
; compiling (DEFGENERIC COMPONENT-PATHNAME ...)
; compiling (DEFUN COMPONENT-PARENT-PATHNAME ...)
; compiling (DEFGENERIC COMPONENT-RELATIVE-PATHNAME ...)
; compiling (DEFMETHOD COMPONENT-RELATIVE-PATHNAME ...)
; compiling (DEFMETHOD COMPONENT-PATHNAME ...)
; compiling (DEFGENERIC COMPONENT-PROPERTY ...)
; compiling (DEFMETHOD COMPONENT-PROPERTY ...)
; compiling (DEFGENERIC (SETF COMPONENT-PROPERTY) ...)
; compiling (DEFMETHOD (SETF COMPONENT-PROPERTY) ...)
; compiling (DEFCLASS SYSTEM ...)
; compiling (DEFUN SPLIT ...)
; compiling (DEFGENERIC VERSION-SATISFIES ...)
; compiling (DEFMETHOD VERSION-SATISFIES ...)
; compiling (DEFVAR *DEFINED-SYSTEMS* ...)
; compiling (DEFUN COERCE-NAME ...)
; compiling (DEFVAR *SYSTEM-DEFINITION-SEARCH-FUNCTIONS* ...)
; compiling (DEFUN SYSTEM-DEFINITION-PATHNAME ...)
; compiling (DEFVAR *CENTRAL-REGISTRY* ...)
; compiling (DEFUN SYSDEF-CENTRAL-REGISTRY-SEARCH ...)
; compiling (DEFUN MAKE-TEMPORARY-PACKAGE ...)
; compiling (DEFUN FIND-SYSTEM ...)
; compiling (DEFUN REGISTER-SYSTEM ...)
; compiling (DEFUN SYSTEM-REGISTERED-P ...)
; compiling (DEFGENERIC FIND-COMPONENT ...)
; compiling (DEFMETHOD FIND-COMPONENT ...)
; compiling (DEFMETHOD FIND-COMPONENT ...)
; compiling (DEFCLASS SOURCE-FILE ...)
; compiling (DEFCLASS CL-SOURCE-FILE ...)
; compiling (DEFCLASS C-SOURCE-FILE ...)
; compiling (DEFCLASS JAVA-SOURCE-FILE ...)
; compiling (DEFCLASS STATIC-FILE ...)
; compiling (DEFCLASS DOC-FILE ...)
; compiling (DEFCLASS HTML-FILE ...)
; compiling (DEFGENERIC SOURCE-FILE-TYPE ...)
; compiling (DEFMETHOD SOURCE-FILE-TYPE ...)
; compiling (DEFMETHOD SOURCE-FILE-TYPE ...)
; compiling (DEFMETHOD SOURCE-FILE-TYPE ...)
; compiling (DEFMETHOD SOURCE-FILE-TYPE ...)
; compiling (DEFMETHOD SOURCE-FILE-TYPE ...)
; compiling (DEFMETHOD COMPONENT-RELATIVE-PATHNAME ...)
; compiling (DEFCLASS OPERATION ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFGENERIC PERFORM ...)
; compiling (DEFGENERIC OPERATION-DONE-P ...)
; compiling (DEFGENERIC EXPLAIN ...)
; compiling (DEFGENERIC OUTPUT-FILES ...)
; compiling (DEFGENERIC INPUT-FILES ...)
; compiling (DEFUN NODE-FOR ...)
; compiling (DEFGENERIC OPERATION-ANCESTOR ...)
; compiling (DEFMETHOD OPERATION-ANCESTOR ...)
; compiling (DEFUN MAKE-SUB-OPERATION ...)
; compiling (DEFGENERIC VISIT-COMPONENT ...)
; compiling (DEFMETHOD VISIT-COMPONENT ...)
; compiling (DEFGENERIC COMPONENT-VISITED-P ...)
; compiling (DEFMETHOD COMPONENT-VISITED-P ...)
; compiling (DEFGENERIC (SETF VISITING-COMPONENT) ...)
; compiling (DEFMETHOD (SETF VISITING-COMPONENT) ...)
; compiling (DEFMETHOD (SETF VISITING-COMPONENT) ...)
; compiling (DEFGENERIC COMPONENT-VISITING-P ...)
; compiling (DEFMETHOD COMPONENT-VISITING-P ...)
; compiling (DEFGENERIC COMPONENT-DEPENDS-ON ...)
; compiling (DEFMETHOD COMPONENT-DEPENDS-ON ...)
; compiling (DEFMETHOD COMPONENT-DEPENDS-ON ...)
; compiling (DEFGENERIC COMPONENT-SELF-DEPENDENCIES ...)
; compiling (DEFMETHOD COMPONENT-SELF-DEPENDENCIES ...)
; compiling (DEFMETHOD INPUT-FILES ...)
; compiling (DEFMETHOD INPUT-FILES ...)
; compiling (DEFMETHOD OPERATION-DONE-P ...)
; compiling (DEFGENERIC TRAVERSE ...)
; compiling (DEFMETHOD TRAVERSE ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD EXPLAIN ...)
; compiling (DEFCLASS COMPILE-OP ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD OUTPUT-FILES ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD OUTPUT-FILES ...)
; compiling (DEFMETHOD INPUT-FILES ...)
; compiling (DEFCLASS BASIC-LOAD-OP ...)
; compiling (DEFCLASS LOAD-OP ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD OPERATION-DONE-P ...)
; compiling (DEFMETHOD OUTPUT-FILES ...)
; compiling (DEFMETHOD COMPONENT-DEPENDS-ON ...)
; compiling (DEFCLASS LOAD-SOURCE-OP ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFMETHOD OUTPUT-FILES ...)
; compiling (DEFMETHOD COMPONENT-DEPENDS-ON ...)
; compiling (DEFMETHOD OPERATION-DONE-P ...)
; compiling (DEFCLASS TEST-OP ...)
; compiling (DEFMETHOD PERFORM ...)
; compiling (DEFGENERIC LOAD-PREFERENCES ...)
; compiling (DEFGENERIC PREFERENCE-FILE-FOR-SYSTEM/OPERATION ...)
; compiling (DEFMETHOD LOAD-PREFERENCES ...)
; compiling (DEFMETHOD LOAD-PREFERENCES ...)
; compiling (DEFMETHOD PREFERENCE-FILE-FOR-SYSTEM/OPERATION ...)
; compiling (DEFMETHOD PREFERENCE-FILE-FOR-SYSTEM/OPERATION ...)
; compiling (DEFVAR *OPERATE-DOCSTRING* ...)
; compiling (DEFUN OPERATE ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN OOS ...)
; compiling (SETF (DOCUMENTATION # ...) ...)
; compiling (DEFUN REMOVE-KEYWORD ...)
; compiling (DEFMACRO DEFSYSTEM ...)
; compiling (DEFUN CLASS-FOR-TYPE ...)
; compiling (DEFUN MAYBE-ADD-TREE ...)
; compiling (DEFUN UNION-OF-DEPENDENCIES ...)
; compiling (DEFUN REMOVE-KEYS ...)
; compiling (DEFVAR *SERIAL-DEPENDS-ON*)
; compiling (DEFUN PARSE-COMPONENT-FORM ...)
; compiling (DEFUN %REMOVE-COMPONENT-INLINE-METHODS ...)
; compiling (DEFUN CHECK-COMPONENT-INPUT ...)
; compiling (DEFUN SYSDEF-ERROR-COMPONENT ...)
; compiling (DEFUN RESOLVE-SYMLINKS ...)
; compiling (DEFUN RUN-SHELL-COMMAND ...)
; compiling (DEFGENERIC HYPERDOCUMENTATION ...)
; compiling (DEFMETHOD HYPERDOCUMENTATION ...)
; compiling (DEFUN HYPERDOC ...)
; compiling (DEFUN SYSTEM-SOURCE-FILE ...)
; compiling (DEFUN SYSTEM-SOURCE-DIRECTORY ...)
; compiling (DEFUN SYSTEM-RELATIVE-PATHNAME ...)
; compiling (PUSHNEW :ASDF ...)
; compiling (WHEN (SB-EXT:POSIX-GETENV "SBCL_BUILDING_CONTRIB") ...)
; compiling (DEFUN MODULE-PROVIDE-ASDF ...)
; compiling (DEFUN CONTRIB-SYSDEF-SEARCH ...)
; compiling (PUSHNEW (QUOTE #) ...)
; compiling (PUSHNEW (QUOTE #) ...)
; compiling (PUSHNEW (QUOTE MODULE-PROVIDE-ASDF) ...)
; compiling (PUSHNEW (QUOTE CONTRIB-SYSDEF-SEARCH) ...)
; compiling (PROVIDE (QUOTE ASDF))

; SYS:CONTRIB;ASDF;ASDF.FASL.NEWEST written
; compilation finished in 0:00:01
* true
make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "asdf-install")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/asdf-install/asdf-install.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM ASDF-INSTALL {11A338D9}> as ASDF-INSTALL
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sb-bsd-sockets.asd into
; #<PACKAGE "ASDF0">

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-grovel/defpackage.lisp" (written 29 JUN 2004 11:50:57 AM):
; compiling (DEFPACKAGE "SB-GROVEL" ...)

; SYS:CONTRIB;SB-GROVEL;DEFPACKAGE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-grovel/def-to-lisp.lisp" (written 30 DEC 2007 07:32:29 AM):
; compiling (IN-PACKAGE #:SB-GROVEL)
; compiling (DEFVAR *DEFAULT-C-STREAM* ...)
; compiling (DEFUN ESCAPE-FOR-STRING ...)
; compiling (DEFUN SPLIT-CFLAGS ...)
; compiling (DEFUN C-ESCAPE ...)
; compiling (DEFUN AS-C ...)
; compiling (DEFUN PRINTF ...)
; compiling (DEFUN C-FOR-ENUM ...)
; compiling (DEFUN C-FOR-STRUCTURE ...)
; compiling (DEFUN PRINT-C-SOURCE ...)
; compiling (DEFUN C-CONSTANTS-EXTRACT ...)
; compiling (DEFCLASS GROVEL-CONSTANTS-FILE ...)
; compiling (DEFINE-CONDITION C-COMPILE-FAILED ...)
; compiling (DEFINE-CONDITION A-DOT-OUT-FAILED ...)
; compiling (DEFMETHOD PERFORM ...)

; SYS:CONTRIB;SB-GROVEL;DEF-TO-LISP.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-grovel/foreign-glue.lisp" (written 07 MAR 2007 04:12:58 AM):
; compiling (IN-PACKAGE :SB-GROVEL)
; compiling (DEFMACRO DEFINE-FOREIGN-ROUTINE ...)
; compiling (DEFUN REINTERN ...)
; compiling (DEFPARAMETER ALIEN-TYPE-TABLE ...)
; compiling (DEFPARAMETER LISP-TYPE-TABLE ...)
; compiling (DEFINE-ALIEN-TYPES (TYPE SIZE) ...)
; compiling (DEFUN RETRIEVE-TYPE-FOR ...)
; compiling (DEFUN ALIEN-TYPE-FOR ...)
; compiling (DEFUN LISP-TYPE-FOR ...)
; compiling (DEFUN MK-PADDING ...)
; compiling (DEFUN MK-STRUCT ...)
; compiling (DEFUN MK-UNION ...)
; compiling (DEFUN MK-VAL ...)
; compiling (DEFCLASS SLOT ...)
; compiling (DEFCLASS STRUCTURED-TYPE ...)
; compiling (DEFCLASS UNION ...)
; compiling (DEFCLASS STRUCT ...)
; compiling (DEFCLASS VALUE-SLOT ...)
; compiling (DEFCLASS PADDING ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD SIZE ...)
; compiling (DEFGENERIC SLOT-END ...)
; compiling (DEFMETHOD SLOT-END ...)
; compiling (DEFUN OVERLAP-P ...)
; compiling (DEFGENERIC FIND-OVERLAPS ...)
; compiling (DEFMETHOD FIND-OVERLAPS ...)
; compiling (DEFMETHOD FIND-OVERLAPS ...)
; compiling (DEFGENERIC PAD-TO-OFFSET-OF ...)
; compiling (DEFMETHOD PAD-TO-OFFSET-OF ...)
; compiling (DEFMETHOD PAD-TO-OFFSET-OF ...)
; compiling (DEFGENERIC REPLACE-BY-UNION ...)
; compiling (DEFMETHOD REPLACE-BY-UNION ...)
; compiling (DEFMETHOD REPLACE-BY-UNION ...)
; compiling (DEFGENERIC INSERT-ELEMENT ...)
; compiling (DEFMETHOD INSERT-ELEMENT ...)
; compiling (DEFUN SANE-SLOT ...)
; compiling (DEFGENERIC ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMACRO IDENTITY-1 ...)
; compiling (DEFUN (SETF IDENTITY-1) ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFMETHOD ACCESSOR-MODIFIER-FOR ...)
; compiling (DEFUN C-STRING->LISP-STRING ...)
; compiling (DEFUN (SETF C-STRING->LISP-STRING) ...)
; compiling (DEFGENERIC ACCESSORS-FOR ...)
; compiling (DEFMETHOD ACCESSORS-FOR ...)
; compiling (DEFMETHOD ACCESSORS-FOR ...)
; compiling (DEFMETHOD ACCESSORS-FOR ...)
; compiling (DEFGENERIC GENERATE-STRUCT-DEFINITION ...)
; compiling (DEFMETHOD GENERATE-STRUCT-DEFINITION ...)
; compiling (DEFMETHOD GENERATE-STRUCT-DEFINITION ...)
; compiling (DEFMACRO DEFINE-C-STRUCT ...)
; compiling (DEFUN FOREIGN-NULLP ...)

; SYS:CONTRIB;SB-GROVEL;FOREIGN-GLUE.FASL.NEWEST written
; compilation finished in 0:00:00
; registering #<SYSTEM SB-BSD-SOCKETS {118DB3C9}> as SB-BSD-SOCKETS
; registering #<SYSTEM SB-BSD-SOCKETS-TESTS {11A3D8F9}> as SB-BSD-SOCKETS-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-posix/sb-posix.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-POSIX {11BE2EE1}> as SB-POSIX
; registering #<SYSTEM SB-POSIX-TESTS {11CFD8A9}> as SB-POSIX-TESTS
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/defpackage.lisp" (written 16 JUL 2008 02:48:55 PM):
; compiling (DEFPACKAGE "SB-BSD-SOCKETS-INTERNAL" ...)
; compiling (DEFPACKAGE "SB-BSD-SOCKETS" ...)
; compiling (LET (#) ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;DEFPACKAGE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/split.lisp" (written 07 FEB 2003 07:11:52 PM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFUN SPLIT ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;SPLIT.FASL.NEWEST written
; compilation finished in 0:00:00
(SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.LISP.NEWEST
 SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.FASL.NEWEST
 /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.fasl
 /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/foo.c
 /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/a.out
 /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp)
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp" (written 30 JUL 2008 03:16:11 PM):
; compiling (IN-PACKAGE #:SOCKINT)
; compiling (DEFCONSTANT AF-INET ...)
; compiling (DEFCONSTANT AF-UNSPEC ...)
; compiling (DEFCONSTANT AF-LOCAL ...)
; compiling (DEFCONSTANT SOCK-STREAM ...)
; compiling (DEFCONSTANT SOCK-DGRAM ...)
; compiling (DEFCONSTANT SOCK-RAW ...)
; compiling (DEFCONSTANT SOCK-RDM ...)
; compiling (DEFCONSTANT SOCK-SEQPACKET ...)
; compiling (DEFCONSTANT SOL-SOCKET ...)
; compiling (DEFCONSTANT SO-DEBUG ...)
; compiling (DEFCONSTANT SO-REUSEADDR ...)
; compiling (DEFCONSTANT SO-TYPE ...)
; compiling (DEFCONSTANT SO-ERROR ...)
; compiling (DEFCONSTANT SO-DONTROUTE ...)
; compiling (DEFCONSTANT SO-BROADCAST ...)
; compiling (DEFCONSTANT SO-SNDBUF ...)
; compiling (DEFCONSTANT SO-RCVBUF ...)
; compiling (DEFCONSTANT SO-KEEPALIVE ...)
; compiling (DEFCONSTANT SO-OOBINLINE ...)
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for SO_NO_CHECK (unknown to the C compiler).")
; compiling (DEFCONSTANT SO-LINGER ...)
; compiling (DEFCONSTANT SO-SNDLOWAT ...)
; compiling (DEFCONSTANT SO-RCVLOWAT ...)
; compiling (DEFCONSTANT SO-SNDTIMEO ...)
; compiling (DEFCONSTANT SO-RCVTIMEO ...)
; compiling (DEFCONSTANT TCP-NODELAY ...)
; compiling (DEFCONSTANT IFNAMSIZ ...)
; compiling (DEFCONSTANT EADDRINUSE ...)
; compiling (DEFCONSTANT EAGAIN ...)
; compiling (DEFCONSTANT EBADF ...)
; compiling (DEFCONSTANT ECONNREFUSED ...)
; compiling (DEFCONSTANT ETIMEDOUT ...)
; compiling (DEFCONSTANT EINTR ...)
; compiling (DEFCONSTANT EINVAL ...)
; compiling (DEFCONSTANT ENOBUFS ...)
; compiling (DEFCONSTANT ENOMEM ...)
; compiling (DEFCONSTANT EOPNOTSUPP ...)
; compiling (DEFCONSTANT EPERM ...)
; compiling (DEFCONSTANT EPROTONOSUPPORT ...)
; compiling (DEFCONSTANT ESOCKTNOSUPPORT ...)
; compiling (DEFCONSTANT ENETUNREACH ...)
; compiling (DEFCONSTANT ENOTCONN ...)
; compiling (DEFCONSTANT NETDB-INTERNAL ...)
; compiling (DEFCONSTANT NETDB-SUCCESS ...)
; compiling (DEFCONSTANT HOST-NOT-FOUND ...)
; compiling (DEFCONSTANT TRY-AGAIN ...)
; compiling (DEFCONSTANT NO-RECOVERY ...)
; compiling (DEFCONSTANT NO-DATA ...)
; compiling (DEFCONSTANT NO-ADDRESS ...)
; compiling (DECLAIM (INLINE H-STRERROR))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("hstrerror" H-STRERROR) ...)
; compiling (DEFCONSTANT O-NONBLOCK ...)
; compiling (DEFCONSTANT F-GETFL ...)
; compiling (DEFCONSTANT F-SETFL ...)
; compiling (DEFCONSTANT MSG-OOB ...)
; compiling (DEFCONSTANT MSG-PEEK ...)
; compiling (DEFCONSTANT MSG-TRUNC ...)
; compiling (DEFCONSTANT MSG-WAITALL ...)
; compiling (DEFCONSTANT MSG-EOR ...)
; compiling (DEFCONSTANT MSG-DONTROUTE ...)
; compiling (DEFCONSTANT MSG-DONTWAIT ...)
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for MSG_NOSIGNAL (unknown to the C compiler).")
; compiling (DEFINE-ALIEN-TYPE SOCKLEN-T ...)
; compiling (DEFINE-ALIEN-TYPE SIZE-T ...)
; compiling (DEFINE-ALIEN-TYPE SSIZE-T ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT PROTOENT ...); in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT PROTOENT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::PROTOENT 12
;                                 (SB-BSD-SOCKETS-INTERNAL::NAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ALIASES (* (* T))
;                                  "char **" 4 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::PROTO INTEGER "int" 8
;                                  4))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ALIASES)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (*
;                                                                             T))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (*
;                                                                             T))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ALIASES) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (*
;                                                                             T))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (*
;                                                                             T))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::PROTOENT))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTO) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::PROTOENT))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTO) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO
;                    (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO
;                                         (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK
;                                             SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT
;                                                  'SB-BSD-SOCKETS-INTERNAL::PROTO)
;                                            4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO
;                        (SB-GROVEL::IDENTITY-1
;                         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTO) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DECLAIM (INLINE GETPROTOBYNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname" GETPROTOBYNAME) ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobyname" GETPROTOBYNAME)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("getprotobyname" SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNAME)
;      (* SB-BSD-SOCKETS-INTERNAL::PROTOENT)
;      (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::PROTOENT
;                                                                             (SB-BSD-SOCKETS-INTERNAL::NAME
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ALIASES
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PROTO
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING1
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETPROTOBYNUMBER))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber" GETPROTOBYNUMBER) ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in:
;      SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getprotobynumber" GETPROTOBYNUMBER)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("getprotobynumber" SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNUMBER)
;      (* SB-BSD-SOCKETS-INTERNAL::PROTOENT) (SB-BSD-SOCKETS-INTERNAL::PROTO INT))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::PROTOENT
;                                                                             (SB-BSD-SOCKETS-INTERNAL::NAME
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ALIASES
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PROTO
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING1
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFCONSTANT INADDR-ANY ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT IN-ADDR ...); in: LAMBDA NIL
;     (SLOT STRUCT 'ADDR)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT IN-ADDR
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::IN-ADDR 4
;                                 (ADDR (ARRAY (UNSIGNED 8)) "u_int32_t" 0 4))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'ADDR) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN ...); in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PORT)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-IN
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN 16
;                                 (SB-BSD-SOCKETS-INTERNAL::LEN (UNSIGNED 8)
;                                  "__uint8_t" 0 1)
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 1 1)
;                                 (SB-BSD-SOCKETS-INTERNAL::PORT
;                                  (ARRAY (UNSIGNED 8)) "u_int16_t" 2 2)
;                                 (ADDR (ARRAY (UNSIGNED 8)) "struct in_addr" 4 4))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PORT) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          2)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; in: LAMBDA NIL
;     (SLOT STRUCT 'ADDR)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'ADDR) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN ...); in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PATH)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          104)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN 106
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 1 1)
;                                 (SB-BSD-SOCKETS-INTERNAL::PATH C-STRING "char" 2
;                                  104))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          104)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PATH)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          104)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF LET* SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          104)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN-ABSTRACT ...); in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PATH)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          104)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT SOCKADDR-UN-ABSTRACT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-ABSTRACT 106
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER
;                                  "sa_family_t" 1 1)
;                                 (SB-BSD-SOCKETS-INTERNAL::PATH
;                                  (ARRAY (UNSIGNED 8)) "char" 2 104))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          104)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PATH) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          104)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          104)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT HOSTENT ...); in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT HOSTENT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::HOSTENT 20
;                                 (SB-BSD-SOCKETS-INTERNAL::NAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ALIASES (* C-STRING)
;                                  "char **" 4 4)
;                                 (TYPE INTEGER "int" 8 4)
;                                 (LENGTH INTEGER "int" 12 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ADDRESSES
;                                  (* (* (UNSIGNED 8))) "char **" 16 4))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ALIASES)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (C-STRING
;                                                                             :EXTERNAL-FORMAT
;                                                                             :DEFAULT
;                                                                             :ELEMENT-TYPE
;                                                                             CHARACTER))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (C-STRING
;                                                                             :EXTERNAL-FORMAT
;                                                                             :DEFAULT
;                                                                             :ELEMENT-TYPE
;                                                                             CHARACTER))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ALIASES) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (C-STRING
;                                                                             :EXTERNAL-FORMAT
;                                                                             :DEFAULT
;                                                                             :ELEMENT-TYPE
;                                                                             CHARACTER))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (C-STRING
;                                                                             :EXTERNAL-FORMAT
;                                                                             :DEFAULT
;                                                                             :ELEMENT-TYPE
;                                                                             CHARACTER))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'TYPE) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'TYPE) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE
;                    (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE
;                                         (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK
;                                             SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'TYPE) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-TYPE
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'TYPE) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'LENGTH) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::HOSTENT))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'LENGTH) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH
;                    (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH
;                                         (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK
;                                             SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'LENGTH) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::HOSTENT-LENGTH
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'LENGTH) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ADDRESSES)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (*
;                                                                             (UNSIGNED
;                                                                              8)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (*
;                                                                             (UNSIGNED
;                                                                              8)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ADDRESSES) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (*
;                                                                             (UNSIGNED
;                                                                              8)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (*
;                                                                             (UNSIGNED
;                                                                              8)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; compiling (SB-GROVEL::DEFINE-C-STRUCT MSGHDR ...); in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT MSGHDR
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::MSGHDR 28
;                                 (SB-BSD-SOCKETS-INTERNAL::NAME
;                                  SB-BSD-SOCKETS-INTERNAL::C-STRING-POINTER
;                                  "void *" 0 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::NAMELEN INTEGER
;                                  "socklen_t" 4 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::IOV (* T)
;                                  "struct iovec" 8 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::IOVLEN INTEGER "size_t"
;                                  12 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::CONTROL (* T) "void *"
;                                  16 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::CONTROLLEN INTEGER
;                                  "socklen_t" 20 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::FLAGS INTEGER "int" 24
;                                  4))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAME) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAMELEN) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAMELEN) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN
;                    (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN
;                                         (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK
;                                             SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT
;                                                  'SB-BSD-SOCKETS-INTERNAL::NAMELEN)
;                                            4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-NAMELEN
;                        (SB-GROVEL::IDENTITY-1
;                         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NAMELEN) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOV)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOV) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOVLEN) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOVLEN) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN
;                    (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN
;                                         (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK
;                                             SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT
;                                                  'SB-BSD-SOCKETS-INTERNAL::IOVLEN)
;                                            4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-IOVLEN
;                        (SB-GROVEL::IDENTITY-1
;                         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::IOVLEN) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROL)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROL) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROLLEN)
;                             4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROLLEN)
;                             4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN
;                    (SB-INT:NAMED-LAMBDA
;                     SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN (STRUCT)
;                     (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                     (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN
;                       (SB-GROVEL::IDENTITY-1
;                        (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROLLEN) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-CONTROLLEN
;                        (SB-GROVEL::IDENTITY-1
;                         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CONTROLLEN) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::MSGHDR))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS
;                    (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS
;                                         (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK
;                                             SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT
;                                                  'SB-BSD-SOCKETS-INTERNAL::FLAGS)
;                                            4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::MSGHDR-FLAGS
;                        (SB-GROVEL::IDENTITY-1
;                         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DECLAIM (INLINE SOCKET))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("socket" SOCKET) ...)
; compiling (DECLAIM (INLINE BIND))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("bind" BIND) ...)
; compiling (DECLAIM (INLINE LISTEN))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("listen" LISTEN) ...)
; compiling (DECLAIM (INLINE ACCEPT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("accept" ACCEPT) ...)
; compiling (DECLAIM (INLINE GETPEERNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getpeername" GETPEERNAME) ...)
; compiling (DECLAIM (INLINE GETSOCKNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getsockname" GETSOCKNAME) ...)
; compiling (DECLAIM (INLINE CONNECT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("connect" CONNECT) ...)
; compiling (DECLAIM (INLINE CLOSE))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("close" CLOSE) ...)
; compiling (DECLAIM (INLINE RECVFROM))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("recvfrom" RECVFROM) ...)
; compiling (DECLAIM (INLINE RECVMSG))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("recvmsg" RECVMSG) ...)
; compiling (DECLAIM (INLINE SEND))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("send" SEND) ...)
; compiling (DECLAIM (INLINE SENDTO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("sendto" SENDTO) ...)
; compiling (DECLAIM (INLINE SENDMSG))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("sendmsg" SENDMSG) ...)
; compiling (DECLAIM (INLINE GETHOSTBYNAME))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname" GETHOSTBYNAME) ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname" GETHOSTBYNAME)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("gethostbyname" SB-BSD-SOCKETS-INTERNAL::GETHOSTBYNAME)
;      (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)
;      (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::HOSTENT
;                                                                             (SB-BSD-SOCKETS-INTERNAL::NAME
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ALIASES
;                                                                              #)
;                                                                             (TYPE
;                                                                              #)
;                                                                             (LENGTH
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ADDRESSES
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING8
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETHOSTBYNAME2))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname2" GETHOSTBYNAME2) ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyname2" GETHOSTBYNAME2)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("gethostbyname2" SB-BSD-SOCKETS-INTERNAL::GETHOSTBYNAME2)
;      (* SB-BSD-SOCKETS-INTERNAL::HOSTENT)
;      (SB-BSD-SOCKETS-INTERNAL::NAME C-STRING) (SB-BSD-SOCKETS-INTERNAL::AF INT))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::HOSTENT
;                                                                             (SB-BSD-SOCKETS-INTERNAL::NAME
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ALIASES
;                                                                              #)
;                                                                             (TYPE
;                                                                              #)
;                                                                             (LENGTH
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ADDRESSES
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING8
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DECLAIM (INLINE GETHOSTBYADDR))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyaddr" GETHOSTBYADDR) ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gethostbyaddr" GETHOSTBYADDR)
;     (SB-GROVEL::DEFINE-FOREIGN-ROUTINE
;      ("gethostbyaddr" SB-BSD-SOCKETS-INTERNAL::GETHOSTBYADDR)
;      (* SB-BSD-SOCKETS-INTERNAL::HOSTENT) (ADDR (* T))
;      (SB-BSD-SOCKETS-INTERNAL::LEN INT) (SB-BSD-SOCKETS-INTERNAL::AF INT))
; --> DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::HOSTENT
;                                                                             (SB-BSD-SOCKETS-INTERNAL::NAME
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ALIASES
;                                                                              #)
;                                                                             (TYPE
;                                                                              #)
;                                                                             (LENGTH
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ADDRESSES
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING8
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (SB-GROVEL::DEFINE-C-STRUCT ADDRINFO ...); in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ADDRINFO
;     (SB-GROVEL::DEFINE-C-STRUCT SB-BSD-SOCKETS-INTERNAL::ADDRINFO 32
;                                 (SB-BSD-SOCKETS-INTERNAL::FLAGS INTEGER "int" 0
;                                  4)
;                                 (SB-BSD-SOCKETS-INTERNAL::FAMILY INTEGER "int" 4
;                                  4)
;                                 (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE INTEGER "int"
;                                  8 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::PROTOCOL INTEGER "int"
;                                  12 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::ADDRLEN INTEGER
;                                  "socklen_t" 16 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::CANONNAME C-STRING
;                                  "char *" 20 4)
;                                 (ADDR (* SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN)
;                                       "struct sockaddr*" 24 4)
;                                 (SB-BSD-SOCKETS-INTERNAL::NEXT (* T)
;                                  "struct addrinfo*" 28 4))
; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS
;                    (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS
;                                         (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK
;                                             SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT
;                                                  'SB-BSD-SOCKETS-INTERNAL::FLAGS)
;                                            4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FLAGS
;                        (SB-GROVEL::IDENTITY-1
;                         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FLAGS) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FAMILY) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FAMILY) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY
;                    (SB-INT:NAMED-LAMBDA
;                     SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY (STRUCT)
;                     (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                     (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY
;                       (SB-GROVEL::IDENTITY-1
;                        (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FAMILY) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-FAMILY
;                        (SB-GROVEL::IDENTITY-1
;                         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::FAMILY) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::SOCKTYPE) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::SOCKTYPE)
;                             4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE
;                    (SB-INT:NAMED-LAMBDA
;                     SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE (STRUCT)
;                     (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                     (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE
;                       (SB-GROVEL::IDENTITY-1
;                        (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::SOCKTYPE) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-SOCKTYPE
;                        (SB-GROVEL::IDENTITY-1
;                         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::SOCKTYPE) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTOCOL) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTOCOL)
;                             4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL
;                    (SB-INT:NAMED-LAMBDA
;                     SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL (STRUCT)
;                     (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                     (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL
;                       (SB-GROVEL::IDENTITY-1
;                        (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTOCOL) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-PROTOCOL
;                        (SB-GROVEL::IDENTITY-1
;                         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::PROTOCOL) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ADDRLEN) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
;                            STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ADDRLEN) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN
;                    (SB-INT:NAMED-LAMBDA
;                     SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN (STRUCT)
;                     (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                     (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN
;                       (SB-GROVEL::IDENTITY-1
;                        (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ADDRLEN) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-BSD-SOCKETS-INTERNAL::ADDRINFO-ADDRLEN
;                        (SB-GROVEL::IDENTITY-1
;                         (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::ADDRLEN) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CANONNAME)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::CANONNAME)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF LET* SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SLOT STRUCT 'ADDR)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN
;                                                                             (SB-BSD-SOCKETS-INTERNAL::LEN
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::FAMILY
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PORT
;                                                                              #)
;                                                                             (ADDR
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING3
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN
;                                                                             (SB-BSD-SOCKETS-INTERNAL::LEN
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::FAMILY
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PORT
;                                                                              #)
;                                                                             (ADDR
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING3
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'ADDR) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN
;                                                                             (SB-BSD-SOCKETS-INTERNAL::LEN
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::FAMILY
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PORT
;                                                                              #)
;                                                                             (ADDR
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING3
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN
;                                                                             (SB-BSD-SOCKETS-INTERNAL::LEN
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::FAMILY
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PORT
;                                                                              #)
;                                                                             (ADDR
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING3
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NEXT)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-BSD-SOCKETS-INTERNAL::NEXT) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:DEPORT ETYPECASE LET COND IF PROGN 
; ==>
;   (SB-SYS:INT-SAP 0)
; 
; note: doing SAP to pointer coercion (cost 20), for:
;       the first result of INT-SAP

; compiling (DECLAIM (INLINE GETADDRINFO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getaddrinfo" GETADDRINFO) ...)
; compiling (DECLAIM (INLINE FREEADDRINFO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("freeaddrinfo" FREEADDRINFO) ...)
; compiling (DECLAIM (INLINE GAI-STRERROR))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("gai_strerror" GAI-STRERROR) ...)
; compiling (DECLAIM (INLINE GETNAMEINFO))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getnameinfo" GETNAMEINFO) ...)
; compiling (DEFCONSTANT EAI-FAMILY ...)
; compiling (DEFCONSTANT EAI-SOCKTYPE ...)
; compiling (DEFCONSTANT EAI-BADFLAGS ...)
; compiling (DEFCONSTANT EAI-NONAME ...)
; compiling (DEFCONSTANT EAI-SERVICE ...)
; compiling (DEFCONSTANT EAI-ADDRFAMILY ...)
; compiling (DEFCONSTANT EAI-MEMORY ...)
; compiling (DEFCONSTANT EAI-FAIL ...)
; compiling (DEFCONSTANT EAI-AGAIN ...)
; compiling (DEFCONSTANT EAI-SYSTEM ...)
; compiling (DEFCONSTANT NI-NAMEREQD ...)
; compiling (DECLAIM (INLINE SETSOCKOPT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("setsockopt" SETSOCKOPT) ...)
; compiling (DECLAIM (INLINE FCNTL))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("fcntl" FCNTL) ...)
; compiling (DECLAIM (INLINE GETSOCKOPT))
; compiling (SB-GROVEL::DEFINE-FOREIGN-ROUTINE ("getsockopt" GETSOCKOPT) ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;CONSTANTS.FASL.NEWEST written
; compilation finished in 0:00:01
STYLE-WARNING: Couldn't grovel for SO_NO_CHECK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for MSG_NOSIGNAL (unknown to the C compiler).
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sockets.lisp" (written 13 MAR 2008 01:35:21 PM):
; compiling (IN-PACKAGE "SB-BSD-SOCKETS")
; compiling (DEFCLASS SOCKET ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFGENERIC MAKE-SOCKADDR-FOR ...)
; compiling (DEFGENERIC FREE-SOCKADDR-FOR ...)
; compiling (DEFMACRO WITH-SOCKADDR-FOR ...)
; compiling (DEFGENERIC SOCKET-BIND ...)
; compiling (DEFMETHOD SOCKET-BIND ...)
; compiling (DEFGENERIC SOCKET-ACCEPT ...)
; compiling (DEFMETHOD SOCKET-ACCEPT ...)
; compiling (DEFGENERIC SOCKET-CONNECT ...)
; compiling (DEFMETHOD SOCKET-CONNECT ...)
; compiling (DEFGENERIC SOCKET-PEERNAME ...)
; compiling (DEFMETHOD SOCKET-PEERNAME ...)
; compiling (DEFGENERIC SOCKET-NAME ...)
; compiling (DEFMETHOD SOCKET-NAME ...)
; compiling (DEFGENERIC SOCKET-RECEIVE ...)
; compiling (DEFMETHOD SOCKET-RECEIVE ...)
; compiling (DEFMACRO WITH-VECTOR-SAP ...)
; compiling (DEFGENERIC SOCKET-SEND ...)
; compiling (DEFMETHOD SOCKET-SEND ...)
; compiling (DEFGENERIC SOCKET-LISTEN ...)
; compiling (DEFMETHOD SOCKET-LISTEN ...)
; compiling (DEFGENERIC SOCKET-OPEN-P ...)
; compiling (DEFMETHOD SOCKET-OPEN-P ...)
; compiling (DEFGENERIC SOCKET-CLOSE ...)
; compiling (DEFMETHOD SOCKET-CLOSE ...)
; compiling (DEFGENERIC SOCKET-MAKE-STREAM ...)
; compiling (DEFMETHOD SOCKET-MAKE-STREAM ...)
; compiling (DEFINE-CONDITION SOCKET-ERROR ...)
; compiling (DEFMACRO DEFINE-SOCKET-CONDITION ...)
; compiling (DEFPARAMETER *CONDITIONS-FOR-ERRNO* ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EADDRINUSE ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EAGAIN ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EBADF ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ECONNREFUSED ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ETIMEDOUT ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EINTR ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EINVAL ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOBUFS ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOMEM ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EOPNOTSUPP ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EPERM ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::EPROTONOSUPPORT ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ESOCKTNOSUPPORT ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENETUNREACH ...)
; compiling (DEFINE-SOCKET-CONDITION SB-BSD-SOCKETS-INTERNAL::ENOTCONN ...)
; compiling (DEFUN CONDITION-FOR-ERRNO ...)
; compiling (DEFUN SOCKET-ERROR ...)
; compiling (DEFGENERIC BITS-OF-SOCKADDR ...)
; compiling (DEFGENERIC SIZE-OF-SOCKADDR ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;SOCKETS.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sockopt.lisp" (written 05 APR 2006 11:47:17 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFMACRO DEFINE-SOCKET-OPTION ...)
; compiling (DEFUN FOREIGN-INT-TO-INTEGER ...)
; compiling (DEFMACRO DEFINE-SOCKET-OPTION-INT ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-RECEIVE-LOW-WATER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-SEND-LOW-WATER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-TYPE ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-SEND-BUFFER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-RECEIVE-BUFFER ...)
; compiling (DEFINE-SOCKET-OPTION-INT SOCKOPT-PRIORITY ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sockopt.lisp
; in: DEFINE-SOCKET-OPTION-INT SOCKOPT-PRIORITY
;     (SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION-INT SB-BSD-SOCKETS::SOCKOPT-PRIORITY
;                                               SB-BSD-SOCKETS-INTERNAL::SOL-SOCKET
;                                               SB-BSD-SOCKETS-INTERNAL::SO-PRIORITY
;                                               :LINUX "Available only on Linux.")
; --> SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS::SOCKOPT-PRIORITY
;                    (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS::SOCKOPT-PRIORITY
;                                         (SB-BSD-SOCKETS:SOCKET)
;                                         (BLOCK SB-BSD-SOCKETS::SOCKOPT-PRIORITY
;                                           (ERROR 'SB-INT:UNSUPPORTED-OPERATOR
;                                                  :FORMAT-CONTROL
;                                                  "Socket option ~S is not supported in this platform."
;                                                  :FORMAT-ARGUMENTS
;                                                  (LIST
;                                                   'SB-BSD-SOCKETS::SOCKOPT-PRIORITY))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The variable SOCKET is defined but never used.

; ==>
;   (SB-IMPL::%DEFUN '(SETF SB-BSD-SOCKETS::SOCKOPT-PRIORITY)
;                    (SB-INT:NAMED-LAMBDA (SETF SB-BSD-SOCKETS::SOCKOPT-PRIORITY)
;                                         (SB-BSD-SOCKETS::NEW-VAL
;                                          SB-BSD-SOCKETS:SOCKET)
;                                         (BLOCK SB-BSD-SOCKETS::SOCKOPT-PRIORITY
;                                           (ERROR 'SB-INT:UNSUPPORTED-OPERATOR
;                                                  :FORMAT-CONTROL
;                                                  "Socket option ~S is not supported on this platform."
;                                                  :FORMAT-ARGUMENTS
;                                                  (LIST
;                                                   'SB-BSD-SOCKETS::SOCKOPT-PRIORITY))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The variable NEW-VAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SOCKET is defined but never used.

; compiling (DEFUN FOREIGN-INT-TO-BOOL ...)
; compiling (DEFUN BOOL-TO-FOREIGN-INT ...)
; compiling (DEFMACRO DEFINE-SOCKET-OPTION-BOOL ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-REUSE-ADDRESS ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-KEEP-ALIVE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-OOB-INLINE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-BSD-COMPATIBLE ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sockopt.lisp
; in: DEFINE-SOCKET-OPTION-BOOL SOCKOPT-BSD-COMPATIBLE
;     (SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION-BOOL
;      SB-BSD-SOCKETS::SOCKOPT-BSD-COMPATIBLE SB-BSD-SOCKETS-INTERNAL::SOL-SOCKET
;      SB-BSD-SOCKETS-INTERNAL::SO-BSDCOMPAT :LINUX "Available only on Linux.")
; --> SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS::SOCKOPT-BSD-COMPATIBLE
;                    (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS::SOCKOPT-BSD-COMPATIBLE
;                                         (SB-BSD-SOCKETS:SOCKET)
;                                         (BLOCK
;                                             SB-BSD-SOCKETS::SOCKOPT-BSD-COMPATIBLE
;                                           (ERROR 'SB-INT:UNSUPPORTED-OPERATOR
;                                                  :FORMAT-CONTROL
;                                                  "Socket option ~S is not supported in this platform."
;                                                  :FORMAT-ARGUMENTS
;                                                  (LIST
;                                                   'SB-BSD-SOCKETS::SOCKOPT-BSD-COMPATIBLE))))
;                    "Return the value of the SO-BSDCOMPAT socket option for SOCKET. This can also be
; updated with SETF. Available only on Linux."
;                    'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The variable SOCKET is defined but never used.

; ==>
;   (SB-IMPL::%DEFUN '(SETF SB-BSD-SOCKETS::SOCKOPT-BSD-COMPATIBLE)
;                    (SB-INT:NAMED-LAMBDA
;                     (SETF SB-BSD-SOCKETS::SOCKOPT-BSD-COMPATIBLE)
;                     (SB-BSD-SOCKETS::NEW-VAL SB-BSD-SOCKETS:SOCKET)
;                     (BLOCK SB-BSD-SOCKETS::SOCKOPT-BSD-COMPATIBLE
;                       (ERROR 'SB-INT:UNSUPPORTED-OPERATOR :FORMAT-CONTROL
;                              "Socket option ~S is not supported on this platform."
;                              :FORMAT-ARGUMENTS
;                              (LIST 'SB-BSD-SOCKETS::SOCKOPT-BSD-COMPATIBLE))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The variable NEW-VAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SOCKET is defined but never used.

; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-PASS-CREDENTIALS ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sockopt.lisp
; in: DEFINE-SOCKET-OPTION-BOOL SOCKOPT-PASS-CREDENTIALS
;     (SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION-BOOL
;      SB-BSD-SOCKETS::SOCKOPT-PASS-CREDENTIALS SB-BSD-SOCKETS-INTERNAL::SOL-SOCKET
;      SB-BSD-SOCKETS-INTERNAL::SO-PASSCRED :LINUX "Available only on Linux.")
; --> SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS::SOCKOPT-PASS-CREDENTIALS
;                    (SB-INT:NAMED-LAMBDA
;                     SB-BSD-SOCKETS::SOCKOPT-PASS-CREDENTIALS
;                     (SB-BSD-SOCKETS:SOCKET)
;                     (BLOCK SB-BSD-SOCKETS::SOCKOPT-PASS-CREDENTIALS
;                       (ERROR 'SB-INT:UNSUPPORTED-OPERATOR :FORMAT-CONTROL
;                              "Socket option ~S is not supported in this platform."
;                              :FORMAT-ARGUMENTS
;                              (LIST
;                               'SB-BSD-SOCKETS::SOCKOPT-PASS-CREDENTIALS))))
;                    "Return the value of the SO-PASSCRED socket option for SOCKET. This can also be
; updated with SETF. Available only on Linux."
;                    'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The variable SOCKET is defined but never used.

; ==>
;   (SB-IMPL::%DEFUN '(SETF SB-BSD-SOCKETS::SOCKOPT-PASS-CREDENTIALS)
;                    (SB-INT:NAMED-LAMBDA
;                     (SETF SB-BSD-SOCKETS::SOCKOPT-PASS-CREDENTIALS)
;                     (SB-BSD-SOCKETS::NEW-VAL SB-BSD-SOCKETS:SOCKET)
;                     (BLOCK SB-BSD-SOCKETS::SOCKOPT-PASS-CREDENTIALS
;                       (ERROR 'SB-INT:UNSUPPORTED-OPERATOR :FORMAT-CONTROL
;                              "Socket option ~S is not supported on this platform."
;                              :FORMAT-ARGUMENTS
;                              (LIST
;                               'SB-BSD-SOCKETS::SOCKOPT-PASS-CREDENTIALS))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The variable NEW-VAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SOCKET is defined but never used.

; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-DEBUG ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-DONT-ROUTE ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-BROADCAST ...)
; compiling (DEFINE-SOCKET-OPTION-BOOL SOCKOPT-TCP-NODELAY ...)
; compiling (DEFUN IDENTITY-1 ...)
; compiling (DEFINE-SOCKET-OPTION SOCKOPT-BIND-TO-DEVICE ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sockopt.lisp
; in: DEFINE-SOCKET-OPTION SOCKOPT-BIND-TO-DEVICE
;     (SB-BSD-SOCKETS::DEFINE-SOCKET-OPTION SB-BSD-SOCKETS::SOCKOPT-BIND-TO-DEVICE
;                                           NIL SB-BSD-SOCKETS-INTERNAL::SOL-SOCKET
;                                           SB-BSD-SOCKETS-INTERNAL::SO-BINDTODEVICE
;                                           C-STRING IDENTITY
;                                           SB-BSD-SOCKETS::IDENTITY-1 IDENTITY
;                                           :LINUX "Available only on Linux")
; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-BSD-SOCKETS::SOCKOPT-BIND-TO-DEVICE
;                    (SB-INT:NAMED-LAMBDA SB-BSD-SOCKETS::SOCKOPT-BIND-TO-DEVICE
;                                         (SB-BSD-SOCKETS:SOCKET)
;                                         (BLOCK
;                                             SB-BSD-SOCKETS::SOCKOPT-BIND-TO-DEVICE
;                                           (ERROR 'SB-INT:UNSUPPORTED-OPERATOR
;                                                  :FORMAT-CONTROL
;                                                  "Socket option ~S is not supported in this platform."
;                                                  :FORMAT-ARGUMENTS
;                                                  (LIST
;                                                   'SB-BSD-SOCKETS::SOCKOPT-BIND-TO-DEVICE))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The variable SOCKET is defined but never used.

; ==>
;   (SB-IMPL::%DEFUN '(SETF SB-BSD-SOCKETS::SOCKOPT-BIND-TO-DEVICE)
;                    (SB-INT:NAMED-LAMBDA
;                     (SETF SB-BSD-SOCKETS::SOCKOPT-BIND-TO-DEVICE)
;                     (SB-BSD-SOCKETS::NEW-VAL SB-BSD-SOCKETS:SOCKET)
;                     (BLOCK SB-BSD-SOCKETS::SOCKOPT-BIND-TO-DEVICE
;                       (ERROR 'SB-INT:UNSUPPORTED-OPERATOR :FORMAT-CONTROL
;                              "Socket option ~S is not supported on this platform."
;                              :FORMAT-ARGUMENTS
;                              (LIST 'SB-BSD-SOCKETS::SOCKOPT-BIND-TO-DEVICE))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   The variable NEW-VAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SOCKET is defined but never used.


; SYS:CONTRIB;SB-BSD-SOCKETS;SOCKOPT.FASL.NEWEST written
; compilation finished in 0:00:01
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {11A821D9}> on
   #<CL-SOURCE-FILE "sockopt" {1264FC61}>.
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/inet.lisp" (written 14 MAR 2008 10:41:26 PM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS INET-SOCKET ...)
; compiling (DEFPARAMETER INET-ADDRESS-ANY ...)
; compiling (DEFUN MAKE-INET-ADDRESS ...)
; compiling (DEFINE-CONDITION UNKNOWN-PROTOCOL ...)
; compiling (DEFUN GET-PROTOCOL-BY-NAME ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/inet.lisp
; in: DEFUN GET-PROTOCOL-BY-NAME
;     (SB-BSD-SOCKETS-INTERNAL::GETPROTOBYNAME SB-BSD-SOCKETS::NAME)
; --> BLOCK WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES 
; --> PROG1 LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::PROTOENT
;                                                                             (SB-BSD-SOCKETS-INTERNAL::NAME
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ALIASES
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PROTO
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING1
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::PROTOENT-PROTO SB-BSD-SOCKETS::ENT)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)
; compiling (DEFUN MAKE-INET-SOCKET ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;INET.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/local.lisp" (written 16 JUL 2008 02:48:55 PM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS LOCAL-SOCKET ...)
; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/local.lisp
; in: DEFMETHOD MAKE-SOCKADDR-FOR (LOCAL-SOCKET)
;     (SETF (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-PATH SB-BSD-SOCKETS::SOCKADDR)
;             SB-BSD-SOCKETS::FILENAME)
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::DEFINED-FUN :%SOURCE-NAME (SETF SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-PATH) :INLINEP :INLINE :FUNCTIONAL #<SB-C::CLAMBDA :%SOURCE-NAME (SETF SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-PATH) :%DEBUG-NAME NIL :KIND :ZOMBIE :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :VARS (SB-GROVEL::NEW-VAL STRUCT) {1241BDB9}> {1241ABB1}> 
; --> BLOCK SETF LET* SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          104)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/local.lisp
; in: DEFMETHOD BITS-OF-SOCKADDR (LOCAL-SOCKET T)
;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-UN-PATH SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          104)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (DEFCLASS LOCAL-ABSTRACT-SOCKET ...)
; compiling (DEFMETHOD MAKE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD FREE-SOCKADDR-FOR ...)
; compiling (DEFMETHOD SIZE-OF-SOCKADDR ...)
; compiling (DEFMETHOD BITS-OF-SOCKADDR ...)
; compiling (DEFMETHOD SOCKET-CONNECT ...)
; compiling (DEFMETHOD SOCKET-BIND ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;LOCAL.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/name-service.lisp" (written 02 JUN 2008 06:07:57 AM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFCLASS HOST-ENT ...)
; compiling (DEFGENERIC HOST-ENT-ADDRESS ...)
; compiling (DEFMETHOD HOST-ENT-ADDRESS ...)
; compiling (DEFUN MAKE-HOST-ENT ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/name-service.lisp
; in: DEFUN MAKE-HOST-ENT
;     (DEREF (SB-BSD-SOCKETS-INTERNAL::HOSTENT-ADDRESSES SB-BSD-SOCKETS::H)
;            SB-BSD-SOCKETS::I)
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (UNSIGNED
;                                                                             8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::HOSTENT-NAME SB-BSD-SOCKETS::H)
; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN:ALIEN

; compiling (DEFUN NATURALIZE-UNSIGNED-BYTE-8-ARRAY ...)
; compiling (DEFUN GET-HOST-BY-NAME ...)
; compiling (DEFUN GET-HOST-BY-ADDRESS ...)
; compiling (DEFUN GET-ADDRESS-INFO ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/name-service.lisp
; in: DEFUN GET-ADDRESS-INFO
;     (DEREF SB-BSD-SOCKETS::RES)
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                                                             (SB-BSD-SOCKETS-INTERNAL::FLAGS
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::FAMILY
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PROTOCOL
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ADDRLEN
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                                                              #)
;                                                                             (ADDR
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::NEXT
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING10
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (CAST SB-BSD-SOCKETS::SAP (* SB-BSD-SOCKETS-INTERNAL::ADDRINFO))
; --> SB-ALIEN-INTERNALS:%CAST SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::ADDRINFO
;                                                                             (SB-BSD-SOCKETS-INTERNAL::FLAGS
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::FAMILY
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::SOCKTYPE
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PROTOCOL
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::ADDRLEN
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::CANONNAME
;                                                                              #)
;                                                                             (ADDR
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::NEXT
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING10
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT SB-BSD-SOCKETS::INFO)
; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-ADDR SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-BSD-SOCKETS-INTERNAL::ADDRINFO-NEXT SB-BSD-SOCKETS::INFO)
; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: doing SAP to pointer coercion (cost 20)

;     (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-ADDR SB-BSD-SOCKETS::SOCKADDR)
; --> BLOCK SB-GROVEL::IDENTITY-1 SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          4)>)
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (DEFCONSTANT NI-MAX-HOST ...)
; compiling (DEFUN GET-NAME-INFO ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/name-service.lisp
; in: DEFUN GET-NAME-INFO
;     (SB-BSD-SOCKETS-INTERNAL::WITH-SOCKADDR-IN SB-BSD-SOCKETS::SOCKADDR NIL
;                                                (WITH-ALIEN
;                                                 ((SB-BSD-SOCKETS::HOST-BUF
;                                                   (ARRAY CHAR 1025)))
;                                                 (SETF (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-LEN
;                                                        SB-BSD-SOCKETS::SOCKADDR)
;                                                         16)
;                                                 (SETF (SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN-FAMILY
;                                                        SB-BSD-SOCKETS::SOCKADDR)
;                                                         SB-BSD-SOCKETS-INTERNAL::AF-INET)
;                                                 (DOTIMES (SB-BSD-SOCKETS::I 4)
;                                                   (SETF (DEREF #
;                                                                SB-BSD-SOCKETS::I)
;                                                           (AREF
;                                                            SB-BSD-SOCKETS::ADDRESS
;                                                            SB-BSD-SOCKETS::I)))
;                                                 (LET ((SB-BSD-SOCKETS::ERR #))
;                                                   (IF (ZEROP SB-BSD-SOCKETS::ERR)
;                                                       (MAKE-INSTANCE
;                                                        'SB-BSD-SOCKETS:HOST-ENT
;                                                        :NAME # :TYPE
;                                                        SB-BSD-SOCKETS-INTERNAL::AF-INET
;                                                        :ALIASES NIL :ADDRESSES #)
;                                                       (SB-BSD-SOCKETS::ADDRINFO-ERROR
;                                                        "getnameinfo"
;                                                        SB-BSD-SOCKETS::ERR)))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 
; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-BSD-SOCKETS-INTERNAL::FREE-SOCKADDR-IN :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {11FD7A01}> 
; --> SB-BSD-SOCKETS::SOCKADDR SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-BSD-SOCKETS-INTERNAL::SOCKADDR-IN
;                                                                             (SB-BSD-SOCKETS-INTERNAL::LEN
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::FAMILY
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PORT
;                                                                              #)
;                                                                             (ADDR
;                                                                              #)
;                                                                             (SB-BSD-SOCKETS-INTERNAL::PADDING3
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFVAR *NAME-SERVICE-ERRNO* ...)
; compiling (DEFUN NAME-SERVICE-ERROR ...)
; compiling (DEFUN ADDRINFO-ERROR ...)
; compiling (DEFINE-CONDITION NAME-SERVICE-ERROR ...)
; compiling (DEFPARAMETER *CONDITIONS-FOR-NAME-SERVICE-ERRNO* ...)
; compiling (DEFPARAMETER *CONDITIONS-FOR-NAME-SERVICE-ERROR-CODE* ...)
; compiling (DEFMACRO DEFINE-NAME-SERVICE-CONDITION ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NETDB-INTERNAL ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NETDB-SUCCESS ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::HOST-NOT-FOUND ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::TRY-AGAIN ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NO-RECOVERY ...)
; compiling (DEFINE-NAME-SERVICE-CONDITION SB-BSD-SOCKETS-INTERNAL::NO-ADDRESS ...)
; compiling (DEFUN CONDITION-FOR-NAME-SERVICE-ERRNO ...)
; compiling (DEFUN CONDITION-FOR-NAME-SERVICE-ERROR-CODE ...)
; compiling (DEFUN GET-NAME-SERVICE-ERRNO ...)
; compiling (DEFUN GET-NAME-SERVICE-ERROR-MESSAGE ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;NAME-SERVICE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/misc.lisp" (written 06 APR 2006 01:39:33 PM):
; compiling (IN-PACKAGE :SB-BSD-SOCKETS)
; compiling (DEFGENERIC NON-BLOCKING-MODE ...)
; compiling (DEFMETHOD NON-BLOCKING-MODE ...)
; compiling (DEFGENERIC (SETF NON-BLOCKING-MODE) ...)
; compiling (DEFMETHOD (SETF NON-BLOCKING-MODE) ...)

; SYS:CONTRIB;SB-BSD-SOCKETS;MISC.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-posix/defpackage.lisp" (written 27 FEB 2008 07:33:45 PM):
; compiling (DEFPACKAGE :SB-POSIX ...)

; SYS:CONTRIB;SB-POSIX;DEFPACKAGE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-posix/designator.lisp" (written 11 JAN 2006 11:32:20 PM):
; compiling (IN-PACKAGE :SB-POSIX)
; compiling (DEFVAR *DESIGNATOR-TYPES* ...)
; compiling (DEFMACRO DEFINE-DESIGNATOR ...)

; SYS:CONTRIB;SB-POSIX;DESIGNATOR.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-posix/macros.lisp" (written 03 FEB 2008 03:20:43 AM):
; compiling (IN-PACKAGE :SB-POSIX)
; compiling (DEFINE-DESIGNATOR FILENAME ...)
; compiling (DEFINE-DESIGNATOR FILE-DESCRIPTOR ...)
; compiling (DEFINE-DESIGNATOR SAP-OR-NIL ...)
; compiling (DEFINE-DESIGNATOR ALIEN-POINTER-TO-ANYTHING-OR-NIL ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/macros.lisp
; in: DEFINE-DESIGNATOR ALIEN-POINTER-TO-ANYTHING-OR-NIL
;     (SAP-ALIEN (SB-SYS:INT-SAP 0) (* T))
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN (SB-SYS:INT-SAP 0)
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFUN LISP-FOR-C-SYMBOL ...)
; compiling (DEFPARAMETER *C-FUNCTIONS-IN-RUNTIME* ...)
; compiling (DEFUN REAL-C-NAME ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/macros.lisp
; in: DEFUN REAL-C-NAME
;     (DESTRUCTURING-BIND
;         (SB-POSIX::NAME &KEY SB-POSIX::C-NAME SB-POSIX::OPTIONS)
;         SB-POSIX::NAME
;       (IF SB-POSIX::C-NAME SB-POSIX::C-NAME (COND (T SB-POSIX::NAME))))
; --> LET LET* 
; ==>
;   (LET* ((SB-POSIX::NAME (CAR #:WHOLE85))
;          (SB-POSIX::C-NAME
;           (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :C-NAME #:KEYWORDS-87)
;               (SB-KERNEL::LOOKUP-KEYWORD :C-NAME #:KEYWORDS-87) NIL))
;          (SB-POSIX::OPTIONS
;           (IF (SB-KERNEL::KEYWORD-SUPPLIED-P :OPTIONS #:KEYWORDS-87)
;               (SB-KERNEL::LOOKUP-KEYWORD :OPTIONS #:KEYWORDS-87) NIL)))
;     (IF SB-POSIX::C-NAME SB-POSIX::C-NAME (COND (T SB-POSIX::NAME))))
; 
; caught STYLE-WARNING:
;   The variable OPTIONS is defined but never used.

; compiling (DEFMACRO DEFINE-CALL-INTERNALLY ...)
; compiling (DEFMACRO DEFINE-CALL ...)
; compiling (DEFMACRO DEFINE-ENTRY-POINT ...)

; SYS:CONTRIB;SB-POSIX;MACROS.FASL.NEWEST written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {11A87D31}> on
   #<CL-SOURCE-FILE "macros" {11A87D81}>.
(SYS:CONTRIB;SB-POSIX;CONSTANTS.LISP.NEWEST
 SYS:CONTRIB;SB-POSIX;CONSTANTS.FASL.NEWEST
 /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.fasl
 /Users/nikodemus/src/sbcl/contrib/sb-posix/foo.c
 /Users/nikodemus/src/sbcl/contrib/sb-posix/a.out
 /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp)
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp" (written 30 JUL 2008 03:16:13 PM):
; compiling (IN-PACKAGE #:SB-POSIX)
; compiling (DEFCONSTANT AF-INET ...)
; compiling (EXPORT (QUOTE AF-INET))
; compiling (DEFINE-ALIEN-TYPE UID-T ...)
; compiling (DEFINE-ALIEN-TYPE GID-T ...)
; compiling (DEFINE-ALIEN-TYPE NLINK-T ...)
; compiling (DEFINE-ALIEN-TYPE PID-T ...)
; compiling (DEFINE-ALIEN-TYPE INO-T ...)
; compiling (DEFINE-ALIEN-TYPE TIME-T ...)
; compiling (DEFINE-ALIEN-TYPE DEV-T ...)
; compiling (DEFCONSTANT SIGHUP ...)
; compiling (EXPORT (QUOTE SIGHUP))
; compiling (DEFCONSTANT SIGINT ...)
; compiling (EXPORT (QUOTE SIGINT))
; compiling (DEFCONSTANT SIGQUIT ...)
; compiling (EXPORT (QUOTE SIGQUIT))
; compiling (DEFCONSTANT SIGILL ...)
; compiling (EXPORT (QUOTE SIGILL))
; compiling (DEFCONSTANT SIGTRAP ...)
; compiling (EXPORT (QUOTE SIGTRAP))
; compiling (DEFCONSTANT SIGABRT ...)
; compiling (EXPORT (QUOTE SIGABRT))
; compiling (DEFCONSTANT SIGEMT ...)
; compiling (EXPORT (QUOTE SIGEMT))
; compiling (DEFCONSTANT SIGFPE ...)
; compiling (EXPORT (QUOTE SIGFPE))
; compiling (DEFCONSTANT SIGKILL ...)
; compiling (EXPORT (QUOTE SIGKILL))
; compiling (DEFCONSTANT SIGBUS ...)
; compiling (EXPORT (QUOTE SIGBUS))
; compiling (DEFCONSTANT SIGSEGV ...)
; compiling (EXPORT (QUOTE SIGSEGV))
; compiling (DEFCONSTANT SIGSYS ...)
; compiling (EXPORT (QUOTE SIGSYS))
; compiling (DEFCONSTANT SIGPIPE ...)
; compiling (EXPORT (QUOTE SIGPIPE))
; compiling (DEFCONSTANT SIGALRM ...)
; compiling (EXPORT (QUOTE SIGALRM))
; compiling (DEFCONSTANT SIGTERM ...)
; compiling (EXPORT (QUOTE SIGTERM))
; compiling (DEFCONSTANT SIGURG ...)
; compiling (EXPORT (QUOTE SIGURG))
; compiling (DEFCONSTANT SIGSTOP ...)
; compiling (EXPORT (QUOTE SIGSTOP))
; compiling (DEFCONSTANT SIGTSTP ...)
; compiling (EXPORT (QUOTE SIGTSTP))
; compiling (DEFCONSTANT SIGCONT ...)
; compiling (EXPORT (QUOTE SIGCONT))
; compiling (DEFCONSTANT SIGCHLD ...)
; compiling (EXPORT (QUOTE SIGCHLD))
; compiling (DEFCONSTANT SIGTTIN ...)
; compiling (EXPORT (QUOTE SIGTTIN))
; compiling (DEFCONSTANT SIGTTOU ...)
; compiling (EXPORT (QUOTE SIGTTOU))
; compiling (DEFCONSTANT SIGIO ...)
; compiling (EXPORT (QUOTE SIGIO))
; compiling (DEFCONSTANT SIGXCPU ...)
; compiling (EXPORT (QUOTE SIGXCPU))
; compiling (DEFCONSTANT SIGXFSZ ...)
; compiling (EXPORT (QUOTE SIGXFSZ))
; compiling (DEFCONSTANT SIGVTALRM ...)
; compiling (EXPORT (QUOTE SIGVTALRM))
; compiling (DEFCONSTANT SIGPROF ...)
; compiling (EXPORT (QUOTE SIGPROF))
; compiling (DEFCONSTANT SIGWINCH ...)
; compiling (EXPORT (QUOTE SIGWINCH))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for SIGPWR (unknown to the C compiler).")
; compiling (EXPORT (QUOTE SIGPWR))
; compiling (DEFCONSTANT SIGUSR1 ...)
; compiling (EXPORT (QUOTE SIGUSR1))
; compiling (DEFCONSTANT SIGUSR2 ...)
; compiling (EXPORT (QUOTE SIGUSR2))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for SIGRTMIN (unknown to the C compiler).")
; compiling (EXPORT (QUOTE SIGRTMIN))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for SIGRTMAX (unknown to the C compiler).")
; compiling (EXPORT (QUOTE SIGRTMAX))
; compiling (DEFCONSTANT EPERM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPERM))
; compiling (DEFCONSTANT ENOENT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOENT))
; compiling (DEFCONSTANT ESRCH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESRCH))
; compiling (DEFCONSTANT EINTR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EINTR))
; compiling (DEFCONSTANT EIO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EIO))
; compiling (DEFCONSTANT ENXIO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENXIO))
; compiling (DEFCONSTANT E2BIG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE E2BIG))
; compiling (DEFCONSTANT ENOEXEC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOEXEC))
; compiling (DEFCONSTANT EBADF ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADF))
; compiling (DEFCONSTANT ECHILD ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECHILD))
; compiling (DEFCONSTANT EAGAIN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EAGAIN))
; compiling (DEFCONSTANT ENOMEM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOMEM))
; compiling (DEFCONSTANT EACCES ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EACCES))
; compiling (DEFCONSTANT EFAULT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EFAULT))
; compiling (DEFCONSTANT ENOTBLK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTBLK))
; compiling (DEFCONSTANT EBUSY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBUSY))
; compiling (DEFCONSTANT EEXIST ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EEXIST))
; compiling (DEFCONSTANT EXDEV ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EXDEV))
; compiling (DEFCONSTANT ENODEV ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENODEV))
; compiling (DEFCONSTANT ENOTDIR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTDIR))
; compiling (DEFCONSTANT EISDIR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EISDIR))
; compiling (DEFCONSTANT EINVAL ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EINVAL))
; compiling (DEFCONSTANT ENFILE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENFILE))
; compiling (DEFCONSTANT EMFILE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMFILE))
; compiling (DEFCONSTANT ENOTTY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTTY))
; compiling (DEFCONSTANT ETXTBSY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETXTBSY))
; compiling (DEFCONSTANT EFBIG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EFBIG))
; compiling (DEFCONSTANT ENOSPC ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSPC))
; compiling (DEFCONSTANT ESPIPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESPIPE))
; compiling (DEFCONSTANT EROFS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EROFS))
; compiling (DEFCONSTANT EMLINK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMLINK))
; compiling (DEFCONSTANT EPIPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPIPE))
; compiling (DEFCONSTANT EDOM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDOM))
; compiling (DEFCONSTANT ERANGE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ERANGE))
; compiling (DEFCONSTANT EDEADLK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDEADLK))
; compiling (DEFCONSTANT ENAMETOOLONG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENAMETOOLONG))
; compiling (DEFCONSTANT ENOLCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOLCK))
; compiling (DEFCONSTANT ENOSYS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSYS))
; compiling (DEFCONSTANT ENOTEMPTY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTEMPTY))
; compiling (DEFCONSTANT ELOOP ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ELOOP))
; compiling (DEFCONSTANT EWOULDBLOCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EWOULDBLOCK))
; compiling (DEFCONSTANT ENOMSG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOMSG))
; compiling (DEFCONSTANT EIDRM ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EIDRM))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ECHRNG (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ECHRNG))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EL2NSYNC (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EL2NSYNC))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EL3HLT (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EL3HLT))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EL3RST (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EL3RST))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ELNRNG (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ELNRNG))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EUNATCH (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EUNATCH))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ENOCSI (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ENOCSI))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EL2HLT (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EL2HLT))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EBADE (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EBADE))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EBADR (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EBADR))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EXFULL (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EXFULL))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ENOANO (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ENOANO))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EBADRQC (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EBADRQC))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EBADSLT (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EBADSLT))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EDEADLOCK (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EDEADLOCK))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EBFONT (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EBFONT))
; compiling (DEFCONSTANT ENOSTR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSTR))
; compiling (DEFCONSTANT ENODATA ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENODATA))
; compiling (DEFCONSTANT ETIME ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETIME))
; compiling (DEFCONSTANT ENOSR ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOSR))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ENONET (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ENONET))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ENOPKG (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ENOPKG))
; compiling (DEFCONSTANT EREMOTE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EREMOTE))
; compiling (DEFCONSTANT ENOLINK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOLINK))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EADV (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EADV))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ESRMNT (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ESRMNT))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ECOMM (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ECOMM))
; compiling (DEFCONSTANT EPROTO ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPROTO))
; compiling (DEFCONSTANT EMULTIHOP ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMULTIHOP))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EDOTDOT (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EDOTDOT))
; compiling (DEFCONSTANT EBADMSG ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EBADMSG))
; compiling (DEFCONSTANT EOVERFLOW ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EOVERFLOW))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ENOTUNIQ (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ENOTUNIQ))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EBADFD (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EBADFD))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EREMCHG (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EREMCHG))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ELIBACC (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ELIBACC))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ELIBBAD (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ELIBBAD))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ELIBSCN (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ELIBSCN))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ELIBMAX (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ELIBMAX))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ELIBEXEC (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ELIBEXEC))
; compiling (DEFCONSTANT EILSEQ ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EILSEQ))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ERESTART (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ERESTART))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ESTRPIPE (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ESTRPIPE))
; compiling (DEFCONSTANT EUSERS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EUSERS))
; compiling (DEFCONSTANT ENOTSOCK ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTSOCK))
; compiling (DEFCONSTANT EDESTADDRREQ ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDESTADDRREQ))
; compiling (DEFCONSTANT EMSGSIZE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EMSGSIZE))
; compiling (DEFCONSTANT EPROTOTYPE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPROTOTYPE))
; compiling (DEFCONSTANT ENOPROTOOPT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOPROTOOPT))
; compiling (DEFCONSTANT EPROTONOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPROTONOSUPPORT))
; compiling (DEFCONSTANT ESOCKTNOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESOCKTNOSUPPORT))
; compiling (DEFCONSTANT EOPNOTSUPP ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EOPNOTSUPP))
; compiling (DEFCONSTANT EPFNOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EPFNOSUPPORT))
; compiling (DEFCONSTANT EAFNOSUPPORT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EAFNOSUPPORT))
; compiling (DEFCONSTANT EADDRINUSE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EADDRINUSE))
; compiling (DEFCONSTANT EADDRNOTAVAIL ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EADDRNOTAVAIL))
; compiling (DEFCONSTANT ENETDOWN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENETDOWN))
; compiling (DEFCONSTANT ENETUNREACH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENETUNREACH))
; compiling (DEFCONSTANT ENETRESET ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENETRESET))
; compiling (DEFCONSTANT ECONNABORTED ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECONNABORTED))
; compiling (DEFCONSTANT ECONNRESET ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECONNRESET))
; compiling (DEFCONSTANT ENOBUFS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOBUFS))
; compiling (DEFCONSTANT EISCONN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EISCONN))
; compiling (DEFCONSTANT ENOTCONN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ENOTCONN))
; compiling (DEFCONSTANT ESHUTDOWN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESHUTDOWN))
; compiling (DEFCONSTANT ETOOMANYREFS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETOOMANYREFS))
; compiling (DEFCONSTANT ETIMEDOUT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ETIMEDOUT))
; compiling (DEFCONSTANT ECONNREFUSED ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ECONNREFUSED))
; compiling (DEFCONSTANT EHOSTDOWN ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EHOSTDOWN))
; compiling (DEFCONSTANT EHOSTUNREACH ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EHOSTUNREACH))
; compiling (DEFCONSTANT EALREADY ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EALREADY))
; compiling (DEFCONSTANT EINPROGRESS ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EINPROGRESS))
; compiling (DEFCONSTANT ESTALE ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE ESTALE))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EUCLEAN (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EUCLEAN))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ENOTNAM (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ENOTNAM))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ENAVAIL (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ENAVAIL))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EREMOTEIO (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EREMOTEIO))
; compiling (DEFCONSTANT EDQUOT ...)
; compiling (SETF (GET # ...) ...)
; compiling (EXPORT (QUOTE EDQUOT))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for ENOMEDIUM (unknown to the C compiler).")
; compiling (EXPORT (QUOTE ENOMEDIUM))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for EMEDIUMTYPE (unknown to the C compiler).")
; compiling (EXPORT (QUOTE EMEDIUMTYPE))
; compiling (DEFCONSTANT WNOHANG ...)
; compiling (DEFCONSTANT WUNTRACED ...)
; compiling (DEFINE-ALIEN-TYPE MODE-T ...)
; compiling (DEFCONSTANT S-IFMT ...)
; compiling (EXPORT (QUOTE S-IFMT))
; compiling (DEFCONSTANT S-IFIFO ...)
; compiling (EXPORT (QUOTE S-IFIFO))
; compiling (DEFCONSTANT S-IFCHR ...)
; compiling (EXPORT (QUOTE S-IFCHR))
; compiling (DEFCONSTANT S-IFDIR ...)
; compiling (EXPORT (QUOTE S-IFDIR))
; compiling (DEFCONSTANT S-IFBLK ...)
; compiling (EXPORT (QUOTE S-IFBLK))
; compiling (DEFCONSTANT S-IFREG ...)
; compiling (EXPORT (QUOTE S-IFREG))
; compiling (DEFCONSTANT S-IFLNK ...)
; compiling (EXPORT (QUOTE S-IFLNK))
; compiling (DEFCONSTANT S-IFSOCK ...)
; compiling (EXPORT (QUOTE S-IFSOCK))
; compiling (DEFCONSTANT S-IFWHT ...)
; compiling (EXPORT (QUOTE S-IFWHT))
; compiling (DEFCONSTANT S-ISUID ...)
; compiling (EXPORT (QUOTE S-ISUID))
; compiling (DEFCONSTANT S-ISGID ...)
; compiling (EXPORT (QUOTE S-ISGID))
; compiling (DEFCONSTANT S-ISVTX ...)
; compiling (EXPORT (QUOTE S-ISVTX))
; compiling (DEFCONSTANT S-IRUSR ...)
; compiling (EXPORT (QUOTE S-IRUSR))
; compiling (DEFCONSTANT S-IWUSR ...)
; compiling (EXPORT (QUOTE S-IWUSR))
; compiling (DEFCONSTANT S-IXUSR ...)
; compiling (EXPORT (QUOTE S-IXUSR))
; compiling (DEFCONSTANT S-IREAD ...)
; compiling (EXPORT (QUOTE S-IREAD))
; compiling (DEFCONSTANT S-IWRITE ...)
; compiling (EXPORT (QUOTE S-IWRITE))
; compiling (DEFCONSTANT S-IEXEC ...)
; compiling (EXPORT (QUOTE S-IEXEC))
; compiling (DEFCONSTANT S-IRGRP ...)
; compiling (EXPORT (QUOTE S-IRGRP))
; compiling (DEFCONSTANT S-IWGRP ...)
; compiling (EXPORT (QUOTE S-IWGRP))
; compiling (DEFCONSTANT S-IXGRP ...)
; compiling (EXPORT (QUOTE S-IXGRP))
; compiling (DEFCONSTANT S-IROTH ...)
; compiling (EXPORT (QUOTE S-IROTH))
; compiling (DEFCONSTANT S-IWOTH ...)
; compiling (EXPORT (QUOTE S-IWOTH))
; compiling (DEFCONSTANT S-IXOTH ...)
; compiling (EXPORT (QUOTE S-IXOTH))
; compiling (DEFCONSTANT R-OK ...)
; compiling (EXPORT (QUOTE R-OK))
; compiling (DEFCONSTANT W-OK ...)
; compiling (EXPORT (QUOTE W-OK))
; compiling (DEFCONSTANT X-OK ...)
; compiling (EXPORT (QUOTE X-OK))
; compiling (DEFCONSTANT F-OK ...)
; compiling (EXPORT (QUOTE F-OK))
; compiling (DEFINE-ALIEN-TYPE OFF-T ...)
; compiling (DEFCONSTANT PROT-NONE ...)
; compiling (EXPORT (QUOTE PROT-NONE))
; compiling (DEFCONSTANT PROT-READ ...)
; compiling (EXPORT (QUOTE PROT-READ))
; compiling (DEFCONSTANT PROT-WRITE ...)
; compiling (EXPORT (QUOTE PROT-WRITE))
; compiling (DEFCONSTANT PROT-EXEC ...)
; compiling (EXPORT (QUOTE PROT-EXEC))
; compiling (DEFCONSTANT MAP-SHARED ...)
; compiling (EXPORT (QUOTE MAP-SHARED))
; compiling (DEFCONSTANT MAP-PRIVATE ...)
; compiling (EXPORT (QUOTE MAP-PRIVATE))
; compiling (DEFCONSTANT MAP-FIXED ...)
; compiling (EXPORT (QUOTE MAP-FIXED))
; compiling (DEFCONSTANT MS-ASYNC ...)
; compiling (EXPORT (QUOTE MS-ASYNC))
; compiling (DEFCONSTANT MS-SYNC ...)
; compiling (EXPORT (QUOTE MS-SYNC))
; compiling (DEFCONSTANT MS-INVALIDATE ...)
; compiling (EXPORT (QUOTE MS-INVALIDATE))
; compiling (DEFCONSTANT MCL-CURRENT ...)
; compiling (EXPORT (QUOTE MCL-CURRENT))
; compiling (DEFCONSTANT MCL-FUTURE ...)
; compiling (EXPORT (QUOTE MCL-FUTURE))
; compiling (SB-GROVEL::DEFINE-C-STRUCT DIRENT ...); in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::NAME)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          256)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT DIRENT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::DIRENT 264
;                                 (SB-POSIX::NAME C-STRING "char *" 8 256))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          256)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::NAME)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          256)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF LET* SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          256)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-PASSWD ...); in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::NAME)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-PASSWD
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-PASSWD 40
;                                 (SB-POSIX::NAME SB-POSIX::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-POSIX::PASSWD SB-POSIX::C-STRING-POINTER
;                                  "char *" 4 4)
;                                 (SB-POSIX::UID SB-POSIX::UID-T "uid_t" 8 4)
;                                 (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 12 4)
;                                 (SB-POSIX::GECOS SB-POSIX::C-STRING-POINTER
;                                  "char *" 24 4)
;                                 (SB-POSIX::DIR SB-POSIX::C-STRING-POINTER
;                                  "char *" 28 4)
;                                 (SB-POSIX::SHELL SB-POSIX::C-STRING-POINTER
;                                  "char *" 32 4))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::NAME) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::PASSWD)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::PASSWD) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-UID (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-PASSWD-UID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-UID (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-PASSWD-UID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID)
;                                                   4)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-PASSWD-UID
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-UID (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-PASSWD-UID
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::UID) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-PASSWD-UID
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-GID (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-PASSWD-GID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-GID (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-PASSWD)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-PASSWD-GID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID)
;                                                   4)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-PASSWD-GID
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-PASSWD-GID (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-PASSWD-GID
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::GID) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-PASSWD-GID
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::GECOS)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::GECOS) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::DIR)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::DIR) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::SHELL)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::SHELL) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-GROUP ...); in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::NAME)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)

; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-GROUP
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-GROUP 16
;                                 (SB-POSIX::NAME SB-POSIX::C-STRING-POINTER
;                                  "char *" 0 4)
;                                 (SB-POSIX::PASSWD SB-POSIX::C-STRING-POINTER
;                                  "char *" 4 4)
;                                 (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 8 4))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::NAME) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::PASSWD)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::PASSWD) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS SB-SYS:WITH-PINNED-OBJECTS 
; --> FLET BLOCK PROGN LET SB-ALIEN-INTERNALS:NATURALIZE IF 
; ==>
;   (SB-ALIEN::C-STRING-TO-STRING ALIEN
;                                 (SB-ALIEN::C-STRING-EXTERNAL-FORMAT
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>)
;                                 (SB-ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE
;                                  #<SB-ALIEN::ALIEN-C-STRING-TYPE (C-STRING
;                                                                   :EXTERNAL-FORMAT
;                                                                   :DEFAULT
;                                                                   :ELEMENT-TYPE
;                                                                   CHARACTER)>))
; 
; note: doing SAP to pointer coercion (cost 20) from SB-ALIEN::VALUE
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-GROUP-GID (STRUCT)
;                          (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-GROUP)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-GROUP-GID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-GROUP-GID (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-GROUP)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-GROUP-GID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID)
;                                                   4)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-GROUP-GID
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-GROUP-GID (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-GROUP-GID
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::GID) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-GROUP-GID
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-STAT ...); in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-DEV (STRUCT)
;                          (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-DEV
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::DEV)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-DEV (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-DEV
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::DEV)
;                                                   4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-STAT
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-STAT 96
;                                 (SB-POSIX::MODE SB-POSIX::MODE-T "mode_t" 8 2)
;                                 (SB-POSIX::NLINK SB-POSIX::NLINK-T "nlink_t" 10
;                                  2)
;                                 (SB-POSIX::UID SB-POSIX::UID-T "uid_t" 12 4)
;                                 (SB-POSIX::GID SB-POSIX::GID-T "gid_t" 16 4)
;                                 (SB-POSIX::ATIME SB-POSIX::TIME-T "time_t" 24 4)
;                                 (SB-POSIX::MTIME SB-POSIX::TIME-T "time_t" 32 4)
;                                 (SB-POSIX::CTIME SB-POSIX::TIME-T "time_t" 40 4)
;                                 (SB-POSIX::SIZE SB-POSIX::OFF-T "off_t" 48 8))
; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-STAT-DEV
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-DEV (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-STAT-DEV
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::DEV) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-STAT-DEV
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::DEV) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-INO (STRUCT)
;                          (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-INO
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::INO)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-INO (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-INO
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::INO)
;                                                   4)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-STAT-INO
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-INO (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-STAT-INO
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::INO) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-STAT-INO
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::INO) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-UID (STRUCT)
;                          (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-UID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-UID (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-UID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID)
;                                                   4)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-STAT-UID
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-UID (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-STAT-UID
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::UID) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-STAT-UID
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::UID) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-GID (STRUCT)
;                          (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-GID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-GID (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-GID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID)
;                                                   4)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-STAT-GID
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-GID (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-STAT-GID
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::GID) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-STAT-GID
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::GID) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-ATIME (STRUCT)
;                          (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-ATIME
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::ATIME)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-ATIME (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-ATIME
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::ATIME) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-STAT-ATIME
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-ATIME (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-STAT-ATIME
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::ATIME) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-STAT-ATIME
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::ATIME)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MTIME (STRUCT)
;                          (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-MTIME
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::MTIME)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MTIME (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-MTIME
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::MTIME) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-STAT-MTIME
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-MTIME (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-STAT-MTIME
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::MTIME) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-STAT-MTIME
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::MTIME)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-CTIME (STRUCT)
;                          (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-CTIME
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::CTIME)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-CTIME (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-STAT)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-STAT-CTIME
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::CTIME) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-STAT-CTIME
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-STAT-CTIME (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-STAT-CTIME
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::CTIME) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-STAT-CTIME
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::CTIME)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::SIZE)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;       etc.

; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::SIZE) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-VM::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-VM::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-VM::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-VM::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMESPEC ...); in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMESPEC-TV-SEC (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMESPEC)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TIMESPEC-TV-SEC
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::TV-SEC)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMESPEC-TV-SEC (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMESPEC)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TIMESPEC-TV-SEC
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::TV-SEC) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMESPEC
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TIMESPEC 8
;                                 (SB-POSIX::TV-SEC SB-POSIX::TIME-T "time_t" 0 4)
;                                 (SB-POSIX::TV-NSEC LONG "long" 4 4))
; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-TIMESPEC-TV-SEC
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMESPEC-TV-SEC
;                                         (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-TIMESPEC-TV-SEC
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::TV-SEC) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-TIMESPEC-TV-SEC
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::TV-SEC)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMESPEC-TV-NSEC (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMESPEC)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TIMESPEC-TV-NSEC
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::TV-NSEC) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMESPEC-TV-NSEC (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMESPEC)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TIMESPEC-TV-NSEC
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::TV-NSEC) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-TIMESPEC-TV-NSEC
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMESPEC-TV-NSEC
;                                         (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-TIMESPEC-TV-NSEC
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::TV-NSEC)
;                                            4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-TIMESPEC-TV-NSEC
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::TV-NSEC)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFCONSTANT O-RDONLY ...)
; compiling (EXPORT (QUOTE O-RDONLY))
; compiling (DEFCONSTANT O-WRONLY ...)
; compiling (EXPORT (QUOTE O-WRONLY))
; compiling (DEFCONSTANT O-RDWR ...)
; compiling (EXPORT (QUOTE O-RDWR))
; compiling (DEFCONSTANT O-CREAT ...)
; compiling (EXPORT (QUOTE O-CREAT))
; compiling (DEFCONSTANT O-EXCL ...)
; compiling (EXPORT (QUOTE O-EXCL))
; compiling (DEFCONSTANT O-NOCTTY ...)
; compiling (EXPORT (QUOTE O-NOCTTY))
; compiling (DEFCONSTANT O-TRUNC ...)
; compiling (EXPORT (QUOTE O-TRUNC))
; compiling (DEFCONSTANT O-APPEND ...)
; compiling (EXPORT (QUOTE O-APPEND))
; compiling (DEFCONSTANT O-NONBLOCK ...)
; compiling (EXPORT (QUOTE O-NONBLOCK))
; compiling (DEFCONSTANT O-NDELAY ...)
; compiling (EXPORT (QUOTE O-NDELAY))
; compiling (DEFCONSTANT O-SYNC ...)
; compiling (EXPORT (QUOTE O-SYNC))
; compiling (DEFCONSTANT O-NOFOLLOW ...)
; compiling (EXPORT (QUOTE O-NOFOLLOW))
; compiling (DEFCONSTANT O-DIRECTORY ...)
; compiling (EXPORT (QUOTE O-DIRECTORY))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for O_DIRECT (unknown to the C compiler).")
; compiling (EXPORT (QUOTE O-DIRECT))
; compiling (DEFCONSTANT O-ASYNC ...)
; compiling (EXPORT (QUOTE O-ASYNC))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for O_LARGEFILE (unknown to the C compiler).")
; compiling (EXPORT (QUOTE O-LARGEFILE))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for O_DSYNC (unknown to the C compiler).")
; compiling (EXPORT (QUOTE O-DSYNC))
; compiling (SB-INT:STYLE-WARN "Couldn't grovel for O_RSYNC (unknown to the C compiler).")
; compiling (EXPORT (QUOTE O-RSYNC))
; compiling (DEFCONSTANT SEEK-SET ...)
; compiling (EXPORT (QUOTE SEEK-SET))
; compiling (DEFCONSTANT SEEK-CUR ...)
; compiling (EXPORT (QUOTE SEEK-CUR))
; compiling (DEFCONSTANT SEEK-END ...)
; compiling (EXPORT (QUOTE SEEK-END))
; compiling (DEFCONSTANT F-DUPFD ...)
; compiling (EXPORT (QUOTE F-DUPFD))
; compiling (DEFCONSTANT F-GETFD ...)
; compiling (EXPORT (QUOTE F-GETFD))
; compiling (DEFCONSTANT F-SETFD ...)
; compiling (EXPORT (QUOTE F-SETFD))
; compiling (DEFCONSTANT F-GETFL ...)
; compiling (EXPORT (QUOTE F-GETFL))
; compiling (DEFCONSTANT F-SETFL ...)
; compiling (EXPORT (QUOTE F-SETFL))
; compiling (DEFCONSTANT F-GETLK ...)
; compiling (EXPORT (QUOTE F-GETLK))
; compiling (DEFCONSTANT F-SETLK ...)
; compiling (EXPORT (QUOTE F-SETLK))
; compiling (DEFCONSTANT F-SETLKW ...)
; compiling (EXPORT (QUOTE F-SETLKW))
; compiling (DEFCONSTANT F-GETOWN ...)
; compiling (EXPORT (QUOTE F-GETOWN))
; compiling (DEFCONSTANT F-SETOWN ...)
; compiling (EXPORT (QUOTE F-SETOWN))
; compiling (DEFCONSTANT F-RDLCK ...)
; compiling (EXPORT (QUOTE F-RDLCK))
; compiling (DEFCONSTANT F-WRLCK ...)
; compiling (EXPORT (QUOTE F-WRLCK))
; compiling (DEFCONSTANT F-UNLCK ...)
; compiling (EXPORT (QUOTE F-UNLCK))
; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-FLOCK ...); in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::START)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;       etc.

; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-FLOCK
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-FLOCK 24
;                                 (TYPE SHORT "short" 20 2)
;                                 (SB-POSIX::WHENCE SHORT "short" 22 2))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::START) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-VM::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-VM::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-VM::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-VM::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::LEN)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;       etc.

; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; --> SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES
;                        (INTEGER -9223372036854775808 9223372032559808512)
;                        &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The second argument is a (INTEGER -9223372036854775808
;                                 9223372032559808512), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 64) &OPTIONAL), not a (VALUES
;                                                                   (SIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 LOGIOR 
; ==>
;   (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32)
; 
; note: doing signed word to integer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE SB-SYS:SIGNED-SAP-REF-64 
; ==>
;   (LOGIOR (SB-SYS:SAP-REF-32 SB-VM::SAP SB-VM::OFFSET)
;           (ASH (SB-SYS:SIGNED-SAP-REF-32 SB-VM::SAP (+ SB-VM::OFFSET 4)) 32))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-ior
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::LEN) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-VM::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-VM::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SAP-REF-32 
; ==>
;   (LOGAND SB-VM::VALUE 4294967295)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a (SIGNED-BYTE 32).
;       etc.

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 PROGN SB-KERNEL:%SET-SIGNED-SAP-REF-32 
; ==>
;   (ASH SB-VM::VALUE -32)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM
;                                                                          &REST
;                                                                          T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES
;                                                                   (UNSIGNED-BYTE
;                                                                    32)
;                                                                   &REST T).
;       etc.
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-FLOCK-PID (STRUCT)
;                          (DECLARE (TYPE (ALIEN (* SB-POSIX::ALIEN-FLOCK)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-FLOCK-PID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::PID)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-FLOCK-PID (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-FLOCK)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-FLOCK-PID
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::PID)
;                                                   4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-FLOCK-PID
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-FLOCK-PID (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-FLOCK-PID
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::PID) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-FLOCK-PID
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::PID) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFCONSTANT F-LOCK ...)
; compiling (EXPORT (QUOTE F-LOCK))
; compiling (DEFCONSTANT F-TLOCK ...)
; compiling (EXPORT (QUOTE F-TLOCK))
; compiling (DEFCONSTANT F-ULOCK ...)
; compiling (EXPORT (QUOTE F-ULOCK))
; compiling (DEFCONSTANT F-TEST ...)
; compiling (EXPORT (QUOTE F-TEST))
; compiling (DEFINE-ALIEN-TYPE CC-T ...)
; compiling (DEFINE-ALIEN-TYPE SPEED-T ...)
; compiling (EXPORT (QUOTE SPEED-T))
; compiling (DEFINE-ALIEN-TYPE TCFLAG-T ...)
; compiling (EXPORT (QUOTE TCFLAG-T))
; compiling (DEFCONSTANT NCCS ...)
; compiling (EXPORT (QUOTE NCCS))
; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TERMIOS ...); in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-IFLAG (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TERMIOS-IFLAG
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::IFLAG)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-IFLAG (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TERMIOS-IFLAG
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::IFLAG) 4)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TERMIOS
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TERMIOS 44
;                                 (SB-POSIX::IFLAG SB-POSIX::TCFLAG-T "tcflag_t" 0
;                                  4)
;                                 (SB-POSIX::OFLAG SB-POSIX::TCFLAG-T "tcflag_t" 4
;                                  4)
;                                 (SB-POSIX::CFLAG SB-POSIX::TCFLAG-T "tcflag_t" 8
;                                  4)
;                                 (SB-POSIX::LFLAG SB-POSIX::TCFLAG-T "tcflag_t" 12
;                                  4)
;                                 (SB-POSIX::CC (ARRAY SB-POSIX::CC-T) "cc_t" 16
;                                  20))
; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-TERMIOS-IFLAG
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-IFLAG (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-TERMIOS-IFLAG
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::IFLAG) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-TERMIOS-IFLAG
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::IFLAG)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-OFLAG (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TERMIOS-OFLAG
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::OFLAG)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-OFLAG (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TERMIOS-OFLAG
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::OFLAG) 4)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-TERMIOS-OFLAG
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-OFLAG (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-TERMIOS-OFLAG
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::OFLAG) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-TERMIOS-OFLAG
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::OFLAG)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-CFLAG (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TERMIOS-CFLAG
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::CFLAG)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-CFLAG (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TERMIOS-CFLAG
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::CFLAG) 4)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-TERMIOS-CFLAG
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-CFLAG (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-TERMIOS-CFLAG
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::CFLAG) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-TERMIOS-CFLAG
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::CFLAG)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-LFLAG (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TERMIOS-LFLAG
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::LFLAG)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-LFLAG (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TERMIOS)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TERMIOS-LFLAG
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::LFLAG) 4)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-TERMIOS-LFLAG
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TERMIOS-LFLAG (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-TERMIOS-LFLAG
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::LFLAG) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-TERMIOS-LFLAG
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::LFLAG)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SLOT STRUCT 'SB-POSIX::CC)
; --> SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          20)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SB-GROVEL::IDENTITY-1 
; --> SLOT SLOT SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          20)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SETF (SLOT STRUCT 'SB-POSIX::CC) SB-GROVEL::NEW-VAL)
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          20)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK SETF 
; --> SB-ALIEN-INTERNALS:%SET-SLOT SB-ALIEN-INTERNALS:%SET-SLOT 
; --> SB-ALIEN-INTERNALS:DEPOSIT-ALIEN-VALUE LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN LET 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (UNSIGNED
;                                                                           8)
;                                                                          20)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-ALIEN-TYPE SUSECONDS-T ...)
; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-UTIMBUF ...); in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-ACTIME (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-UTIMBUF-ACTIME
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::ACTIME)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-ACTIME (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-UTIMBUF-ACTIME
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::ACTIME) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-UTIMBUF
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-UTIMBUF 8
;                                 (SB-POSIX::ACTIME SB-POSIX::TIME-T "time_t" 0 4)
;                                 (SB-POSIX::MODTIME SB-POSIX::TIME-T "time_t" 4 4))
; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-UTIMBUF-ACTIME
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-ACTIME (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-UTIMBUF-ACTIME
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::ACTIME) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-UTIMBUF-ACTIME
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::ACTIME)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-MODTIME (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-UTIMBUF-MODTIME
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::MODTIME) 4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-MODTIME (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-UTIMBUF)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-UTIMBUF-MODTIME
;                            (SB-GROVEL::IDENTITY-1
;                             (SLOT STRUCT 'SB-POSIX::MODTIME) 4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-UTIMBUF-MODTIME
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-UTIMBUF-MODTIME
;                                         (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-UTIMBUF-MODTIME
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::MODTIME)
;                                            4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-UTIMBUF-MODTIME
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::MODTIME)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMEVAL ...); in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-SEC (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TIMEVAL-SEC
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::SEC)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-SEC (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TIMEVAL-SEC
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::SEC)
;                                                   4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/constants.lisp-temp
; in: SB-GROVEL::DEFINE-C-STRUCT ALIEN-TIMEVAL
;     (SB-GROVEL::DEFINE-C-STRUCT SB-POSIX::ALIEN-TIMEVAL 8
;                                 (SB-POSIX::SEC SB-POSIX::TIME-T "time_t" 0 4)
;                                 (SB-POSIX::USEC SB-POSIX::SUSECONDS-T
;                                  "suseconds_t" 4 4))
; --> PROGN DEFUN PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-TIMEVAL-SEC
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-SEC (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-TIMEVAL-SEC
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::SEC) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-TIMEVAL-SEC
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::SEC) 4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA NIL
;     (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-USEC (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TIMEVAL-USEC
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::USEC)
;                                                   4)))
; ==>
;   #'(SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-USEC (STRUCT)
;                          (DECLARE
;                           (TYPE (ALIEN (* SB-POSIX::ALIEN-TIMEVAL)) STRUCT)
;                           (OPTIMIZE (SPEED 3)))
;                          (BLOCK SB-POSIX::ALIEN-TIMEVAL-USEC
;                            (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::USEC)
;                                                   4)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   (SB-IMPL::%DEFUN 'SB-POSIX::ALIEN-TIMEVAL-USEC
;                    (SB-INT:NAMED-LAMBDA SB-POSIX::ALIEN-TIMEVAL-USEC (STRUCT)
;                                         (DECLARE (TYPE (ALIEN #) STRUCT)
;                                          (OPTIMIZE (SPEED 3)))
;                                         (BLOCK SB-POSIX::ALIEN-TIMEVAL-USEC
;                                           (SB-GROVEL::IDENTITY-1
;                                            (SLOT STRUCT 'SB-POSIX::USEC) 4)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (STRUCT)
;                      (DECLARE (TYPE (ALIEN #) STRUCT) (OPTIMIZE (SPEED 3)))
;                      (BLOCK SB-POSIX::ALIEN-TIMEVAL-USEC
;                        (SB-GROVEL::IDENTITY-1 (SLOT STRUCT 'SB-POSIX::USEC)
;                                               4)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFCONSTANT VEOF ...)
; compiling (EXPORT (QUOTE VEOF))
; compiling (DEFCONSTANT VEOL ...)
; compiling (EXPORT (QUOTE VEOL))
; compiling (DEFCONSTANT VERASE ...)
; compiling (EXPORT (QUOTE VERASE))
; compiling (DEFCONSTANT VINTR ...)
; compiling (EXPORT (QUOTE VINTR))
; compiling (DEFCONSTANT VKILL ...)
; compiling (EXPORT (QUOTE VKILL))
; compiling (DEFCONSTANT VMIN ...)
; compiling (EXPORT (QUOTE VMIN))
; compiling (DEFCONSTANT VQUIT ...)
; compiling (EXPORT (QUOTE VQUIT))
; compiling (DEFCONSTANT VSTART ...)
; compiling (EXPORT (QUOTE VSTART))
; compiling (DEFCONSTANT VSTOP ...)
; compiling (EXPORT (QUOTE VSTOP))
; compiling (DEFCONSTANT VSUSP ...)
; compiling (EXPORT (QUOTE VSUSP))
; compiling (DEFCONSTANT VTIME ...)
; compiling (EXPORT (QUOTE VTIME))
; compiling (DEFCONSTANT BRKINT ...)
; compiling (EXPORT (QUOTE BRKINT))
; compiling (DEFCONSTANT ICRNL ...)
; compiling (EXPORT (QUOTE ICRNL))
; compiling (DEFCONSTANT IGNBRK ...)
; compiling (EXPORT (QUOTE IGNBRK))
; compiling (DEFCONSTANT IGNCR ...)
; compiling (EXPORT (QUOTE IGNCR))
; compiling (DEFCONSTANT IGNPAR ...)
; compiling (EXPORT (QUOTE IGNPAR))
; compiling (DEFCONSTANT INLCR ...)
; compiling (EXPORT (QUOTE INLCR))
; compiling (DEFCONSTANT INPCK ...)
; compiling (EXPORT (QUOTE INPCK))
; compiling (DEFCONSTANT ISTRIP ...)
; compiling (EXPORT (QUOTE ISTRIP))
; compiling (DEFCONSTANT IXOFF ...)
; compiling (EXPORT (QUOTE IXOFF))
; compiling (DEFCONSTANT IXON ...)
; compiling (EXPORT (QUOTE IXON))
; compiling (DEFCONSTANT PARMRK ...)
; compiling (EXPORT (QUOTE PARMRK))
; compiling (DEFCONSTANT OPOST ...)
; compiling (EXPORT (QUOTE OPOST))
; compiling (DEFCONSTANT OCRNL ...)
; compiling (EXPORT (QUOTE OCRNL))
; compiling (DEFCONSTANT ONLRET ...)
; compiling (EXPORT (QUOTE ONLRET))
; compiling (DEFCONSTANT OFILL ...)
; compiling (EXPORT (QUOTE OFILL))
; compiling (DEFCONSTANT NLDLY ...)
; compiling (EXPORT (QUOTE NLDLY))
; compiling (DEFCONSTANT NL0 ...)
; compiling (EXPORT (QUOTE NL0))
; compiling (DEFCONSTANT NL1 ...)
; compiling (EXPORT (QUOTE NL1))
; compiling (DEFCONSTANT CRDLY ...)
; compiling (EXPORT (QUOTE CRDLY))
; compiling (DEFCONSTANT CR0 ...)
; compiling (EXPORT (QUOTE CR0))
; compiling (DEFCONSTANT CR1 ...)
; compiling (EXPORT (QUOTE CR1))
; compiling (DEFCONSTANT CR2 ...)
; compiling (EXPORT (QUOTE CR2))
; compiling (DEFCONSTANT CR3 ...)
; compiling (EXPORT (QUOTE CR3))
; compiling (DEFCONSTANT TABDLY ...)
; compiling (EXPORT (QUOTE TABDLY))
; compiling (DEFCONSTANT TAB0 ...)
; compiling (EXPORT (QUOTE TAB0))
; compiling (DEFCONSTANT TAB1 ...)
; compiling (EXPORT (QUOTE TAB1))
; compiling (DEFCONSTANT TAB2 ...)
; compiling (EXPORT (QUOTE TAB2))
; compiling (DEFCONSTANT TAB3 ...)
; compiling (EXPORT (QUOTE TAB3))
; compiling (DEFCONSTANT BSDLY ...)
; compiling (EXPORT (QUOTE BSDLY))
; compiling (DEFCONSTANT BS0 ...)
; compiling (EXPORT (QUOTE BS0))
; compiling (DEFCONSTANT BS1 ...)
; compiling (EXPORT (QUOTE BS1))
; compiling (DEFCONSTANT VTDLY ...)
; compiling (EXPORT (QUOTE VTDLY))
; compiling (DEFCONSTANT VT0 ...)
; compiling (EXPORT (QUOTE VT0))
; compiling (DEFCONSTANT VT1 ...)
; compiling (EXPORT (QUOTE VT1))
; compiling (DEFCONSTANT FFDLY ...)
; compiling (EXPORT (QUOTE FFDLY))
; compiling (DEFCONSTANT FF0 ...)
; compiling (EXPORT (QUOTE FF0))
; compiling (DEFCONSTANT FF1 ...)
; compiling (EXPORT (QUOTE FF1))
; compiling (DEFCONSTANT B0 ...)
; compiling (EXPORT (QUOTE B0))
; compiling (DEFCONSTANT B50 ...)
; compiling (EXPORT (QUOTE B50))
; compiling (DEFCONSTANT B75 ...)
; compiling (EXPORT (QUOTE B75))
; compiling (DEFCONSTANT B110 ...)
; compiling (EXPORT (QUOTE B110))
; compiling (DEFCONSTANT B134 ...)
; compiling (EXPORT (QUOTE B134))
; compiling (DEFCONSTANT B150 ...)
; compiling (EXPORT (QUOTE B150))
; compiling (DEFCONSTANT B200 ...)
; compiling (EXPORT (QUOTE B200))
; compiling (DEFCONSTANT B300 ...)
; compiling (EXPORT (QUOTE B300))
; compiling (DEFCONSTANT B600 ...)
; compiling (EXPORT (QUOTE B600))
; compiling (DEFCONSTANT B1200 ...)
; compiling (EXPORT (QUOTE B1200))
; compiling (DEFCONSTANT B1800 ...)
; compiling (EXPORT (QUOTE B1800))
; compiling (DEFCONSTANT B2400 ...)
; compiling (EXPORT (QUOTE B2400))
; compiling (DEFCONSTANT B4800 ...)
; compiling (EXPORT (QUOTE B4800))
; compiling (DEFCONSTANT B9600 ...)
; compiling (EXPORT (QUOTE B9600))
; compiling (DEFCONSTANT B19200 ...)
; compiling (EXPORT (QUOTE B19200))
; compiling (DEFCONSTANT B38400 ...)
; compiling (EXPORT (QUOTE B38400))
; compiling (DEFCONSTANT B57600 ...)
; compiling (EXPORT (QUOTE B57600))
; compiling (DEFCONSTANT B115200 ...)
; compiling (EXPORT (QUOTE B115200))
; compiling (DEFCONSTANT B230400 ...)
; compiling (EXPORT (QUOTE B230400))
; compiling (DEFCONSTANT CSIZE ...)
; compiling (EXPORT (QUOTE CSIZE))
; compiling (DEFCONSTANT CS5 ...)
; compiling (EXPORT (QUOTE CS5))
; compiling (DEFCONSTANT CS6 ...)
; compiling (EXPORT (QUOTE CS6))
; compiling (DEFCONSTANT CS7 ...)
; compiling (EXPORT (QUOTE CS7))
; compiling (DEFCONSTANT CS8 ...)
; compiling (EXPORT (QUOTE CS8))
; compiling (DEFCONSTANT CSTOPB ...)
; compiling (EXPORT (QUOTE CSTOPB))
; compiling (DEFCONSTANT CREAD ...)
; compiling (EXPORT (QUOTE CREAD))
; compiling (DEFCONSTANT PARENB ...)
; compiling (EXPORT (QUOTE PARENB))
; compiling (DEFCONSTANT PARODD ...)
; compiling (EXPORT (QUOTE PARODD))
; compiling (DEFCONSTANT HUPCL ...)
; compiling (EXPORT (QUOTE HUPCL))
; compiling (DEFCONSTANT CLOCAL ...)
; compiling (EXPORT (QUOTE CLOCAL))
; compiling (DEFCONSTANT ECHO ...)
; compiling (EXPORT (QUOTE ECHO))
; compiling (DEFCONSTANT ECHOE ...)
; compiling (EXPORT (QUOTE ECHOE))
; compiling (DEFCONSTANT ECHOK ...)
; compiling (EXPORT (QUOTE ECHOK))
; compiling (DEFCONSTANT ECHONL ...)
; compiling (EXPORT (QUOTE ECHONL))
; compiling (DEFCONSTANT ICANON ...)
; compiling (EXPORT (QUOTE ICANON))
; compiling (DEFCONSTANT IEXTEN ...)
; compiling (EXPORT (QUOTE IEXTEN))
; compiling (DEFCONSTANT ISIG ...)
; compiling (EXPORT (QUOTE ISIG))
; compiling (DEFCONSTANT NOFLSH ...)
; compiling (EXPORT (QUOTE NOFLSH))
; compiling (DEFCONSTANT TOSTOP ...)
; compiling (EXPORT (QUOTE TOSTOP))
; compiling (DEFCONSTANT TCSANOW ...)
; compiling (EXPORT (QUOTE TCSANOW))
; compiling (DEFCONSTANT TCSADRAIN ...)
; compiling (EXPORT (QUOTE TCSADRAIN))
; compiling (DEFCONSTANT TCSAFLUSH ...)
; compiling (EXPORT (QUOTE TCSAFLUSH))
; compiling (DEFCONSTANT TCIFLUSH ...)
; compiling (EXPORT (QUOTE TCIFLUSH))
; compiling (DEFCONSTANT TCIOFLUSH ...)
; compiling (EXPORT (QUOTE TCIOFLUSH))
; compiling (DEFCONSTANT TCOFLUSH ...)
; compiling (EXPORT (QUOTE TCOFLUSH))
; compiling (DEFCONSTANT TCIOFF ...)
; compiling (EXPORT (QUOTE TCIOFF))
; compiling (DEFCONSTANT TCION ...)
; compiling (EXPORT (QUOTE TCION))
; compiling (DEFCONSTANT TCOOFF ...)
; compiling (EXPORT (QUOTE TCOOFF))
; compiling (DEFCONSTANT TCOON ...)
; compiling (EXPORT (QUOTE TCOON))
; compiling (DEFCONSTANT LOG-USER ...)
; compiling (EXPORT (QUOTE LOG-USER))
; compiling (DEFCONSTANT LOG-LOCAL0 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL0))
; compiling (DEFCONSTANT LOG-LOCAL1 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL1))
; compiling (DEFCONSTANT LOG-LOCAL2 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL2))
; compiling (DEFCONSTANT LOG-LOCAL3 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL3))
; compiling (DEFCONSTANT LOG-LOCAL4 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL4))
; compiling (DEFCONSTANT LOG-LOCAL5 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL5))
; compiling (DEFCONSTANT LOG-LOCAL6 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL6))
; compiling (DEFCONSTANT LOG-LOCAL7 ...)
; compiling (EXPORT (QUOTE LOG-LOCAL7))
; compiling (DEFCONSTANT LOG-AUTHPRIV ...)
; compiling (EXPORT (QUOTE LOG-AUTHPRIV))
; compiling (DEFCONSTANT LOG-CRON ...)
; compiling (EXPORT (QUOTE LOG-CRON))
; compiling (DEFCONSTANT LOG-DAEMON ...)
; compiling (EXPORT (QUOTE LOG-DAEMON))
; compiling (DEFCONSTANT LOG-FTP ...)
; compiling (EXPORT (QUOTE LOG-FTP))
; compiling (DEFCONSTANT LOG-KERN ...)
; compiling (EXPORT (QUOTE LOG-KERN))
; compiling (DEFCONSTANT LOG-LPR ...)
; compiling (EXPORT (QUOTE LOG-LPR))
; compiling (DEFCONSTANT LOG-MAIL ...)
; compiling (EXPORT (QUOTE LOG-MAIL))
; compiling (DEFCONSTANT LOG-NEWS ...)
; compiling (EXPORT (QUOTE LOG-NEWS))
; compiling (DEFCONSTANT LOG-SYSLOG ...)
; compiling (EXPORT (QUOTE LOG-SYSLOG))
; compiling (DEFCONSTANT LOG-UUCP ...)
; compiling (EXPORT (QUOTE LOG-UUCP))
; compiling (DEFCONSTANT LOG-PID ...)
; compiling (EXPORT (QUOTE LOG-PID))
; compiling (DEFCONSTANT LOG-CONS ...)
; compiling (EXPORT (QUOTE LOG-CONS))
; compiling (DEFCONSTANT LOG-NDELAY ...)
; compiling (EXPORT (QUOTE LOG-NDELAY))
; compiling (DEFCONSTANT LOG-ODELAY ...)
; compiling (EXPORT (QUOTE LOG-ODELAY))
; compiling (DEFCONSTANT LOG-NOWAIT ...)
; compiling (EXPORT (QUOTE LOG-NOWAIT))
; compiling (DEFCONSTANT LOG-PERROR ...)
; compiling (EXPORT (QUOTE LOG-PERROR))
; compiling (DEFCONSTANT LOG-EMERG ...)
; compiling (EXPORT (QUOTE LOG-EMERG))
; compiling (DEFCONSTANT LOG-ALERT ...)
; compiling (EXPORT (QUOTE LOG-ALERT))
; compiling (DEFCONSTANT LOG-CRIT ...)
; compiling (EXPORT (QUOTE LOG-CRIT))
; compiling (DEFCONSTANT LOG-ERR ...)
; compiling (EXPORT (QUOTE LOG-ERR))
; compiling (DEFCONSTANT LOG-WARNING ...)
; compiling (EXPORT (QUOTE LOG-WARNING))
; compiling (DEFCONSTANT LOG-NOTICE ...)
; compiling (EXPORT (QUOTE LOG-NOTICE))
; compiling (DEFCONSTANT LOG-INFO ...)
; compiling (EXPORT (QUOTE LOG-INFO))
; compiling (DEFCONSTANT LOG-DEBUG ...)
; compiling (EXPORT (QUOTE LOG-DEBUG))

; SYS:CONTRIB;SB-POSIX;CONSTANTS.FASL.NEWEST written
; compilation finished in 0:00:01
STYLE-WARNING: Couldn't grovel for SIGPWR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMIN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECHRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2NSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3RST (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELNRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUNATCH (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOCSI (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EXFULL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOANO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADRQC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADSLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDEADLOCK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBFONT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENONET (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOPKG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EADV (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESRMNT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECOMM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDOTDOT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTUNIQ (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADFD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMCHG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBACC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBBAD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBSCN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBEXEC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ERESTART (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESTRPIPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUCLEAN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTNAM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENAVAIL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMOTEIO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOMEDIUM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EMEDIUMTYPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_RSYNC (unknown to the C compiler).
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp" (written 23 JUN 2008 04:01:39 AM):
; compiling (IN-PACKAGE :SB-POSIX)
; compiling (DEFMACRO DEFINE-PROTOCOL-CLASS ...)
; compiling (DEFINE-CONDITION SYSCALL-ERROR ...)
; compiling (DEFUN SYSCALL-ERROR ...)
; compiling (DEFUN UNSUPPORTED-ERROR ...)
; compiling (DEFUN UNSUPPORTED-WARNING ...)
; compiling (DECLAIM (INLINE NEVER-FAILS))
; compiling (DEFUN NEVER-FAILS ...)
; compiling (SETF *C-FUNCTIONS-IN-RUNTIME* ...)
; compiling (DEFMACRO DEFINE-CALL* ...)
; compiling (DEFINE-CALL* "access" ...)
; compiling (DEFINE-CALL* "chdir" ...)
; compiling (DEFINE-CALL* "chmod" ...)
; compiling (DEFINE-CALL* "close" ...)
; compiling (DEFINE-CALL* "creat" ...)
; compiling (DEFINE-CALL* "dup" ...)
; compiling (DEFINE-CALL* "dup2" ...)
; compiling (DEFINE-CALL* ("lseek" :OPTIONS ...) ...)
; compiling (DEFINE-CALL* "mkdir" ...)
; compiling (DEF "open")
; compiling (DEFINE-CALL "rename" ...)
; compiling (DEFINE-CALL* "rmdir" ...)
; compiling (DEFINE-CALL* "unlink" ...)
; compiling (DEFINE-CALL "opendir" ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFINE-CALL "opendir"
;     (SB-POSIX::DEFINE-CALL "opendir" (* T) NULL-ALIEN
;                            (PATHNAME SB-POSIX::FILENAME))
; --> PROGN SB-POSIX::DEFINE-CALL-INTERNALLY PROGN DEFUN PROGN EVAL-WHEN 
; --> SB-IMPL::%DEFUN BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL ("readdir" :OPTIONS ...) ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFINE-CALL ("readdir" :OPTIONS :LARGEFILE)
;     (SB-POSIX::DEFINE-CALL ("readdir" :OPTIONS :LARGEFILE) (* SB-POSIX::DIRENT)
;                            NOT (SB-POSIX::DIR (* T)))
; --> PROGN SB-POSIX::DEFINE-CALL-INTERNALLY PROGN DEFUN PROGN EVAL-WHEN 
; --> SB-IMPL::%DEFUN BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::DIRENT
;                                                                             (SB-POSIX::PADDING11
;                                                                              #)
;                                                                             (SB-POSIX::NAME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING12
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "closedir" ...)
; compiling (DEFINE-CALL* "umask" ...)
; compiling (DEFINE-CALL* "getpid" ...)
; compiling (DEFINE-CALL "chown" ...)
; compiling (DEFINE-CALL "chroot" ...)
; compiling (DEFINE-CALL "fchdir" ...)
; compiling (DEFINE-CALL "fchmod" ...)
; compiling (DEFINE-CALL "fchown" ...)
; compiling (DEFINE-CALL "fdatasync" ...)
; compiling (DEFINE-CALL ("ftruncate" :OPTIONS ...) ...)
; compiling (DEFINE-CALL "fsync" ...)
; compiling (DEFINE-CALL "lchown" ...)
; compiling (DEFINE-CALL "link" ...)
; compiling (DEFINE-CALL "lockf" ...)
; compiling (DEFINE-CALL "mkfifo" ...)
; compiling (DEFINE-CALL "symlink" ...)
; compiling (DEFINE-CALL "sync" ...)
; compiling (DEFINE-CALL ("truncate" :OPTIONS ...) ...)
; compiling (DEF-MK*TEMP MKTEMP ...)
; compiling (DEF-MK*TEMP MKSTEMP ...)
; compiling (DEF-MK*TEMP MKDTEMP ...)
; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITHOUT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITH-INT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY IOCTL-WITH-POINTER-ARG ...)
; compiling (DEFINE-ENTRY-POINT "ioctl" ...)
; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITHOUT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITH-INT-ARG ...)
; compiling (DEFINE-CALL-INTERNALLY FCNTL-WITH-POINTER-ARG ...)
; compiling (DEFINE-PROTOCOL-CLASS FLOCK ...)
; compiling (DEFINE-ENTRY-POINT "fcntl" ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFINE-ENTRY-POINT "fcntl"
;     (SB-POSIX::FLOCK-TO-ALIEN SB-POSIX::ARG SB-POSIX::A-FLOCK)
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-FLOCK
;                                                                             (SB-POSIX::START
;                                                                              #)
;                                                                             (SB-POSIX::LEN
;                                                                              #)
;                                                                             (SB-POSIX::PID
;                                                                              #)
;                                                                             (TYPE
;                                                                              #)
;                                                                             (SB-POSIX::WHENCE
;                                                                              #)
;                                                                             (SB-POSIX::PADDING22
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::FCNTL-WITH-POINTER-ARG SB-POSIX::FD SB-POSIX::CMD
;      SB-POSIX::A-FLOCK)
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-FLOCK
;                                                                             (SB-POSIX::START
;                                                                              #)
;                                                                             (SB-POSIX::LEN
;                                                                              #)
;                                                                             (SB-POSIX::PID
;                                                                              #)
;                                                                             (TYPE
;                                                                              #)
;                                                                             (SB-POSIX::WHENCE
;                                                                              #)
;                                                                             (SB-POSIX::PADDING22
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::ALIEN-TO-FLOCK SB-POSIX::A-FLOCK SB-POSIX::ARG)
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-FLOCK
;                                                                             (SB-POSIX::START
;                                                                              #)
;                                                                             (SB-POSIX::LEN
;                                                                              #)
;                                                                             (SB-POSIX::PID
;                                                                              #)
;                                                                             (TYPE
;                                                                              #)
;                                                                             (SB-POSIX::WHENCE
;                                                                              #)
;                                                                             (SB-POSIX::PADDING22
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-FLOCK SB-POSIX::A-FLOCK NIL
;                                 (SB-POSIX::FLOCK-TO-ALIEN SB-POSIX::ARG
;                                  SB-POSIX::A-FLOCK)
;                                 (LET ((SB-POSIX::R
;                                        (SB-POSIX::FCNTL-WITH-POINTER-ARG
;                                         SB-POSIX::FD SB-POSIX::CMD
;                                         SB-POSIX::A-FLOCK)))
;                                   (SB-POSIX::ALIEN-TO-FLOCK SB-POSIX::A-FLOCK
;                                    SB-POSIX::ARG)
;                                   SB-POSIX::R))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 
; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-FLOCK :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {123445A1}> 
; --> SB-POSIX::A-FLOCK SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-FLOCK
;                                                                             (SB-POSIX::START
;                                                                              #)
;                                                                             (SB-POSIX::LEN
;                                                                              #)
;                                                                             (SB-POSIX::PID
;                                                                              #)
;                                                                             (TYPE
;                                                                              #)
;                                                                             (SB-POSIX::WHENCE
;                                                                              #)
;                                                                             (SB-POSIX::PADDING22
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "geteuid" ...)
; compiling (DEFINE-CALL "getresuid" ...)
; compiling (DEFINE-CALL "getuid" ...)
; compiling (DEFINE-CALL "seteuid" ...)
; compiling (DEFINE-CALL "setfsuid" ...)
; compiling (DEFINE-CALL "setreuid" ...)
; compiling (DEFINE-CALL "setresuid" ...)
; compiling (DEFINE-CALL "setuid" ...)
; compiling (DEFINE-CALL "getegid" ...)
; compiling (DEFINE-CALL "getgid" ...)
; compiling (DEFINE-CALL "getresgid" ...)
; compiling (DEFINE-CALL "setegid" ...)
; compiling (DEFINE-CALL "setfsgid" ...)
; compiling (DEFINE-CALL "setgid" ...)
; compiling (DEFINE-CALL "setregid" ...)
; compiling (DEFINE-CALL "setresgid" ...)
; compiling (DEFINE-CALL "alarm" ...)
; compiling (DEFINE-CALL "setup_mach_exceptions" ...)
; compiling (DEFINE-CALL ("posix_fork" :C-NAME ...) ...)
; compiling (DEFUN FORK ...)
; compiling (EXPORT (QUOTE FORK) ...)
; compiling (DEFINE-CALL "getpgid" ...)
; compiling (DEFINE-CALL "getppid" ...)
; compiling (DEFINE-CALL "getpgrp" ...)
; compiling (DEFINE-CALL "getsid" ...)
; compiling (DEFINE-CALL "kill" ...)
; compiling (DEFINE-CALL "killpg" ...)
; compiling (DEFINE-CALL "pause" ...)
; compiling (DEFINE-CALL "setpgid" ...)
; compiling (DEFINE-CALL "setpgrp" ...)
; compiling (DEFINE-CALL "setsid" ...)
; compiling (DEFMACRO WITH-GROWING-C-STRING ...)
; compiling (EXPORT (QUOTE READLINK) ...)
; compiling (DEFUN READLINK ...)
; compiling (EXPORT (QUOTE GETCWD) ...)
; compiling (DEFUN GETCWD ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFUN GETCWD
;     (SB-POSIX::WITH-GROWING-C-STRING (SB-POSIX::BUF SB-POSIX::SIZE)
;                                      (LET ((SB-POSIX::RESULT
;                                             (SB-POSIX::%GETCWD SB-POSIX::BUF
;                                              SB-POSIX::SIZE)))
;                                        (COND (SB-POSIX::RESULT (SB-POSIX::BUF))
;                                              ((/= # SB-POSIX:ERANGE)
;                                               (SB-POSIX:SYSCALL-ERROR)))))
; --> BLOCK LET FLET BLOCK WHEN IF PROGN SETF SB-KERNEL:%SET-SAP-REF-8 
; --> ALIEN-SAP 
; ==>
;   SB-POSIX::BUF
; 
; note: deleting unreachable code

; compiling (EXPORT (QUOTE WAIT) ...)
; compiling (DECLAIM (INLINE WAIT))
; compiling (DEFUN WAIT ...)
; compiling (EXPORT (QUOTE WAITPID) ...)
; compiling (DECLAIM (INLINE WAITPID))
; compiling (DEFUN WAITPID ...)
; compiling (DEFINE-CALL "wifexited" ...)
; compiling (DEFINE-CALL "wexitstatus" ...)
; compiling (DEFINE-CALL "wifsignaled" ...)
; compiling (DEFINE-CALL "wtermsig" ...)
; compiling (DEFINE-CALL "wifstopped" ...)
; compiling (DEFINE-CALL "wstopsig" ...)
; compiling (DEFINE-CALL ("mmap" :OPTIONS ...) ...)
; compiling (DEFINE-CALL "munmap" ...)
; compiling (DEFINE-CALL "msync" ...)
; compiling (DEFINE-CALL "mlockall" ...)
; compiling (DEFINE-CALL "munlockall" ...)
; compiling (DEFINE-CALL "getpagesize" ...)
; compiling (DEFINE-PROTOCOL-CLASS PASSWD ...)
; compiling (DEFINE-PROTOCOL-CLASS GROUP ...)
; compiling (DEFMACRO DEFINE-OBJ-CALL ...)
; compiling (DEFINE-OBJ-CALL "getpwnam" ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getpwnam"
;     (SB-POSIX::DEFINE-OBJ-CALL "getpwnam" SB-POSIX::LOGIN-NAME
;                                (FUNCTION (* SB-POSIX::ALIEN-PASSWD) C-STRING)
;                                SB-POSIX::ALIEN-TO-PASSWD)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-PASSWD
;                                                                             (SB-POSIX::NAME
;                                                                              #)
;                                                                             (SB-POSIX::PASSWD
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING13
;                                                                              #)
;                                                                             (SB-POSIX::GECOS
;                                                                              #)
;                                                                             (SB-POSIX::DIR
;                                                                              #)
;                                                                             (SB-POSIX::SHELL
;                                                                              #)
;                                                                             (SB-POSIX::PADDING14
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-OBJ-CALL "getpwuid" ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getpwuid"
;     (SB-POSIX::DEFINE-OBJ-CALL "getpwuid" SB-POSIX::UID
;                                (FUNCTION (* SB-POSIX::ALIEN-PASSWD)
;                                 SB-POSIX::UID-T)
;                                SB-POSIX::ALIEN-TO-PASSWD)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-PASSWD
;                                                                             (SB-POSIX::NAME
;                                                                              #)
;                                                                             (SB-POSIX::PASSWD
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING13
;                                                                              #)
;                                                                             (SB-POSIX::GECOS
;                                                                              #)
;                                                                             (SB-POSIX::DIR
;                                                                              #)
;                                                                             (SB-POSIX::SHELL
;                                                                              #)
;                                                                             (SB-POSIX::PADDING14
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-OBJ-CALL "getgrnam" ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getgrnam"
;     (SB-POSIX::DEFINE-OBJ-CALL "getgrnam" SB-POSIX::LOGIN-NAME
;                                (FUNCTION (* SB-POSIX::ALIEN-GROUP) C-STRING)
;                                SB-POSIX::ALIEN-TO-GROUP)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-GROUP
;                                                                             (SB-POSIX::NAME
;                                                                              #)
;                                                                             (SB-POSIX::PASSWD
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING15
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-OBJ-CALL "getgrgid" ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFINE-OBJ-CALL "getgrgid"
;     (SB-POSIX::DEFINE-OBJ-CALL "getgrgid" SB-POSIX::GID
;                                (FUNCTION (* SB-POSIX::ALIEN-GROUP)
;                                 SB-POSIX::GID-T)
;                                SB-POSIX::ALIEN-TO-GROUP)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK LET ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-GROUP
;                                                                             (SB-POSIX::NAME
;                                                                              #)
;                                                                             (SB-POSIX::PASSWD
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING15
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-PROTOCOL-CLASS TIMEVAL ...)
; compiling (DEFINE-PROTOCOL-CLASS STAT ...)
; compiling (DEFMACRO DEFINE-STAT-CALL ...)
; compiling (DEFINE-STAT-CALL "stat" ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFMACRO DEFINE-STAT-CALL
;     (SB-POSIX::ALIEN-TO-STAT SB-POSIX::A-STAT SB-POSIX::STAT)
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; in: DEFINE-STAT-CALL "stat"
;     (SB-POSIX::DEFINE-STAT-CALL "stat" PATHNAME SB-POSIX::FILENAME
;                                 (FUNCTION INT C-STRING (* SB-POSIX::ALIEN-STAT)))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL 
; --> SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {116BC0B9}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-STAT-CALL "lstat" ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFMACRO DEFINE-STAT-CALL
;     (SB-POSIX::ALIEN-TO-STAT SB-POSIX::A-STAT SB-POSIX::STAT)
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; in: DEFINE-STAT-CALL "lstat"
;     (SB-POSIX::DEFINE-STAT-CALL "lstat" PATHNAME SB-POSIX::FILENAME
;                                 (FUNCTION INT C-STRING (* SB-POSIX::ALIEN-STAT)))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL 
; --> SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {120428D9}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-STAT-CALL "fstat" ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFMACRO DEFINE-STAT-CALL
;     (SB-POSIX::ALIEN-TO-STAT SB-POSIX::A-STAT SB-POSIX::STAT)
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; in: DEFINE-STAT-CALL "fstat"
;     (SB-POSIX::DEFINE-STAT-CALL "fstat" SB-POSIX::FD SB-POSIX::FILE-DESCRIPTOR
;                                 (FUNCTION INT INT (* SB-POSIX::ALIEN-STAT)))
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN BLOCK 
; --> SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL 
; --> SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {122DB641}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "s_isreg" ...)
; compiling (DEFINE-CALL "s_isdir" ...)
; compiling (DEFINE-CALL "s_ischr" ...)
; compiling (DEFINE-CALL "s_isblk" ...)
; compiling (DEFINE-CALL "s_isfifo" ...)
; compiling (DEFINE-CALL "s_islnk" ...)
; compiling (DEFINE-CALL "s_issock" ...)
; compiling (EXPORT (QUOTE PIPE) ...)
; compiling (DECLAIM (INLINE PIPE))
; compiling (DEFUN PIPE ...)
; compiling (DEFINE-PROTOCOL-CLASS TERMIOS ...)
; compiling (EXPORT (QUOTE TCSETATTR) ...)
; compiling (DECLAIM (INLINE TCSETATTR))
; compiling (DEFUN TCSETATTR ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFUN TCSETATTR
;     (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL
;                                   (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS
;                                    SB-POSIX::A-TERMIOS)
;                                   (LET ((SB-POSIX::FD
;                                          (SB-POSIX::FILE-DESCRIPTOR
;                                           SB-POSIX::FD)))
;                                     (LET* ((SB-POSIX::R #))
;                                       (WHEN (MINUSP SB-POSIX::R)
;                                         (SB-POSIX:SYSCALL-ERROR)))
;                                     (VALUES)))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 
; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-TERMIOS :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {12DBFA91}> 
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE TCGETATTR) ...)
; compiling (DECLAIM (INLINE TCGETATTR))
; compiling (DEFUN TCGETATTR ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFUN TCGETATTR
;     (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL
;                                   (LET ((SB-POSIX::R
;                                          (ALIEN-FUNCALL # # SB-POSIX::A-TERMIOS)))
;                                     (WHEN (MINUSP SB-POSIX::R)
;                                       (SB-POSIX:SYSCALL-ERROR))
;                                     (SETF SB-POSIX::TERMIOS
;                                             (SB-POSIX::ALIEN-TO-TERMIOS
;                                              SB-POSIX::A-TERMIOS
;                                              SB-POSIX::TERMIOS))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 
; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-TERMIOS :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {11778BF1}> 
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE CFSETISPEED) ...)
; compiling (DECLAIM (INLINE CFSETISPEED))
; compiling (DEFUN CFSETISPEED ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFUN CFSETISPEED
;     (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL
;                                   (LET ((SB-POSIX::R
;                                          (ALIEN-FUNCALL # SB-POSIX::A-TERMIOS
;                                                         SPEED)))
;                                     (WHEN (MINUSP SB-POSIX::R)
;                                       (SB-POSIX:SYSCALL-ERROR))
;                                     (SETF SB-POSIX::TERMIOS
;                                             (SB-POSIX::ALIEN-TO-TERMIOS
;                                              SB-POSIX::A-TERMIOS
;                                              SB-POSIX::TERMIOS))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 
; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-TERMIOS :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {120269F1}> 
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE CFSETOSPEED) ...)
; compiling (DECLAIM (INLINE CFSETOSPEED))
; compiling (DEFUN CFSETOSPEED ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFUN CFSETOSPEED
;     (SB-POSIX::ALIEN-TO-TERMIOS SB-POSIX::A-TERMIOS SB-POSIX::TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL
;                                   (LET ((SB-POSIX::R
;                                          (ALIEN-FUNCALL # SB-POSIX::A-TERMIOS
;                                                         SPEED)))
;                                     (WHEN (MINUSP SB-POSIX::R)
;                                       (SB-POSIX:SYSCALL-ERROR))
;                                     (SETF SB-POSIX::TERMIOS
;                                             (SB-POSIX::ALIEN-TO-TERMIOS
;                                              SB-POSIX::A-TERMIOS
;                                              SB-POSIX::TERMIOS))))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 
; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-TERMIOS :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {121E9509}> 
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE CFGETISPEED) ...)
; compiling (DECLAIM (INLINE CFGETISPEED))
; compiling (DEFUN CFGETISPEED ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFUN CFGETISPEED
;     (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL
;                                   (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS
;                                    SB-POSIX::A-TERMIOS)
;                                   (ALIEN-FUNCALL
;                                    (EXTERN-ALIEN "cfgetispeed"
;                                                  (FUNCTION SB-POSIX:SPEED-T
;                                                   (* SB-POSIX::ALIEN-TERMIOS)))
;                                    SB-POSIX::A-TERMIOS))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 
; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-TERMIOS :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {123B64C1}> 
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE CFGETOSPEED) ...)
; compiling (DECLAIM (INLINE CFGETOSPEED))
; compiling (DEFUN CFGETOSPEED ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFUN CFGETOSPEED
;     (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS SB-POSIX::A-TERMIOS)
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX::WITH-ALIEN-TERMIOS SB-POSIX::A-TERMIOS NIL
;                                   (SB-POSIX::TERMIOS-TO-ALIEN SB-POSIX::TERMIOS
;                                    SB-POSIX::A-TERMIOS)
;                                   (ALIEN-FUNCALL
;                                    (EXTERN-ALIEN "cfgetospeed"
;                                                  (FUNCTION SB-POSIX:SPEED-T
;                                                   (* SB-POSIX::ALIEN-TERMIOS)))
;                                    SB-POSIX::A-TERMIOS))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 
; --> SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-TERMIOS :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {1253FC21}> 
; --> SB-POSIX::A-TERMIOS SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-TERMIOS
;                                                                             (SB-POSIX::IFLAG
;                                                                              #)
;                                                                             (SB-POSIX::OFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CFLAG
;                                                                              #)
;                                                                             (SB-POSIX::LFLAG
;                                                                              #)
;                                                                             (SB-POSIX::CC
;                                                                              #)
;                                                                             (SB-POSIX::PADDING23
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE TIME) ...)
; compiling (DEFUN TIME ...)
; compiling (EXPORT (QUOTE UTIME) ...)
; compiling (DEFUN UTIME ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFUN UTIME
;     (EXTERN-ALIEN "utime" (FUNCTION INT C-STRING (* SB-POSIX::ALIEN-UTIMBUF)))
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-FUN-TYPE (FUNCTION
;                                                                        (SIGNED
;                                                                         32)
;                                                                        (C-STRING
;                                                                         :EXTERNAL-FORMAT
;                                                                         :DEFAULT
;                                                                         :ELEMENT-TYPE
;                                                                         CHARACTER)
;                                                                        (*
;                                                                         (STRUCT
;                                                                          SB-POSIX::ALIEN-UTIMBUF
;                                                                          # #
;                                                                          #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE UTIMES) ...)
; compiling (DEFUN UTIMES ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFUN UTIMES
;     (EXTERN-ALIEN "utimes"
;                   (FUNCTION INT C-STRING (* (ARRAY SB-POSIX::ALIEN-TIMEVAL 2))))
; --> SB-ALIEN-INTERNALS:%HEAP-ALIEN SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-FUN-TYPE (FUNCTION
;                                                                        (SIGNED
;                                                                         32)
;                                                                        (C-STRING
;                                                                         :EXTERNAL-FORMAT
;                                                                         :DEFAULT
;                                                                         :ELEMENT-TYPE
;                                                                         CHARACTER)
;                                                                        (*
;                                                                         (ARRAY
;                                                                          #
;                                                                          2)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (DEREF SB-POSIX::BUF 0)
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-RECORD-TYPE (STRUCT
;                                                                           SB-POSIX::ALIEN-TIMEVAL
;                                                                           (SB-POSIX::SEC
;                                                                            (SIGNED
;                                                                             32))
;                                                                           (SB-POSIX::USEC
;                                                                            (SIGNED
;                                                                             32))
;                                                                           (SB-POSIX::PADDING25
;                                                                            (ARRAY
;                                                                             #
;                                                                             0)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (DEREF SB-POSIX::BUF 1)
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-RECORD-TYPE (STRUCT
;                                                                           SB-POSIX::ALIEN-TIMEVAL
;                                                                           (SB-POSIX::SEC
;                                                                            (SIGNED
;                                                                             32))
;                                                                           (SB-POSIX::USEC
;                                                                            (SIGNED
;                                                                             32))
;                                                                           (SB-POSIX::PADDING25
;                                                                            (ARRAY
;                                                                             #
;                                                                             0)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (EXPORT (QUOTE GETENV) ...)
; compiling (DEFUN GETENV ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-posix/interface.lisp
; in: DEFUN GETENV
;     (ALIEN-FUNCALL (EXTERN-ALIEN "getenv" (FUNCTION (* CHAR) C-STRING))
;                    SB-POSIX::NAME)
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (SIGNED
;                                                                             8))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling (DEFINE-CALL "putenv" ...)
; compiling (EXPORT (QUOTE OPENLOG) ...)
; compiling (EXPORT (QUOTE SYSLOG) ...)
; compiling (EXPORT (QUOTE CLOSELOG) ...)
; compiling (DEFUN OPENLOG ...)
; compiling (DEFUN SYSLOG ...)
; compiling (DEFINE-CALL "closelog" ...)

; SYS:CONTRIB;SB-POSIX;INTERFACE.FASL.NEWEST written
; compilation finished in 0:00:01
STYLE-WARNING: Didn't find definition for "fdatasync"
STYLE-WARNING: Didn't find definition for "getresuid"
STYLE-WARNING: Didn't find definition for "setfsuid"
STYLE-WARNING: Didn't find definition for "setresuid"
STYLE-WARNING: Didn't find definition for "getresgid"
STYLE-WARNING: Didn't find definition for "setfsgid"
STYLE-WARNING: Didn't find definition for "setresgid"
; compiling file "/Users/nikodemus/src/sbcl/contrib/asdf-install/defpackage.lisp" (written 12 JAN 2006 03:26:41 PM):
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFPACKAGE :ASDF-INSTALL ...)
; compiling (DEFPACKAGE :ASDF-INSTALL-CUSTOMIZE ...)

; SYS:CONTRIB;ASDF-INSTALL;DEFPACKAGE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/asdf-install/installer.lisp" (written 27 FEB 2008 06:56:30 PM):
; compiling (IN-PACKAGE :ASDF-INSTALL)
; compiling (DEFVAR *PROXY* ...)
; compiling (DEFVAR *CCLAN-MIRROR* ...)
; compiling (DEFUN DIRECTORIFY ...)
; compiling (DEFVAR *SBCL-HOME* ...)
; compiling (DEFVAR *DOT-SBCL* ...)
; compiling (DEFPARAMETER *TRUSTED-UIDS* ...)
; compiling (DEFVAR *LOCATIONS* ...)
; compiling (LET* (# #) ...)
; compiling (DEFINE-CONDITION DOWNLOAD-ERROR ...)
; compiling (DEFINE-CONDITION SIGNATURE-ERROR ...)
; compiling (DEFINE-CONDITION GPG-ERROR ...)
; compiling (DEFINE-CONDITION NO-SIGNATURE ...)
; compiling (DEFINE-CONDITION KEY-NOT-FOUND ...)
; compiling (DEFINE-CONDITION KEY-NOT-TRUSTED ...)
; compiling (DEFINE-CONDITION AUTHOR-NOT-TRUSTED ...)
; compiling (DEFUN URL-HOST ...)
; compiling (DEFUN URL-PORT ...)
; compiling (DEFUN REQUEST-URI ...)
; compiling (DEFUN URL-CONNECTION ...)
; compiling (DEFUN COPY-STREAM ...)
; compiling (DEFUN DOWNLOAD-FILES-FOR-PACKAGE ...)
; compiling (DEFUN READ-UNTIL-EOF ...)
; compiling (DEFUN VERIFY-GPG-SIGNATURE/STRING ...)
; compiling (DEFUN VERIFY-GPG-SIGNATURE/URL ...)
; compiling (DEFUN WHERE ...)
; compiling (DEFPARAMETER *TAR-PROGRAM* ...)
; compiling (DEFUN GET-TAR-DIRECTORY ...)
; compiling (DEFUN UNTAR-PACKAGE ...)
; compiling (DEFUN INSTALL-PACKAGE ...)
; compiling (DEFVAR *TEMPORARY-FILES*)
; compiling (DEFUN TEMP-FILE-NAME ...)
; compiling (DEFUN INSTALL ...)
; compiling (DEFUN UNINSTALL ...)

; SYS:CONTRIB;ASDF-INSTALL;INSTALLER.FASL.NEWEST written
; compilation finished in 0:00:00

; file: /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sockets.lisp
; in: DEFMETHOD SB-BSD-SOCKETS:SOCKET-SEND (SB-BSD-SOCKETS:SOCKET T T)
;     (IF SB-BSD-SOCKETS::NOSIGNAL SB-BSD-SOCKETS-INTERNAL::MSG-NOSIGNAL 0)
; 
; caught WARNING:
;   undefined variable: SB-BSD-SOCKETS-INTERNAL::MSG-NOSIGNAL

; 
; caught WARNING:
;   This variable is undefined:
;     SB-BSD-SOCKETS-INTERNAL::MSG-NOSIGNAL
; 
; compilation unit finished
;   caught 2 WARNING conditions
;   caught 13 STYLE-WARNING conditions
;   printed 306 notes

; compiling file "/Users/nikodemus/src/sbcl/contrib/asdf-install/asdf-install.lisp" (written 30 JUL 2008 03:16:16 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/asdf-install/asdf-install.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :asdf-install)" \
	     "(asdf:operate (quote asdf:test-op) :asdf-install)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/asdf-install/asdf-install.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM ASDF-INSTALL {119FC069}> as ASDF-INSTALL
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sb-bsd-sockets.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-BSD-SOCKETS {120D6AF1}> as SB-BSD-SOCKETS
; registering #<SYSTEM SB-BSD-SOCKETS-TESTS {12245389}> as SB-BSD-SOCKETS-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-posix/sb-posix.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-POSIX {11922421}> as SB-POSIX
; registering #<SYSTEM SB-POSIX-TESTS {11A38FC9}> as SB-POSIX-TESTS
STYLE-WARNING: Couldn't grovel for SO_NO_CHECK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for MSG_NOSIGNAL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGPWR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMIN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECHRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2NSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3RST (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELNRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUNATCH (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOCSI (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EXFULL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOANO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADRQC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADSLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDEADLOCK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBFONT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENONET (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOPKG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EADV (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESRMNT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECOMM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDOTDOT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTUNIQ (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADFD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMCHG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBACC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBBAD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBSCN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBEXEC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ERESTART (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESTRPIPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUCLEAN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTNAM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENAVAIL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMOTEIO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOMEDIUM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EMEDIUMTYPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_RSYNC (unknown to the C compiler).
STYLE-WARNING: Didn't find definition for "fdatasync"
STYLE-WARNING: Didn't find definition for "getresuid"
STYLE-WARNING: Didn't find definition for "setfsuid"
STYLE-WARNING: Didn't find definition for "setresuid"
STYLE-WARNING: Didn't find definition for "getresgid"
STYLE-WARNING: Didn't find definition for "setfsgid"
STYLE-WARNING: Didn't find definition for "setresgid"
NIL
* 
NIL
* make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-aclrepl")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/sb-aclrepl.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-ACLREPL {11A33B71}> as SB-ACLREPL
; registering #<SYSTEM SB-ACLREPL-TESTS {11C0B8B1}> as SB-ACLREPL-TESTS

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-aclrepl/toplevel.lisp" (written 08 APR 2007 03:38:21 PM):
; compiling (DEFPACKAGE :SB-ACLREPL ...)
; compiling (IN-PACKAGE :SB-ACLREPL)
; compiling (DEFVAR *NOPRINT* ...)
; compiling (DEFVAR *BREAK-LEVEL* ...)
; compiling (DEFVAR *INSPECT-BREAK* ...)
; compiling (DEFVAR *CONTINUABLE-BREAK* ...)
; compiling (DEFUN REPL ...)
; compiling (DEFUN REP-ONE ...)

; SYS:CONTRIB;SB-ACLREPL;TOPLEVEL.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-aclrepl/repl.lisp" (written 14 JUL 2005 07:30:07 PM):
; compiling (IN-PACKAGE :SB-ACLREPL)
; compiling (DEFSTRUCT USER-CMD ...)
; compiling (DEFSTRUCT CMD-TABLE-ENTRY ...)
; compiling (DEFPARAMETER *DEFAULT-PROMPT* ...)
; compiling (DEFPARAMETER *PROMPT* ...)
; compiling (DEFPARAMETER *USE-SHORT-PACKAGE-NAME* ...)
; compiling (DEFPARAMETER *DIR-STACK* ...)
; compiling (DEFPARAMETER *COMMAND-CHAR* ...)
; compiling (DEFVAR *MAX-HISTORY* ...)
; compiling (DEFVAR *EXIT-ON-EOF* ...)
; compiling (DEFPARAMETER *HISTORY* ...)
; compiling (DEFPARAMETER *CMD-NUMBER* ...)
; compiling (DEFVAR *INPUT*)
; compiling (DEFVAR *OUTPUT*)
; compiling (DECLAIM (TYPE LIST ...))
; compiling (DEFVAR *EOF-MARKER* ...)
; compiling (DEFVAR *EOF-CMD* ...)
; compiling (DEFVAR *NULL-CMD* ...)
; compiling (DEFPARAMETER *CMD-TABLE-HASH* ...)
; compiling (DEFUN PROMPT-PACKAGE-NAME ...)
; compiling (DEFUN READ-CMD ...)
; compiling (DEFUN DISPATCH-COMMAND-LINE ...)
; compiling (DEFUN PROCESS-CMD-NUMERIC ...)
; compiling (DEFUN MAYBE-RETURN-HISTORY-CMD ...)
; compiling (DEFUN FIND-HISTORY-MATCHING-PATTERN ...)
; compiling (DEFUN PROCESS-HISTORY-SEARCH ...)
; compiling (DEFUN PROCESS-CMD-TEXT ...)
; compiling (DEFUN MAKE-CTE ...)
; compiling (DEFUN %ADD-ENTRY ...)
; compiling (DEFUN ADD-CMD-TABLE-ENTRY ...)
; compiling (DEFUN FIND-CMD ...)
; compiling (DEFUN USER-CMD= ...)
; compiling (DEFUN ADD-TO-HISTORY ...)
; compiling (DEFUN GET-HISTORY ...)
; compiling (DEFUN GET-CMD-DOC-LIST ...)
; compiling (DEFUN CD-CMD ...)
; compiling (DEFUN PWD-CMD ...)
; compiling (DEFUN TRACE-CMD ...)
; compiling (DEFUN UNTRACE-CMD ...)
; compiling (DEFUN EXIT-CMD ...)
; compiling (DEFUN PACKAGE-CMD ...)
; compiling (DEFUN STRING-TO-LIST-SKIP-SPACES ...)
; compiling (LET (#) ...)
; compiling (DEFUN CF-CMD ...)
; compiling (DEFUN >-NUM ...)
; compiling (DEFUN NEWER-FILE-P ...)
; compiling (DEFUN COMPILE-FILE-AS-NEEDED ...)
; compiling (DEFUN APROPOS-CMD ...)
; compiling (LET (#) ...)
; compiling (DEFUN INSPECT-CMD ...)
; compiling (DEFUN ISTEP-CMD ...)
; compiling (DEFUN DESCRIBE-CMD ...)
; compiling (DEFUN MACROEXPAND-CMD ...)
; compiling (DEFUN HISTORY-CMD ...)
; compiling (DEFUN HELP-CMD ...)
; compiling (DEFUN ALIAS-CMD ...)
; compiling (DEFUN SHELL-CMD ...)
; compiling (DEFUN PUSHD-CMD ...)
; compiling (DEFUN POPD-CMD ...)
; compiling (DEFUN POP-CMD ...)
; compiling (DEFUN BT-CMD ...)
; compiling (DEFUN CURRENT-CMD ...)
; compiling (DEFUN TOP-CMD ...)
; compiling (DEFUN BOTTOM-CMD ...)
; compiling (DEFUN UP-CMD ...)
; compiling (DEFUN DN-CMD ...)
; compiling (DEFUN CONTINUE-CMD ...)
; compiling (DEFUN ERROR-CMD ...)
; compiling (DEFUN FRAME-CMD ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/repl.lisp
; in: DEFUN FRAME-CMD
;     (SB-DEBUG::PRINT-FRAME-CALL SB-DEBUG::*CURRENT-FRAME*)
; 
; caught STYLE-WARNING:
;   The function was called with one argument, but wants at least two.

; compiling (DEFUN ZOOM-CMD ...)
; compiling (DEFUN LOCAL-CMD ...)
; compiling (DEFUN PROCESSES-CMD ...)
; compiling (DEFUN KILL-CMD ...)
; compiling (DEFUN FOCUS-CMD ...)
; compiling (DEFUN RESET-CMD ...)
; compiling (DEFUN DIRS-CMD ...)
; compiling (LET (#) ...)
; compiling (DEFSETF ALIAS ...)
; compiling (DEFMACRO ALIAS ...)
; compiling (DEFUN REMOVE-ALIAS ...)
; compiling (DEFUN PEEK-CHAR-NON-WHITESPACE ...)
; compiling (DEFUN STRING-TRIM-WHITESPACE ...)
; compiling (DEFUN WHITESPACE-CHAR-P ...)
; compiling (DEFUN WHITESPACE-CHAR-NOT-NEWLINE-P ...)
; compiling (DEFUN REPL-PROMPT-FUN ...)
; compiling (DEFUN PROCESS-CMD ...)
; compiling (DEFUN REPL-READ-FORM-FUN ...)
; compiling (SETF *REPL-PROMPT-FUN* ...)
; compiling (DEFMACRO WITH-NEW-REPL-STATE ...)
; compiling (DEFUN MAKE-REPL-FUN ...)
; compiling (WHEN (BOUNDP #) ...)

; SYS:CONTRIB;SB-ACLREPL;REPL.FASL.NEWEST written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {11D369B9}> on
   #<CL-SOURCE-FILE "repl" {11AB7399}>.
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-aclrepl/inspect.lisp" (written 13 JAN 2008 05:59:54 AM):
; compiling (IN-PACKAGE #:SB-ACLREPL)
; compiling (DEFCONSTANT +DEFAULT-INSPECT-LENGTH+ ...)
; compiling (DEFSTRUCT (%INSPECT # ...) ...)
; compiling (DEFPARAMETER *CURRENT-INSPECT* ...)
; compiling (DEFPARAMETER *INSPECT-RAW* ...)
; compiling (DEFPARAMETER *INSPECT-LENGTH* ...)
; compiling (DEFPARAMETER *SKIP-ADDRESS-DISPLAY* ...)
; compiling (DEFVAR *INSPECT-HELP* ...)
; compiling (DEFVAR *INSPECT-UNBOUND-OBJECT-MARKER* ...)
; compiling (DEFUN INSPECTOR-FUN ...)
; compiling (SETQ SB-IMPL::*INSPECT-FUN* ...)
; compiling (DEFUN ISTEP ...)
; compiling (DEFUN ISTEP-DISPATCH ...)
; compiling (DEFUN SET-CURRENT-INSPECT ...)
; compiling (DEFUN RESET-STACK ...)
; compiling (DEFUN OUTPUT-INSPECT-NOTE ...)
; compiling (DEFUN STACK ...)
; compiling (DEFUN REDISPLAY ...)
; compiling (DEFUN ISTEP-CMD-REDISPLAY ...)
; compiling (DEFUN ISTEP-CMD-PARENT ...)
; compiling (DEFUN ISTEP-CMD-INSPECT-* ...)
; compiling (DEFUN ISTEP-CMD-INSPECT-NEW-FORM ...)
; compiling (DEFUN ISTEP-CMD-SELECT-PARENT-COMPONENT ...)
; compiling (DEFUN ISTEP-CMD-SET-RAW ...)
; compiling (DEFUN ISTEP-CMD-RESET ...)
; compiling (DEFUN ISTEP-CMD-HELP ...)
; compiling (DEFUN ISTEP-CMD-SKIP ...)
; compiling (DEFUN ISTEP-CMD-PRINT ...)
; compiling (DEFUN SELECT-DESCRIPTION ...)
; compiling (DEFUN ISTEP-CMD-TREE ...)
; compiling (DEFUN ISTEP-CMD-SET ...)
; compiling (DEFUN ISTEP-CMD-SELECT-COMPONENT ...)
; compiling (DEFUN ISTEP-CMD-SET-STACK ...)
; compiling (DEFUN NO-OBJECT-MSG ...)
; compiling (DEFUN DISPLAY-CURRENT ...)
; compiling (DEFUN DISPLAY-INSPECT ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/inspect.lisp
; in: DEFUN DISPLAY-INSPECT
;     (TYPEP SB-ACLREPL::OBJECT 'SINGLE-FLOAT)
; --> SB-INT:SINGLE-FLOAT-P IF SB-INT:SINGLE-FLOAT-P 
; ==>
;   SB-ACLREPL::OBJECT
; 
; note: deleting unreachable code

; compiling (DEFUN ARRAY-LABEL-P ...)
; compiling (DEFUN NAMED-OR-ARRAY-LABEL-P ...)
; compiling (DEFUN HEX-LABEL-P ...)
; compiling (DEFUN DISPLAY-LABELED-ELEMENT ...)
; compiling (DEFUN FIND-PART-ID ...)
; compiling (DEFUN COMPONENT-AT ...)
; compiling (DEFUN ID-AT ...)
; compiling (DEFUN INSPECTED-ELEMENTS ...)
; compiling (DEFUN LAST-REQUESTED ...)
; compiling (DEFUN LAST-PART ...)
; compiling (DEFUN COMPUTE-ELEMENTS-COUNT ...)
; compiling (DEFUN SET-ELEMENT ...)
; compiling (DEFUN SET-ELEMENT-VALUES ...)
; compiling (DEFUN FIRST-ELEMENT-ELLIPSES-P ...)
; compiling (DEFUN LABEL-AT ...)
; compiling (DEFUN ARRAY-INDEX-STRING ...)
; compiling (DEFGENERIC INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFUN SIMPLE-CONS-PAIR-P ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFUN CONS-SAFE-LENGTH ...)
; compiling (DEFUN INSPECTED-DESCRIPTION-OF-NONTRIVIAL-LIST ...)
; compiling (DEFUN N-WORD-BITS-HEX-FORMAT ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/inspect.lisp
; in: DEFUN N-WORD-BITS-HEX-FORMAT
;     (CASE SB-VM:N-WORD-BITS (64 "~16,'0X") (32 "~8,'0X") (T "~X"))
; --> LET COND IF PROGN 
; ==>
;   "~16,'0X"
; 
; note: deleting unreachable code

; --> LET COND IF COND IF COND PROGN 
; ==>
;   "~X"
; 
; note: deleting unreachable code

; compiling (DEFUN REF32-HEXSTR ...)
; compiling (DEFUN REF32 ...)
; compiling (DEFUN DESCRIPTION-MAYBE-INTERNALS ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/inspect.lisp
; in: DEFMETHOD INSPECTED-DESCRIPTION (SINGLE-FLOAT)
;     (SB-ACLREPL::DESCRIPTION-MAYBE-INTERNALS "single-float ~W"
;      (LIST SB-ACLREPL::OBJECT) "[#x~8,'0X]"
;      (ASH (SB-KERNEL:GET-LISP-OBJ-ADDRESS SB-ACLREPL::OBJECT) -32))
; ==>
;   "single-float ~W"
; 
; note: deleting unreachable code

; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFUN BIGNUM-WORDS ...)
; compiling (DEFUN BIGNUM-COMPONENT-AT ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/inspect.lisp
; in: DEFUN BIGNUM-COMPONENT-AT
;     (LET ((SB-ACLREPL::START (* 8 (1+ SB-ACLREPL::OFFSET))))
;       (+ (SB-ACLREPL::REF32 BIGNUM SB-ACLREPL::START)
;          (ASH (SB-ACLREPL::REF32 BIGNUM (+ 4 SB-ACLREPL::START)) 32)))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DEFMETHOD INSPECTED-DESCRIPTION ...)
; compiling (DECLAIM (INLINE PARTS-COMPONENTS))
; compiling (DEFUN PARTS-COMPONENTS ...)
; compiling (DECLAIM (INLINE PARTS-COUNT))
; compiling (DEFUN PARTS-COUNT ...)
; compiling (DECLAIM (INLINE PARTS-SEQ-TYPE))
; compiling (DEFUN PARTS-SEQ-TYPE ...)
; compiling (DECLAIM (INLINE PARTS-SEQ-HINT))
; compiling (DEFUN PARTS-SEQ-HINT ...)
; compiling (DEFGENERIC INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STRUCTURE-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-STANDARD-OBJECT-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-SIMPLE-CONS ...)
; compiling (DEFUN INSPECTED-PARTS-OF-NONTRIVIAL-LIST ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFMETHOD INSPECTED-PARTS ...)
; compiling (DEFGENERIC SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)
; compiling (DEFMETHOD SET-COMPONENT-VALUE ...)

; SYS:CONTRIB;SB-ACLREPL;INSPECT.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-aclrepl/debug.lisp" (written 14 JUL 2005 07:30:07 PM):
; compiling (IN-PACKAGE :SB-ACLREPL)
; compiling (DEFUN DEBUG-LOOP ...)
; compiling (DEFUN CONTINUABLE-BREAK-P ...)
; compiling (DEFUN PRINT-RESTARTS ...)

; SYS:CONTRIB;SB-ACLREPL;DEBUG.FASL.NEWEST written
; compilation finished in 0:00:00
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
;   printed 6 notes
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-aclrepl/sb-aclrepl.lisp" (written 30 JUL 2008 03:16:17 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/sb-aclrepl.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :sb-aclrepl)" \
	     "(asdf:operate (quote asdf:test-op) :sb-aclrepl)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/sb-aclrepl.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-ACLREPL {119FC301}> as SB-ACLREPL
; registering #<SYSTEM SB-ACLREPL-TESTS {11BE3689}> as SB-ACLREPL-TESTS
NIL
CL-USER(1): 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rt/sb-rt.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-RT {11713BA1}> as SB-RT

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-rt/rt.lisp" (written 14 JUL 2005 07:30:09 PM):
; compiling (DEFPACKAGE :SB-RT ...)
; compiling (IN-PACKAGE :SB-RT)
; compiling (DEFVAR *TEST* ...)
; compiling (DEFVAR *DO-TESTS-WHEN-DEFINED* ...)
; compiling (DEFVAR *ENTRIES* ...)
; compiling (DEFVAR *IN-TEST* ...)
; compiling (DEFVAR *DEBUG* ...)
; compiling (DEFVAR *CATCH-ERRORS* ...)
; compiling (DEFVAR *PRINT-CIRCLE-ON-FAILURE* ...)
; compiling (DEFVAR *COMPILE-TESTS* ...)
; compiling (DEFVAR *OPTIMIZATION-SETTINGS* ...)
; compiling (DEFVAR *EXPECTED-FAILURES* ...)
; compiling (DEFSTRUCT (ENTRY # ...) ...)
; compiling (DEFMACRO VALS ...)
; compiling (DEFMACRO DEFN ...)
; compiling (DEFUN PENDING-TESTS ...)
; compiling (DEFUN REM-ALL-TESTS ...)
; compiling (DEFUN REM-TEST ...)
; compiling (DEFUN GET-TEST ...)
; compiling (DEFUN GET-ENTRY ...)
; compiling (DEFMACRO DEFTEST ...)
; compiling (DEFUN ADD-ENTRY ...)
; compiling (DEFUN REPORT-ERROR ...)
; compiling (DEFUN DO-TEST ...)
; compiling (DEFUN EQUALP-WITH-CASE ...)
; compiling (DEFUN DO-ENTRY ...)
; compiling (DEFUN CONTINUE-TESTING ...)
; compiling (DEFUN DO-TESTS ...)
; compiling (DEFUN DO-ENTRIES ...)

; /Users/nikodemus/src/sbcl/contrib/sb-rt/rt.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-aclrepl/tests.lisp" (written 14 JUL 2005 07:30:07 PM):
; compiling (DEFPACKAGE #:ACLREPL-TESTS ...)
; compiling (IN-PACKAGE #:ACLREPL-TESTS)
; compiling (DECLAIM (SPECIAL SB-ACLREPL::*SKIP-ADDRESS-DISPLAY* ...))
; compiling (SETF SB-RT::*CATCH-ERRORS* ...)
; compiling (REM-ALL-TESTS)
; compiling (DEFTEST HOOK.1 ...)
; compiling (DEFTEST HOOK.2 ...)
; compiling (DEFTEST HOOK.3 ...)
; compiling (DEFCLASS EMPTY-CLASS ...)
; compiling (DEFPARAMETER *EMPTY-CLASS* ...)
; compiling (DEFCLASS EMPTY-CLASS ...)
; compiling (DEFCLASS SIMPLE-CLASS ...)
; compiling (DEFSTRUCT EMPTY-STRUCT)
; compiling (DEFSTRUCT TINY-STRUCT ...)
; compiling (DEFSTRUCT SIMPLE-STRUCT ...)
; compiling (DEFPARAMETER *EMPTY-CLASS* ...)
; compiling (DEFPARAMETER *SIMPLE-CLASS* ...)
; compiling (DEFPARAMETER *EMPTY-STRUCT* ...)
; compiling (DEFPARAMETER *TINY-STRUCT* ...)
; compiling (DEFPARAMETER *SIMPLE-STRUCT* ...)
; compiling (DEFPARAMETER *NORMAL-LIST* ...)
; compiling (DEFPARAMETER *DOTTED-LIST* ...)
; compiling (DEFPARAMETER *CONS-PAIR* ...)
; compiling (DEFPARAMETER *COMPLEX* ...)
; compiling (DEFPARAMETER *RATIO* ...)
; compiling (DEFPARAMETER *DOUBLE* ...)
; compiling (DEFPARAMETER *BIGNUM* ...)
; compiling (DEFPARAMETER *ARRAY* ...)
; compiling (DEFPARAMETER *VECTOR* ...)
; compiling (DEFPARAMETER *CIRCLE-LIST1* ...)
; compiling (SETF (CAR *CIRCLE-LIST1*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST2* ...)
; compiling (SETF (CDR *CIRCLE-LIST2*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST3* ...)
; compiling (SETF (CAR *CIRCLE-LIST3*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST4* ...)
; compiling (SETF (SECOND *CIRCLE-LIST4*) ...)
; compiling (DEFPARAMETER *CIRCLE-LIST5* ...)
; compiling (SETF (CDDR *CIRCLE-LIST5*) ...)
; compiling (DEFUN FIND-POSITION ...)
; compiling (DEFUN PARTS ...)
; compiling (DEFUN DESCRIPTION ...)
; compiling (DEFUN ELEMENTS ...)
; compiling (DEFUN ELEMENTS-COMPONENTS ...)
; compiling (DEFUN ELEMENTS-LABELS ...)
; compiling (DEFUN ELEMENTS-COUNT ...)
; compiling (DEFUN LABELED-ELEMENT ...)
; compiling (DEFUN DISPLAY ...)
; compiling (DEFUN DO-INSPECT ...)
; compiling (DEFUN ISTEP ...)
; compiling (DEFTEST FIND.LIST.0 ...)
; compiling (DEFTEST FIND.LIST.1 ...)
; compiling (DEFTEST FIND.LIST.2 ...)
; compiling (DEFTEST FIND.LIST.3 ...)
; compiling (DEFTEST PARTS.LIST.1 ...)
; compiling (DEFTEST PARTS.LIST.2 ...)
; compiling (DEFTEST PARTS.LIST.3 ...)
; compiling (DEFTEST PARTS.LIST.4 ...)
; compiling (DEFTEST PARTS.LIST.5 ...)
; compiling (DEFTEST PARTS.LIST.6 ...)
; compiling (DEFTEST PARTS.LIST.7 ...)
; compiling (DEFTEST PARTS.LIST.8 ...)
; compiling (DEFUN BASENAME ...)
; compiling (DEFUN ELEMENTS-TESTS-NAME ...)
; compiling (DEFMACRO DEF-ELEMENTS-TESTS ...)
; compiling (DEF-ELEMENTS-TESTS *NORMAL-LIST* ...)
; compiling (DEF-ELEMENTS-TESTS *DOTTED-LIST* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST1* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST2* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST3* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST4* ...)
; compiling (DEF-ELEMENTS-TESTS *CIRCLE-LIST5* ...)
; compiling (DEFTEST CIRCLE-LIST1-COMPONENTS ...)
; compiling (DEFTEST CIRCLE-LIST2-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST2-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST3-COMPONENTS.2 ...)
; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST4-COMPONENTS.2 ...)
; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.0 ...)
; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.1 ...)
; compiling (DEFTEST CIRCLE-LIST5-COMPONENTS.2 ...)
; compiling (DEF-ELEMENTS-TESTS *CONS-PAIR* ...)
; compiling (DEF-ELEMENTS-TESTS *COMPLEX* ...)
; compiling (DEF-ELEMENTS-TESTS *RATIO* ...)
; compiling (CASE SB-VM:N-WORD-BITS ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/tests.lisp
; in: DEF-ELEMENTS-TESTS *BIGNUM*
;     (ACLREPL-TESTS::DEF-ELEMENTS-TESTS ACLREPL-TESTS::*BIGNUM* 1
;                                        #(1234567890123456789) #((0 . :HEX64)))
; --> PROGN UNLESS IF EQ 
; ==>
;   #(1234567890123456789)
; 
; note: deleting unreachable code

; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *VECTOR* ...)
; compiling (DEF-ELEMENTS-TESTS *ARRAY* ...)
; compiling (DEF-ELEMENTS-TESTS *EMPTY-CLASS* ...)
; compiling (DEF-ELEMENTS-TESTS *EMPTY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *SIMPLE-STRUCT* ...)
; compiling (DEFUN LABEL-TEST-NAME ...)
; compiling (DEFMACRO DEF-LABEL-TEST ...)
; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...)
; compiling (DEF-LABEL-TEST *SIMPLE-CLASS* ...)
; compiling (DEF-LABEL-TEST *COMPLEX* ...)
; compiling (DEF-LABEL-TEST *COMPLEX* ...)
; compiling (DEF-LABEL-TEST *RATIO* ...)
; compiling (DEF-LABEL-TEST *RATIO* ...)
; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...)
; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...)
; compiling (DEF-LABEL-TEST *DOTTED-LIST* ...)
; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...)
; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...)
; compiling (DEF-LABEL-TEST *NORMAL-LIST* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *VECTOR* ...)
; compiling (DEF-LABEL-TEST *CONS-PAIR* ...)
; compiling (DEF-LABEL-TEST *CONS-PAIR* ...)
; compiling (DEFTEST NIL.PARTS.0 ...)
; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *TINY-STRUCT* ...)
; compiling (DEF-ELEMENTS-TESTS *DOUBLE* ...)
; compiling (DEF-ELEMENTS-TESTS *DOUBLE* ...)
; compiling (DEFUN DISPLAY-TEST-NAME ...)
; compiling (DEFMACRO DEF-DISPLAY-TEST ...)
; compiling (DEF-DISPLAY-TEST *CONS-PAIR* ...)
; compiling (DEF-DISPLAY-TEST *SIMPLE-STRUCT* ...)
; compiling (DEF-DISPLAY-TEST *SIMPLE-STRUCT* ...)
; compiling (CASE SB-VM:N-WORD-BITS ...)
; compiling (DEF-DISPLAY-TEST *VECTOR* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST1* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST2* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST3* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST4* ...)
; compiling (DEF-DISPLAY-TEST *CIRCLE-LIST5* ...)
; compiling (DEFTEST INSPECT.0 ...)
; compiling (DEFTEST ISTEP.0 ...)
; compiling (DEFTEST ISTEP.1 ...)
; compiling (DEFTEST ISTEP.2 ...)
; compiling (DEFTEST ISTEP.3 ...)
; compiling (DEFTEST ISTEP.4 ...)
; compiling (DEFTEST ISTEP.5 ...)
; compiling (DEFTEST ISTEP.6 ...)
; compiling (DEFTEST ISTEP.7 ...)
; compiling (DEFTEST ISTEP.8 ...)
; compiling (DEFTEST ISTEP.9 ...)

; /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/tests.fasl written
; compilation finished in 0:00:00
Doing 144 pending tests of 144 tests total.
 ACLREPL-TESTS::HOOK.1 ACLREPL-TESTS::HOOK.2 ACLREPL-TESTS::HOOK.3
 ACLREPL-TESTS::FIND.LIST.0 ACLREPL-TESTS::FIND.LIST.1
 ACLREPL-TESTS::FIND.LIST.2 ACLREPL-TESTS::FIND.LIST.3
 ACLREPL-TESTS::PARTS.LIST.1 ACLREPL-TESTS::PARTS.LIST.2
 ACLREPL-TESTS::PARTS.LIST.3 ACLREPL-TESTS::PARTS.LIST.4
 ACLREPL-TESTS::PARTS.LIST.5 ACLREPL-TESTS::PARTS.LIST.6
 ACLREPL-TESTS::PARTS.LIST.7 ACLREPL-TESTS::PARTS.LIST.8
 ACLREPL-TESTS::ELEM.NORMAL-LIST.COUNT
 ACLREPL-TESTS::ELEM.NORMAL-LIST.COMPONENTS
 ACLREPL-TESTS::ELEM.NORMAL-LIST.LABELS ACLREPL-TESTS::ELEM.DOTTED-LIST.COUNT
 ACLREPL-TESTS::ELEM.DOTTED-LIST.COMPONENTS
 ACLREPL-TESTS::ELEM.DOTTED-LIST.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST1.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST1.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST2.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST2.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST3.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST3.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST4.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST4.LABELS ACLREPL-TESTS::ELEM.CIRCLE-LIST5.COUNT
 ACLREPL-TESTS::ELEM.CIRCLE-LIST5.LABELS ACLREPL-TESTS::CIRCLE-LIST1-COMPONENTS
 ACLREPL-TESTS::CIRCLE-LIST2-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST2-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST3-COMPONENTS.2
 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST4-COMPONENTS.2
 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.0
 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.1
 ACLREPL-TESTS::CIRCLE-LIST5-COMPONENTS.2 ACLREPL-TESTS::ELEM.CONS-PAIR.COUNT
 ACLREPL-TESTS::ELEM.CONS-PAIR.COMPONENTS ACLREPL-TESTS::ELEM.CONS-PAIR.LABELS
 ACLREPL-TESTS::ELEM.COMPLEX.COUNT ACLREPL-TESTS::ELEM.COMPLEX.COMPONENTS
 ACLREPL-TESTS::ELEM.COMPLEX.LABELS ACLREPL-TESTS::ELEM.RATIO.COUNT
 ACLREPL-TESTS::ELEM.RATIO.COMPONENTS ACLREPL-TESTS::ELEM.RATIO.LABELS
 ACLREPL-TESTS::ELEM.BIGNUM.COUNT ACLREPL-TESTS::ELEM.BIGNUM.COMPONENTS
 ACLREPL-TESTS::ELEM.BIGNUM.LABELS ACLREPL-TESTS::ELEM.VECTOR.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.COMPONENTS ACLREPL-TESTS::ELEM.VECTOR.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.S3.COUNT ACLREPL-TESTS::ELEM.VECTOR.S3.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.S3.LABELS ACLREPL-TESTS::ELEM.VECTOR.P10.S3.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P10.S3.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P10.S3.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.P5.S16.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P5.S16.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P5.S16.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S16.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P2.S16.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S16.LABELS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S15.COUNT
 ACLREPL-TESTS::ELEM.VECTOR.P2.S15.COMPONENTS
 ACLREPL-TESTS::ELEM.VECTOR.P2.S15.LABELS ACLREPL-TESTS::ELEM.ARRAY.COUNT
 ACLREPL-TESTS::ELEM.ARRAY.COMPONENTS ACLREPL-TESTS::ELEM.ARRAY.LABELS
 ACLREPL-TESTS::ELEM.EMPTY-CLASS.COUNT
 ACLREPL-TESTS::ELEM.EMPTY-CLASS.COMPONENTS
 ACLREPL-TESTS::ELEM.EMPTY-CLASS.LABELS ACLREPL-TESTS::ELEM.EMPTY-STRUCT.COUNT
 ACLREPL-TESTS::ELEM.EMPTY-STRUCT.COMPONENTS
 ACLREPL-TESTS::ELEM.EMPTY-STRUCT.LABELS ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.COUNT
 ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.COMPONENTS
 ACLREPL-TESTS::ELEM.SIMPLE-STRUCT.LABELS ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.0
 ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.1 ACLREPL-TESTS::LABEL.SIMPLE-STRUCT.2
 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.0 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.1
 ACLREPL-TESTS::LABEL.SIMPLE-CLASS.2 ACLREPL-TESTS::LABEL.COMPLEX.0
 ACLREPL-TESTS::LABEL.COMPLEX.1 ACLREPL-TESTS::LABEL.RATIO.0
 ACLREPL-TESTS::LABEL.RATIO.1 ACLREPL-TESTS::LABEL.DOTTED-LIST.0
 ACLREPL-TESTS::LABEL.DOTTED-LIST.1 ACLREPL-TESTS::LABEL.DOTTED-LIST.2
 ACLREPL-TESTS::LABEL.NORMAL-LIST.0 ACLREPL-TESTS::LABEL.NORMAL-LIST.1
 ACLREPL-TESTS::LABEL.NORMAL-LIST.2 ACLREPL-TESTS::LABEL.VECTOR.0
 ACLREPL-TESTS::LABEL.VECTOR.1 ACLREPL-TESTS::LABEL.VECTOR.S2.0
 ACLREPL-TESTS::LABEL.VECTOR.S2.1 ACLREPL-TESTS::LABEL.CONS-PAIR.0
 ACLREPL-TESTS::LABEL.CONS-PAIR.1 ACLREPL-TESTS::NIL.PARTS.0
 ACLREPL-TESTS::ELEM.TINY-STRUCT.COUNT
 ACLREPL-TESTS::ELEM.TINY-STRUCT.COMPONENTS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.LABELS ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.COUNT
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.COMPONENTS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S1.LABELS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.COUNT
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.COMPONENTS
 ACLREPL-TESTS::ELEM.TINY-STRUCT.S2.LABELS ACLREPL-TESTS::ELEM.DOUBLE.COUNT
 ACLREPL-TESTS::ELEM.DOUBLE.COMPONENTS ACLREPL-TESTS::ELEM.DOUBLE.LABELS
 ACLREPL-TESTS::ELEM.DOUBLE.S1.COUNT ACLREPL-TESTS::ELEM.DOUBLE.S1.COMPONENTS
 ACLREPL-TESTS::ELEM.DOUBLE.S1.LABELS ACLREPL-TESTS::DISPLAY.CONS-PAIR
 ACLREPL-TESTS::DISPLAY.SIMPLE-STRUCT ACLREPL-TESTS::DISPLAY.SIMPLE-STRUCT.S2
 ACLREPL-TESTS::DISPLAY.BIGNUM ACLREPL-TESTS::DISPLAY.VECTOR.P5.S6
 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST1 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST2
 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST3 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST4
 ACLREPL-TESTS::DISPLAY.CIRCLE-LIST5 ACLREPL-TESTS::INSPECT.0
 ACLREPL-TESTS::ISTEP.0 ACLREPL-TESTS::ISTEP.1 ACLREPL-TESTS::ISTEP.2
 ACLREPL-TESTS::ISTEP.3 ACLREPL-TESTS::ISTEP.4 ACLREPL-TESTS::ISTEP.5
 ACLREPL-TESTS::ISTEP.6 ACLREPL-TESTS::ISTEP.7 ACLREPL-TESTS::ISTEP.8
 ACLREPL-TESTS::ISTEP.9
No tests failed.
; file: /Users/nikodemus/src/sbcl/contrib/sb-aclrepl/tests.lisp
; in: DEFUN ACLREPL-TESTS::DO-INSPECT
;     (SB-ACLREPL::INSPECTOR `',ACLREPL-TESTS::OBJECT NIL ACLREPL-TESTS::STRM)
; 
; caught STYLE-WARNING:
;   undefined function: SB-ACLREPL::INSPECTOR

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB-ACLREPL::INSPECTOR
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
;   printed 1 note

NIL
CL-USER(2): make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-bsd-sockets")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sb-bsd-sockets.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-BSD-SOCKETS {11F653D9}> as SB-BSD-SOCKETS
; registering #<SYSTEM SB-BSD-SOCKETS-TESTS {120BEFC9}> as SB-BSD-SOCKETS-TESTS
STYLE-WARNING: Couldn't grovel for SO_NO_CHECK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for MSG_NOSIGNAL (unknown to the C compiler).

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sb-bsd-sockets.lisp" (written 30 JUL 2008 03:16:18 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sb-bsd-sockets.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :sb-bsd-sockets)" \
	     "(asdf:operate (quote asdf:test-op) :sb-bsd-sockets)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sb-bsd-sockets.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-BSD-SOCKETS {11F27401}> as SB-BSD-SOCKETS
; registering #<SYSTEM SB-BSD-SOCKETS-TESTS {12091B51}> as SB-BSD-SOCKETS-TESTS
STYLE-WARNING: Couldn't grovel for SO_NO_CHECK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for MSG_NOSIGNAL (unknown to the C compiler).
NIL
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-posix/sb-posix.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-POSIX {11C1A4D9}> as SB-POSIX
; registering #<SYSTEM SB-POSIX-TESTS {11D33921}> as SB-POSIX-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rt/sb-rt.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-RT {11938D09}> as SB-RT
STYLE-WARNING: Couldn't grovel for SIGPWR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMIN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECHRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2NSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3RST (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELNRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUNATCH (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOCSI (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EXFULL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOANO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADRQC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADSLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDEADLOCK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBFONT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENONET (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOPKG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EADV (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESRMNT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECOMM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDOTDOT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTUNIQ (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADFD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMCHG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBACC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBBAD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBSCN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBEXEC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ERESTART (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESTRPIPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUCLEAN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTNAM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENAVAIL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMOTEIO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOMEDIUM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EMEDIUMTYPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_RSYNC (unknown to the C compiler).
STYLE-WARNING: Didn't find definition for "fdatasync"
STYLE-WARNING: Didn't find definition for "getresuid"
STYLE-WARNING: Didn't find definition for "setfsuid"
STYLE-WARNING: Didn't find definition for "setresuid"
STYLE-WARNING: Didn't find definition for "getresgid"
STYLE-WARNING: Didn't find definition for "setfsgid"
STYLE-WARNING: Didn't find definition for "setresgid"

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/tests.lisp" (written 08 OCT 2007 04:46:30 AM):
; compiling (DEFPACKAGE "SB-BSD-SOCKETS-TEST" ...)
; compiling (IN-PACKAGE :SB-BSD-SOCKETS-TEST)
; compiling (DEFTEST MAKE-INET-ADDRESS ...)
; compiling (DEFTEST MAKE-INET-ADDRESS2 ...)
; compiling (DEFTEST GET-PROTOCOL-BY-NAME/TCP ...)
; compiling (DEFTEST GET-PROTOCOL-BY-NAME/UDP ...)
; compiling (DEFTEST GET-PROTOCOL-BY-NAME/ERROR ...)
; compiling (DEFTEST MAKE-INET-SOCKET ...)
; compiling (DEFTEST MAKE-INET-SOCKET-KEYWORD ...)
; compiling (DEFTEST MAKE-INET-SOCKET-WRONG ...)
; compiling (DEFTEST MAKE-INET-SOCKET-KEYWORD-WRONG ...)
; compiling (DEFTEST NON-BLOCK-SOCKET ...)
; compiling (DEFUN DO-GC-PORTABLY ...)
; compiling (DEFTEST INET-SOCKET-BIND ...)
; compiling (DEFTEST SIMPLE-SOCKOPT-TEST ...)
; compiling (DEFUN READ-BUF-NONBLOCK ...)
; compiling (DEFTEST SIMPLE-LOCAL-CLIENT ...)
; compiling (DEFUN HTTP-STREAM ...)
; compiling (DEFTEST SOCKET-OPEN-P-TRUE.1 ...)
; compiling (DEFTEST SOCKET-OPEN-P-FALSE ...)
; compiling (DEFUN UDP-SERVER ...)

; /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/tests.fasl written
; compilation finished in 0:00:00
Doing 15 pending tests of 15 tests total.
 SB-BSD-SOCKETS:MAKE-INET-ADDRESS SB-BSD-SOCKETS-TEST::MAKE-INET-ADDRESS2
 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/TCP
 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/UDP
 SB-BSD-SOCKETS-TEST::GET-PROTOCOL-BY-NAME/ERROR SB-BSD-SOCKETS:MAKE-INET-SOCKET
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-KEYWORD
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-WRONG
 SB-BSD-SOCKETS-TEST::MAKE-INET-SOCKET-KEYWORD-WRONG
 SB-BSD-SOCKETS-TEST::NON-BLOCK-SOCKET SB-BSD-SOCKETS-TEST::INET-SOCKET-BIND
; in: LAMBDA NIL
;     (SB-POSIX:STAT "/dev/log")
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {11A87A39}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-BSD-SOCKETS-TEST::SIMPLE-SOCKOPT-TEST
 SB-BSD-SOCKETS-TEST::SIMPLE-LOCAL-CLIENT
 SB-BSD-SOCKETS-TEST::SOCKET-OPEN-P-TRUE.1
 SB-BSD-SOCKETS-TEST::SOCKET-OPEN-P-FALSE
No tests failed.; 
; compilation unit finished
;   printed 2 notes

NIL
* make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-cltl2")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-cltl2/sb-cltl2.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-CLTL2 {11A33971}> as SB-CLTL2
; registering #<SYSTEM SB-CLTL2-TESTS {11C08D41}> as SB-CLTL2-TESTS

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cltl2/defpackage.lisp" (written 02 SEP 2003 02:11:46 PM):
; compiling (DEFPACKAGE :SB-CLTL2 ...)

; SYS:CONTRIB;SB-CLTL2;DEFPACKAGE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cltl2/compiler-let.lisp" (written 13 SEP 2006 06:59:32 PM):
; compiling (IN-PACKAGE :SB-CLTL2)
; compiling (DEF-IR1-TRANSLATOR COMPILER-LET ...)
; compiling (DEFUN WALK-COMPILER-LET ...)
; compiling (SB-WALKER:DEFINE-WALKER-TEMPLATE COMPILER-LET ...)
; compiling (SETF (GETF SB-EVAL::*EVAL-DISPATCH-FUNCTIONS* ...) ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-cltl2/compiler-let.lisp
; in: SETF (GETF SB-EVAL::*EVAL-DISPATCH-FUNCTIONS* 'COMPILER-LET)
;     (SB-EVAL::SPECIAL-BINDINGS SB-CLTL2::VARS)
; 
; caught STYLE-WARNING:
;   The function was called with one argument, but wants exactly two.


; SYS:CONTRIB;SB-CLTL2;COMPILER-LET.FASL.NEWEST written
; compilation finished in 0:00:00
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {11D322D9}> on
   #<CL-SOURCE-FILE "compiler-let" {11AB7079}>.
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cltl2/macroexpand.lisp" (written 05 JUN 2003 08:25:28 PM):
; compiling (IN-PACKAGE :SB-CLTL2)
; compiling (DEFUN MACROEXPAND-ALL ...)

; SYS:CONTRIB;SB-CLTL2;MACROEXPAND.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cltl2/env.lisp" (written 10 SEP 2007 03:14:43 PM):
; compiling (IN-PACKAGE :SB-CLTL2)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUNCTION-INFORMATION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN VARIABLE-INFORMATION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DECLARATION-INFORMATION ...)
; compiling (DEFUN PARSE-MACRO ...)
; compiling (DEFUN ENCLOSE ...)

; SYS:CONTRIB;SB-CLTL2;ENV.FASL.NEWEST written
; compilation finished in 0:00:01
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cltl2/sb-cltl2.lisp" (written 30 JUL 2008 03:16:20 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/sb-cltl2/sb-cltl2.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :sb-cltl2)" \
	     "(asdf:operate (quote asdf:test-op) :sb-cltl2)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-cltl2/sb-cltl2.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-CLTL2 {119FBE89}> as SB-CLTL2
; registering #<SYSTEM SB-CLTL2-TESTS {11BE0801}> as SB-CLTL2-TESTS
NIL
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rt/sb-rt.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-RT {1224ACD1}> as SB-RT

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cltl2/tests.lisp" (written 10 SEP 2007 03:14:43 PM):
; compiling (DEFPACKAGE :SB-CLTL2-TESTS ...)
; compiling (IN-PACKAGE :SB-CLTL2-TESTS)
; compiling (REM-ALL-TESTS)
; compiling (DEFMACRO *X*-VALUE ...)
; compiling (DEFTEST COMPILER-LET.1 ...)
; compiling (DEFVAR *EXPANSIONS* ...)
; compiling (DEFMACRO MACROEXPAND-MACRO ...)
; compiling (DEFTEST MACROEXPAND-ALL.1 ...)
; compiling (DEFTEST MACROEXPAND-ALL.2 ...)
; compiling (DEFTEST MACROEXPAND-ALL.3 ...)
; compiling (DEFUN SMV ...)
; compiling (DEFMACRO TESTR ...)
; compiling (DEFTEST MACROEXPAND-ALL.4 ...)
; compiling (DEFMACRO DINFO ...)
; compiling (DEF SPEED)
; compiling (DEF SAFETY)
; compiling (DEF DEBUG)
; compiling (DEF COMPILATION-SPEED)
; compiling (DEF SPACE)
; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.DEFAULT ...)
; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.1 ...)
; compiling (DEFTEST DECLARATION-INFORMATION.MUFFLE-CONDITIONS.2 ...)
; compiling (DEFVAR *FOO*)
; compiling (DEFMACRO VAR-INFO ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND/EXTRA-DECL ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/BOUND ...)
; compiling (DEFTEST VARIABLE-INFO.GLOBAL-SPECIAL/BOUND/EXTRA-DECL ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/UNBOUND ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/BOUND ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/SHADOWED ...)
; compiling (DEFTEST VARIABLE-INFO.LOCAL-SPECIAL/SHADOWS-LEXICAL ...)
; compiling (DEFTEST VARIABLE-INFO.LEXICAL ...)
; compiling (DEFTEST VARIABLE-INFO.IGNORE ...)
; compiling (DEFTEST VARIABLE-INFO.SYMBOL-MACRO/LOCAL ...)
; compiling (DEFINE-SYMBOL-MACRO MY-SYMBOL-MACRO ...)
; compiling (DEFTEST VARIABLE-INFO.SYMBOL-MACRO/GLOBAL ...)
; compiling (DEFTEST VARIABLE-INFO.UNDEFINED ...)
; compiling (DEFMACRO FUN-INFO ...)
; compiling (DEFUN MY-GLOBAL-FUN ...)
; compiling (DEFTEST FUNCTION-INFO.GLOBAL/NO-FTYPE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN MY-GLOBAL-FUN-2 ...)
; compiling (DEFTEST FUNCTION-INFO.GLOBAL/FTYPE ...)
; compiling (DEFMACRO MY-MACRO ...)
; compiling (DEFTEST FUNCTION-INFO.MACRO ...)
; compiling (DEFTEST FUNCTION-INFO.MACROLET ...)
; compiling (DEFTEST FUNCTION-INFO.SPECIAL-FORM ...)
; compiling (DEFTEST FUNCTION-INFO.NOTINLINE/LOCAL ...)
; compiling (DECLAIM (NOTINLINE MY-NOTINLINE))
; compiling (DEFUN MY-NOTINLINE ...)
; compiling (DEFTEST FUNCTION-INFO.NOTINLINE/GLOBAL ...)
; compiling (DECLAIM (INLINE MY-INLINE))
; compiling (DEFUN MY-INLINE ...)
; compiling (DEFTEST FUNCTION-INFO.INLINE/GLOBAL ...)
; compiling (DEFTEST FUNCTION-INFORMATION.KNOWN-INLINE ...)

; /Users/nikodemus/src/sbcl/contrib/sb-cltl2/tests.fasl written
; compilation finished in 0:00:00
Doing 60 pending tests of 60 tests total.
 SB-CLTL2-TESTS::COMPILER-LET.1 SB-CLTL2-TESTS::MACROEXPAND-ALL.1
 SB-CLTL2-TESTS::MACROEXPAND-ALL.2 SB-CLTL2-TESTS::MACROEXPAND-ALL.3
 SB-CLTL2-TESTS::MACROEXPAND-ALL.4
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPEED.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SAFETY.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.DEBUG.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.COMPILATION-SPEED.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.0
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.2
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.3
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.SPACE.IMPLICIT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.DEFAULT
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.1
 SB-CLTL2-TESTS::DECLARATION-INFORMATION.MUFFLE-CONDITIONS.2
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/UNBOUND/EXTRA-DECL
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/BOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.GLOBAL-SPECIAL/BOUND/EXTRA-DECL
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/UNBOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/BOUND
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/SHADOWED
 SB-CLTL2-TESTS::VARIABLE-INFO.LOCAL-SPECIAL/SHADOWS-LEXICAL
 SB-CLTL2-TESTS::VARIABLE-INFO.LEXICAL SB-CLTL2-TESTS::VARIABLE-INFO.IGNORE
 SB-CLTL2-TESTS::VARIABLE-INFO.SYMBOL-MACRO/LOCAL
 SB-CLTL2-TESTS::VARIABLE-INFO.SYMBOL-MACRO/GLOBAL
 SB-CLTL2-TESTS::VARIABLE-INFO.UNDEFINED
 SB-CLTL2-TESTS::FUNCTION-INFO.GLOBAL/NO-FTYPE
 SB-CLTL2-TESTS::FUNCTION-INFO.GLOBAL/FTYPE SB-CLTL2-TESTS::FUNCTION-INFO.MACRO
 SB-CLTL2-TESTS::FUNCTION-INFO.MACROLET
 SB-CLTL2-TESTS::FUNCTION-INFO.SPECIAL-FORM
 SB-CLTL2-TESTS::FUNCTION-INFO.NOTINLINE/LOCAL
 SB-CLTL2-TESTS::FUNCTION-INFO.NOTINLINE/GLOBAL
 SB-CLTL2-TESTS::FUNCTION-INFO.INLINE/GLOBAL
 SB-CLTL2-TESTS::FUNCTION-INFORMATION.KNOWN-INLINE
No tests failed.; in: LAMBDA NIL
;     (SB-CLTL2-TESTS::FOO
;      (MACROLET ((SB-CLTL2-TESTS::BAR (SB-CLTL2-TESTS::KEY)
;                   (PUSH SB-CLTL2-TESTS::KEY SB-CLTL2-TESTS::*EXPANSIONS*)
;                   SB-CLTL2-TESTS::KEY))
;        (SB-CLTL2-TESTS::FOO 1)))
; ==>
;   (SB-CLTL2-TESTS::BAR
;    (MACROLET ((SB-CLTL2-TESTS::BAR (SB-CLTL2-TESTS::KEY)
;                 (LET* #
;                   #)
;                 SB-CLTL2-TESTS::KEY))
;      1))
; 
; caught STYLE-WARNING:
;   undefined function: SB-CLTL2-TESTS::BAR

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB-CLTL2-TESTS::BAR
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions

NIL
* make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-cover")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-cover/sb-cover.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-COVER {11A222C9}> as SB-COVER
; registering #<SYSTEM SB-COVER-TESTS {11BADD09}> as SB-COVER-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-md5/sb-md5.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-MD5 {11E16AF1}> as SB-MD5
; registering #<SYSTEM SB-MD5-TESTS {11F676B1}> as SB-MD5-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/sb-rotate-byte.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-ROTATE-BYTE {120CA5B9}> as SB-ROTATE-BYTE

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/package.lisp" (written 11 FEB 2003 05:42:44 PM):
; compiling (DEFPACKAGE "SB-ROTATE-BYTE" ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;PACKAGE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/compiler.lisp" (written 27 AUG 2005 01:19:12 AM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (DEFKNOWN ROTATE-BYTE ...)
; compiling (DEFKNOWN %ROTATE-BYTE ...)
; compiling (DEFKNOWN %UNSIGNED-32-ROTATE-BYTE ...)
; compiling (DEFINE-SOURCE-TRANSFORM ROTATE-BYTE ...)
; compiling (DEFOPTIMIZER (%ROTATE-BYTE DERIVE-TYPE) ...)
; compiling (DEFTRANSFORM %ROTATE-BYTE ...)
; compiling (DEFTRANSFORM %ROTATE-BYTE ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;COMPILER.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/x86-vm.lisp" (written 26 AUG 2005 08:52:25 PM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (DEFINE-VOP (%32BIT-ROTATE-BYTE/C) ...)
; compiling (DEFINE-VOP (%32BIT-ROTATE-BYTE-FIXNUM/C) ...)
; compiling (DEF %32BIT-ROTATE-BYTE ...)
; compiling (DEF %32BIT-ROTATE-BYTE-FIXNUM ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;X86-VM.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/rotate-byte.lisp" (written 14 JUL 2005 07:30:09 PM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (DEFUN ROTATE-BYTE ...)
; compiling (DEFUN %ROTATE-BYTE ...)
; compiling (DEFUN %UNSIGNED-32-ROTATE-BYTE ...)

; SYS:CONTRIB;SB-ROTATE-BYTE;ROTATE-BYTE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp" (written 29 NOV 2007 07:30:17 PM):
; compiling (DEFPACKAGE :SB-MD5 ...)
; compiling (IN-PACKAGE :SB-MD5)
; compiling (DEFTYPE UB32 ...)
; compiling (DEFMACRO ASSEMBLE-UB32 ...)
; compiling (DECLAIM (INLINE F ...) ...)
; compiling (DEFUN F ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp
; in: DEFUN F
;     (DEFUN SB-MD5::F (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;        (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LOGIOR (LOGAND SB-MD5::X SB-MD5::Y) (LOGANDC1 SB-MD5::X SB-MD5::Z)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-MD5::F
;                    (SB-INT:NAMED-LAMBDA SB-MD5::F
;                                         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                                         (DECLARE
;                                          (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y
;                                           SB-MD5::Z)
;                                          (OPTIMIZE (SPEED 3) (SAFETY 0)
;                                           (SPACE 0) (DEBUG 0)))
;                                         (BLOCK SB-MD5::F
;                                           (LOGIOR (LOGAND SB-MD5::X SB-MD5::Y)
;                                                   (LOGANDC1 SB-MD5::X
;                                                             SB-MD5::Z))))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL
;                      (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                      (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                       (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;                      (BLOCK SB-MD5::F
;                        (LOGIOR (LOGAND SB-MD5::X SB-MD5::Y)
;                                (LOGANDC1 SB-MD5::X SB-MD5::Z))))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN G ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp
; in: DEFUN G
;     (DEFUN SB-MD5::G (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;        (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LOGIOR (LOGAND SB-MD5::X SB-MD5::Z) (LOGANDC2 SB-MD5::Y SB-MD5::Z)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-MD5::G
;                    (SB-INT:NAMED-LAMBDA SB-MD5::G
;                                         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                                         (DECLARE
;                                          (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y
;                                           SB-MD5::Z)
;                                          (OPTIMIZE (SPEED 3) (SAFETY 0)
;                                           (SPACE 0) (DEBUG 0)))
;                                         (BLOCK SB-MD5::G
;                                           (LOGIOR (LOGAND SB-MD5::X SB-MD5::Z)
;                                                   (LOGANDC2 SB-MD5::Y
;                                                             SB-MD5::Z))))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL
;                      (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                      (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                       (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;                      (BLOCK SB-MD5::G
;                        (LOGIOR (LOGAND SB-MD5::X SB-MD5::Z)
;                                (LOGANDC2 SB-MD5::Y SB-MD5::Z))))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN H ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp
; in: DEFUN H
;     (DEFUN SB-MD5::H (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;        (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LOGXOR SB-MD5::X SB-MD5::Y SB-MD5::Z))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-MD5::H
;                    (SB-INT:NAMED-LAMBDA SB-MD5::H
;                                         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                                         (DECLARE
;                                          (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y
;                                           SB-MD5::Z)
;                                          (OPTIMIZE (SPEED 3) (SAFETY 0)
;                                           (SPACE 0) (DEBUG 0)))
;                                         (BLOCK SB-MD5::H
;                                           (LOGXOR SB-MD5::X SB-MD5::Y
;                                                   SB-MD5::Z)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL
;                      (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                      (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                       (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;                      (BLOCK SB-MD5::H (LOGXOR SB-MD5::X SB-MD5::Y SB-MD5::Z)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN I ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp
; in: DEFUN I
;     (DEFUN SB-MD5::I (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;        (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LDB (BYTE 32 0) (LOGXOR SB-MD5::Y (LOGORC2 SB-MD5::X SB-MD5::Z))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-MD5::I
;                    (SB-INT:NAMED-LAMBDA SB-MD5::I
;                                         (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                                         (DECLARE
;                                          (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y
;                                           SB-MD5::Z)
;                                          (OPTIMIZE (SPEED 3) (SAFETY 0)
;                                           (SPACE 0) (DEBUG 0)))
;                                         (BLOCK SB-MD5::I
;                                           (LDB (BYTE 32 0)
;                                                (LOGXOR SB-MD5::Y #))))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL
;                      (SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                      (DECLARE (TYPE SB-MD5::UB32 SB-MD5::X SB-MD5::Y SB-MD5::Z)
;                       (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;                      (BLOCK SB-MD5::I (LDB (BYTE 32 0) (LOGXOR SB-MD5::Y #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DECLAIM (INLINE MOD32+) ...)
; compiling (DEFUN MOD32+ ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp
; in: DEFUN MOD32+
;     (DEFUN SB-MD5::MOD32+ (SB-MD5::A SB-MD5::B)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A SB-MD5::B)
;        (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (LDB (BYTE 32 0) (+ SB-MD5::A SB-MD5::B)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-MD5::MOD32+
;                    (SB-INT:NAMED-LAMBDA SB-MD5::MOD32+ (SB-MD5::A SB-MD5::B)
;                                         (DECLARE
;                                          (TYPE SB-MD5::UB32 SB-MD5::A
;                                           SB-MD5::B)
;                                          (OPTIMIZE (SPEED 3) (SAFETY 0)
;                                           (SPACE 0) (DEBUG 0)))
;                                         (BLOCK SB-MD5::MOD32+
;                                           (LDB (BYTE 32 0)
;                                                (+ SB-MD5::A SB-MD5::B))))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (SB-MD5::A SB-MD5::B)
;                      (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A SB-MD5::B)
;                       (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;                      (BLOCK SB-MD5::MOD32+
;                        (LDB (BYTE 32 0) (+ SB-MD5::A SB-MD5::B))))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFINE-COMPILER-MACRO MOD32+ ...)
; compiling (DECLAIM (INLINE ROL32) ...)
; compiling (DEFUN ROL32 ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp
; in: DEFUN ROL32
;     (DEFUN SB-MD5::ROL32 (SB-MD5::A SB-MD5::S)
;       (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A) (TYPE (UNSIGNED-BYTE 5) SB-MD5::S)
;        (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;       (SB-ROTATE-BYTE:ROTATE-BYTE SB-MD5::S (BYTE 32 0) SB-MD5::A))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-MD5::ROL32
;                    (SB-INT:NAMED-LAMBDA SB-MD5::ROL32 (SB-MD5::A SB-MD5::S)
;                                         (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A)
;                                          (TYPE (UNSIGNED-BYTE 5) SB-MD5::S)
;                                          (OPTIMIZE (SPEED 3) (SAFETY 0)
;                                           (SPACE 0) (DEBUG 0)))
;                                         (BLOCK SB-MD5::ROL32
;                                           (SB-ROTATE-BYTE:ROTATE-BYTE SB-MD5::S
;                                                                       (BYTE 32
;                                                                             0)
;                                                                       SB-MD5::A)))
;                    NIL
;                    '(SB-C:LAMBDA-WITH-LEXENV NIL NIL NIL (SB-MD5::A SB-MD5::S)
;                      (DECLARE (TYPE SB-MD5::UB32 SB-MD5::A)
;                       (TYPE (UNSIGNED-BYTE 5) SB-MD5::S)
;                       (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (DEBUG 0)))
;                      (BLOCK SB-MD5::ROL32
;                        (SB-ROTATE-BYTE:ROTATE-BYTE SB-MD5::S (BYTE 32 0)
;                                                    SB-MD5::A)))
;                    (SB-C:SOURCE-LOCATION))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFPARAMETER *T* ...); in: LAMBDA NIL
;     (SIN (FLOAT SB-MD5::I 0.0d0))
; 
; note: unable to avoid inline argument range check
; because the argument range (DOUBLE-FLOAT) was not within 2^64

; file: /Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp
; in: DEFPARAMETER *T*
;     (SIN (FLOAT SB-MD5::I 0.0d0))
; 
; note: unable to avoid inline argument range check
; because the argument range (DOUBLE-FLOAT) was not within 2^64

; compiling (DEFMACRO WITH-MD5-ROUND ...)
; compiling (DEFTYPE MD5-REGS ...)
; compiling (DEFMACRO MD5-REGS-A ...)
; compiling (DEFMACRO MD5-REGS-B ...)
; compiling (DEFMACRO MD5-REGS-C ...)
; compiling (DEFMACRO MD5-REGS-D ...)
; compiling (DEFCONSTANT +MD5-MAGIC-A+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-B+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-C+ ...)
; compiling (DEFCONSTANT +MD5-MAGIC-D+ ...)
; compiling (DECLAIM (INLINE INITIAL-MD5-REGS))
; compiling (DEFUN INITIAL-MD5-REGS ...)
; compiling (DEFUN UPDATE-MD5-BLOCK ...)
; compiling (DECLAIM (INLINE FILL-BLOCK ...))
; compiling (DEFUN FILL-BLOCK ...)
; compiling (DEFUN FILL-BLOCK-UB8 ...)
; compiling (DEFUN FILL-BLOCK-CHAR ...)
; compiling (DECLAIM (INLINE MD5REGS-DIGEST))
; compiling (DEFUN MD5REGS-DIGEST ...); in:
;      LAMBDA (#:WHOLE[MD5REGS-DIGEST]536 #:ENVIRONMENT[MD5REGS-DIGEST]537)
;     (+ SB-MD5::OFFSET 1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (+ SB-MD5::OFFSET 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (+ SB-MD5::OFFSET 3)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (+ SB-MD5::OFFSET 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (+ SB-MD5::OFFSET 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (+ SB-MD5::OFFSET 3)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (DEFSTRUCT (MD5-STATE # ...) ...)
; compiling (DECLAIM (INLINE COPY-TO-BUFFER))
; compiling (DEFUN COPY-TO-BUFFER ...)
; compiling (DEFUN UPDATE-MD5-STATE ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp
; in: DEFUN UPDATE-MD5-STATE
;     (INCF (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE) LENGTH)
; --> LET* 
; ==>
;   (+ (SB-MD5::MD5-STATE-AMOUNT #:G781) #:G782)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       (SIGNED-BYTE
;                                                                        32)
;                                                                       &REST T).
;       etc.

;     (+ (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE) LENGTH)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       FIXNUM
;                                                                       &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES
;                                                                       (SIGNED-BYTE
;                                                                        32)
;                                                                       &REST T).
;       etc.

; compiling (DEFUN FINALIZE-MD5-STATE ...); in:
;      LAMBDA (#:WHOLE[MD5REGS-DIGEST]868 #:ENVIRONMENT[MD5REGS-DIGEST]869)
;     (+ SB-MD5::OFFSET 1)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (+ SB-MD5::OFFSET 2)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (+ SB-MD5::OFFSET 3)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (+ SB-MD5::OFFSET 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (+ SB-MD5::OFFSET 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (+ SB-MD5::OFFSET 3)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp
; in: DEFUN FINALIZE-MD5-STATE
;     (* 8 (SB-MD5::MD5-STATE-AMOUNT SB-MD5::STATE))
; --> * 
; ==>
;   (ASH SB-C::X 3)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

;     (LDB (BYTE 32 0) SB-MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB 
; ==>
;   (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

;     (LDB (BYTE 32 32) SB-MD5::TOTAL-LENGTH)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (ASH INT (- SB-C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
;                                                                       &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
;                                                                (UNSIGNED-BYTE
;                                                                 32)
;                                                                &REST T).
;       etc.

; --> SB-KERNEL:%LDB 
; ==>
;   (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
;       etc.

; compiling (DEFUN MD5SUM-SEQUENCE ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-md5/md5.lisp
; in: DEFUN MD5SUM-SEQUENCE
;     (SB-MD5:UPDATE-MD5-STATE SB-MD5::STATE SB-MD5::DATA :START SB-MD5::REAL-START
;      :END (+ SB-MD5::REAL-START (- SB-MD5::END SB-MD5::START)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFUN MD5SUM-STRING ...)
; compiling (DEFCONSTANT +BUFFER-SIZE+ ...)
; compiling (DEFTYPE BUFFER-INDEX ...)
; compiling (DEFUN MD5SUM-STREAM ...)
; compiling (DEFUN MD5SUM-FILE ...)

; SYS:CONTRIB;SB-MD5;MD5.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cover/cover.lisp" (written 23 JAN 2008 04:42:36 PM):
; compiling (DEFPACKAGE #:SB-COVER ...)
; compiling (IN-PACKAGE #:SB-COVER)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *SOURCE-PATH-MODE* ...)
; compiling (DEFCLASS SAMPLE-COUNT ...)
; compiling (DEFUN CLEAR-COVERAGE ...)
; compiling (DEFUN RESET-COVERAGE ...)
; compiling (DEFUN SAVE-COVERAGE ...)
; compiling (DEFUN RESTORE-COVERAGE ...)
; compiling (DEFUN SAVE-COVERAGE-IN-FILE ...)
; compiling (DEFUN RESTORE-COVERAGE-FROM-FILE ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN PERCENT ...)
; compiling (DEFUN REPORT-FILE ...)
; compiling (DEFUN FILL-WITH-STATE ...)
; compiling (DEFUN DETABIFY ...)
; compiling (DEFVAR *COUNTS* ...)
; compiling (DEFUN PRINT-REPORT ...)
; compiling (DEFUN WRITE-STYLES ...)
; compiling (DEFUN CONVERT-RECORDS ...)
; compiling (DEFUN READ-FILE ...)
; compiling (DEFUN MAKE-SOURCE-RECORDER ...)
; compiling (DEFUN MAKE-SOURCE-RECORDING-READTABLE ...)
; compiling (DEFUN MAKE-RECORDING-READ-LIST ...)
; compiling (DEFUN SUPPRESS-SHARP-DOT ...)
; compiling (DEFUN READ-AND-RECORD-SOURCE-MAP ...)
; compiling (DEFUN READ-SOURCE-FORM ...)
; compiling (DEFUN SOURCE-PATH-STREAM-POSITION ...)
; compiling (DEFUN CHECK-SOURCE-PATH ...)
; compiling (DEFUN SOURCE-PATH-STRING-POSITION ...)
; compiling (DEFUN SOURCE-PATH-FILE-POSITION ...)
; compiling (DEFUN SOURCE-PATH-SOURCE-POSITION ...)

; SYS:CONTRIB;SB-COVER;COVER.FASL.NEWEST written
; compilation finished in 0:00:00
; 
; compilation unit finished
;   printed 39 notes
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cover/sb-cover.lisp" (written 30 JUL 2008 03:16:21 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/sb-cover/sb-cover.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :sb-cover)" \
	     "(asdf:operate (quote asdf:test-op) :sb-cover)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-cover/sb-cover.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-COVER {119D31B1}> as SB-COVER
; registering #<SYSTEM SB-COVER-TESTS {11B65E01}> as SB-COVER-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-md5/sb-md5.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-MD5 {11E51999}> as SB-MD5
; registering #<SYSTEM SB-MD5-TESTS {11FB1D19}> as SB-MD5-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/sb-rotate-byte.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-ROTATE-BYTE {122154B1}> as SB-ROTATE-BYTE
NIL
* 
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cover/tests.lisp" (written 02 JUN 2008 05:04:00 AM):
; compiling (DEFPACKAGE SB-COVER-TEST ...)
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFPARAMETER *PATH* ...)
; compiling (DEFPARAMETER *OUTPUT-DIRECTORY* ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN REPORT-EXPECT-FAILURE ...)
; compiling (LOAD (COMPILE-FILE #))
; compiling (REPORT-EXPECT-FAILURE)
; compiling (PROCLAIM (QUOTE #))
; compiling (LOAD (COMPILE-FILE #))
; compiling (REPORT)
; compiling (ASSERT (PROBE-FILE #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (PLUSP #))
; compiling (TEST1)
; compiling (REPORT)
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (= # ...))
; compiling (SB-COVER:RESET-COVERAGE)
; compiling (REPORT)
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (ZEROP #))
; compiling (ASSERT (PLUSP #))
; compiling (SB-COVER:CLEAR-COVERAGE)
; compiling (REPORT-EXPECT-FAILURE)
; compiling (LOAD (COMPILE-FILE #))
; compiling (TEST2 1)
; compiling (REPORT)
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (PLUSP #))
; compiling (ASSERT (/= # ...))
; compiling (TEST2 0)
; compiling (REPORT)
; compiling (ASSERT (= # ...))
; compiling (LOAD (COMPILE-FILE #))
; compiling (TEST-2)
; compiling (MAP NIL ...)

; /Users/nikodemus/src/sbcl/contrib/sb-cover/tests.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cover/test-data-1.lisp" (written 03 MAY 2007 06:27:56 AM):
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFUN TEST1 ...)

; /Users/nikodemus/src/sbcl/contrib/sb-cover/test-data-1.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cover/test-data-1.lisp" (written 03 MAY 2007 06:27:56 AM):
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFUN TEST1 ...)

; /Users/nikodemus/src/sbcl/contrib/sb-cover/test-data-1.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cover/test-data-2.lisp" (written 09 MAY 2007 03:36:49 AM):
; compiling (IN-PACKAGE SB-COVER-TEST)
; compiling (DEFUN TEST2 ...)
; compiling (IDENTITY 1)

; /Users/nikodemus/src/sbcl/contrib/sb-cover/test-data-2.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-cover/test-data-3.lisp" (written 03 JAN 2008 01:07:15 AM):
; compiling (DECLAIM (OPTIMIZE SB-C:STORE-COVERAGE-DATA))
; compiling (DEFUN TEST-1 ...)
; compiling (DEFUN TEST-2 ...)

; /Users/nikodemus/src/sbcl/contrib/sb-cover/test-data-3.fasl written
; compilation finished in 0:00:00

((1 3 1)) 
NIL
* /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-executable" "sb-executable"))' </dev/null

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-executable/sb-executable.lisp" (written 02 NOV 2006 02:55:51 PM):
; compiling (DEFPACKAGE :SB-EXECUTABLE ...)
; compiling (IN-PACKAGE :SB-EXECUTABLE)
; compiling (DEFVAR *STREAM-BUFFER-SIZE* ...)
; compiling (DEFUN COPY-STREAM ...)
; compiling (DEFVAR *EXEC-HEADER* ...)
; compiling (DEFUN MAKE-EXECUTABLE ...)
; compiling (PROVIDE (QUOTE SB-EXECUTABLE))

; SYS:CONTRIB;SB-EXECUTABLE;SB-EXECUTABLE.FASL.NEWEST written
; compilation finished in 0:00:00
* true
make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-grovel")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-grovel/sb-grovel.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-GROVEL {11A35A19}> as SB-GROVEL

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-grovel/sb-grovel.lisp" (written 30 JUL 2008 03:16:22 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/sb-grovel/sb-grovel.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :sb-grovel)" \
	     "(asdf:operate (quote asdf:test-op) :sb-grovel)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-grovel/sb-grovel.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-GROVEL {119FBFA1}> as SB-GROVEL
NIL
* 
NIL
* /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-introspect" "sb-introspect"))' </dev/null

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-introspect/sb-introspect.lisp" (written 03 JUL 2008 10:24:49 PM):
; compiling (DEFPACKAGE :SB-INTROSPECT ...)
; compiling (IN-PACKAGE :SB-INTROSPECT)
; compiling (DEFTYPE DEBUG-INFO ...)
; compiling (DEFTYPE DEBUG-SOURCE ...)
; compiling (DEFTYPE DEBUG-FUNCTION ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUNCTION-DEBUG-INFO ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN FUNCTION-DEBUG-SOURCE ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-introspect/sb-introspect.lisp
; in: DEFUN FUNCTION-DEBUG-SOURCE
;     (DEFUN SB-INTROSPECT::FUNCTION-DEBUG-SOURCE (FUNCTION)
;       (SB-INTROSPECT::DEBUG-INFO-SOURCE
;        (SB-INTROSPECT::FUNCTION-DEBUG-INFO FUNCTION)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-INTROSPECT::FUNCTION-DEBUG-SOURCE
;                    (SB-INT:NAMED-LAMBDA SB-INTROSPECT::FUNCTION-DEBUG-SOURCE
;                                         (FUNCTION)
;                                         (BLOCK
;                                             SB-INTROSPECT::FUNCTION-DEBUG-SOURCE
;                                           (SB-INTROSPECT::DEBUG-INFO-SOURCE
;                                            (SB-INTROSPECT::FUNCTION-DEBUG-INFO
;                                             FUNCTION))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; note: type assertion too complex to check:
;  (VALUES SB-C::DEBUG-SOURCE &REST T).

; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DEBUG-INFO-SOURCE ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN DEBUG-INFO-DEBUG-FUNCTION ...)
; compiling (DEFUN VALID-FUNCTION-NAME-P ...)
; compiling (DEFSTRUCT DEFINITION-SOURCE ...)
; compiling (DEFUN FIND-DEFINITION-SOURCES-BY-NAME ...)
; compiling (DEFUN FIND-DEFINITION-SOURCE ...)
; compiling (DEFUN FIND-FUNCTION-DEFINITION-SOURCE ...)
; compiling (DEFUN TRANSLATE-SOURCE-LOCATION ...)
; compiling (DEFVAR *STRUCT-SLOTPLACE-READER* ...)
; compiling (DEFVAR *STRUCT-SLOTPLACE-WRITER* ...)
; compiling (DEFVAR *STRUCT-PREDICATE* ...)
; compiling (DEFUN STRUCT-ACCESSOR-P ...)
; compiling (DEFUN STRUCT-PREDICATE-P ...)
; compiling (DEFUN FUNCTION-ARGLIST ...)
; compiling (DEFUN STRUCT-ACCESSOR-STRUCTURE-CLASS ...)
; compiling (DEFUN STRUCT-PREDICATE-STRUCTURE-CLASS ...)
; compiling (DEFUN FIND-FUNCTION-CALLEES ...)
; compiling (DEFUN FIND-FUNCTION-CALLERS ...)
; compiling (DECLAIM (INLINE MAP-CODE-CONSTANTS))
; compiling (DEFUN MAP-CODE-CONSTANTS ...)
; compiling (DECLAIM (INLINE MAP-ALLOCATED-CODE-COMPONENTS))
; compiling (DEFUN MAP-ALLOCATED-CODE-COMPONENTS ...)
; compiling (DECLAIM (INLINE MAP-CALLER-CODE-COMPONENTS))
; compiling (DEFUN MAP-CALLER-CODE-COMPONENTS ...)
; compiling (DEFUN GET-SIMPLE-FUN ...)
; compiling (DEFUN COLLECT-XREF ...)
; compiling (DEFUN WHO-CALLS ...)
; compiling (DEFUN WHO-BINDS ...)
; compiling (DEFUN WHO-REFERENCES ...)
; compiling (DEFUN WHO-SETS ...)
; compiling (DEFUN WHO-MACROEXPANDS ...)
; compiling (PROVIDE (QUOTE SB-INTROSPECT)); 
; compilation unit finished
;   printed 1 note


; SYS:CONTRIB;SB-INTROSPECT;SB-INTROSPECT.FASL.NEWEST written
; compilation finished in 0:00:01
* /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --disable-debugger --load test-driver.lisp

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-introspect/test.lisp" (written 18 JUN 2007 07:15:54 PM):
; compiling (DECLAIM (OPTIMIZE #))
; compiling (IN-PACKAGE :CL-USER)
; compiling (DEFUN ONE ...)
; compiling (DEFGENERIC TWO ...)
; compiling (DEFMETHOD TWO ...)
; compiling (DEFSTRUCT THREE ...)
; compiling (WITH-COMPILATION-UNIT (:SOURCE-PLIST #) ...)
; compiling "oops-off-by-one"
; compiling (DEFPARAMETER *A* ...)
; compiling (DEFVAR *B* ...)
; compiling (DEFCLASS A ...)
; compiling (DEFINE-CONDITION B ...)
; compiling (DEFSTRUCT C ...)
; compiling (DEFSTRUCT (D #) ...)
; compiling (DEFPACKAGE E ...)
; compiling (DEFINE-SYMBOL-MACRO F ...)
; compiling (DEFTYPE G ...)
; compiling (DEFCONSTANT +H+ ...)
; compiling (DEFMETHOD J ...)
; compiling (DEFMETHOD J ...)
; compiling (DEFMACRO L ...)
; compiling (DEFINE-COMPILER-MACRO M ...)
; compiling (DEFSETF N ...)
; compiling (DEFUN (SETF O) ...)
; compiling (DEFMETHOD (SETF P) ...)
; compiling (DEFINE-MODIFY-MACRO Q ...)
; compiling (DEFINE-METHOD-COMBINATION R ...)
; compiling (DEFINE-SETF-EXPANDER S ...)

; /Users/nikodemus/src/sbcl/contrib/sb-introspect/test.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: Implicitly creating new generic function J.
STYLE-WARNING: Implicitly creating new generic function (SETF P).
STYLE-WARNING: Implicitly creating new generic function KROOLZ.
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-introspect/xref-test-data.lisp" (written 29 JAN 2008 02:51:28 PM):
; compiling (DEFVAR *A* ...)
; compiling (DEFCONSTANT +Z+ ...)
; compiling (DEFUN FOO ...)
; compiling (DEFUN BAR ...)
; compiling (DEFUN XREF/1 ...)
; compiling (DEFUN XREF/2 ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-introspect/xref-test-data.lisp
; in: DEFUN XREF/2
;     (SB-INTROSPECT-TEST/XREF::XREF/1)
; 
; note: deleting unreachable code

; compiling (LET (#) ...)
; compiling (FLET (#) ...)
; compiling (DEFUN XREF/7 ...)
; compiling (LET (#) ...)
; compiling (DEFVAR *C* ...)
; compiling (DEFUN XREF/8 ...)
; compiling (DEFMETHOD XREF/10 ...)
; compiling (DEFMETHOD XREF/11 ...)
; compiling (DEFMETHOD XREF/11 ...)
; compiling (DECLAIM (INLINE INLINE/1))
; compiling (DEFUN INLINE/1 ...)
; compiling (DEFUN XREF/12 ...)
; compiling (DEFUN XREF/13 ...)
; compiling (DEFUN XREF/14 ...)
; compiling (DEFMACRO MACRO/1 ...); in: LAMBDA NIL
;     (SB-INTROSPECT-TEST/XREF::XREF/12)
; 
; note: deleting unreachable code

; file: /Users/nikodemus/src/sbcl/contrib/sb-introspect/xref-test-data.lisp
; in: DEFMACRO MACRO/1
;     (SB-INTROSPECT-TEST/XREF::XREF/12)
; 
; note: deleting unreachable code

; compiling (DEFUN MACRO-USE/1 ...)
; compiling (DEFUN MACRO-USE/2 ...)
; compiling (FLET (#) ...)
; compiling (DEFUN MACRO-USE/4 ...)
; compiling (DECLAIM (INLINE INLINE/2))
; compiling (DEFUN INLINE/2 ...)
; compiling (DEFUN MACRO-USE/5 ...); 
; compilation unit finished
;   printed 3 notes


; /Users/nikodemus/src/sbcl/contrib/sb-introspect/xref-test-data.fasl written
; compilation finished in 0:00:00
STYLE-WARNING: Implicitly creating new generic function XREF/10.
STYLE-WARNING: Implicitly creating new generic function XREF/11.
make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-md5")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-md5/sb-md5.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-MD5 {11A32C49}> as SB-MD5
; registering #<SYSTEM SB-MD5-TESTS {11C06A19}> as SB-MD5-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/sb-rotate-byte.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-ROTATE-BYTE {11E592F1}> as SB-ROTATE-BYTE

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-md5/sb-md5.lisp" (written 30 JUL 2008 03:16:23 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/sb-md5/sb-md5.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :sb-md5)" \
	     "(asdf:operate (quote asdf:test-op) :sb-md5)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-md5/sb-md5.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-MD5 {119FB399}> as SB-MD5
; registering #<SYSTEM SB-MD5-TESTS {11BDE491}> as SB-MD5-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/sb-rotate-byte.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-ROTATE-BYTE {11F2CB01}> as SB-ROTATE-BYTE
NIL
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rt/sb-rt.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-RT {11832501}> as SB-RT

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-md5/md5-tests.lisp" (written 23 JAN 2008 04:42:36 PM):
; compiling (DEFPACKAGE #:SB-MD5-TESTS ...)
; compiling (IN-PACKAGE #:SB-MD5-TESTS)
; compiling (DEFUN BYTE-ARRAY-TO-HEX-STRING ...)
; compiling (DEFUN ONE-SHOT-TEST ...)
; compiling (DEFUN INCREMENTAL-TEST ...)
; compiling (DEFUN FILL-POINTER-TEST ...)
; compiling (DEFUN TESTS-FOR-TEST-SUITE ...)
; compiling (DEFINE-RFC1321-TESTS (# # ...))
; compiling (DEFINE-OTHER-TESTS (# # ...))
; compiling (DEFTEST SB-MD5.MD5SUM-FILE.0 ...)
; compiling (DEFTEST SB-MD5.MD5SUM-SEQUENCE.ERROR.0 ...)

; /Users/nikodemus/src/sbcl/contrib/sb-md5/md5-tests.fasl written
; compilation finished in 0:00:00
Doing 236 pending tests of 236 tests total.
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.0
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.0
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.0
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.1
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.1
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.1
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.2
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.2
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.2
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.3
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.3
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.3
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.4
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.4
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.4
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.5
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.5
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.5
 SB-MD5-TESTS::SB-MD5.RFC1321.ONE-SHOT.6
 SB-MD5-TESTS::SB-MD5.RFC1321.INCREMENTAL.6
 SB-MD5-TESTS::SB-MD5.RFC1321.FILL-POINTER.6
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.0 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.0
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.0 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.1
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.1
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.1 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.2
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.2
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.2 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.3
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.3
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.3 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.4
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.4
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.4 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.5
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.5
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.5 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.6
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.6
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.6 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.7
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.7
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.7 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.8
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.8
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.8 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.9
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.9
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.9
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.10
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.10
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.10
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.11
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.11
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.11
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.12
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.12
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.12
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.13
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.13
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.13
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.14
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.14
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.14
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.15
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.15
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.15
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.16
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.16
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.16
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.17
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.17
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.17
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.18
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.18
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.18
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.19
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.19
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.19
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.20
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.20
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.20
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.21
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.21
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.21
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.22
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.22
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.22
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.23
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.23
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.23
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.24
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.24
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.24
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.25
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.25
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.25
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.26
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.26
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.26
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.27
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.27
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.27
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.28
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.28
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.28
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.29
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.29
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.29
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.30
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.30
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.30
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.31
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.31
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.31
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.32
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.32
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.32
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.33
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.33
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.33
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.34
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.34
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.34
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.35
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.35
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.35
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.36
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.36
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.36
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.37
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.37
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.37
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.38
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.38
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.38
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.39
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.39
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.39
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.40
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.40
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.40
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.41
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.41
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.41
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.42
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.42
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.42
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.43
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.43
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.43
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.44
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.44
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.44
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.45
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.45
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.45
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.46
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.46
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.46
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.47
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.47
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.47
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.48
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.48
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.48
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.49
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.49
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.49
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.50
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.50
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.50
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.51
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.51
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.51
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.52
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.52
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.52
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.53
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.53
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.53
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.54
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.54
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.54
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.55
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.55
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.55
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.56
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.56
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.56
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.57
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.57
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.57
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.58
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.58
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.58
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.59
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.59
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.59
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.60
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.60
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.60
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.61
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.61
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.61
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.62
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.62
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.62
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.63
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.63
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.63
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.64
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.64
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.64
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.65
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.65
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.65
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.66
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.66
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.66
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.67
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.67
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.67
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.68
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.68
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.68
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.69
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.69
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.69
 SB-MD5-TESTS::SB-MD5.OTHER.ONE-SHOT.70
 SB-MD5-TESTS::SB-MD5.OTHER.INCREMENTAL.70
 SB-MD5-TESTS::SB-MD5.OTHER.FILL-POINTER.70 SB-MD5-TESTS::SB-MD5.MD5SUM-FILE.0
 SB-MD5-TESTS::SB-MD5.MD5SUM-SEQUENCE.ERROR.0
No tests failed.
NIL
* make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-posix")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-posix/sb-posix.asd into
; #<PACKAGE "ASDF0">
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-grovel/sb-grovel.asd into
; #<PACKAGE "ASDF1">
; registering #<SYSTEM SB-GROVEL {11A3CFD1}> as SB-GROVEL
; registering #<SYSTEM SB-POSIX {11F6B7E1}> as SB-POSIX
; registering #<SYSTEM SB-POSIX-TESTS {12076319}> as SB-POSIX-TESTS
STYLE-WARNING: Couldn't grovel for SIGPWR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMIN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECHRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2NSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3RST (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELNRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUNATCH (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOCSI (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EXFULL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOANO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADRQC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADSLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDEADLOCK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBFONT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENONET (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOPKG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EADV (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESRMNT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECOMM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDOTDOT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTUNIQ (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADFD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMCHG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBACC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBBAD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBSCN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBEXEC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ERESTART (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESTRPIPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUCLEAN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTNAM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENAVAIL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMOTEIO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOMEDIUM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EMEDIUMTYPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_RSYNC (unknown to the C compiler).
STYLE-WARNING: Didn't find definition for "fdatasync"
STYLE-WARNING: Didn't find definition for "getresuid"
STYLE-WARNING: Didn't find definition for "setfsuid"
STYLE-WARNING: Didn't find definition for "setresuid"
STYLE-WARNING: Didn't find definition for "getresgid"
STYLE-WARNING: Didn't find definition for "setfsgid"
STYLE-WARNING: Didn't find definition for "setresgid"

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-posix/sb-posix.lisp" (written 30 JUL 2008 03:16:24 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/sb-posix/sb-posix.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :sb-posix)" \
	     "(asdf:operate (quote asdf:test-op) :sb-posix)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-posix/sb-posix.asd into
; #<PACKAGE "ASDF0">
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-grovel/sb-grovel.asd into
; #<PACKAGE "ASDF1">
; registering #<SYSTEM SB-GROVEL {119F5EB1}> as SB-GROVEL
; registering #<SYSTEM SB-POSIX {11F1EF49}> as SB-POSIX
; registering #<SYSTEM SB-POSIX-TESTS {120365E1}> as SB-POSIX-TESTS
STYLE-WARNING: Couldn't grovel for SIGPWR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMIN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECHRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2NSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3RST (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELNRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUNATCH (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOCSI (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EXFULL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOANO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADRQC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADSLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDEADLOCK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBFONT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENONET (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOPKG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EADV (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESRMNT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECOMM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDOTDOT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTUNIQ (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADFD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMCHG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBACC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBBAD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBSCN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBEXEC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ERESTART (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESTRPIPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUCLEAN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTNAM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENAVAIL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMOTEIO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOMEDIUM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EMEDIUMTYPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_RSYNC (unknown to the C compiler).
STYLE-WARNING: Didn't find definition for "fdatasync"
STYLE-WARNING: Didn't find definition for "getresuid"
STYLE-WARNING: Didn't find definition for "setfsuid"
STYLE-WARNING: Didn't find definition for "setresuid"
STYLE-WARNING: Didn't find definition for "getresgid"
STYLE-WARNING: Didn't find definition for "setfsgid"
STYLE-WARNING: Didn't find definition for "setresgid"
NIL
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rt/sb-rt.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-RT {12162981}> as SB-RT

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-posix/posix-tests.lisp" (written 25 MAR 2008 11:27:33 PM):
; compiling (DEFPACKAGE "SB-POSIX-TESTS" ...)
; compiling (IN-PACKAGE "SB-POSIX-TESTS")
; compiling (DEFVAR *TEST-DIRECTORY* ...)
; compiling (DEFVAR *CURRENT-DIRECTORY* ...)
; compiling (DEFVAR *THIS-FILE* ...)
; compiling (DEFCONSTANT +MODE-RWX-ALL+ ...)
; compiling (DEFMACRO DEFINE-EACCES-TEST ...)
; compiling (DEFTEST CHDIR.1 ...)
; compiling (DEFTEST CHDIR.2 ...)
; compiling (DEFTEST CHDIR.3 ...)
; compiling (DEFTEST CHDIR.4 ...)
; compiling (DEFTEST CHDIR.5 ...)
; compiling (DEFTEST CHDIR.6 ...)
; compiling (DEFTEST CHDIR.7 ...)
; compiling (DEFTEST CHDIR.8 ...)
; compiling (DEFTEST CHDIR.ERROR.1 ...)
; compiling (DEFTEST CHDIR.ERROR.2 ...)
; compiling (DEFTEST MKDIR.1 ...)
; compiling (DEFTEST MKDIR.2 ...)
; compiling (DEFTEST MKDIR.ERROR.1 ...)
; compiling (DEFTEST MKDIR.ERROR.2 ...)
; compiling (DEFINE-EACCES-TEST MKDIR.ERROR.3 ...)
; compiling (DEFTEST RMDIR.1 ...)
; compiling (DEFTEST RMDIR.2 ...)
; compiling (DEFTEST RMDIR.ERROR.1 ...)
; compiling (DEFTEST RMDIR.ERROR.2 ...)
; compiling (DEFTEST RMDIR.ERROR.3 ...)
; compiling (DEFTEST RMDIR.ERROR.4 ...)
; compiling (DEFINE-EACCES-TEST RMDIR.ERROR.5 ...)
; compiling (DEFTEST STAT.1 ...)
; compiling (DEFTEST STAT.2 ...)
; compiling (DEFTEST STAT.3 ...)
; compiling (DEFTEST STAT.4 ...)
; compiling (DEFTEST STAT.5 ...)
; compiling (DEFTEST STAT.ERROR.1 ...)
; compiling (DEFINE-EACCES-TEST STAT.ERROR.2 ...)
; compiling (DEFMACRO WITH-STAT-MODE ...)
; compiling (DEFMACRO WITH-LSTAT-MODE ...)
; compiling (DEFTEST STAT-MODE.1 ...)
; compiling (DEFTEST STAT-MODE.2 ...)
; compiling (DEFTEST STAT-MODE.3 ...)
; compiling (DEFTEST STAT-MODE.4 ...)
; compiling (DEFTEST STAT-MODE.5 ...)
; compiling (DEFTEST STAT-MODE.6 ...)
; compiling (DEFTEST STAT-MODE.7 ...)
; compiling (DEFTEST STAT-MODE.8 ...)
; compiling (DEFTEST FILENAME-DESIGNATOR.1 ...)
; compiling (DEFTEST OPEN.1 ...)
; compiling (DEFTEST OPEN.ERROR.1 ...)
; compiling (DEFTEST FCNTL.1 ...)
; compiling (DEFTEST FCNTL.FLOCK.1 ...)
; compiling (DEFTEST FCNTL.FLOCK.2 ...)
; compiling (DEFTEST OPENDIR.1 ...)
; compiling (DEFTEST READDIR.1 ...)
; compiling (DEFTEST READDIR/DIRENT-NAME ...)
; compiling (DEFTEST PWENT.1 ...)
; compiling (DEFTEST PWENT.2 ...)
; compiling (DEFTEST PWENT.NON-EXISTING ...)
; compiling (DEFTEST GRENT.1 ...)
; compiling (DEFTEST GRENT.2 ...)
; compiling (DEFTEST GRENT.NON-EXISTING ...)
; compiling (DEFTEST TIME.1 ...)
; compiling (DEFTEST UTIMES.1 ...)
; compiling (DEFTEST READLINK.1 ...)
; compiling (DEFTEST READLINK.2 ...)
; compiling (DEFTEST READLINK.ERROR.1 ...)
; compiling (DEFTEST READLINK.ERROR.2 ...)
; compiling (DEFTEST READLINK.ERROR.3 ...)
; compiling (DEFTEST READLINK.ERROR.4 ...)
; compiling (DEFTEST READLINK.ERROR.5 ...)
; compiling (DEFTEST READLINK.ERROR.6 ...)
; compiling (DEFTEST READLINK.ERROR.7 ...)
; compiling (DEFTEST GETCWD.1 ...)
; compiling (DEFTEST MKSTEMP.1 ...)
; compiling (DEFTEST MKDTEMP.1 ...)
; compiling (DEFTEST MKTEMP.1 ...)

; /Users/nikodemus/src/sbcl/contrib/sb-posix/posix-tests.fasl written
; compilation finished in 0:00:00
Doing 67 pending tests of 67 tests total.
 SB-POSIX-TESTS::CHDIR.1 SB-POSIX-TESTS::CHDIR.2 SB-POSIX-TESTS::CHDIR.3
 SB-POSIX-TESTS::CHDIR.4 SB-POSIX-TESTS::CHDIR.5 SB-POSIX-TESTS::CHDIR.6
 SB-POSIX-TESTS::CHDIR.7 SB-POSIX-TESTS::CHDIR.8 SB-POSIX-TESTS::CHDIR.ERROR.1
 SB-POSIX-TESTS::CHDIR.ERROR.2 SB-POSIX-TESTS::MKDIR.1 SB-POSIX-TESTS::MKDIR.2
 SB-POSIX-TESTS::MKDIR.ERROR.1
Test SB-POSIX-TESTS::MKDIR.ERROR.2 failed
Form: (HANDLER-CASE (SB-POSIX:MKDIR "/" 0)
                    (SB-POSIX:SYSCALL-ERROR (SB-POSIX-TESTS::C)
                                            (SB-POSIX:SYSCALL-ERRNO
                                             SB-POSIX-TESTS::C)))
Expected value: 17
Actual value: 21.
 SB-POSIX-TESTS::MKDIR.ERROR.3 SB-POSIX-TESTS::RMDIR.1 SB-POSIX-TESTS::RMDIR.2
 SB-POSIX-TESTS::RMDIR.ERROR.1 SB-POSIX-TESTS::RMDIR.ERROR.2
Test SB-POSIX-TESTS::RMDIR.ERROR.3 failed
Form: (HANDLER-CASE (SB-POSIX:RMDIR "/")
                    (SB-POSIX:SYSCALL-ERROR (SB-POSIX-TESTS::C)
                                            (SB-POSIX:SYSCALL-ERRNO
                                             SB-POSIX-TESTS::C)))
Expected value: 16
Actual value: 21.
; in: LAMBDA NIL
;     (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {117936E9}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::RMDIR.ERROR.4 SB-POSIX-TESTS::RMDIR.ERROR.5
; in: LAMBDA NIL
;     (SB-POSIX:STAT "/")
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {11A94F99}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; in: LAMBDA NIL
;     (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {11CD9B59}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; in: LAMBDA NIL
;     (SB-POSIX:STAT (MAKE-PATHNAME :DIRECTORY '(:ABSOLUTE :UP)))
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {11F46241}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::STAT.1 SB-POSIX-TESTS::STAT.2 SB-POSIX-TESTS::STAT.3
; in: LAMBDA NIL
;     (SB-POSIX:STAT "/bin/sh" SB-POSIX-TESTS::STAT-1)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {118A8351}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX:STAT "/")
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX:STAT "/bin/sh" SB-POSIX-TESTS::STAT-1)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX:STAT "/")
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {121C9151}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; in: LAMBDA NIL
;     (SB-POSIX:STAT "")
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {11DB71E1}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; in: LAMBDA NIL
;     (SB-POSIX:STAT SB-POSIX-TESTS::FILE)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {1292C3F9}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::STAT.4 SB-POSIX-TESTS::STAT.5 SB-POSIX-TESTS::STAT.ERROR.1
; in: LAMBDA NIL
;     (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {11E14151}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; in: LAMBDA NIL
;     (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {1209AF49}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::STAT.ERROR.2 SB-POSIX-TESTS::STAT-MODE.1
; in: LAMBDA NIL
;     (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {1233DE69}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; in: LAMBDA NIL
;     (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {12AC94B9}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::STAT-MODE.2 SB-POSIX-TESTS::STAT-MODE.3
; in: LAMBDA NIL
;     (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {11B88099}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; in: LAMBDA NIL
;     (SB-POSIX:STAT SB-POSIX-TESTS::*TEST-DIRECTORY*)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {11DE4C59}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::STAT-MODE.4 SB-POSIX-TESTS::STAT-MODE.5
; in: LAMBDA NIL
;     (SB-POSIX-TESTS::WITH-LSTAT-MODE
;      (SB-POSIX-TESTS::MODE SB-POSIX-TESTS::LINK-PATHNAME)
;      (SB-POSIX:S-ISLNK SB-POSIX-TESTS::MODE))
; --> LET* SB-POSIX:LSTAT BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {1206DC19}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> LET* SB-POSIX:LSTAT BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; in: LAMBDA NIL
;     (SB-POSIX-TESTS::WITH-STAT-MODE (SB-POSIX-TESTS::MODE PATHNAME)
;                                     (SB-POSIX:S-ISREG SB-POSIX-TESTS::MODE))
; --> LET* SB-POSIX:STAT BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {1282CFB1}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> LET* SB-POSIX:STAT BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::STAT-MODE.6 SB-POSIX-TESTS::STAT-MODE.7
 SB-POSIX-TESTS::STAT-MODE.8 SB-POSIX-TESTS::FILENAME-DESIGNATOR.1
 SB-POSIX-TESTS::OPEN.1 SB-POSIX-TESTS::OPEN.ERROR.1 SB-POSIX-TESTS::FCNTL.1
; in: LAMBDA NIL
;     (SB-POSIX:OPENDIR "/")
; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::FCNTL.FLOCK.1 SB-POSIX-TESTS::FCNTL.FLOCK.2
; in: LAMBDA NIL
;     (SB-POSIX:DIRENT-NAME SB-POSIX-TESTS::DIRENT)
; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          256)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX:READDIR SB-POSIX-TESTS::DIR)
; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::DIRENT
;                                                                             (SB-POSIX::PADDING11
;                                                                              #)
;                                                                             (SB-POSIX::NAME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING12
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX:OPENDIR "/")
; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX:DIRENT-NAME SB-POSIX-TESTS::DIRENT)
; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          256)>)
; 
; note: doing SAP to pointer coercion (cost 20)
; in: LAMBDA NIL
;     (SB-POSIX:OPENDIR SB-POSIX-TESTS::*CURRENT-DIRECTORY*)
; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            T)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX:READDIR SB-POSIX-TESTS::DIR)
; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::DIRENT
;                                                                             (SB-POSIX::PADDING11
;                                                                              #)
;                                                                             (SB-POSIX::NAME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING12
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

;     (SB-POSIX:DIRENT-NAME SB-POSIX-TESTS::ENTRY)
; --> BLOCK SB-GROVEL::C-STRING->LISP-STRING SLOT SLOT 
; --> SB-ALIEN-INTERNALS:EXTRACT-ALIEN-VALUE SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE (ARRAY
;                                                                          (SIGNED
;                                                                           8)
;                                                                          256)>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
; 
; note: doing SAP to pointer coercion (cost 20)
 SB-POSIX-TESTS::OPENDIR.1 SB-POSIX-TESTS::READDIR.1
 SB-POSIX-TESTS::READDIR/DIRENT-NAME SB-POSIX-TESTS::PWENT.1
; in: LAMBDA NIL
;     (SB-POSIX:GETPWNAM "almost-certainly-does-not-exist")
; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-PASSWD
;                                                                             (SB-POSIX::NAME
;                                                                              #)
;                                                                             (SB-POSIX:PASSWD
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING13
;                                                                              #)
;                                                                             (SB-POSIX::GECOS
;                                                                              #)
;                                                                             (SB-POSIX::DIR
;                                                                              #)
;                                                                             (SB-POSIX::SHELL
;                                                                              #)
;                                                                             (SB-POSIX::PADDING14
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::PWENT.2 SB-POSIX-TESTS::PWENT.NON-EXISTING
; in: LAMBDA NIL
;     (SB-POSIX:GETGRNAM "almost-certainly-does-not-exist")
; --> BLOCK LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-GROUP
;                                                                             (SB-POSIX::NAME
;                                                                              #)
;                                                                             (SB-POSIX:PASSWD
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING15
;                                                                              #)))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::GRENT.1 SB-POSIX-TESTS::GRENT.2
; in: LAMBDA NIL
;     (SB-POSIX:STAT SB-POSIX-TESTS::FILE)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK FUNCALL SB-C::%FUNCALL 
; --> #<SB-C::GLOBAL-VAR :%SOURCE-NAME SB-POSIX::FREE-ALIEN-STAT :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :KIND :GLOBAL-FUNCTION {126BE709}> 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT 
; --> SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #)
;                                                                             (SB-POSIX::INO
;                                                                              #)
;                                                                             (SB-POSIX::MODE
;                                                                              #)
;                                                                             (SB-POSIX::NLINK
;                                                                              #)
;                                                                             (SB-POSIX::UID
;                                                                              #)
;                                                                             (SB-POSIX::GID
;                                                                              #)
;                                                                             (SB-POSIX::PADDING16
;                                                                              #)
;                                                                             (SB-POSIX::ATIME
;                                                                              #)
;                                                                             (SB-POSIX::PADDING17
;                                                                              #)
;                                                                             (SB-POSIX::MTIME
;                                                                              #)
;                                                                             ...))>)
; 
; note: unable to
;   optimize
; because:
;   could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure
 SB-POSIX-TESTS::GRENT.NON-EXISTING SB-POSIX-TESTS::TIME.1
 SB-POSIX-TESTS::UTIMES.1 SB-POSIX-TESTS::READLINK.1 SB-POSIX-TESTS::READLINK.2
 SB-POSIX-TESTS::READLINK.ERROR.1 SB-POSIX-TESTS::READLINK.ERROR.2
 SB-POSIX-TESTS::READLINK.ERROR.3 SB-POSIX-TESTS::READLINK.ERROR.4
 SB-POSIX-TESTS::READLINK.ERROR.5 SB-POSIX-TESTS::READLINK.ERROR.6
 SB-POSIX-TESTS::READLINK.ERROR.7 SB-POSIX-TESTS::GETCWD.1
 SB-POSIX-TESTS::MKSTEMP.1 SB-POSIX-TESTS::MKDTEMP.1 SB-POSIX-TESTS::MKTEMP.1
2 out of 67 total tests failed: SB-POSIX-TESTS::MKDIR.ERROR.2, 
   SB-POSIX-TESTS::RMDIR.ERROR.3.WARNING:
   some POSIX implementations return incorrect error values for failing calls,
   but there is legitimate variation between implementations too.  If you think
   the errno from your platform is valid, please contact the sbcl developers;
   otherwise, please submit a bug report to your kernel distributor
; 
; compilation unit finished
;   printed 45 notes

NIL
* make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-rotate-byte")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/sb-rotate-byte.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-ROTATE-BYTE {11A35111}> as SB-ROTATE-BYTE

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/sb-rotate-byte.lisp" (written 30 JUL 2008 03:16:27 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/sb-rotate-byte.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :sb-rotate-byte)" \
	     "(asdf:operate (quote asdf:test-op) :sb-rotate-byte)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/sb-rotate-byte.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-ROTATE-BYTE {119FD5C1}> as SB-ROTATE-BYTE
NIL
* 
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/rotate-byte-tests.lisp" (written 26 AUG 2005 08:52:25 PM):
; compiling (IN-PACKAGE "SB-ROTATE-BYTE")
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (FLET (#) ...)
; compiling (DEFUN PFIXNUM/C ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN PFIXNUM ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB32/C ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB32 ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (DEFUN UB32-REG-PRESSURE ...)
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))
; compiling (ASSERT (= # ...))

; /Users/nikodemus/src/sbcl/contrib/sb-rotate-byte/rotate-byte-tests.fasl written
; compilation finished in 0:00:00
NIL
* make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-rt")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rt/sb-rt.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-RT {11A32DE1}> as SB-RT

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-rt/sb-rt.lisp" (written 30 JUL 2008 03:16:27 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/sb-rt/sb-rt.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :sb-rt)" \
	     "(asdf:operate (quote asdf:test-op) :sb-rt)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rt/sb-rt.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-RT {119FB4E1}> as SB-RT
NIL
* 
NIL
* make -C ../asdf
make[1]: `asdf.fasl' is up to date.
/Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(defvar *system* "sb-simple-streams")' --load ../asdf-stub.lisp --eval '(quit)'
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/sb-simple-streams.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-SIMPLE-STREAMS {11A35951}> as SB-SIMPLE-STREAMS
; registering #<SYSTEM SB-SIMPLE-STREAMS-TESTS {11C11C91}> as
; SB-SIMPLE-STREAMS-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-posix/sb-posix.asd into
; #<PACKAGE "ASDF0">
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-grovel/sb-grovel.asd into
; #<PACKAGE "ASDF1">
; registering #<SYSTEM SB-GROVEL {11E6EEA1}> as SB-GROVEL
; registering #<SYSTEM SB-POSIX {122491E9}> as SB-POSIX
; registering #<SYSTEM SB-POSIX-TESTS {11760BD9}> as SB-POSIX-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sb-bsd-sockets.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-BSD-SOCKETS {11EB9B89}> as SB-BSD-SOCKETS
; registering #<SYSTEM SB-BSD-SOCKETS-TESTS {12012449}> as SB-BSD-SOCKETS-TESTS
STYLE-WARNING: Couldn't grovel for SO_NO_CHECK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for MSG_NOSIGNAL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGPWR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMIN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECHRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2NSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3RST (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELNRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUNATCH (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOCSI (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EXFULL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOANO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADRQC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADSLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDEADLOCK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBFONT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENONET (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOPKG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EADV (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESRMNT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECOMM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDOTDOT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTUNIQ (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADFD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMCHG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBACC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBBAD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBSCN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBEXEC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ERESTART (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESTRPIPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUCLEAN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTNAM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENAVAIL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMOTEIO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOMEDIUM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EMEDIUMTYPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_RSYNC (unknown to the C compiler).
STYLE-WARNING: Didn't find definition for "fdatasync"
STYLE-WARNING: Didn't find definition for "getresuid"
STYLE-WARNING: Didn't find definition for "setfsuid"
STYLE-WARNING: Didn't find definition for "setresuid"
STYLE-WARNING: Didn't find definition for "getresgid"
STYLE-WARNING: Didn't find definition for "setfsgid"
STYLE-WARNING: Didn't find definition for "setresgid"

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/package.lisp" (written 29 JUN 2004 11:50:57 AM):
; compiling (DEFPACKAGE SB-SIMPLE-STREAMS ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;PACKAGE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/fndb.lisp" (written 07 DEC 2005 05:57:22 PM):
; compiling (IN-PACKAGE "COMMON-LISP")
; compiling (HANDLER-BIND (#) ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;FNDB.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/iodefs.lisp" (written 14 JUL 2005 07:30:09 PM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFMACRO DEF-STREAM-CLASS ...)
; compiling (SB-INT:DEFCONSTANT-EQX +FLAG-BITS+ ...)
; compiling (DEFUN %FLAGS ...)
; compiling (DEFMACRO WITH-STREAM-CLASS ...)
; compiling (DEFMACRO SM ...)
; compiling (DEFMACRO FUNCALL-STM-HANDLER ...)
; compiling (DEFMACRO FUNCALL-STM-HANDLER-2 ...)
; compiling (DEFMACRO ADD-STREAM-INSTANCE-FLAGS ...)
; compiling (DEFMACRO REMOVE-STREAM-INSTANCE-FLAGS ...)
; compiling (DEFMACRO ANY-STREAM-INSTANCE-FLAGS ...)
; compiling (DEFMACRO SIMPLE-STREAM-DISPATCH ...)
; compiling (DEFMACRO SIMPLE-STREAM-DISPATCH-2 ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;IODEFS.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/classes.lisp" (written 14 JUL 2005 07:30:09 PM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFTYPE SIMPLE-STREAM-BUFFER ...)
; compiling (DEFTYPE BLOCKING ...)
; compiling (DEFTYPE J-LISTEN-FN ...)
; compiling (DEFTYPE J-READ-CHAR-FN ...)
; compiling (DEFTYPE J-READ-CHARS-FN ...)
; compiling (DEFTYPE J-WRITE-CHAR-FN ...)
; compiling (DEFTYPE J-WRITE-CHARS-FN ...)
; compiling (DEFTYPE J-UNREAD-CHAR-FN ...)
; compiling (DEF-STREAM-CLASS SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS SINGLE-CHANNEL-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS DUAL-CHANNEL-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS STRING-SIMPLE-STREAM ...)
; compiling (DEFGENERIC DEVICE-OPEN ...)
; compiling (DEFGENERIC DEVICE-CLOSE ...)
; compiling (DEFGENERIC DEVICE-BUFFER-LENGTH ...)
; compiling (DEFGENERIC DEVICE-FILE-POSITION ...)
; compiling (DEFGENERIC (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFGENERIC DEVICE-FILE-LENGTH ...)
; compiling (DEFGENERIC DEVICE-READ ...)
; compiling (DEFGENERIC DEVICE-CLEAR-INPUT ...)
; compiling (DEFGENERIC DEVICE-WRITE ...)
; compiling (DEFGENERIC DEVICE-CLEAR-OUTPUT ...)
; compiling (DEFGENERIC DEVICE-FINISH-RECORD ...)
; compiling (DEFMETHOD SHARED-INITIALIZE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-BUFFER-LENGTH ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFGENERIC (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-CLEAR-INPUT ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)
; compiling (DEFMETHOD DEVICE-CLEAR-OUTPUT ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;CLASSES.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/internal.lisp" (written 06 AUG 2007 02:50:47 PM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DECLAIM (INLINE BUFFER-SAP ...))
; compiling (DEFUN BUFFER-SAP ...)
; compiling (DEFUN BREF ...)
; compiling (DEFUN (SETF BREF) ...)
; compiling (DEFUN BUFFER-COPY ...)
; compiling (DEFUN ALLOCATE-BUFFER ...)
; compiling (DEFUN FREE-BUFFER ...)
; compiling (DEFUN MAKE-CONTROL-TABLE ...)
; compiling (DEFUN STD-NEWLINE-OUT-HANDLER ...)
; compiling (DEFUN STD-TAB-OUT-HANDLER ...)
; compiling (DEFUN STD-DC-NEWLINE-IN-HANDLER ...)
; compiling (DEFVAR *STD-CONTROL-OUT-TABLE* ...)
; compiling (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...)
; compiling (DEFVAR *EXTERNAL-FORMATS* ...)
; compiling (DEFVAR *EXTERNAL-FORMAT-ALIASES* ...)
; compiling (DEFSTRUCT (EXTERNAL-FORMAT # ...) ...)
; compiling (DEFUN %PRINT-EXTERNAL-FORMAT ...)
; compiling (DEFMACRO DEFINE-EXTERNAL-FORMAT ...)
; compiling (DEFUN LOAD-EXTERNAL-FORMAT-ALIASES ...)
; compiling (DEFUN FIND-EXTERNAL-FORMAT ...)
; compiling (DEFINE-CONDITION VOID-EXTERNAL-FORMAT ...)
; compiling (DEFINE-EXTERNAL-FORMAT :VOID ...)
; compiling (DEFINE-EXTERNAL-FORMAT :ISO8859-1 ...)
; compiling (DEFMACRO OCTETS-TO-CHAR ...)
; compiling (DEFMACRO CHAR-TO-OCTETS ...)
; compiling (DEFUN STRING-TO-OCTETS ...)
; compiling (DEFUN OCTETS-TO-STRING ...)
; compiling (DEFUN VECTOR-ELT-WIDTH ...)
; compiling (DEFUN ENDIAN-SWAP-VALUE ...)
; compiling (DEFUN READ-OCTETS ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/internal.lisp
; in: DEFUN READ-OCTETS
;     (SB-UNIX:UNIX-READ SB-SIMPLE-STREAMS::FD
;                        (SB-SIMPLE-STREAMS::BUFFER-SAP SB-SIMPLE-STREAMS::BUFFER
;                         SB-SIMPLE-STREAMS::START)
;                        (THE FIXNUM
;                             (- SB-SIMPLE-STREAMS::END SB-SIMPLE-STREAMS::START)))
; 
; note: doing SAP to pointer coercion (cost 20)

; compiling (DEFUN WRITE-OCTETS ...)
; compiling (DEFUN DO-SOME-OUTPUT ...)
; compiling (DEFUN QUEUE-WRITE ...)
; compiling (DEFUN %FD-OPEN ...)
; compiling (DEFUN OPEN-FD-STREAM ...)
; compiling (DEFSTRUCT (FILESPEC-PARSER #) ...)
; compiling (DEFVAR *FILESPEC-PARSERS* ...)
; compiling (DEFUN ADD-FILESPEC ...)
; compiling (DEFMACRO DEFINE-FILESPEC ...)
; compiling (DEFUN PARSE-FILESPEC ...)
; compiling (DEFINE-FILESPEC PATHNAME ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;INTERNAL.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/strategy.lisp" (written 14 JUL 2005 07:30:09 PM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFUN REFILL-BUFFER ...)
; compiling (DEFUN SC-SET-DIRTY ...)
; compiling (DEFUN SC-SET-CLEAN ...)
; compiling (DEFUN SC-DIRTY-P ...)
; compiling (DEFUN FLUSH-BUFFER ...)
; compiling (DEFUN FLUSH-OUT-BUFFER ...)
; compiling (DEFUN READ-BYTE-INTERNAL ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN SC-LISTEN-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN SC-READ-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN SC-READ-CHAR-EF-MAPPED ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN SC-READ-CHARS-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN SC-READ-CHARS-EF-MAPPED ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN SC-UNREAD-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN SC-WRITE-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN SC-WRITE-CHARS-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN DC-WRITE-CHAR-EF ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN DC-WRITE-CHARS-EF ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN STR-READ-CHAR ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN STR-LISTEN-E-CRLF ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/strategy.lisp
; in: DEFUN STR-LISTEN-E-CRLF
;     (DEFUN SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF (STREAM)
;       (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS
;        (SB-SIMPLE-STREAMS:COMPOSING-STREAM STREAM)
;        (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-LISTEN
;                                               (SB-SIMPLE-STREAMS:SM
;                                                SB-SIMPLE-STREAMS::MELDED-STREAM
;                                                STREAM))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF
;                    (SB-INT:NAMED-LAMBDA SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF
;                                         (STREAM)
;                                         (BLOCK
;                                             SB-SIMPLE-STREAMS::STR-LISTEN-E-CRLF
;                                           (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS
;                                            (SB-SIMPLE-STREAMS:COMPOSING-STREAM
;                                             STREAM)
;                                            (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER
;                                             SB-SIMPLE-STREAMS::J-LISTEN #))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; note: type assertion too complex to check:
;  (VALUES &OPTIONAL (MEMBER T NIL) &REST T).

; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN STR-READ-CHAR-E-CRLF ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN STR-UNREAD-CHAR-E-CRLF ...)
; compiling (DEFUN MELDING-STREAM ...)
; compiling (DEFUN MELD ...)
; compiling (DEFUN UNMELD ...)
; compiling (DEFUN %SF ...)
; compiling (DEFUN INSTALL-SINGLE-CHANNEL-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-DUAL-CHANNEL-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-STRING-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-STRING-INPUT-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-STRING-OUTPUT-CHARACTER-STRATEGY ...)
; compiling (DEFUN INSTALL-COMPOSING-FORMAT-CHARACTER-STRATEGY ...)
; compiling (DEFUN COMPOSE-ENCAPSULATING-STREAMS ...)
; compiling (DEFMETHOD (SETF STREAM-EXTERNAL-FORMAT) ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN NULL-READ-CHAR ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN NULL-READ-CHARS ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN NULL-UNREAD-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN NULL-WRITE-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN NULL-WRITE-CHARS ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN NULL-LISTEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;STRATEGY.FASL.NEWEST written
; compilation finished in 0:00:01
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/string.lisp" (written 14 JUL 2005 07:30:10 PM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS STRING-INPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS STRING-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS COMPOSING-STREAM ...)
; compiling (DEF-STREAM-CLASS FILL-POINTER-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS XP-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS ANNOTATION-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;STRING.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/file.lisp" (written 06 SEP 2006 11:27:10 PM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS FILE-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS MAPPED-FILE-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS PROBE-SIMPLE-STREAM ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFUN OPEN-FILE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFUN REVERT-FILE ...)
; compiling (DEFUN DELETE-ORIGINAL ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-FILE-POSITION ...)
; compiling (DEFMETHOD (SETF DEVICE-FILE-POSITION) ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;FILE.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/impl.lisp" (written 10 AUG 2005 10:57:33 AM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFUN %UNINITIALIZED ...)
; compiling (DEFUN %CHECK ...)
; compiling (DEFMETHOD INPUT-STREAM-P ...)
; compiling (DEFMETHOD OUTPUT-STREAM-P ...)
; compiling (DEFMETHOD OPEN-STREAM-P ...)
; compiling (DEFMETHOD CLOSE ...)
; compiling (DEFUN %FILE-POSITION ...)
; compiling (DEFUN %FILE-LENGTH ...)
; compiling (DEFUN %FILE-NAME ...)
; compiling (DEFUN %FILE-RENAME ...)
; compiling (DEFUN %FILE-STRING-LENGTH ...)
; compiling (DEFUN %READ-LINE ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/impl.lisp
; in: DEFUN %READ-LINE
;     (REPLACE SB-SIMPLE-STREAMS::CBUF SB-SIMPLE-STREAMS::BUF :START1
;              SB-SIMPLE-STREAMS::IDX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.

;     (SB-SIMPLE-STREAMS:FUNCALL-STM-HANDLER SB-SIMPLE-STREAMS::J-READ-CHARS
;                                            SB-SIMPLE-STREAMS::ENCAP
;                                            SB-SIMPLE-STREAMS::CBUF #\Newline
;                                            SB-SIMPLE-STREAMS::INDEX
;                                            (LENGTH SB-SIMPLE-STREAMS::CBUF) T)
; --> LET FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

;     (REPLACE STRING SB-SIMPLE-STREAMS::BUF :START1 SB-SIMPLE-STREAMS::INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.

; compiling (DEFUN %READ-CHAR ...)
; compiling (DEFUN %UNREAD-CHAR ...)
; compiling (DEFUN %PEEK-CHAR ...)
; compiling (DEFUN %LISTEN ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/impl.lisp
; in: DEFUN %LISTEN
;     (LET ((SB-SIMPLE-STREAMS::LCRS
;            (SB-SIMPLE-STREAMS:SM SB-SIMPLE-STREAMS::LAST-CHAR-READ-SIZE STREAM)))
;       (WHEN
;           (AND
;            (NOT
;             (SB-SIMPLE-STREAMS::ANY-STREAM-INSTANCE-FLAGS STREAM :DUAL :STRING))
;            (>= (SB-SIMPLE-STREAMS:SM SB-SIMPLE-STREAMS::MODE STREAM) 0))
;         (SB-SIMPLE-STREAMS::FLUSH-BUFFER STREAM NIL))
;       (>= (SB-SIMPLE-STREAMS::REFILL-BUFFER STREAM NIL) SB-SIMPLE-STREAMS::WIDTH))
; 
; caught STYLE-WARNING:
;   The variable LCRS is defined but never used.

; compiling (DEFUN %CLEAR-INPUT ...)
; compiling (DEFUN %READ-BYTE ...)
; compiling (DEFUN %WRITE-CHAR ...)
; compiling (DEFUN %FRESH-LINE ...)
; compiling (DEFUN %WRITE-STRING ...)
; compiling (DEFUN %LINE-LENGTH ...)
; compiling (DEFUN %FINISH-OUTPUT ...)
; compiling (DEFUN %FORCE-OUTPUT ...)
; compiling (DEFUN %CLEAR-OUTPUT ...)
; compiling (DEFUN %WRITE-BYTE ...)
; compiling (DEFUN %READ-SEQUENCE ...)
; compiling (DEFUN %WRITE-SEQUENCE ...)
; compiling (DEFUN READ-VECTOR ...)
; compiling (DEFMETHOD OPEN-STREAM-P ...)
; compiling (DEFMETHOD INPUT-STREAM-P ...)
; compiling (DEFMETHOD OUTPUT-STREAM-P ...)
; compiling (DEFMETHOD STREAM-ELEMENT-TYPE ...)
; compiling (DEFUN INTERACTIVE-STREAM-P ...)
; compiling (DEFUN (SETF INTERACTIVE-STREAM-P) ...)
; compiling (DEFUN FILE-STRING-LENGTH ...)
; compiling (DEFUN STREAM-EXTERNAL-FORMAT ...)
; compiling (DEFUN OPEN ...)
; compiling (DECLAIM (INLINE READ-BYTE ...))
; compiling (DEFUN READ-BYTE ...)
; compiling (DEFUN READ-CHAR ...)
; compiling (DEFUN READ-CHAR-NO-HANG ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/impl.lisp
; in: DEFUN READ-CHAR-NO-HANG
;     (SB-IMPL::ANSI-STREAM-READ-CHAR-NO-HANG STREAM SB-SIMPLE-STREAMS::EOF-ERROR-P
;                                             SB-SIMPLE-STREAMS::EOF-VALUE
;                                             SB-SIMPLE-STREAMS::RECURSIVE-P)
; ==>
;   SB-SIMPLE-STREAMS::RECURSIVE-P
; 
; caught STYLE-WARNING:
;   reading an ignored variable: RECURSIVE-P

; compiling (DEFUN UNREAD-CHAR ...)
; compiling (DECLAIM (NOTINLINE READ-BYTE ...))
; compiling (DEFUN PEEK-CHAR ...)
; compiling (DEFUN LISTEN ...)
; compiling (DEFUN READ-LINE ...)
; compiling (DEFUN READ-SEQUENCE ...)
; compiling (DEFUN CLEAR-INPUT ...)
; compiling (DEFUN WRITE-BYTE ...)
; compiling (DEFUN WRITE-CHAR ...)
; compiling (DEFUN WRITE-STRING ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/impl.lisp
; in: DEFUN WRITE-STRING
;     (DEFUN WRITE-STRING
;            (STRING
;             &OPTIONAL (STREAM *STANDARD-OUTPUT*)
;             &KEY (SB-SIMPLE-STREAMS::START 0) (SB-SIMPLE-STREAMS::END NIL))
;       "Outputs the String to the given Stream."
;       (LET ((STREAM (SB-IMPL::OUT-SYNONYM-OF STREAM))
;             (SB-SIMPLE-STREAMS::END
;              (SB-KERNEL:%CHECK-VECTOR-SEQUENCE-BOUNDS STRING
;                                                       SB-SIMPLE-STREAMS::START
;                                                       SB-SIMPLE-STREAMS::END)))
;         (ETYPECASE STREAM
;           (SB-SIMPLE-STREAMS:SIMPLE-STREAM
;            (SB-SIMPLE-STREAMS::%WRITE-STRING STREAM STRING
;             SB-SIMPLE-STREAMS::START SB-SIMPLE-STREAMS::END)
;            STRING)
;           (SB-KERNEL:ANSI-STREAM
;            (SB-IMPL::ANSI-STREAM-WRITE-STRING STRING STREAM
;                                               SB-SIMPLE-STREAMS::START
;                                               SB-SIMPLE-STREAMS::END))
;           (FUNDAMENTAL-STREAM
;            (STREAM-WRITE-STRING STREAM STRING SB-SIMPLE-STREAMS::START
;                                 SB-SIMPLE-STREAMS::END)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'WRITE-STRING
;                    (SB-INT:NAMED-LAMBDA WRITE-STRING
;                                         (STRING &OPTIONAL
;                                                 (STREAM *STANDARD-OUTPUT*) &KEY
;                                                 (SB-SIMPLE-STREAMS::START 0)
;                                                 (SB-SIMPLE-STREAMS::END NIL))
;                                         (BLOCK WRITE-STRING
;                                           (LET (# #)
;                                             (ETYPECASE STREAM # # #))))
;                    "Outputs the String to the given Stream." 'NIL
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (STRING &OPTIONAL
;                                                             (STREAM
;                                                              *STANDARD-OUTPUT*)
;                                                             &KEY (START 0)
;                                                             (END NIL))

; compiling (DEFUN WRITE-LINE ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/impl.lisp
; in: DEFUN WRITE-LINE
;     (DEFUN WRITE-LINE
;            (STRING
;             &OPTIONAL (STREAM *STANDARD-OUTPUT*)
;             &KEY (SB-SIMPLE-STREAMS::START 0) SB-SIMPLE-STREAMS::END)
;       (DECLARE (TYPE STRING STRING))
;       (LET ((STREAM (SB-IMPL::OUT-SYNONYM-OF STREAM))
;             (SB-SIMPLE-STREAMS::END
;              (SB-KERNEL:%CHECK-VECTOR-SEQUENCE-BOUNDS STRING
;                                                       SB-SIMPLE-STREAMS::START
;                                                       SB-SIMPLE-STREAMS::END)))
;         (ETYPECASE STREAM
;           (SB-SIMPLE-STREAMS:SIMPLE-STREAM
;            (SB-SIMPLE-STREAMS::%CHECK STREAM :OUTPUT)
;            (SB-SIMPLE-STREAMS:WITH-STREAM-CLASS # # #))
;           (SB-KERNEL:ANSI-STREAM
;            (SB-IMPL::ANSI-STREAM-WRITE-STRING STRING STREAM
;                                               SB-SIMPLE-STREAMS::START
;                                               SB-SIMPLE-STREAMS::END)
;            (FUNCALL # STREAM #\Newline))
;           (FUNDAMENTAL-STREAM
;            (STREAM-WRITE-STRING STREAM STRING SB-SIMPLE-STREAMS::START
;                                 SB-SIMPLE-STREAMS::END)
;            (STREAM-TERPRI STREAM))))
;       STRING)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFUN 'WRITE-LINE
;                    (SB-INT:NAMED-LAMBDA WRITE-LINE
;                                         (STRING &OPTIONAL
;                                                 (STREAM *STANDARD-OUTPUT*) &KEY
;                                                 (SB-SIMPLE-STREAMS::START 0)
;                                                 SB-SIMPLE-STREAMS::END)
;                                         (DECLARE (TYPE STRING STRING))
;                                         (BLOCK WRITE-LINE
;                                           (LET (# #)
;                                             (ETYPECASE STREAM # # #))
;                                           STRING))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (STRING &OPTIONAL
;                                                             (STREAM
;                                                              *STANDARD-OUTPUT*)
;                                                             &KEY (START 0) END)

; compiling (DEFUN WRITE-SEQUENCE ...)
; compiling (DEFUN TERPRI ...)
; compiling (DEFUN FRESH-LINE ...)
; compiling (DEFUN FINISH-OUTPUT ...)
; compiling (DEFUN FORCE-OUTPUT ...)
; compiling (DEFUN CLEAR-OUTPUT ...)
; compiling (DEFUN FILE-POSITION ...)
; compiling (DEFUN FILE-LENGTH ...)
; compiling (DEFUN CHARPOS ...)
; compiling (DEFUN LINE-LENGTH ...)
; compiling (DEFUN WAIT-FOR-INPUT-AVAILABLE ...)
; compiling (DEFUN SB-INT:FILE-NAME ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;IMPL.FASL.NEWEST written
; compilation finished in 0:00:02
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {11D3D991}> on
   #<CL-SOURCE-FILE "impl" {12293649}>.
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/direct.lisp" (written 14 JUL 2005 07:30:09 PM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS DIRECT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS BUFFER-INPUT-SIMPLE-STREAM ...)
; compiling (DEF-STREAM-CLASS BUFFER-OUTPUT-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-FILE-LENGTH ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;DIRECT.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/null.lisp" (written 14 JUL 2005 07:30:09 PM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS NULL-SIMPLE-STREAM ...)
; compiling (DECLAIM (FTYPE J-READ-CHAR-FN ...))
; compiling (DEFUN NULL-READ-CHAR ...)
; compiling (DECLAIM (FTYPE J-READ-CHARS-FN ...))
; compiling (DEFUN NULL-READ-CHARS ...)
; compiling (DECLAIM (FTYPE J-UNREAD-CHAR-FN ...))
; compiling (DEFUN NULL-UNREAD-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHAR-FN ...))
; compiling (DEFUN NULL-WRITE-CHAR ...)
; compiling (DECLAIM (FTYPE J-WRITE-CHARS-FN ...))
; compiling (DEFUN NULL-WRITE-CHARS ...)
; compiling (DECLAIM (FTYPE J-LISTEN-FN ...))
; compiling (DEFUN NULL-LISTEN ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-BUFFER-LENGTH ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;NULL.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/socket.lisp" (written 14 JUL 2005 07:30:09 PM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEF-STREAM-CLASS SOCKET-SIMPLE-STREAM ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEF-STREAM-CLASS SOCKET-BASE-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-CLOSE ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-WRITE ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;SOCKET.FASL.NEWEST written
; compilation finished in 0:00:00
; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/terminal.lisp" (written 06 AUG 2007 02:50:47 PM):
; compiling (IN-PACKAGE "SB-SIMPLE-STREAMS")
; compiling (DEFVAR *TERMINAL-CONTROL-IN-TABLE* ...)
; compiling (DEF-STREAM-CLASS TERMINAL-SIMPLE-STREAM ...)
; compiling (DEFMETHOD DEVICE-OPEN ...)
; compiling (DEFMETHOD DEVICE-READ ...)
; compiling (DEFMETHOD DEVICE-CLEAR-INPUT ...)

; SYS:CONTRIB;SB-SIMPLE-STREAMS;TERMINAL.FASL.NEWEST written
; compilation finished in 0:00:00
STYLE-WARNING: redefining INTERACTIVE-STREAM-P in DEFUN
STYLE-WARNING: redefining FILE-STRING-LENGTH in DEFUN
STYLE-WARNING: redefining STREAM-EXTERNAL-FORMAT in DEFUN
STYLE-WARNING: redefining OPEN in DEFUN
STYLE-WARNING: redefining READ-BYTE in DEFUN
STYLE-WARNING: redefining READ-CHAR in DEFUN
STYLE-WARNING: redefining READ-CHAR-NO-HANG in DEFUN
STYLE-WARNING: redefining UNREAD-CHAR in DEFUN
STYLE-WARNING: redefining PEEK-CHAR in DEFUN
STYLE-WARNING: redefining LISTEN in DEFUN
STYLE-WARNING: redefining READ-LINE in DEFUN
STYLE-WARNING: redefining READ-SEQUENCE in DEFUN
STYLE-WARNING: redefining CLEAR-INPUT in DEFUN
STYLE-WARNING: redefining WRITE-BYTE in DEFUN
STYLE-WARNING: redefining WRITE-CHAR in DEFUN
STYLE-WARNING: redefining WRITE-STRING in DEFUN
STYLE-WARNING: redefining WRITE-LINE in DEFUN
STYLE-WARNING: redefining WRITE-SEQUENCE in DEFUN
STYLE-WARNING: redefining TERPRI in DEFUN
STYLE-WARNING: redefining FRESH-LINE in DEFUN
STYLE-WARNING: redefining FINISH-OUTPUT in DEFUN
STYLE-WARNING: redefining FORCE-OUTPUT in DEFUN
STYLE-WARNING: redefining CLEAR-OUTPUT in DEFUN
STYLE-WARNING: redefining FILE-POSITION in DEFUN
STYLE-WARNING: redefining FILE-LENGTH in DEFUN
STYLE-WARNING: redefining CHARPOS in DEFUN
STYLE-WARNING: redefining LINE-LENGTH in DEFUN
STYLE-WARNING: redefining SB-INT:FILE-NAME in DEFUN
STYLE-WARNING: redefining NULL-READ-CHAR in DEFUN
STYLE-WARNING: redefining NULL-READ-CHARS in DEFUN
STYLE-WARNING: redefining NULL-UNREAD-CHAR in DEFUN
STYLE-WARNING: redefining NULL-WRITE-CHAR in DEFUN
STYLE-WARNING: redefining NULL-WRITE-CHARS in DEFUN
STYLE-WARNING: redefining NULL-LISTEN in DEFUN

; file: /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/internal.lisp
; in: DEFUN SB-SIMPLE-STREAMS:READ-OCTETS
;     (SB-SIMPLE-STREAMS::%READ-VECTOR SB-SIMPLE-STREAMS::BUFFER
;      SB-SIMPLE-STREAMS::FD SB-SIMPLE-STREAMS::START SB-SIMPLE-STREAMS::END
;      :BYTE-8 (IF SB-SIMPLE-STREAMS::BLOCKING :BNB NIL))
; 
; caught STYLE-WARNING:
;   undefined function: SB-SIMPLE-STREAMS::%READ-VECTOR

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SB-SIMPLE-STREAMS::%READ-VECTOR
; 
; compilation unit finished
;   caught 6 STYLE-WARNING conditions
;   printed 7 notes

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/sb-simple-streams.lisp" (written 30 JUL 2008 03:16:33 PM):
; compiling (UNLESS (MEMBER "ASDF" ...) ...)
; compiling (LET (#) ...)

; /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/sb-simple-streams.fasl written
; compilation finished in 0:00:00
echo "(asdf:operate (quote asdf:load-op) :sb-simple-streams)" \
	     "(asdf:operate (quote asdf:test-op) :sb-simple-streams)" | \
	  /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(load "../asdf/asdf")'
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/sb-simple-streams.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-SIMPLE-STREAMS {119FDE81}> as SB-SIMPLE-STREAMS
; registering #<SYSTEM SB-SIMPLE-STREAMS-TESTS {11BE9889}> as
; SB-SIMPLE-STREAMS-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-posix/sb-posix.asd into
; #<PACKAGE "ASDF0">
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-grovel/sb-grovel.asd into
; #<PACKAGE "ASDF1">
; registering #<SYSTEM SB-GROVEL {11F3FDB9}> as SB-GROVEL
; registering #<SYSTEM SB-POSIX {1171CE31}> as SB-POSIX
; registering #<SYSTEM SB-POSIX-TESTS {11855019}> as SB-POSIX-TESTS
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-bsd-sockets/sb-bsd-sockets.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-BSD-SOCKETS {12091D61}> as SB-BSD-SOCKETS
; registering #<SYSTEM SB-BSD-SOCKETS-TESTS {121F6509}> as SB-BSD-SOCKETS-TESTS
STYLE-WARNING: Couldn't grovel for SIGPWR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMIN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for SIGRTMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECHRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2NSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL3RST (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELNRNG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUNATCH (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOCSI (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EL2HLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADR (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EXFULL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOANO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADRQC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADSLT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDEADLOCK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBFONT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENONET (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOPKG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EADV (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESRMNT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ECOMM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EDOTDOT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTUNIQ (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EBADFD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMCHG (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBACC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBBAD (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBSCN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBMAX (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ELIBEXEC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ERESTART (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ESTRPIPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EUCLEAN (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOTNAM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENAVAIL (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EREMOTEIO (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for ENOMEDIUM (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for EMEDIUMTYPE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DIRECT (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_LARGEFILE (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_DSYNC (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for O_RSYNC (unknown to the C compiler).
STYLE-WARNING: Didn't find definition for "fdatasync"
STYLE-WARNING: Didn't find definition for "getresuid"
STYLE-WARNING: Didn't find definition for "setfsuid"
STYLE-WARNING: Didn't find definition for "setresuid"
STYLE-WARNING: Didn't find definition for "getresgid"
STYLE-WARNING: Didn't find definition for "setfsgid"
STYLE-WARNING: Didn't find definition for "setresgid"
STYLE-WARNING: Couldn't grovel for SO_NO_CHECK (unknown to the C compiler).
STYLE-WARNING: Couldn't grovel for MSG_NOSIGNAL (unknown to the C compiler).
STYLE-WARNING: redefining INTERACTIVE-STREAM-P in DEFUN
STYLE-WARNING: redefining FILE-STRING-LENGTH in DEFUN
STYLE-WARNING: redefining STREAM-EXTERNAL-FORMAT in DEFUN
STYLE-WARNING: redefining OPEN in DEFUN
STYLE-WARNING: redefining READ-BYTE in DEFUN
STYLE-WARNING: redefining READ-CHAR in DEFUN
STYLE-WARNING: redefining READ-CHAR-NO-HANG in DEFUN
STYLE-WARNING: redefining UNREAD-CHAR in DEFUN
STYLE-WARNING: redefining PEEK-CHAR in DEFUN
STYLE-WARNING: redefining LISTEN in DEFUN
STYLE-WARNING: redefining READ-LINE in DEFUN
STYLE-WARNING: redefining READ-SEQUENCE in DEFUN
STYLE-WARNING: redefining CLEAR-INPUT in DEFUN
STYLE-WARNING: redefining WRITE-BYTE in DEFUN
STYLE-WARNING: redefining WRITE-CHAR in DEFUN
STYLE-WARNING: redefining WRITE-STRING in DEFUN
STYLE-WARNING: redefining WRITE-LINE in DEFUN
STYLE-WARNING: redefining WRITE-SEQUENCE in DEFUN
STYLE-WARNING: redefining TERPRI in DEFUN
STYLE-WARNING: redefining FRESH-LINE in DEFUN
STYLE-WARNING: redefining FINISH-OUTPUT in DEFUN
STYLE-WARNING: redefining FORCE-OUTPUT in DEFUN
STYLE-WARNING: redefining CLEAR-OUTPUT in DEFUN
STYLE-WARNING: redefining FILE-POSITION in DEFUN
STYLE-WARNING: redefining FILE-LENGTH in DEFUN
STYLE-WARNING: redefining CHARPOS in DEFUN
STYLE-WARNING: redefining LINE-LENGTH in DEFUN
STYLE-WARNING: redefining SB-INT:FILE-NAME in DEFUN
STYLE-WARNING: redefining NULL-READ-CHAR in DEFUN
STYLE-WARNING: redefining NULL-READ-CHARS in DEFUN
STYLE-WARNING: redefining NULL-UNREAD-CHAR in DEFUN
STYLE-WARNING: redefining NULL-WRITE-CHAR in DEFUN
STYLE-WARNING: redefining NULL-WRITE-CHARS in DEFUN
STYLE-WARNING: redefining NULL-LISTEN in DEFUN
NIL
* 
; loading system definition from
; /Users/nikodemus/src/sbcl/contrib/sb-rt/sb-rt.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM SB-RT {11843651}> as SB-RT

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-simple-streams/simple-stream-tests.lisp" (written 08 MAR 2007 01:12:25 PM):
; compiling (DEFPACKAGE SB-SIMPLE-STREAMS-TEST ...)
; compiling (IN-PACKAGE #:SB-SIMPLE-STREAMS-TEST)
; compiling (DEFPARAMETER *DUMB-STRING* ...)
; compiling (DEFPARAMETER *TEST-PATH* ...)
; compiling (DEFPARAMETER *TEST-FILE* ...)
; compiling (ENSURE-DIRECTORIES-EXIST *TEST-PATH* ...)
; compiling (DEFUN REMOVE-KEY ...)
; compiling (DEFUN CREATE-TEST-FILE ...)
; compiling (DEFUN REMOVE-TEST-FILE ...)
; compiling (DEFMACRO WITH-TEST-FILE ...)
; compiling (DEFTEST CREATE-FILE-1 ...)
; compiling (DEFTEST CREATE-FILE-2 ...)
; compiling (DEFTEST CREATE-READ-FILE-1 ...)
; compiling (DEFTEST CREATE-READ-MAPPED-FILE-1 ...)
; compiling (DEFTEST WRITE-READ-INET ...)
; compiling (DEFTEST WRITE-READ-LARGE-SC-1 ...)
; compiling (DEFTEST WRITE-READ-LARGE-SC-2 ...)
; compiling (DEFTEST WRITE-READ-LARGE-SC-3 ...)
; compiling (DEFTEST WRITE-READ-LARGE-DC-1 ...)
; compiling (DEFTEST FILE-POSITION-1 ...)
; compiling (DEFTEST FILE-POSITION-2 ...)
; compiling (DEFTEST FILE-POSITION-3 ...)
; compiling (DEFTEST FILE-POSITION-4 ...)
; compiling (DEFTEST FILE-POSITION-5 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-1 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-2 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-3 ...)
; compiling (DEFTEST WRITE-READ-UNFLUSHED-SC-4 ...)
; compiling (DEFTEST WRITE-READ-APPEND-SC-1 ...)
; compiling (DEFTEST WRITE-READ-MIXED-SC-1 ...)
; compiling (DEFPARAMETER *MULTI-LINE-STRING* ...)
; compiling (DEFMACRO WITH-DC-TEST-STREAM ...)
; compiling (DEFMACRO WITH-SC-TEST-STREAM ...)
; compiling (DEFTEST LISTEN-DC-1 ...)
; compiling (DEFTEST LISTEN-DC-2 ...)
; compiling (DEFTEST LISTEN-DC-3 ...)
; compiling (DEFTEST CHARPOS-1 ...)
; compiling (DEFTEST CHARPOS-2 ...)
; compiling (DEFTEST READER-1 ...)
; compiling (DEFTEST LINE-LENGTH-DC-1 ...)
; compiling (DEFVAR *SYNONYM*)
; compiling (DEFTEST SYNONYM-STREAM-1 ...)
; compiling (DEFTEST SYNONYM-STREAM-2 ...)
; compiling (DEFTEST SYNONYM-STREAM-3 ...)
; compiling (DEFTEST SYNONYM-STREAM-4 ...)
; compiling (DEFTEST SYNONYM-STREAM-5 ...)
; compiling (DEFTEST SYNONYM-STREAM-6 ...)
; compiling (DEFTEST SYNONYM-STREAM-7 ...)
; compiling (DEFTEST SYNONYM-STREAM-8 ...)
; compiling (DEFTEST SYNONYM-STREAM-9 ...)
; compiling (DEFTEST SYNONYM-STREAM-10 ...)
; compiling (DEFTEST SYNONYM-STREAM-11 ...)
; compiling (DEFTEST SYNONYM-STREAM-12 ...)
; compiling (DEFTEST SYNONYM-STREAM-13 ...)
; compiling (DEFTEST SYNONYM-STREAM-14 ...)
; compiling (DEFTEST SYNONYM-STREAM-15 ...)
; compiling (DEFTEST SYNONYM-STREAM-16 ...)
; compiling (DEFTEST BROADCAST-STREAM-4 ...)
; compiling (DEFTEST BROADCAST-STREAM-5 ...)
; compiling (DEFTEST BROADCAST-STREAM-6 ...)
; compiling (DEFTEST BROADCAST-STREAM-9 ...)
; compiling (DEFTEST BROADCAST-STREAM-10 ...)
; compiling (DEFTEST BROADCAST-STREAM-11 ...)
; compiling (DEFTEST BROADCAST-STREAM-12 ...)
; compiling (DEFTEST BROADCAST-STREAM-13 ...)
; compiling (DEFTEST BROADCAST-STREAM-14 ...)
; compiling (DEFTEST BROADCAST-STREAM-16 ...)
; compiling (DEFTEST TWO-WAY-STREAM-1 ...)
; compiling (DEFTEST TWO-WAY-STREAM-2 ...)
; compiling (DEFTEST TWO-WAY-STREAM-3 ...)
; compiling (DEFTEST TWO-WAY-STREAM-4 ...)
; compiling (DEFTEST TWO-WAY-STREAM-5 ...)
; compiling (DEFTEST TWO-WAY-STREAM-6 ...)
; compiling (DEFTEST TWO-WAY-STREAM-7 ...)
; compiling (DEFTEST TWO-WAY-STREAM-8 ...)
; compiling (DEFTEST TWO-WAY-STREAM-9 ...)
; compiling (DEFTEST TWO-WAY-STREAM-10 ...)
; compiling (DEFTEST TWO-WAY-STREAM-11 ...)
; compiling (DEFTEST TWO-WAY-STREAM-12 ...)
; compiling (DEFTEST TWO-WAY-STREAM-13 ...)
; compiling (DEFTEST TWO-WAY-STREAM-14 ...)
; compiling (DEFTEST TWO-WAY-STREAM-16 ...)
; compiling (DEFTEST ECHO-STREAM-1 ...)
; compiling (DEFTEST ECHO-STREAM-2 ...)
; compiling (DEFTEST ECHO-STREAM-3 ...)
; compiling (DEFTEST ECHO-STREAM-7 ...)
; compiling (DEFTEST ECHO-STREAM-8 ...)
; compiling (DEFTEST ECHO-STREAM-11 ...)
; compiling (DEFTEST ECHO-STREAM-12 ...)
; compiling (DEFTEST ECHO-STREAM-13 ...)
; compiling (DEFTEST ECHO-STREAM-14 ...)
; compiling (DEFTEST ECHO-STREAM-16 ...)
; compiling (DEFTEST CONCATENATED-STREAM-1 ...)
; compiling (DEFTEST CONCATENATED-STREAM-2 ...)
; compiling (DEFTEST CONCATENATED-STREAM-3 ...)
; compiling (DEFTEST CONCATENATED-STREAM-7 ...)
; compiling (DEFTEST CONCATENATED-STREAM-8 ...)
; compiling (DEFTEST CONCATENATED-STREAM-11 ...)
; compiling (DEFTEST CONCATENATED-STREAM-12 ...)
; compiling (DEFTEST CONCATENATED-STREAM-13 ...)
; compiling (DEFTEST CONCATENATED-STREAM-14 ...)
; compiling (DEFTEST CONCATENATED-STREAM-16 ...)
; compiling (DEFTEST FILE-SIMPLE-STREAM-1 ...)
; compiling (DEFTEST STRING-SIMPLE-STREAM-1 ...)
; compiling (DEFTEST EXTERNAL-FORMAT-1 ...)

; /Users/nikodemus/src/sbcl/contrib/sb-simple-streams/simple-stream-tests.fasl written
; compilation finished in 0:00:00
Doing 91 pending tests of 91 tests total.
 SB-SIMPLE-STREAMS-TEST::CREATE-FILE-1 SB-SIMPLE-STREAMS-TEST::CREATE-FILE-2
 SB-SIMPLE-STREAMS-TEST::CREATE-READ-FILE-1
 SB-SIMPLE-STREAMS-TEST::CREATE-READ-MAPPED-FILE-1
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-INET
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-LARGE-SC-1
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-LARGE-SC-2
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-LARGE-SC-3
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-LARGE-DC-1
 SB-SIMPLE-STREAMS-TEST::FILE-POSITION-1 SB-SIMPLE-STREAMS-TEST::FILE-POSITION-2
 SB-SIMPLE-STREAMS-TEST::FILE-POSITION-3 SB-SIMPLE-STREAMS-TEST::FILE-POSITION-4
 SB-SIMPLE-STREAMS-TEST::FILE-POSITION-5
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-UNFLUSHED-SC-1
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-UNFLUSHED-SC-2
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-UNFLUSHED-SC-3
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-UNFLUSHED-SC-4
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-APPEND-SC-1
 SB-SIMPLE-STREAMS-TEST::WRITE-READ-MIXED-SC-1
 SB-SIMPLE-STREAMS-TEST::LISTEN-DC-1 SB-SIMPLE-STREAMS-TEST::LISTEN-DC-2
 SB-SIMPLE-STREAMS-TEST::LISTEN-DC-3 SB-SIMPLE-STREAMS-TEST::CHARPOS-1
 SB-SIMPLE-STREAMS-TEST::CHARPOS-2 SB-SIMPLE-STREAMS-TEST::READER-1
 SB-SIMPLE-STREAMS-TEST::LINE-LENGTH-DC-1
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-1
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-2
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-3
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-4
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-5
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-6
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-7
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-8
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-9
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-10
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-11
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-12
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-13
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-14
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-15
 SB-SIMPLE-STREAMS-TEST::SYNONYM-STREAM-16
 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-4
 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-5
 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-6
 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-9
 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-10
 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-11
 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-12
 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-13
 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-14
 SB-SIMPLE-STREAMS-TEST::BROADCAST-STREAM-16
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-1
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-2
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-3
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-4
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-5
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-6
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-7
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-8
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-9
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-10
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-11
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-12
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-13
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-14
 SB-SIMPLE-STREAMS-TEST::TWO-WAY-STREAM-16 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-1
 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-2 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-3
 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-7 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-8
 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-11 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-12
 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-13 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-14
 SB-SIMPLE-STREAMS-TEST::ECHO-STREAM-16
 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-1
 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-2
 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-3
 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-7
 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-8
 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-11
 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-12
 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-13
 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-14
 SB-SIMPLE-STREAMS-TEST::CONCATENATED-STREAM-16
 SB-SIMPLE-STREAMS-TEST::FILE-SIMPLE-STREAM-1
 SB-SIMPLE-STREAMS-TEST::STRING-SIMPLE-STREAM-1
 SB-SIMPLE-STREAMS-TEST::EXTERNAL-FORMAT-1
No tests failed.
NIL
* /Users/nikodemus/src/sbcl/src/runtime/sbcl --noinform --core /Users/nikodemus/src/sbcl/output/sbcl.core --disable-debugger --no-sysinit --no-userinit --eval '(compile-file (format nil "SYS:CONTRIB;~:@(~A~);~:@(~A~).LISP" "sb-sprof" "sb-sprof"))' </dev/null

; compiling file "/Users/nikodemus/src/sbcl/contrib/sb-sprof/sb-sprof.lisp" (written 30 MAY 2008 09:26:11 PM):
; compiling (DEFPACKAGE #:SB-SPROF ...)
; compiling (IN-PACKAGE #:SB-SPROF)
; compiling (DEFSTRUCT (VERTEX # ...) ...)
; compiling (DEFSTRUCT EDGE ...)
; compiling (DEFSTRUCT GRAPH ...)
; compiling (DECLAIM (INLINE SCC-P))
; compiling (DEFUN SCC-P ...)
; compiling (DEFMACRO DO-VERTICES ...)
; compiling (DEFMACRO DO-EDGES ...)
; compiling (DEFUN SELF-CYCLE-P ...)
; compiling (DEFUN MAP-VERTICES ...)
; compiling (DEFUN STRONG-COMPONENTS ...)
; compiling (DEFUN TOPOLOGICAL-SORT ...)
; compiling (DEFUN REDUCE-GRAPH ...)
; compiling (DEFTYPE ADDRESS ...)
; compiling (DEFCONSTANT +UNKNOWN-ADDRESS+ ...)
; compiling (DEFSTRUCT (CALL-GRAPH # ...) ...)
; compiling (DEFSTRUCT (NODE # ...) ...)
; compiling (DEFSTRUCT (CYCLE #))
; compiling (DEFSTRUCT (CALL # ...) ...)
; compiling (DEFVAR *SAMPLE-INTERVAL* ...)
; compiling (DECLAIM (TYPE NUMBER ...))
; compiling (DEFVAR *ALLOC-INTERVAL* ...)
; compiling (DECLAIM (TYPE NUMBER ...))
; compiling (DEFVAR *MAX-SAMPLES* ...)
; compiling (DECLAIM (TYPE SB-INT:INDEX ...))
; compiling (DEFSTRUCT (SAMPLES) ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFTYPE REPORT-TYPE ...)
; compiling (DEFVAR *SAMPLING-MODE* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *ALLOC-REGION-SIZE* ...)
; compiling (DECLAIM (TYPE NUMBER ...))
; compiling (DEFVAR *SAMPLES* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *PROFILING* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *SAMPLING* ...)
; compiling (DECLAIM (TYPE BOOLEAN ...))
; compiling (DEFVAR *SHOW-PROGRESS* ...)
; compiling (DEFVAR *OLD-SAMPLING* ...)
; compiling (DEFVAR *ENCAPSULATIONS* ...)
; compiling (DEFUN TURN-OFF-SAMPLING ...)
; compiling (DEFUN TURN-ON-SAMPLING ...)
; compiling (DEFUN SHOW-PROGRESS ...)
; compiling (DEFUN START-SAMPLING ...)
; compiling (DEFUN STOP-SAMPLING ...)
; compiling (DEFMACRO WITH-SAMPLING ...)
; compiling (DECLAIM (INLINE DEBUG-INFO))
; compiling (DEFUN DEBUG-INFO ...)
; compiling (DEFUN ENSURE-SAMPLES-VECTOR ...)
; compiling (DECLAIM (INLINE RECORD))
; compiling (DEFUN RECORD ...)
; compiling (DEFUN RECORD-TRACE-START ...)
; compiling (DEFVAR *PROFILED-THREADS* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *TIMER-THREAD* ...)
; compiling (DEFUN PROFILED-THREADS ...)
; compiling (DEFUN PROFILED-THREAD-P ...)
; compiling (DEFVAR *PROFILER-LOCK* ...)
; compiling (DEFVAR *DISTRIBUTION-LOCK* ...)
; compiling (DEFINE-ALIEN-ROUTINE PTHREAD-KILL ...)
; compiling (DEFUN THREAD-DISTRIBUTION-HANDLER ...)
; compiling (DEFUN SIGPROF-HANDLER ...)
; compiling (DEFUN CODE-START ...)
; compiling (DEFUN CODE-BOUNDS ...)
; compiling (DEFMACRO WITH-PROFILING ...)
; compiling (DEFVAR *TIMER* ...)
; compiling (DEFVAR *OLD-ALLOC-INTERVAL* ...)
; compiling (DEFVAR *OLD-SAMPLE-INTERVAL* ...)
; compiling (DEFUN START-PROFILING ...)
; compiling (DEFUN STOP-PROFILING ...)
; compiling (DEFUN RESET ...)
; compiling (DEFUN MAKE-NODE ...)
; compiling (DEFVAR *NAME->NODE*)
; compiling (DEFMACRO WITH-LOOKUP-TABLES ...)
; compiling (DEFUN LOOKUP-NODE ...)
; compiling (DEFUN COLLECT-NODES ...)
; compiling (DEFUN MAKE-CALL-GRAPH-1 ...)
; compiling (DEFUN REDUCE-CALL-GRAPH ...)
; compiling (DEFUN COMPUTE-ACCRUED-COUNTS ...)
; compiling (DEFUN MAKE-CALL-GRAPH ...)
; compiling (DEFUN PRINT-SEPARATOR ...)
; compiling (DEFUN SAMPLES-PERCENT ...)
; compiling (DEFUN PRINT-CALL-GRAPH-HEADER ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *REPORT-SORT-BY* ...)
; compiling (DECLAIM (TYPE # ...))
; compiling (DEFVAR *REPORT-SORT-ORDER* ...)
; compiling (DEFUN PRINT-FLAT ...)
; compiling (DEFUN PRINT-CYCLES ...)
; compiling (DEFUN PRINT-GRAPH ...)
; compiling (DEFUN REPORT ...)
; compiling (DEFUN SAMPLE-PC-FROM-PC-OR-OFFSET ...)
; compiling (DEFUN ADD-DISASSEMBLY-PROFILE-NOTE ...)
; compiling (PUSHNEW (QUOTE ADD-DISASSEMBLY-PROFILE-NOTE) ...)
; compiling (DEFUN PROFILE-CALL-COUNTS ...)
; compiling (DEFUN PROFILE-CALL-COUNTS-FOR-FUNCTION ...)
; compiling (DEFUN UNPROFILE-CALL-COUNTS ...)
; compiling (DEFUN ENABLE-CALL-COUNTING ...)
; compiling (DEFUN DISABLE-CALL-COUNTING ...)
; compiling (DEFUN ENABLE-CALL-COUNTING-FOR-FUNCTION ...)
; file: /Users/nikodemus/src/sbcl/contrib/sb-sprof/sb-sprof.lisp
; in: DEFUN ENABLE-CALL-COUNTING-FOR-FUNCTION
;     (INCF (THE (UNSIGNED-BYTE 59) (CAR SB-SPROF::INFO)))
; --> LET* 
; ==>
;   (+ (THE (UNSIGNED-BYTE 59) (CAR #:G2365)) #:G2366)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (UNSIGNED-BYTE 59), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 576460752303423487)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 59), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1 576460752303423487)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; compiling (DEFUN TEST-0 ...)
; compiling (DEFUN TEST ...)
; compiling (PROVIDE (QUOTE SB-SPROF)); 
; compilation unit finished
;   printed 1 note


; SYS:CONTRIB;SB-SPROF;SB-SPROF.FASL.NEWEST written
; compilation finished in 0:00:01
* true

real	0m26.458s
user	0m20.000s
sys	0m3.596s

The build seems to have finished successfully, including       15 (out of       15)
contributed modules. If you would like to run more extensive tests on
the new SBCL, you can try:

  cd tests && sh ./run-tests.sh

  (All tests should pass on x86/Linux, x86/FreeBSD4, and ppc/Darwin. On
  other platforms some failures are currently expected; patches welcome
  as always.)

To build documentation:

  cd doc/manual && make

To install SBCL (more information in INSTALL):

  sh install.sh

//build started:  Wed Jul 30 15:11:09 EEST 2008
//build finished: Wed Jul 30 15:16:36 EEST 2008
